Реферат Автоматизація розрахунку заробітної плати співробітників магазина

. ДатаПропісью=Формат (ДатаДок, Д (0) ДДММММГГГГ );

. Таб.ВивестіСекцію ( Путівка );

. Таб.ПараметриСтраніци (2 ,,,,, 0,0 ,,, 1);

. Таб.ТолькоПросмотр (1);

. Таб.Показать ( Друк аркуша путівки № 2 , );

. КонецПроцедури

. Процедура ПечатьПамяткі ()

. Таб=СоздатьОб'ект ( Таблиця );

. Таб.ІсходнаяТабліца ( Пам'ятка );

. Таб.ВивестіСекцію ( Пам'ятка );

. Таб.ПараметриСтраніци (2 ,,,,, 0,0 ,,, 1);

. Таб.ТолькоПросмотр (1);

. Таб.Показать ( Друк пам'ятки , );

. КонецПроцедури

. Процедура ЗапСотр ()

. Посада=ФІО_сотр.Должность;

. Тел_сотр=ФІО_сотр.Телефон;

. КонецПроцедури

. Процедура ПечатьЗаявкі ()

. Якщо Тип=Перечісленіе.Тіп_кліента.Фіз_ліцо тоді

. Якщо Наіменованіе_Кліента.вибран ()=0 тоді

. повідомити ( Виберіть клієнта! Друк неможлива. );

. повернення;

. КонецЕсли;

. ІначеЕслі Тип=Перечісленіе.Тіп_кліента.Юр_ліцо тоді

. Якщо Юр_орг.вибран ()=0 тоді

. повідомити ( Виберіть клієнта! Друк неможлива. );

. повернення;

. КонецЕсли;

. КонецЕсли;

. Якщо Пансіон.вибран ()=0 тоді

. повідомити ( Виберіть пансіон! Друк неможлива. );

. повернення;

. КонецЕсли;

. Якщо Номер.вибран ()=0 тоді

. повідомити ( Виберіть номер! Друк неможлива. );

. повернення;

. КонецЕсли;

. Якщо Вилет_туда.вибран ()=0 тоді

. повідомити ( Виберіть аеропорт вильоту! Друк неможлива. );

. повернення;

. КонецЕсли;

. Якщо ПустоеЗначеніе (Прібитіе_туда)=1 тоді

. повідомити ( Виберіть значення Мед.страх! Друк неможлива. );

. повернення;

. КонецЕсли;

. Якщо ФІО_Сотр.вибран ()=0 тоді

. повідомити ( Виберіть співробітника, який уклав договір! Друк неможлива. );

. повернення;

. КонецЕсли;

. Якщо ПустоеЗначеніе (Прибуття)=1 тоді

. повідомити ( Введіть дату прибуття! Друк неможлива. );

. повернення;

. КонецЕсли;

. Якщо ПустоеЗначеніе (Від'їзд)=1 тоді

. повідомити ( Введіть дату від'їзду! Друк неможлива. );

. повернення;

. КонецЕсли;

. Таб=СоздатьОб'ект ( Таблиця );

. Таб.ІсходнаяТабліца ( Заявка );

. Ночі=Від'їзд - Прибуття;

. Таб.ВивестіСекцію ( Шапка );

. ВибратьСтрокі ();

. п=0;

. Поки ПолучітьСтроку ()=1 цикл

. п=п + 1;

. Таб.ВивестіСекцію ( Рядок );

. Конеццікла;

. Таб.ВивестіСекцію ( Підвал );

. Таб.ПараметриСтраніци (2 ,,,,, 0,0 ,,, 1);

. Таб.ТолькоПросмотр (1);

. Таб.Показать ( Друк заявки на бронювання туру , );

. КонецПроцедури

Код модуля документа

1. Процедура ОбработкаПроведенія ()

2. Якщо (Номер_дог= -/) або (Номер_дог= ) тоді

3. повідомити ( Введіть номер договору! Документ не проведений. );

. непроводітьдокумент ();

. повернення;

. КонецЕсли;

. Якщо Серія= № тоді

. повідомити ( Введіть серію і номер путівки! Документ не проведений. );

. непроводітьдокумент ();

. повернення;

. КонецЕсли;

. Якщо Тип=Перечісленіе.Тіп_кліента.Фіз_ліцо тоді

. Якщо На...