В начало

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

 

Процедура ПродТовар (ВТовар)

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

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

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

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

   КонецЕсли;

 

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

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

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

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

   |КЛИЕНТ = Документ.РасхНакл.Клиент;

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

   |СУММ = Документ.РасхНакл.СуммаВал;

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

   |Группировка КЛИЕНТ Упорядочить По КЛИЕНТ.Наименование;

   |Группировка ТОВАР Упорядочить По ТОВАР.Наименование;

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

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

   |";

 

   Если ВТовар.Выбран () = 1 Тогда

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

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

             "Условие (Товар.ПринадлежитГруппе (ВТовар) = 1);";

      Иначе

         ТекстЗапроса = ТекстЗапроса + "Условие  (Товар = ВТовар);";

         ФОдинТовар = 1;

      КонецЕсли;

   КонецЕсли;

 

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

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

      Возврат;

   КонецЕсли;

 

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

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

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

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

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

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

         Если ФОдинТовар = 0 Тогда

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

         КонецЕсли;

      КонецЦикла;

   КонецЦикла;

 

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

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

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

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

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