В начало

Процедура ПечатьСправочника

 

Процедура ПечатьСправочника ()

 

   // Процедура печати полного справочника товаров

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

 

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

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

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

   |Товар = Справочник.Товары.ТекущийЭлемент;

   |Группировка Товар Упорядочить по Товар.МинЗапас;

   |";

 

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

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

      Возврат;

   КонецЕсли;

 

   // Заполнение выходных форм данными запроса

   // Создание Таблицы для выходного отчета

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

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

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

 

      // Заполнение полей Товар

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

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

      Иначе

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

      КонецЕсли;

   КонецЦикла;

 

   //Отображение выходного отчета

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

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

   Таб.Показать ("Список товаров по каталогу", "");

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