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

_групп.Тел_моб;

. Віза=Фамілія_групп.Віза;

. КонецЕсли;

. _Ном=0;

. паспорт=Паспорт_групп;

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

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

. якщо Паспорт_групп=паспорт тоді

. Якщо _Ном gt; 0 Тоді

. Фамілія_групп= raquo ;;

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

. Перервати;

. Ном=НомерСтрокі;

. КонецЕсли;

. _Ном=НомерСтрокі;

. КонецЕсли;

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

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

. Процедура АвтоКурорт ()

. Країна=Курорт.Страна;

. Місто=Курорт.Город;

. Готель=Курорт.Отель;

. Категорія=Отель.Категорія;

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

. Процедура Наліч ()

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

. тоді

. Наліч_групп=Перечісленіе.Группа.Да;

. форма.Наліч_групп.Доступность (0);

. Форма.ІспользоватьСлой ( Таблиця , 1);

. Інакше Форма.Наліч_групп.Доступность (1);

. КонецЕсли;

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

.// Нет до додаткових послуг:

. Процедура НетДоп ()

. Якщо Ф_доп=1

. тоді доп= немає raquo ;;

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

. інакше доп= raquo ;;

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

. КонецЕсли

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

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

. Прібитіе_обр=Вилет_туда;

. Вилет_обр=Прібитіе_туда;

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

. Процедура Друк ()

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

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

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

. КонецЕсли;

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

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

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

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

. КонецЕсли;

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

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

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

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

. КонецЕсли;

. КонецЕсли;

. Якщо Цена_договора=0 тоді

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

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

. КонецЕсли;

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

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

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

. КонецЕсли;

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

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

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

. КонецЕсли;

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

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

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

. КонецЕсли;

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

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

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

. КонецЕсли;

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

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

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

. КонецЕсли;

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

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

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

. КонецЕсли;

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

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

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