3
Oleg_Kag
02.08.12
✎
09:20
|
Стыдно то как, но...
Процедура Сформировать()
Перем Запрос, ТекстЗапроса, Таб;
//Создание объекта типа Запрос
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Период с ВыбНачПериода по ВыбКонПериода;
|НачисленияУдержанияСотрудника = Документ.НачисленияУдержанияСотрудника.ТекущийДокумент, Документ.НачисленияУдержанияСписком.ТекущийДокумент;
|Расчет = Документ.НачисленияУдержанияСотрудника.Расчет, Документ.НачисленияУдержанияСписком.Расчет;
|Сотрудник = Документ.НачисленияУдержанияСотрудника.Сотрудник, Документ.НачисленияУдержанияСписком.Сотрудник;
|Начало = Документ.НачисленияУдержанияСотрудника.Начало, Документ.НачисленияУдержанияСписком.Начало;
|Окончание = Документ.НачисленияУдержанияСотрудника.Окончание, Документ.НачисленияУдержанияСписком.Окончание;
|Величина = Документ.НачисленияУдержанияСотрудника.Величина, Документ.НачисленияУдержанияСписком.Величина;
|Группировка Сотрудник упорядочить по Сотрудник.Наименование без групп;
|Условие(Расчет = ВыбРасчет);
|"//}}ЗАПРОС
;
// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;
// Подготовка к заполнению выходных форм данными запроса
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
// Заполнение полей "Заголовок"
Таб.ВывестиСекцию("Заголовок");
Состояние("Заполнение выходной таблицы...");
Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
Пока Запрос.Группировка(1) = 1 Цикл
// Заполнение полей Сотрудник
Таб.ВывестиСекцию("Сотрудник");
КонецЦикла;
// Вывод заполненной формы
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать", "");
КонецПроцедуры
|
|