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

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

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

. КонецЕсли;

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

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

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

. КонецЕсли;

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

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

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

. КонецЕсли;

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

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

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

. КонецЕсли;

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

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

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

. КонецЕсли;

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

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

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

. КонецЕсли;

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

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

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

. КонецЕсли;

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

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

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

. КонецЕсли;

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

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

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

. КонецЕсли;

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

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

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

. КонецЕсли;

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

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

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

419. КонецЕсли;

. Якщо Пустоезначеніе (Доп)=1 тоді

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

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

. КонецЕсли;

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

. Таб.ІсходнаяТабліца ( ПутевкаЛ1 );

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

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

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

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

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

. КонецЕсли;

. Якщо Наліч_групп=Перечісленіе.Группа.Да Тоді

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

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

. п=0;

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

. п=п + 1;

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

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

. КонецЕсли;

. Пропис ( );

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

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

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

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

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

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

. Процедура Енети ()

. Якщо Е_н=1

. тоді екс= немає

. Форма.екс.Доступность (0);

. інакше

. екс= raquo ;;

. Форма.екс.Доступность (1);

. КонецЕсли;

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

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

. Якщо Номер_дог=-/ Raquo; тоді

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

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

. КонецЕсли;

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

. Таб.ІсходнаяТабліца ( ПутевкаЛ2 );

. Пропис ( );

...