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

align="justify">. КонецЕсли;

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

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

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

. КонецЕсли;

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

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

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

. КонецЕсли;

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

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

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

. КонецЕсли;

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

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

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

. КонецЕсли;

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

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

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

. КонецЕсли;

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

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

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

. КонецЕсли;

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

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

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

. КонецЕсли;

. Таб=СоздатьОб'ект ( Таблиця );// створюємо таблицю в назва таблиці

. Якщо Тип=Перечісленіе.Тіп_Кліента.Фіз_ліцо тоді//якщо стоїть галочка, то виводиться накл№1 Таблиця інакше накл№2 Таблица1

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

. інакше

. Таб.ІсходнаяТабліца ( Таблица1 );// до юр-особі

. КонецЕсли;

. Пропис ( );

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

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

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

. п=0;

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

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

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

. п=п + 1;

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

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

. КонецЕсли;

. РазмПропісью=Формат (Размер_фін_об, ЧПДС );

. Цена_договора=Цена_договора;

. СумПроп=Формат (Цена_договора, ЧПДС );

. Прібитіе2=Прибуття - 7;

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

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

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

. Таб.Показать ( Друк договору , );

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

. Процедура ПечатьАкта ()

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

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

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

. КонецЕсли;

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

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

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

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

. КонецЕсли;

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

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

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

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

. КонецЕсли;

. КонецЕсли;

. Таб=СоздатьОб'ект ( Таблиця );// створюємо таблицю в назва таблиці

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

. Таб.ІсходнаяТабліца ( АктФіз );

. інакше

. Таб.ІсходнаяТабліца ( АктЮр );// до юр-особі

. КонецЕсли;

. Пропис ( );

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

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

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

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

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

...