В начало

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

 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

      Возврат;

   КонецЕсли;

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

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

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

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

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

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

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

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

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

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

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

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

      КонецЦикла;

   КонецЦикла;

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

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

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

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

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

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