Имя: Пароль:
1C
 
помогите ВыгрузитьТабличнуюЧасть()
0 Таня
 
21.05.04
14:56
Как в одну таблицу значений выгрузить табличные части двух документов, чтобы строки в таблицу добавлялись?    

Расходники.ВыбратьСтроки();
   Пока Расходники.ПолучитьСтроку() = 1 Цикл
       Докум.НайтиДокумент(Расходники.Докум);
       Докум.ВыгрузитьТабличнуюЧасть(ТЗ);        
   КонецЦикла;    

У меня остается одна последняя.
1 SnarkHunter
 
21.05.04
14:57
Цикл не нужен...
2 SnarkHunter
 
21.05.04
14:57
Фигню сказал...
3 alxkorvin
 
21.05.04
14:59
Либо обходи табличную часть по строкам и используй ТЗ.НоваяСтрока(), либо выгружай в 2 ТЗ, а потом вторую выгружай в первую.
4 Bzzzzz
 
21.05.04
15:02
Снарк уработался за неделю :-)
Выгрузить... замещает ТЗ, вроде как.
5 Таня
 
21.05.04
15:02
Так это если будет не два документа а 100000... и тд. сколько же будет ТЗ??!!
6 SnarkHunter
 
21.05.04
15:05
(4)Да, пожалуй... :-)
7 alxkorvin
 
21.05.04
15:06
(4) ТЗ все равно будет 2 :)
8 Таня
 
21.05.04
15:08
Да я уж сделала через НовуюСтроку(). Всем Спасибо
9 alxkorvin
 
21.05.04
15:15
ТЗ = СоздатьОбъект("ТаблицаЗначений");
ТЗВрем = СоздатьОбъект("ТаблицаЗначений");
Пока Расходники.ПолучитьСтроку() = 1 Цикл
   Докум.НайтиДокумент(Расходники.Докум);
   Докум.ВыгрузитьТабличнуюЧасть(ТЗВрем);
   ТЗВрем.Выгрузить(ТЗ);
КонецЦикла;    

Вот примерно так :)
10 Press
 
21.05.04
15:19
(9)Чушь...
11 alxkorvin
 
21.05.04
15:21
(10) Почему?
12 Bzzzzz
 
21.05.04
15:23
(11) будет всё время последняя ТЗ
13 mszsuz
 
21.05.04
15:31
Процедура Сформировать()
   ТЗРезультат=СоздатьОбъект("ТаблицаЗначений");      
   ТЗРезультат.НоваяКолонка("К","Число",10,0);        
   Для СколькоРаз=1 по 3 Цикл
       // заполним промежуточную
       ТЗ=СоздатьОбъект("ТаблицаЗначений");
       ТЗ.НоваяКолонка("К","Число",10,0);        
       Для нс=1 по 10 Цикл
           ТЗ.НоваяСтрока();
           ТЗ.К=нс;        
       КонецЦикла;                
       // сольём
       ТЗРезультат.КоличествоСтрок(ТЗРезультат.КоличествоСтрок()+ТЗ.КоличествоСтрок());
       ТЗРезультат.Заполнить(ТЗ,ТЗРезультат.КоличествоСтрок()-ТЗ.КоличествоСтрок()+1);
   КонецЦикла;  
   // смотрим
   ТЗРезультат.ВыбратьСтроку();
КонецПроцедуры
14 mszsuz
 
21.05.04
15:33
(+13) Ключевое слово "Заполнить()"
15 Bzzzzz
 
21.05.04
15:36
(14)Приз в студию!
Заполнить работает быстрее, чем перекидывать построчно?
16 mszsuz
 
21.05.04
15:46
(15) В полтора раза.
17 Таня
 
21.05.04
15:46
ужжас :)
18 mszsuz
 
21.05.04
15:46
(+16) ... для одной колонки.
19 lexa
 
21.05.04
18:18
а не проще через запрос?
20 alxkorvin
 
21.05.04
18:46
(12) Да что то я прогнал. Мне казалось что Выгрузить не очищает ТЗ.