Форум на Kuban.ru (http://forums.kuban.ru/)
-   Территория 1С (http://forums.kuban.ru/f1040/)
-   -   Табличный документ, как добавить шапку? (http://forums.kuban.ru/f1040/tablichnyj_dokument_kak_dobavit-_shapku-3860719.html)

Sany81 13.03.2013 13:18

Табличный документ, как добавить шапку?
 
УТ10.3
Есть табличный документ, сформированный универсальным отчетом:
УниверсальныйОтчет.СформироватьОтчет(ТабличныйДокумент);

Есть макет, в которм 2 области Шапка и Подвал:
Макет=ПолучитьМакет("Макет");
Шапка=Макет.ПолучитьОбласть("Шапка");
Подвал=Макет.ПолучитьОбласть("Подвал");

Как объединить Табличный документ и 2 области в таком порядке:
Шапка
ТабличныйДокумен
Подвал

При этом настройка ширины колонок должна браться из
ТабличныйДокумен.

Sany81 13.03.2013 16:51

Выкрутился, криво но все таки работает. Код ниже.
Но может кто подскажет более красивое решение.
ТабличныйДокумент - ЭлементФормы.

ТабДок=Новый ТабличныйДокумент();
Макет=ПолучитьМакет("Макет");
Шапка=Макет.ПолучитьОбласть("Заголовок");
Подвал=Макет.ПолучитьОбласть("Подвал");

УниверсальныйОтчет.СформироватьОтчет(ТабДок);
ТабличныйДокумент.Вывести(ТабДок);
ТабличныйДокумент.Вывести(Шапка);
ТабличныйДокумент.Вывести(ТабДок);
Смещать = ТипСмещенияТабличногоДокумента.ПоВертикали;
Область = ТабличныйДокумент.Область("R1:R" + Формат(ТабДок.ВысотаТаблицы,"ЧГ="));
ТабличныйДокумент.УдалитьОбласть(Область, Смещать);
ТабличныйДокумент.Вывести(Подвал);


Текущее время: 08:59. Часовой пояс GMT +3.