В начало

Вывод по периодам

 

Процедура ВыводПоПериодам ()

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

   Перем ДатаАкт;

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

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

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

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

   ТекстЗапроса = "|Период с ДатаАкт по ДатаАкт;

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

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

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

   |Группировка Сотр упорядочить по Сотр.МестоРаботы без групп;

   |Группировка Пер;

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

   // Если ошибка в запросе, то выход из процедуры

   Если Запрос.Выполнить (ТекстЗапроса) = 0 Тогда

      Возврат;

   КонецЕсли;

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

      Сообщить (Запрос.Сотр.Наименование);

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

         Сообщить (Запрос.Пер.ОписательПериода + "-" + 3апрос.Сум);

      КонецЦикла;

   КонецЦикла;

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