Имя: Пароль:
1C
1С v8
Свойства табличного документа
0 rodrigez
 
09.01.14
16:07
Здравсвуйте! Есть код, который ниже. Так же есть табличный документ с вручную создаными областями. Как сдлеать, что бы при отображении табличного документа не было видно разметки областей. Спасибо!

&НаКлиенте
Процедура ВыполнитьОтчет(Команда)
    ТД = Новый ТабличныйДокумент;
    ВыполнитьОтчетНаСервере(ТД);
    ТД.ОтображатьГруппировки = Ложь;
    ТД.ОтображатьЗаголовки   = Истина;
    ТД.ОтображатьСетку = Ложь;
    ТД.ТолькоПросмотр = Истина;
    ТД.Показать();
КонецПроцедуры

&НаСервере
Процедура ВыполнитьОтчетНаСервере(Макет);
    Макет = Отчеты.ПечатьНоменклатура.ПолучитьМакет("Макет");
    Заголовок  = Макет.ПолучитьОбласть("Заголовок");
    Группа = Макет.ПолучитьОбласть("Группа");
    Элемент = Макет.ПолучитьОбласть("Элемент");
    


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