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

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

. Процедура АвтоЗапКліент ()

.// Автозаповнення даних про клієнта

. Паспорт_кліента=Наіменованіе_Кліента.Паспорт;

. Паспорт_видан_кем=Наіменованіе_Кліента.П_Видан;

. П_видан_когда=Наіменованіе_Кліента.Дата_видачі;

. Адрес_кліента=Наіменованіе_Кліента.Адрес;

. Тел_кліента=Наіменованіе_Кліента.Дом_телефон + + Наіменованіе_Кліента.Моб_телефон;

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

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

.// Автозаповнення даних про юр.лицами

. ФІО_рук=Юр_орг.ФІО_рук;

. Юр_адрес=Юр_орг.Юр_адрес;

. Юр_Факт_адрес=Юр_орг.Факт_адрес;

. Юр_тел=Юр_орг.Тел;

. Юр_факс=Юр_орг.Факс;

. Юр_ІНН=Юр_орг.ІНН;

. Юр_рс=Юр_орг.рс;

. Юр_в_отд_банк=Юр_орг.в_отд_банк;

. Юр_кс=Юр_орг.кс;

. Юр_кс_в_банк=Юр_орг.кс_в_банк;

. Юр_БІК=Юр_орг.БІК;

. Юр_email=Юр_орг.email;

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

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

.// Автозаповнення даних?? туроператора

. Полн_наімен_операт=Наім_туро.Полное_наіменованіе;

. Реестр_ном=Наім_туро.Реестровий_номер;

. Место_нахожд=Наім_туро.Юр_адрес;

. Размер_фін_об=Наім_туро.ФінОб;

. Ном_дог_страх=Наім_туро.ном_дог_страх;

. дог_страх_от=Наім_туро.дог_страх_от;

. дог_страх_до=Наім_туро.дог_страх_до;

. наімен_орг_страх_полн=Наім_туро.Наімен_орг_страх_полн;

. Наімен_орг=Наім_туро.Наімен_орг;

. Юр_почт_адрес=Наім_туро.Юр_почт_адрес;

. Место_нахожд_страх_орг=Наім_туро.Место_нахожд;

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

. Процедура ВідімСлоі ()

.// Процедура, що дозволяє відображати шари

. Форма.ІспользоватьСлой ( Тур , 0);

. Форма.ІспользоватьСлой ( Тур_оператор , 1);

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

. Форма.кн_туроп.Відімость (0);

. Форма.кн_тур.Відімость (1);

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

. Процедура ВідімСлоі1 ()

.// Процедура, що дозволяє відображати шари

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

. Форма.ІспользоватьСлой ( Тур_оператор , 0);

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

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

. Інакше

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

. КонецЕсли;

. Форма.кн_туроп.Відімость (1);

. Форма.кн_тур.Відімость (0);

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

. Процедура ВідімТ ()

.// Процедура, що дозволяє відображати таблицю

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

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

. Інакше

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

95. КонецЕсли

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

. Процедура ВалідаціяДат ()

. Якщо Прибуття gt; Від'їзд Тоді

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

100. ІначеЕслі Прибуття lt; ТекущаяДата () тоді

101. Прибуття=ТекущаяДата ();

102. КонецЕсли

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

.// Таблиця автовибір

. Процедура автотуристів ()

. Якщо Фамілія_групп lt; gt; тоді

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

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

. Громадянство=Фамілія_групп.Гражданство;

. Дата_рожд_групп=Фамілія_групп.Дата_рожд;

. Паспорт_групп=Фамілія_групп.Номер_З_паспорта;

. Дата_оконч=Фамілія_групп.Дата_окончанія;

. Адрес_Т=Фамілія_групп.Адрес_прож;

. Тел_Т=Фамілія...