Имя: Пароль:
1C
1С v8
ПлатежноеПоручение Входящее
,
0 varenik
 
13.04.13
13:02
Здравствуйте, подскажите, пожалуйста, конвертирую документ СтрокаВыпискиПриход в ПлатежноеПоручение входящее из 77 КА в 82 КА через КД. вид операции - оплата от покупателя, а вот договор почему то не переносится( создала ПКС источник-договор, приемник- договорКонтрагента, правило-ДоговорыКонтрагентов, во всех остальных документах договоры переносятся, а здесь-нет( и соответственно в 82 документы не проводятся(
1 Wobland
 
13.04.13
13:13
я бы начал с того, что посмотрел бы на то, что попадает в файл
2 varenik
 
17.04.13
13:18
Создала ПГКС источник-пусто приемник - Расшифровка платежа(получать из входящих данных), в обработчике "ПередОбработкой" написала
Табл = Источник;
   КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений");
   КоллекцияОбъектов.НоваяКолонка("ДоговорКонтрагента");
   Табл.ВыбратьСтроки();    
   Пока Табл.ПолучитьСтроку() = 1 Цикл
         КоллекцияОбъектов.НоваяСтрока();
       КоллекцияОбъектов.ДоговорКонтрагента = Табл.Договор;
   КонецЦикла;

но договор все равно не выгружается((
3 Naumov
 
17.04.13
13:19
в КА8 Договор - реквизит ТЧ
4 Wobland
 
17.04.13
13:19
мой пример:

       ВходящиеДанные=СоздатьОбъект("СписокЗначений");
       ВходящиеДанные.ДобавитьЗначение(Оплаты, "Оплата");
       ВыгрузитьПоПравилу(док, , ВходящиеДанные, , "ОтчетОРозничныхПродажах");
5 Naumov
 
17.04.13
13:21
(2) Правило конвертации указано для свойства ЧТ ДоговорКонтрагента?

ПКО есть, которое Договор в договор из 77 в 8 выгружает?
6 varenik
 
17.04.13
13:22
я понимаю, что договор- реквизит ТЧ, поэтому я решила создать ТЗ и строку из шапки документа 77 выгрузить в ТЧ 82(у меня это плохо получается)
7 varenik
 
17.04.13
13:22
ПКО для договоров есть
8 Naumov
 
17.04.13
13:36
в (2) Я не понял. ПКГС сделано, а подчиненного ПКС ДоговорКонтрагента (и прочих полей расшифровки) нет?
9 varenik
 
17.04.13
13:44
прочих полей нет, потому что я решила проверить сначала работоспособность на Договоре, а потом добавить остальные поля, а вообще у меня добавлены сумма платежа, счет учета контрагентов, договор контрагента(источник-пусто приемник-получать из входящих данных), но на данный момент я их отключила
10 Naumov
 
17.04.13
13:52
не надо получать из входящих данных
вы коллекцию просто переопределяете в событии ПередВыгрузкойГруппыСвойств. Дальше она сама все найдет.
11 varenik
 
17.04.13
14:21
На данный момент в ПГКС "передВыгрузкой" написано
Табл = Источник;
   КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений");
   КоллекцияОбъектов.НоваяКолонка("ДоговорКонтрагента");
   Табл.ВыбратьСтроки();    
   Пока Табл.ПолучитьСтроку() = 1 Цикл
         КоллекцияОбъектов.НоваяСтрока();
       КоллекцияОбъектов.ДоговорКонтрагента = Табл.Договор;
   КонецЦикла;

есть подчиненное ПКС источник - пусто, приемник-договор контрагента, правило- договорыКонтрагентов, но договор не выгружается((
12 Naumov
 
17.04.13
14:35
1) не надо коллекцию пересоздавать (достаточно строки на всякий случай удалить)
2) Говорите про реквизит договор из шапки документа, а осуществляете какой-то перебор? что-то я не понимаю этого кода.
13 Naumov
 
17.04.13
14:35
т.е. посмотреть бы что в коллекцию вообще попадает.
14 varenik
 
17.04.13
18:39
так как я еще не очень хорошо разбираюсь в программировании 1с, то я реализацию этой задачи представляю так:
1. создать ТЗ с колонками как у ТЧ приемника
2. выбрать в эти строки значения из реквизитов шапки источника
3. записать в ТЧ приемника
написала код как смогла)
15 grayshadow
 
17.04.13
19:20
как-то смущает
   Пока Табл.ПолучитьСтроку() = 1 Цикл
         КоллекцияОбъектов.НоваяСтрока();
       КоллекцияОбъектов.ДоговорКонтрагента = Табл.Договор;
   КонецЦикла;

если табл = это ТЧ выписки, то там могут быть разные контрагенты?
каждая строка выписки должна конвертиться в отдельный док
иногда ПП входящее, иногда исходящее
типовые правила переноса Бух7-Бух8 гляньте
16 varenik
 
17.04.13
19:45
так в данном случае я же переношу СтрокуВыпискиПриход в ПлатежноеПоручениеВходящее, создала ПКО для этих документов и уже в нем делаю ПКГС для расшифровки платежа. спасибо за совет)
17 grayshadow
 
17.04.13
19:47
тада я не поняла что есть источник
>Создала ПГКС источник-пусто
>Табл = Источник;
>Пока Табл.ПолучитьСтроку() = 1
18 varenik
 
17.04.13
20:14
я так подразумеваю, что источник-это документ строкаВыпискиПриход, понятно- это и надо прописать
19 Naumov
 
18.04.13
10:54
В строкеВыпискиПриход нет ТЧ. Неченго перебирать. Вы скорее всего коллекцию пустую получаете.
Должно быть что-то типа:
(сорри, методы 77 плохо помню)
КоллекцияОбъектов.УдалитьСтроки();
         КоллекцияОбъектов.НоваяСтрока();
       КоллекцияОбъектов.ДоговорКонтрагента = Источник.Договор;

Без переборов.
20 varenik
 
18.04.13
14:58
На данный момент код в обработчике "перед обработкой" выглядит так
КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений");
   КоллекцияОбъектов.НоваяКолонка("ДоговорКонтрагента");
   Табл = СоздатьОбъект("Документ.СтрокаВыпискиПриход");
     КоллекцияОбъектов.УдалитьСтроки();
         КоллекцияОбъектов.НоваяСтрока();
       КоллекцияОбъектов.ДоговорКонтрагента = Табл.Договор;
       
ТабЧасть = Табл.РасшифровкаПлатежа;
ТабЧасть.Добавить(КоллекцияОбъектов);
но договор не выгружается((
21 varenik
 
18.04.13
15:00
по совету (15) посмотрела правила переноса Бух7- БП8, там нет выгрузки ПлатежногоПоручения((
22 varenik
 
18.04.13
15:30
в общем что-то я совсем не догоняю((((
23 varenik
 
20.04.13
15:19
У меня есть маленький прогресс) я сделала выгрузку договоров из 77 и загрузку в 82, но в один документ в 82 загружаются все выгруженные документы(( нужно поставить какой-то отбор, какой пока не знаю(
КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений");
   КоллекцияОбъектов.НоваяКолонка("ДоговорКонтрагента");
   Табл = СоздатьОбъект("Документ.СтрокаВыпискиПриход");
     Табл.ВыбратьДокументы();    
   Пока Табл.ПолучитьДокумент() = 1 Цикл
         КоллекцияОбъектов.НоваяСтрока();
       КоллекцияОбъектов.ДоговорКонтрагента = Табл.Договор;
   КонецЦикла;
   КоллекцияОбъектов.ВыбратьСтроки();
Пока КоллекцияОбъектов.ПолучитьСтроку()=1 Цикл
ТабЧасть = Табл.РасшифровкаПлатежа;
ТабЧасть.Добавить(КоллекцияОбъектов);
КонецЦикла;