В начало

Процедура ПродВсего

 

Процедура ПродВсего ()

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

   ДатаКон = ДатаКонца;

   Если ДатаКон >= ПолучитьДатуТА () Тогда

      ДатаКон = Дата (0);

   КонецЕсли;

 

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

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

   ТекстЗапроса = "

   |Период с ДатаНачала по ДатаКон;

   |ТОВАР = Документ.РасхНакл.Товар;

   |Сумма_Прод = Документ.РасхНакл.СуммаРуб;

   |КОЛВО_Прод = Документ.РасхНакл.Количество;

   |Группировка ТОВАР;

   |Функция Продано = Сумма (КОЛВО_Прод);

   |Функция СуммаПродано = Сумма (Сумма_Прод);

   |";

 

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

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

      Возврат;

   КонецЕсли;

 

   // Подготовка к заполнению

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

   Таб.ИсходнаяТаблица ("ТабВсего");

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

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

      ПродСумма = Запрос.СуммаПродано;

      Если Запрос.Товар.ЭтоГруппа () = 1 Тогда

         Таб.ВывестиСекцию ("Группа");

      Иначе

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

      КонецЕсли;

   КонецЦикла;

 

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

   Таб.ТолькоПросмотр (1);

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

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

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