Имя: Пароль:
1C
1С v8
Конвертация. Не все документы выгружаются.
0 Avolg79
 
24.09.13
18:37
Добрый день.

Конвертация данных, редакция 2.1 (2.1.7.1)

Загружается в приемник только один документ. (все верно).

В сообщении пишет что загружено 800 с лишним объектов. (по времени очень быстро. не верится.)

В файле выгрузки документов много.

Грешу на выгрузку. В общем одна строка запроса заполняет шапку документа, и табличную часть (одна единственная строка)

Выгрузку делаю произвольным алгоритмом. Поля структуры соответствуют полям приемника.

                        Запрос=новый Запрос;
                       Запрос.Текст="
                       |ВЫБРАТЬ  
                       |    ХозрасчетныйОстатки.Субконто1 КАК Контрагент,
                       |    ХозрасчетныйОстатки.СуммаОстаток,
                       |    ХозрасчетныйОстатки.Субконто2 КАК СФПолученные,
                       |    ВЫБОР
                       |        КОГДА ХозрасчетныйОстатки.Субконто2.СуммаДокумента > 0
                       |            ТОГДА ХозрасчетныйОстатки.Субконто2.СуммаДокумента
                       |        ИНАЧЕ ХозрасчетныйОстатки.СуммаОстаток * 6.5555715803
                       |    КОНЕЦ КАК Сумма
                       |ИЗ
                       |    РегистрБухгалтерии.Хозрасчетный.Остатки(&ДатаОкончания, Счет = ЗНАЧЕНИЕ(ПланСчетов.Хозрасчетный.НДСпоАвансамИПредоплатам), , Организация = &АВС) КАК ХозрасчетныйОстатки
                       |";
                      
                       Запрос.УстановитьПараметр("ДатаОкончания",Параметры.ДатаОст   );   //'20130630235959'
                       Запрос.УстановитьПараметр("АВС", Параметры.Организация);
                      
                       Сообщить(Строка(Параметры.ДатаОст) +"  " +Строка(Параметры.Организация) )  ;
                      
                      
                       ТаблицаОст76АВ=Новый ТаблицаЗначений;
                       ТаблицаОст76АВ.Колонки.Добавить("СтавкаНДС",Новый ОписаниеТипов("ПеречислениеСсылка.СтавкиНДС") );   //перечисления.СтавкиНДС
                      
                       ТаблицаОст76АВ.Колонки.Добавить("Сумма",Новый ОписаниеТипов("Число",Новый КвалификаторыЧисла(14,2)));
                       ТаблицаОст76АВ.Колонки.Добавить("СуммаНДС",Новый ОписаниеТипов("Число",Новый КвалификаторыЧисла(14,2)));
                      
                       РезультатЗапроса=Запрос.Выполнить().Выбрать();
                       Пока РезультатЗапроса.Следующий() Цикл
                          
                           ТаблицаОст76АВ.Очистить();
                          
                          
                           НС = ТаблицаОст76АВ.Добавить();
                           НС.СтавкаНДС  =    перечисления.СтавкиНДС.НДС18_118 ;
                           НС.Сумма    =     РезультатЗапроса.Сумма;
                           НС.СуммаНДС =  РезультатЗапроса.СуммаОстаток   ;
                          
                          
                           Попытка
                               ДоговорКонтрагента_ = РезультатЗапроса.СФПолученные.ДоговорКонтрагента  ;
                              
                           исключение
                              
                           КонецПопытки;
                          
                           ВходящийДанные=Новый Структура;
                           ВходящийДанные.Вставить("Авансы",ТаблицаОст76АВ);                    
                           ВходящийДанные.Вставить("Дата",Параметры.ДатаОст);
                           ВходящийДанные.Вставить("ДатаВыставления",РезультатЗапроса.СФПолученные.Дата);
                           ВходящийДанные.Вставить("ДоговорКонтрагента",ДоговорКонтрагента_);    
                           ВходящийДанные.Вставить("Контрагент",РезультатЗапроса.Контрагент);
                           ВходящийДанные.Вставить("КодВидаОперации", "02");
                           ВходящийДанные.Вставить("ДокументОснование", РезультатЗапроса.СФПолученные);
                          
                           ВходящийДанные.Вставить("ДатаПлатежноРасчетногоДокумента",  РезультатЗапроса.СФПолученные.Дата);
                           ВходящийДанные.Вставить("НомерПлатежноРасчетногоДокумента", РезультатЗапроса.СФПолученные.Номер);
                          
                          
                          
                          
                          
                          
                          
                           ВыгрузитьПоПравилу(,,ВходящийДанные,,"ВводНачальныхОстатков76АВ");
                          
                          
                       КонецЦикла;
1 Рэйв
 
24.09.13
18:40
продолжай писать отчет.
В
2 Рэйв
 
24.09.13
18:40
вопроса не обноружено.
3 takefive
 
24.09.13
19:04
поля поиска озвучь...
4 Avolg79
 
25.09.13
08:35
Это ввод остатков. ничего не ищем.
ПВД при выгрузке "выполнить алгоритм" содержимое алгоритма выше.
По каждой строке результата запроса заполняем структуру и пердаем ее в выгрузитьПоПравилу.
Источник это заполненая структура. Проблема в том что в  бузу приемник попадает один документ,  а должно их быть штук 20.
5 Avolg79
 
25.09.13
10:20
Вопрос снят.
AdBlock убивает бесплатный контент. 1Сергей