Имя: Пароль:
1C
1C 7.7
v7: выгрузить запрос в тз не один раз
0 DmitriyDI
 
14.06.13
10:42
Всем доброго времени суток, помогите решить одну задачку, как выгрузить запрос в таблицу значений несколько раз, чтобы результаты предыдущих выгрузок сохранялись в ней, метод ЗапросПодбора.Выгрузить(ТТ,0,0);
я так понял не работает, а вот в принципе и код, что я делаю не так:

ТТ=СоздатьОбъект("ТаблицаЗначений");

А=4;
ДатаРасчетаПлана = НачДата;
СписокЗначений = СоздатьОбъект("СписокЗначений");

Для Стр=1 По А Цикл
   ДатаРасчетаПлана =  ДатаРасчетаПлана - 7;
   //СписокЗначений.ДобавитьЗначение(ДатаРасчетаПлана);

ЗапросПодбора = СоздатьОбъект("Запрос");
ТекстЗапросаПодборТовара="Период С ДатаРасчетаПлана По ДатаРасчетаПлана;
|Товар = Регистр.ПартииТоваров.Товар;
|СуммаРублевая = Регистр.ПартииТоваров.СуммаПродажиРуб;
|Количество = Регистр.ПартииТоваров.Количество;
|КодОперации = Регистр.ПартииТоваров.КодОперации;
|Функция КоличествоКонОст = КонОст(Количество);
|Функция СуммаРублеваяРасход = Расход(СуммаРублевая) когда(КодОперации в ВыбКодОперации);
|Функция СуммаКоличествоРасход = Расход(Количество) когда(КодОперации в ВыбКодОперации);
|Группировка Товар упорядочить по Товар.Код все ВошедшиеВЗапрос;
|Условие(Товар в ВыбТовар);"
;

Если ЗапросПодбора.Выполнить(ТекстЗапросаПодборТовара)=0 тогда
   возврат;
КонецЕсли;    

ЗапросПодбора.Выгрузить(ТТ,0,0);
ТТ.ВыбратьСтроку();

//НомерВТоп=0;
КонецЦикла;
1 DmitriyDI
 
14.06.13
10:43
ой простите меня версия то 7чная мне нужна !
2 Richard Stallman
 
14.06.13
15:34
При выгрузке Запроса в  ТЗ, предидущее содержимое тз будет очищенно.

Поэтому первый раз выгружай из запроса, через выгрузить()

А все последующие - просто добавлением новых строк.
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.