Имя: Пароль:
1C
1С v8
Конвертация данных 1.6-2.0 Нужна помощь.
0 Redkiy
 
22.05.12
08:22
Возникли сложности при переносе документа ОперацияБух. В правилах переноса субконто с типом "документ" не переносится, если дата документа меньше даты ввода остатков.

Нужно чтобы создавался ДокументРасчетовСКонтрагентом, как это сделано например при переносе реквизита Сделка в ПКС которого перед выгрузкой:

Если  Источник.Сделка.Дата < ДатаНачала Тогда
   Значение = Источник.Сделка;
   ИсходящиеДанные = Новый Структура("Организация, Комментарий, Ссылка");
   ИсходящиеДанные.Организация = Источник.Сделка.Организация;
   ИсходящиеДанные.Комментарий = Строка(Источник.Сделка);
   ИсходящиеДанные.Ссылка = Источник.Сделка;
   ИмяПКО = "ДокументРасчетовСКонтрагентомДляВНО";        
КонецЕсли;

Пример: сч-19 Субконто - документ ПоступлениеТоваровУслуг

в ПКО документа ПоступлениеТоваровУслуг
перед загрузкой вставляю:

Если  Источник.Дата < ДатаНачала Тогда
   //Отказ = Истина;
   Значение = Источник.Сделка;
   ИсходящиеДанные = Новый Структура("Организация, Комментарий, Ссылка");
   ИсходящиеДанные.Организация = Источник.Сделка.Организация;
   ИсходящиеДанные.Комментарий = Строка(Источник.Сделка);
   ИсходящиеДанные.Ссылка = Источник.Сделка;
   ИмяПКО = "ДокументРасчетовСКонтрагентомДляВНО";    
КонецЕсли;

Не работает, выгружается док. ПоступлениеТоваров и услуг
1 Redkiy
 
22.05.12
08:30
код не правильно указал, следует читать так:

Если  Источник.Дата < ДатаНачала Тогда
   //Отказ = Истина;

   Значение = Источник;
   ИсходящиеДанные = Новый Структура("Организация, Комментарий, Ссылка");
   ИсходящиеДанные.Организация = Источник.Организация;
   ИсходящиеДанные.Комментарий = Строка(Источник);
   ИсходящиеДанные.Ссылка = Источник;
   ИмяПКО = "ДокументРасчетовСКонтрагентомДляВНО";    
КонецЕсли;
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн