Подмена объекта при выгрузке КД 3

18.01.24

Интеграция - Перенос данных 1C

Самый простой способ подмены объекта на другой при выгрузке с использованием Конвертации Данных 3.

В общем, ситуация такая: при выгрузке необходимо подменять один объект на другой.

Изначально, для замены товара одного качества на товар другого качества, я правил ПКО, то есть, каждое ПКО в каждом месте, где выгружается товар. И вот только сейчас до меня дошло, что проще чуть поправить две функции в модуле ОбменДаннымиXDTOСервер:

&Вместо("ДанныеXDTOИзДанныхИБ")
Функция Расш1_ДанныеXDTOИзДанныхИБ(КомпонентыОбмена, Источник, Знач ПравилоКонвертации, СтекВыгрузки)
	
	Если ТипЗнч(Источник) = Тип("ПланВидовХарактеристикСсылка.СтатьиРасходов") Или ТипЗнч(Источник) = Тип("ПланВидовХарактеристикОбъект.СтатьиРасходов") Тогда
		НовыйИсточник = СтатьяРасходовДляВыгрузки(Источник);
	Иначе
		НовыйИсточник = Источник;
	КонецЕсли;
	
	Приемник = ПродолжитьВызов(КомпонентыОбмена, НовыйИсточник, ПравилоКонвертации, СтекВыгрузки);
КонецФункции

&ИзменениеИКонтроль("ВыгрузкаОбъектаВыборки")
Процедура Расш1_ВыгрузкаОбъектаВыборки(КомпонентыОбмена, Объект, ПравилоОбработки)

	ОбъектСсылочногоТипа = (ТипЗнч(Объект) <> Тип("Структура"))
	И ОбщегоНазначения.ЭтоОбъектСсылочногоТипа(Объект.Метаданные());
	#Вставка
	Если ТипЗнч(Объект) = Тип("ПланВидовХарактеристикОбъект.СтатьиРасходов") Тогда
		ИсточникДляВыгрузки = СтатьяРасходовДляВыгрузки(Объект);
		Если ИсточникДляВыгрузки <> Объект Тогда
			ИсточникДляВыгрузки = ИсточникДляВыгрузки.ПолучитьОбъект();
			Если КомпонентыОбмена.ВыгруженныеОбъекты.Найти(ИсточникДляВыгрузки.Ссылка) <> Неопределено Тогда
				Возврат;
			КонецЕсли;
			Объект = ИсточникДляВыгрузки;
		КонецЕсли;
	КонецЕсли;
	#КонецВставки

///.............................
КонецПроцедуры

Здесь функция СтатьяРасходовДляВыгрузки() по какому-то признаку находит объект на замену, либо возвращает тот, который в неё передали.

В ВыгрузкаОбъектаВыборки() заменяем один объект на другой и контролируем, что подменный объект еще не был выгружен (а он мог быть выгружен, ведь он может соответствовать нескольким зарегистрированным объектам!)

В ДанныеXDTOИзДанныхИБ() заменяем ссылку, это для тех случаев, когда наш объект выгружается как реквизит другого объекта.

В общем, и всё )

Тестировалось на 1С:Комплексная автоматизация 2 (2.5.14.74), 1С:Предприятие 8.3 (8.3.22.2283).

См. также

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист Платформа 1С v8.3 Оперативный учет 1С:Управление торговлей 10 Россия Управленческий учет Платные (руб)

Перенос данных из 1С:Управление торговлей 10.3 в 1С:Управление торговлей 11.5 с помощью правил обмена. Переносятся остатки, документы (обороты за период), справочная информация. Правила проверены на конфигурациях УТ 10.3 (10.3.88.x) и УТ 11.5 (11.5.21.x).

35000 руб.

23.07.2020    57246    267    75    

222

SALE! 10%

Перенос данных 1C Программист Платформа 1С v8.3 1С:Управление производственным предприятием 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Платные (руб)

Перенос документов, начальных остатков и справочной информации из УПП 1.3 в ERP 2 | из УПП 1.3 в УТ 11 | из УПП в КА 2 | Правила конвертации (КД 2) | Более 360 предприятий выполнили переход с использованием этого продукта! | Сэкономьте время - используйте готовое решение для перехода! | Позволяет перенести из УПП 1.3 в ERP / УТ 11 / КА 2 всю возможную информацию | В переносе есть фильтр по организации и множество других опциональных параметров выгрузки | Есть несколько алгоритмов выгрузки остатков на выбор

55778 50200 руб.

04.08.2015    171919    367    283    

396

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист Платформа 1С v8.3 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Россия Платные (руб)

Правила в универсальном формате обмена для ERP 2.5, КА 2.5, УТ 11.5, БП 3.0, Розница, УНФ, для последних версий конфигураций. Ссылки на другие конфигурации в описании публикации. Правила совместимы со всеми другими версиями конфигураций новыми и старыми, поддерживающими обмен и синхронизацию в формате EnterpriseData. Не требуется синхронного обновления правил после обновления другой конфигурации, участвующей в обмене. Типовой обмен через планы обмена кнопкой Синхронизация вручную или автоматически по расписанию, или вручную обработкой.

