Имя: Пароль:
1C
1С v8
соединить 2 табличных документа, сохранив при этом формат колонок
0 novichok79
 
15.08.12
11:45
доброе утро!
делаю отчет, в котором надо соединить 2 других отчета.
я сделал функции передачи параметров и получения таблиц, выгруженных из результата отчета, а также табличного документа.
самое простое не могу дорисовать - как вывести 2 табличных документа, полученных вышеописанным способом друг за другом и сохранить при этом формат колонок (ширину) каждого из них.
подскажите пожалуйста.
1 novichok79
 
15.08.12
12:35
разве никто не сталкивался с подобной задачей?
2 aleks-id
 
15.08.12
12:38
в СКД 2 источника данных
3 novichok79
 
15.08.12
12:42
(2) спасибо, а есть ли вариант без СКД?
4 Живой Ископаемый
 
15.08.12
12:43
стопудов можно.. но быстро не покажу.
5 Лоботряс
 
15.08.12
12:43
(2) 2 таблицы, источник может быть один
6 aleks-id
 
15.08.12
12:46
(5) 2 набора данных если докопался к формулировке :)
7 novichok79
 
15.08.12
12:49
(6) им нужна точная копия "как в экселе", пришлось делать без использования СКД.
8 х86
 
15.08.12
12:49

Процедура ДобавитьОтчет(ТДПриемник, Отчет)

   НачалоНовогоФорматаСтрок = ТДПриемник.ВысотаТаблицы + 1;
   ОбластьПрямоугольная = Отчет.Область(1, , Отчет.ВысотаТаблицы, );
   ТДПриемник.ВставитьОбласть(ОбластьПрямоугольная, ТДПриемник.Область(НачалоНовогоФорматаСтрок, 1));
   ТДПриемник.Область(НачалоНовогоФорматаСтрок, ,
       НачалоНовогоФорматаСтрок + Отчет.ВысотаТаблицы - 1, ).СоздатьФорматСтрок();
   // назначим ширину колонок у новой области формата строк
   Для Счетчик = 1 По Отчет.ШиринаТаблицы Цикл
       ТДПриемник.Область(НачалоНовогоФорматаСтрок, Счетчик).ШиринаКолонки = Отчет.Область(1, Счетчик).ШиринаКолонки;
   КонецЦикла;
   ТДПриемник.ВывестиГоризонтальныйРазделительСтраниц();

КонецПроцедуры // ДобавитьОтчет

(с)1с СП
9 novichok79
 
15.08.12
12:55
(8) спасибо, попробую так. надо почаще читать СП :)
10 ptiz
 
15.08.12
12:59
ТабДокМелкий.Область().СоздатьФорматСтрок();
ТабДокГлавный.Вывести(ТабДокМелкий);
11 novichok79
 
15.08.12
14:23
всем спасибо, все получилось как надо.