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