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

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

. Процедура ПечатьСтрах ()

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

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

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

. КонецЕсли;

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

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

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

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

. КонецЕсли;

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

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

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

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

. КонецЕсли;

. КонецЕсли;

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

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

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

. КонецЕсли;

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

. Таб.ІсходнаяТабліца ( Страхування );

. Пропис ( );

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

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

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

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

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

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

. КонецЕсли;

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

. Якщо невиїзд=Перечісленіе.Невиезд.Да тоді

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

. Інакше невиїзд=Перечісленіе.Невиезд.Нет;

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

. КонецЕсли;

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

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

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

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

. КонецЕсли;

. Пропис ( );

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

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

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

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

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

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

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

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

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

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

. КонецЕсли;

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

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

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

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

. КонецЕсли;

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

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

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

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

. КонецЕсли;

. КонецЕсли;

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

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

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

. КонецЕсли;

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

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

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

. КонецЕсли;

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

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

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

. КонецЕсли;

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

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

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

. КонецЕсли;

. Якщо Мед_Страх.вибран ()=0 тоді

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

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

. КонецЕсли;

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

Назад | сторінка 11 з 19 | Наступна сторінка