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

">. Форма.отчет_ф.Відімость (0);

. КонецЕсли;

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

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

. ВибТіп_кліента=Перечісленіе.Тіп_Кліента.Фіз_ліцо;

. Перемикати ()

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

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

. Якщо ВибНачПеріода gt; ВибКонПеріода Тоді

. ВибКонПеріода=ВибНачПеріода;

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

. ВибНачПеріода=ТекущаяДата ();

. КонецЕсли

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

.//

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

. Перем Запит, ТекстЗапроса, Таб;

.// Створення об'єкта типу Запит

. Якщо ВибЮрЛіца.вибран ()=0 тоді

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

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

. КонецЕсли;

. Запит=СоздатьОб'ект ( Запит );

. ТекстЗапроса=

. "//{{ЗАПИТ (звіт)

. | Період з ВибНачПеріода по ВибКонПеріода;

. | Обробляти НеПомеченниеНаУдаленіе;

. | Курорт=Документ.Договор.Курорт;

. | Цена_договора=Документ.Договор.Цена_договора;

. | ДатаДок=Документ.Договор.ДатаДок;

. | Номер_дог=Документ.Договор.Номер_дог;

. | Юр_орг=Документ.Договор.Юр_орг;

. | Тип=Документ.Договор.Тіп;

. | Угруповання Юр_орг без груп все ВошедшіеВЗапрос;

. | Угруповання Курорт без груп;

. | Угруповання Номер_дог;

. | Угруповання ДатаДок;

. | Угруповання Цена_договора;

. | Умова (Юр_орг=ВибЮрЛіца);

. | Умова (Тип=ВибТіп_кліента);

. |" //}} ЗАПИТ

. ;

.// Якщо помилка в запиті, то вихід з процедури

. Якщо Запрос.Виполніть (ТекстЗапроса)=0 Тоді

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

. КонецЕсли;

.// Підготовка до заповнення вихідних форм даними запиту

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

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

.// Заповнення полів Тема

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

. Стан ( Заповнення вихідний таблиці ... );

. Таб.Опціі (0, 0, Таб.ВисотаТабліци (), 0);

. Поки Запрос.Группіровка (1)=1 Цикл

.// Заповнення полів Юр_орг

.//Таб.ВивестіСекцію(laquo;Юр_оргraquo;);

. Поки Запрос.Группіровка (2)=1 Цикл

.// Заповнення полів Курорт

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

. Поки Запрос.Группіровка (3)=1 Цикл

.// Заповнення полів Номер_дог

.//Таб.ВивестіСекцію(laquo;Номер_догraquo;);

. Поки Запрос.Группіровка (4)=1 Цикл

.// Заповнення полів ДатаДок

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

. Поки Запрос.Группіровка (5)=1 Цикл

.// Заповнення полів Цена_договора

. Таб.ВивестіСекцію ( Цена_договора );

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

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

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

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

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

.// Висновок заповненої форми

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

. Таб.Показать ( Звіт по юр.лицами raquo ;, );

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

.// *******************************************

.// Процедура генерації запиту Фізособи.

.//

. Процедура Фізособи ()

. Перем Запит, ТекстЗапроса, Таб;

.// Створення об'єкта типу Запит

100. Якщо ВибФізЛіца.вибран ()=0 тоді

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

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

. КонецЕсли;

. Запит=СоздатьОб'ект ( Запит );

. ТекстЗапроса...