6.
АлексейН
2
17.10.11 08:52
Сейчас в теме
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Период с (НачМесяца(ВыбНачПериода)) по (КонМесяца(ВыбКонПериода));
|Обрабатывать НеПомеченныеНаУдаление;
|Объект = ЖурналРасчетов.Зарплата.Объект;
|Подр = ЖурналРасчетов.Зарплата.Объект.Подразделение;
|ВидРасч = ЖурналРасчетов.Зарплата.ВидРасч;
|Результат = ЖурналРасчетов.Зарплата.Результат;
|ПериодДействия = ЖурналРасчетов.Зарплата.ПериодРегистрации;
|Функция СуммаПоВР = Сумма(Результат);
|Функция РезультатСумма = Сумма(Результат) когда(ВидРасч.ВходитВГруппу(ГруппаРасчетов.ВсеНачисления)=1);
|Функция Выплаты = Сумма(Результат) когда(ВидРасч = ВидРасчета.ВыплатаЗарплаты );
|Функция РезультатСумма1 = Сумма(Результат) когда(ВидРасч=ВидРасчета.ПроизвольноеУдержание04);
|Функция Результат1 = Сумма(Результат) ; //
|Группировка Объект упорядочить по Объект.Наименование без групп;
|Группировка ПериодДействия;
|Группировка ВидРасч упорядочить по ВидРасч.Очередность;
|Условие(Подр в ВыбранноеПодразделение);
|Условие(Объект в Сотрудники);
|"//}}ЗАПРОС
;
// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;
Выделенные строчки - то что было добавлено.