0
rodrigez
09.01.14
✎
16:07
|
Здравсвуйте! Есть код, который ниже. Так же есть табличный документ с вручную создаными областями. Как сдлеать, что бы при отображении табличного документа не было видно разметки областей. Спасибо!
&НаКлиенте
Процедура ВыполнитьОтчет(Команда)
ТД = Новый ТабличныйДокумент;
ВыполнитьОтчетНаСервере(ТД);
ТД.ОтображатьГруппировки = Ложь;
ТД.ОтображатьЗаголовки = Истина;
ТД.ОтображатьСетку = Ложь;
ТД.ТолькоПросмотр = Истина;
ТД.Показать();
КонецПроцедуры
&НаСервере
Процедура ВыполнитьОтчетНаСервере(Макет);
Макет = Отчеты.ПечатьНоменклатура.ПолучитьМакет("Макет");
Заголовок = Макет.ПолучитьОбласть("Заголовок");
Группа = Макет.ПолучитьОбласть("Группа");
Элемент = Макет.ПолучитьОбласть("Элемент");
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| Номенклатура.Ссылка КАК Ссылка,
| Номенклатура.Родитель
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
|
|УПОРЯДОЧИТЬ ПО
| Ссылка ИЕРАРХИЯ";
РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
Макет.Очистить();
// Макет.Вывести(Заголовок);
Пока Выборка.Следующий() Цикл
Если Выборка.Ссылка.ЭтоГруппа Тогда
Сообщить(Выборка.Ссылка) ;
Группа.Параметры.Группы = Выборка.Ссылка;
Макет.Вывести(Группа);
Иначе
Сообщить ("______"+Выборка.Ссылка) ;
Элемент.Параметры.Элементы = Выборка.Ссылка;
Макет.Вывести(Элемент);
КонецЕсли;
КонецЦикла;
КонецПроцедуры
|
|