Не заполняются реквизиты в номенклатуре при загрузке через xml

Форум Программирование Интеграция и обмен данными, конвертация данных (Обмен)

1С:Конвертация данных 1С:Торговля и склад 7.7 Платформа 1С v7.7 1С

1. ARTFIRE 22.09.21 19:37 Сейчас в теме

Через конвертацию данных настроил правила обмена из 1С ТиС в 1С УТ.
Выгружаются серийные номера и грузятся в номенклатуру. Загружаются следующие дополнительные реквизиты: Авто, Примечание, ABC, PA. Авто загружается нормально и в карточку, и в доп.реквизиты, а вот примечание, ABC и PA загружаются в карточку, но не загружаются в дополнительные реквизиты.
Дополнительные реквизиты -

КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений");
КоллекцияОбъектов.НоваяКолонка("Свойство");
КоллекцияОбъектов.НоваяКолонка("ИмяПКО");
КоллекцияОбъектов.НоваяКолонка("Значение"); 
КоллекцияОбъектов.НоваяСтрока();
КоллекцияОбъектов.Свойство = "Авто";
КоллекцияОбъектов.ИмяПКО = "ЗначенияСвойствОбъектов";
КоллекцияОбъектов.Значение = Источник.Владелец.Авто;
КоллекцияОбъектов.НоваяСтрока();
КоллекцияОбъектов.Свойство = "Примечание";
КоллекцияОбъектов.ИмяПКО = "Строка";
КоллекцияОбъектов.Значение = Источник.Примечание;
КоллекцияОбъектов.НоваяСтрока();
КоллекцияОбъектов.Свойство = "PA";
КоллекцияОбъектов.ИмяПКО = "ЗначенияСвойствОбъектов";
КоллекцияОбъектов.Значение = Источник.РА;
Справочник = СоздатьОбъект("Справочник.СерийныеНомераДоп");
Справочник.ИспользоватьВладельца(Источник);
Справочник.ВыбратьЭлементы();
Если Справочник.ПолучитьЭлемент()=1 Тогда
	КоллекцияОбъектов.НоваяСтрока();
	КоллекцияОбъектов.Свойство = "ABC";
	КоллекцияОбъектов.ИмяПКО = "ЗначенияСвойствОбъектов";
	КоллекцияОбъектов.Значение = Справочник.ABC;
КонецЕсли;

Показать

Свойство -

Значение = ОбъектКоллекции.Свойство;

Значение -

ПКО = ОбъектКоллекции.ИмяПКО; Значение = ОбъектКоллекции.Значение;

Прикрепленные файлы:

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. EvgenAEY 2 24.09.21 05:17 Сейчас в теме

правила полностью можете выложить?

3. ARTFIRE 24.09.21 13:19 Сейчас в теме

(2) Вопрос уже закрылся. Решение:
Добавить в Значение:

Если ОбъектКоллекции.ИмяПКО="ЗначенияСвойствОбъектов" Тогда
	Если ТипЗначенияСтр(ОбъектКоллекции.Значение)="Строка" Тогда
		ЗначениеСвойстваОбъекта = ОбъектКоллекции.Значение;
	Иначе
		ЗначениеСвойстваОбъекта = ОбъектКоллекции.Значение.Наименование;
	КонецЕсли;
	Если ПустоеЗначение(ЗначениеСвойстваОбъекта)=0 Тогда
		ИмяПКО = ОбъектКоллекции.ИмяПКО;
		Значение = СоздатьОбъект("СписокЗначений");
		Значение.ДобавитьЗначение(ОбъектКоллекции.Свойство);
		Значение.ДобавитьЗначение(ЗначениеСвойстваОбъекта);
	КонецЕсли;
Иначе
	Значение = ОбъектКоллекции.Значение;
КонецЕсли;

Показать

Оставьте свое сообщение

E-mail: