Имя: Пароль:
1C
1С v8
конвертация выписки
0 DeeK
 
20.06.12
13:44
вообщем в курсе что тема мылилась уже много раз но у мну не работает
переношу выписку из Заказчика строительства в Бух строительной организации

создал ПВД для выписки и перед выгрузкой:
Объект.ВыбратьСтроки();
Пока Объект.ПолучитьСтроку()=1 Цикл
   Если Объект.Приход > 0 тогда   // поступление на расчетный счет
       ВыборкаДанных = СоздатьОбъект("ТаблицаЗначений");
       ВыборкаДанных.НоваяКолонка("Номер");
       ВыборкаДанных.НоваяКолонка("Дата");
       ВыборкаДанных.НоваяКолонка("НомерВходящегоДокумента");
       ВыборкаДанных.НоваяКолонка("ДатаВходящегоДокумента");
       ВыборкаДанных.НоваяКолонка("СуммаДокумента");
       ВыборкаДанных.УдалитьСтроки();
       ВыборкаДанных.НоваяСтрока();
       
       ВыборкаДанных.Номер = ПривестиНомерКДлине(Объект.НомерДок,11);
       ВыборкаДанных.Дата        = Объект.ДатаДок;
       ВыборкаДанных.НомерВходящегоДокумента        = Объект.НомерДокВходящий;
       ВыборкаДанных.ДатаВходящегоДокумента        = Объект.ДатаДокВходящий;
       ВыборкаДанных.СуммаДокумента                = Объект.Приход;
               
       
       ВыгрузитьПоПравилу(ВыборкаДанных,,,, "ПоступлениеНаРасчетныйСчет");
       Отказ = 1;
       
   иначе // списание с расчетного счета
       
       ВыборкаДанных = СоздатьОбъект("ТаблицаЗначений");
       ВыборкаДанных.НоваяКолонка("Номер");
       ВыборкаДанных.НоваяКолонка("Дата");
       ВыборкаДанных.НоваяКолонка("НомерВходящегоДокумента");
       ВыборкаДанных.НоваяКолонка("ДатаВходящегоДокумента");
       ВыборкаДанных.НоваяКолонка("СуммаДокумента");
       ВыборкаДанных.УдалитьСтроки();
       ВыборкаДанных.НоваяСтрока();
       
       ВыборкаДанных.Номер = ПривестиНомерКДлине(Объект.НомерДок,11);
       ВыборкаДанных.Дата = Объект.ДатаДок;
       ВыборкаДанных.НомерВходящегоДокумента        = Объект.НомерДокВходящий;
       ВыборкаДанных.ДатаВходящегоДокумента        = Объект.ДатаДокВходящий;
               ВыборкаДанных.СуммаДокумента                = Объект.Расход;
               
       
       ВыгрузитьПоПравилу(ВыборкаДанных,,,,"СписаниеСРасчетногоСчета");
       Отказ = 1;
   КонецЕсли;
КонецЦикла;

Для документов прихода и списания создал ПКО, свойства указал номер, дата и сумма

в итоге создает только по одному документу, даты у них - даты последних выписок, и суммы - суммы последних строк расхода и прихода этих выписок.

при установке галочек получить из входящих данных создает нужное количество доков но пустыми реквизитами
1 Naumov
 
20.06.12
13:48
синхрон по номеру и даты, последующие строки трут ранее созданные документы
2 DeeK
 
20.06.12
13:53
непонимаю, извиняюсь за тупость
3 DailyLookingOn Sunset
 
20.06.12
14:20
Нужно номер строки табчасти выписки передавать например в комментарий.
И установить флаг поиска по нему.
4 Naumov
 
20.06.12
14:24
либо номер документа дополнить постфиксом - номером строки документа.
(2) У тебя для ПКО ПоступлениеНаРасчетныйСчет какие поля поиска отмечены. (вот тут и подумай что ты передаешь)
5 DeeK
 
20.06.12
16:15
за что отвечает галочка у ПКС получать значение из входящих данных?
Программист всегда исправляет последнюю ошибку.