Подмена объекта при выгрузке КД 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).

См. также

SALE! 10%

Перенос данных 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 24894 руб.

12.06.2017    148530    865    302    

455

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    174052    377    288    

403

SALE! 10%

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

Перенос данных из 1С:Управление производственным предприятием 1.3 в 1С:Бухгалтерия предприятия 3.0 с помощью правил обмена | Можно выполнить переход с УПП на БП 3 или запускать выгрузку данных за выбранный период времени | Переносятся документы, начальные остатки и вся справочная информация | Есть фильтр по организации и множество других параметров выгрузки | Поддерживается несколько сценариев работы: как первичный полный перенос, так и перенос только новых документов | Перенос данных возможен в "1С: Бухгалтерия 3.0" версии ПРОФ, КОРП или базовую | Переход с "1С: УПП1.3" / "1С:КА 1.1" на "1С:БП3.0" с помощью правил конвертации будет максимально комфортным! | Можно бесплатно проверить перенос на вашем сервере!

48278 43450 руб.

25.02.2015    175201    319    267    

388

Перенос данных 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    58940    284    75    

224

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

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

35000 руб.

15.12.2021    27883    198    58    

153

Перенос данных 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    191519    626    537    

546

SALE! 10%

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

Перенос данных из КА 1.1 в КА 2 | из КА 1.1 в УТ 11 | Воспользовались более 367 компаний! | Переносятся все возможные виды документов, начальных остатков и вся справочная информация из "1С:КА 1.1" в "1С:КА 2.х" / "1С:УТ 11" | Разработан в формате КД 2 (правила конвертации данных) | Фильтр по организациям при выгрузке | Выбор разных алгоритмов выгрузки начальных остатков | Можно проверить перенос до покупки!

55778 50200 руб.

04.12.2015    194322    254    351    

409

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    39756    112    73    

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