В начало

Процедура РасчЛистки

 

Процедура РасчЛистки ()

   Перем Запрос, Флаг;

   Перем ДатаНач, ДатаКон;

   ЖР = СоздатьОбъект ("ЖурналРасчетов.Зарплата");

   Нач = ЖР.НачалоТекущегоПериода ();

   Кон = ЖР.КонецТекущегоПериода ();

 

   //Создание объекта типа Запрос

   Запрос = СоздатьОбъект ("Запрос");

   Флаг = Запрос.Выполнить (

   "|Период С ДатаНач По ДатаКон; // Выборка по расчетным периодам!

    |Рез = ЖурналРасчетов.Зарплата.Результат;

    |Расч = ЖурналРасчетов.Зарплата.ВидРасч;

    |Дни = ЖурналРасчетов.Зарплата.Дни;

    |Сотр = ЖурналРасчетов.Зарплата.Объект;

    |Группировка Сотр без групп;

    |Группировка Расч;

    |функция Сум = Сумма (Рез);

    |функция Дней = Сумма (Дни);

    |Условие (Рез о 0);

    |" );

…

КонецПроцедуры;