&НаКлиенте
Процедура СформироватьПрайс(Команда)
ЗаполнитьТАБДОК (ТабДок)
КонецПроцедуры
Процедура ЗаполнитьТАБДОК (ТабДок)
табдок.Очистить();
//Выборка=Справочники.Номенклатура.Выбрать(); //выводим без груп по алфавиту
Выборка=Справочники.Номенклатура.ВыбратьИерархически(); //выводим группы
Макет = Отчеты.ПрайсЛист.ПолучитьМакет("Макет");
ОблШапка=Макет.ПолучитьОбласть("Шапка");
ОблЭлемент = Макет.ПолучитьОбласть("Элемент");
ОблШапка.Параметры.ДатаОтчета=ТекущаяДата();
Табдок.Вывести(ОблШапка);
Пока Выборка.Следующий()Цикл
ОблЭлемент.Параметры.Код=Выборка.Код;
ОблЭлемент.Параметры.Наименование=Выборка.Наименование;
ОблЭлемент.Параметры.цена=Выборка.ЦенаПродажи;
Табдок.Вывести(ОблЭлемент);
КонецЦикла;
КонецПроцедуры
|