27660 руб.

12.06.2017    146654    861    300    

443

SALE! 10%

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Программист Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Платные (руб)

Перенос данных из ERP в БП 3 | из КА 2 в БП 3 | из УТ 11 в БП 3 | из ЕРП в БП 3 | Сэкономьте время - используйте готовое решение для перехода! | Перенос разработан в формате КД 2 (правила конвертации данных) | Переносятся все возможные виды документов, начальных остатков и нормативно-справочная информация| Можно опционально выгружать каждую пару "номенклатура+характеристика" как отдельную номенклатуру | Есть выгрузка настроек счетов учета и зарплатных данных из ERP / КА 2 | Можно проверить на вашем сервере перед покупкой

55778 50200 руб.

15.04.2019    74915    201    156    

140

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист Платформа 1С v8.3 1С:Управление производственным предприятием 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Управленческий учет Платные (руб)

Перенос данных из 1С:Управление производственным предприятием 1.3 в 1С:Бухгалтерия предприятия 3.0 с помощью правил обмена. Переносятся остатки, документы (обороты за период), справочная информация. Правила проверены на конфигурациях УПП 1.3 (1.3.244.x) и БП 3.0 (3.0.172.x). Правила подходят для версии ПРОФ и КОРП.

35000 руб.

15.12.2021    26805    191    56    

146

SALE! 10%

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Программист Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x Россия Бухгалтерский учет Управленческий учет Платные (руб)

Перенос данных из ERP в ЗУП 3 | из КА 2 в ЗУП | Готовые правила конвертации данных (КД 2) для переноса остатков, документов с движениями и справочной информации 3 | Есть перенос начальной задолженности по зарплате и начальной штатной расстановки на выбранную дату | Обороты за прошлые годы (данные для расчета среднего) переносятся свернуто в документ "Перенос данных" | Есть фильтр по организациям | Документы за текущий период переносятся сразу с движениями, поэтому не потребуется делать перерасчеты | Перенос можно проверить перед покупкой, обращайтесь!

53111 47800 руб.

03.12.2020    38849    108    71    

103

SALE! 10%

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист Платформа 1С v8.3 Платформа 1C v8.2 1С:Комплексная автоматизация 1.х 1С:Управление торговлей 10 1С:Управление производственным предприятием Россия Платные (руб)

Регулярный обмен, выгрузка, перенос из КА 1.1, УПП 1.3, УТ 10.3 для обмена с любыми конфигурациями, поддерживающими обмен в формате EnterpriseData (КД3) - БП 3.0, ERP, КА 2, УТ 11, Розница 2, УНФ 1.6 и другими. Правила для старых и доработанных конфигураций не требуют синхронного обновления и совместимы с новыми и будущими конфигурациями. Обмен по расписанию, через папку, FTP, почту.

16260 руб.

18.02.2016    189773    618    534    

537

SALE! 10%

Перенос данных 1C Системный администратор Программист Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Платные (руб)

Правила переноса данных из БП 3.0 в УТ 11 | из БП 3.0 в КА 2 | из БП 3.0 в ERP | Сэкономьте свое время - используйте готовое решение для перехода! | Постоянно работаем над развитием переноса данных | Обновляем на новые релизы 1С | Есть фильтр выгрузки по организациям | Переносятся начальные остатки на выбранную дату, документы за период времени и вся возможная справочная информация | Перенос сделан на технологии КД 2 (правила конвертации данных) Воспользовались более 122 предприятий! |

55778 50200 руб.

31.10.2014    239161    105    340    

310
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. killovolt 257 03.03.24 11:11 Сейчас в теме
В ПКО при отправке:
Процедура ПКО_Справочник_ПодразделенияОрганизаций_Отправка_ПриОтправкеДанных(ДанныеИБ, ДанныеXDTO, КомпонентыОбмена, СтекВыгрузки)
	
	ЗначениеСсылки = ВерхнийРодительПодразделения(ДанныеИБ.Ссылка);
	Если Не ДанныеИБ.Ссылка = ЗначениеСсылки Тогда
		
		// получить данные xdto для верхнего родителя
		ДанныеИБЗамена = ЗначениеСсылки.ПолучитьОбъект();
		ПравилоКонвертации = КомпонентыОбмена.ПравилаКонвертацииОбъектов.Найти("Справочник_ПодразделенияОрганизаций_Отправка", "ИмяПКО");
		ДанныеXDTO = ОбменДаннымиXDTOСервер.ДанныеXDTOИзДанныхИБ(КомпонентыОбмена, ДанныеИБЗамена, ПравилоКонвертации, Неопределено);
		
	КонецЕсли;
		
КонецПроцедуры
Показать
Оставьте свое сообщение