В начало

Процедура ПоПодр

 

Процедура ПоПодр ()

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

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

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

   ТекстЗапроса = "|Период с ДатаНач по ДатаКон;

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

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

   |Подр = ЖурналРасчетов.Зарплата.Объект.МестоРаботы.Владелец;

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

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

   |Группировка Подр без групп;

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

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

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

      Возврат;

   КонецЕсли;

   // Подготовка к заполнению выходных форм данными запроса

   Таб = СоздатьОбъект ("Таблица");

   Таб.ИсходнаяТаблица ("ПоПодр");

   // Заполнение полей "Заголовок"

   Таб.ВывестиСекцию ("Заголовок");

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

      // Заполнение полей ПД

      Таб.ВывестиСекцию ("ПД");

      Сообщение (Запрос.ПД.Описатель);

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

         // Заполнение полей Подр

         Таб.ВывестиСекцию ("Подр");

      КонецЦикла;

   КонецЦикла;

   // Заполнение полей "Итого"

   Таб.ВывестиСекцию ("Итого");

   // Вывод заполненной формы

   Таб.Опции (1, 0, 1, 0);

   Таб.Показать ("ПоПодр", "");

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