Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
29 мар 2024, 18:15

Иерархический вывод результата в построитель отчета

Автор arhiordinator, 21 фев 2014, 13:42

0 Пользователей и 1 гость просматривают эту тему.

arhiordinator

Всем привет, подскажите как вывести через построитель, результат в иерархическом виде, на форме имеется "ПолеТабличногоДокумента", собственно текст запроса и настройки построителя ниже.



Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
                  |   Номенклатура.НоменклатурнаяГруппа КАК НоменклатурнаяГруппа,
                  |   Номенклатура.Ссылка КАК Номенклатура
                  |ИЗ
                  |   Справочник.Номенклатура КАК Номенклатура
                  |ГДЕ
                  |   Номенклатура.Ссылка В ИЕРАРХИИ(&Родитель)
                  |   И НЕ Номенклатура.ПометкаУдаления
                  |
                  |СГРУППИРОВАТЬ ПО
                  |   Номенклатура.НоменклатурнаяГруппа,
                  |   Номенклатура.Ссылка
                  |
                  |УПОРЯДОЧИТЬ ПО
                  |   Номенклатура.НоменклатурнаяГруппа,
                  |   Номенклатура.Ссылка
                  |ИТОГИ ПО
               |Номенклатура.Ссылка,
                  |   Номенклатура.НоменклатурнаяГруппа ИЕРАРХИЯ
                  |АВТОУПОРЯДОЧИВАНИЕ";
   Запрос.УстановитьПараметр("Родитель",Справочники.Номенклатура.Комплектующие);
   РезультатЗапроса = Запрос.Выполнить().Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);
   ПостроительОтчетаДляВывода = Новый ПостроительОтчета();
   ПостроительОтчетаДляВывода.ИсточникДанных = Новый ОписаниеИсточникаДанных(РезультатЗапроса);
   ПостроительОтчетаДляВывода.Выполнить();   
   ТабличныйДокумент = ЭлементыФормы.ДокументРезультат;
   ТабличныйДокумент.Очистить();   
   ПостроительОтчетаДляВывода.МакетОформления = ПолучитьМакетОформления(СтандартноеОформление.Песок);
   ПостроительОтчетаДляВывода.ОформитьМакет();
   ПостроительОтчетаДляВывода.РазмещениеИзмеренийВКолонках = ТипРазмещенияИзмерений.Вместе;
   ПостроительОтчетаДляВывода.РазмещениеИзмеренийВСтроках = ТипРазмещенияИзмерений.Вместе;
   ПостроительОтчетаДляВывода.РазмещениеРеквизитовИзмеренийВКолонках = ТипРазмещенияРеквизитовИзмерений.отдельно;
   ПостроительОтчетаДляВывода.РазмещениеРеквизитовИзмеренийВСтроках = ТипРазмещенияРеквизитовИзмерений.отдельно;
   ПостроительОтчетаДляВывода.ТекстЗаголовка = СокрЛП(ЭтотОбъект.Метаданные().Синоним);
   ПостроительОтчетаДляВывода.Вывести(ТабличныйДокумент);


Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск