С небольшими доработками правила в работу запустил, однако почему-то доки после выгрузки не проводятся, т.е. признак проведения есть а движений нет!
Раньше при обмене УТ10_3 БП 2 было так, правда правила кто-то писал
Объект.ЗаполнитьСчетаУчетаВТабЧасти(Объект.Товары, "Товары", Истина, Объект.ОтражатьВНалоговомУчете);
Объект.ЗаполнитьСчетаУчетаВТабЧасти(Объект.ВозвратнаяТара, "ВозвратнаяТара", Истина, Объект.ОтражатьВНалоговомУчете);
СчетаУчета = ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента);
Если Объект.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером Тогда
Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.ПустаяСсылка();
Объект.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.ПустаяСсылка();
Объект.СчетУчетаРасчетовПоТаре = ПланыСчетов.Хозрасчетный.ПустаяСсылка();
Иначе
Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя;
Объект.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя;
Объект.СчетУчетаРасчетовПоТаре = СчетаУчета.СчетУчетаТарыПокупателя;
КонецЕсли;
Объект.СчетУчетаРасчетовПоТаре = СчетаУчета.СчетУчетаТарыПокупателя;
Если ПрименениеУСН(Объект.Организация, Объект.Дата) Тогда
Объект.СчетУчетаРасчетовСКонтрагентомУСН = СчетаУчета.СчетРасчетовПокупателяУСН;
Объект.СчетУчетаРасчетовПоАвансамУСН = СчетаУчета.СчетАвансовПокупателяУСН;
КонецЕсли;
Объект.ЗаполнитьСчетаУчетаВТабЧастиУслуги(Истина, Объект.ОтражатьВНалоговомУчете);
Объект.Склад = Константы.СкладДляОбменаДаннымиСУТ.Получить();
Объект.Записать();
Показать
Сейчас это выглядит так
Если Объект.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПокупателем
И Объект.ВозвратнаяТара.Количество() = 0 Тогда
Если Объект.Услуги.Количество() = 0 Тогда
Объект.ВидОперации = Перечисления.ВидыОперацийРеализацияТоваров.Товары;
ИначеЕсли Объект.Товары.Количество() = 0 Тогда
Объект.ВидОперации = Перечисления.ВидыОперацийРеализацияТоваров.Услуги;
КонецЕсли;
КонецЕсли;
//склад и организация по умолчанию
Если Объект.ЭтоНовый() Тогда
СсылкаНового = Объект.ПолучитьСсылкуНового();
Параметры.ДокументыСОпределениемДопРеквизитов.Добавить(СсылкаНового);
СтрокаСсылки = Параметры.ТоварыТабличнаяЧасть.Добавить();
СтрокаСсылки.Ссылка = СсылкаНового;
Иначе
Параметры.ДокументыСОпределениемДопРеквизитов.Добавить(Объект.Ссылка);
СтрокаСсылки = Параметры.ТоварыТабличнаяЧасть.Добавить();
СтрокаСсылки.Ссылка = Объект.Ссылка;
КонецЕсли;
Если ПараметрыОбъекта <> Неопределено Тогда
ТаблицаПараметровТовары = ПараметрыОбъекта["ТоварыТабличнаяЧасть"];
Если ТипЗнч(ТаблицаПараметровТовары) = Тип("ТаблицаЗначений") Тогда
СтрокаСсылки.ТоварыТабличнаяЧасть = ТаблицаПараметровТовары.Скопировать();
КонецЕсли;
КонецЕсли;
Выполнить(Алгоритмы.ЗаполнитьКодТНВЭД);
Выполнить(Алгоритмы.ЗаполнитьДеятельностьНаПатентеПоУмолчанию);
Показать
в ваших правилах упоминаний о счетах и записи нет (
