Перенос реквизитов в дополнительные реквизиты

Столкнулась с простой на вид задачей, однако решение пришлось собирать по кусочкам на форумах. Выкладываю мой готовый работающий вариант, может кому-то пригодится.

Задача: с помощью правил обмена перенести Дополнительные реквизиты номенклатуры из «старой торговой программы» в УНФ. В обеих конфигурациях дополнительные реквизиты хранятся в табличной части справочника «Номенклатура» и используется план видов характеристик «ДополнительныеРеквизитыИСведения» и справочник «НаборыДополнительныхРеквизитовИСведений». В принципе это все, что для нас важно.

     Шаг 1. Создаем правило обмена для справочника «НаборыДополнительныхРеквизитовИСведений». Он нам понадобится, чтобы потом создать правило обмена для ПВХ.

(скрин 1)

    Шаг 2. Создаем правило обмена для ПВХ «ДополнительныеРеквизитыИСведения». Для каждого элемента пвх нужно указать тип значения. ТипЗначения — это стандартный реквизит ПВХ, но в конвертации он не отображается как реквизит и его нельзя выбрать в качестве приемника. Так что для передачи типа значения будем использовать параметры объекта. Создаем для плана видов характеристик новый ПКС: указываем «Передать данные в параметр», источник — пустой, приемник — «Типы». 

(скрин 2)

Дальше есть два способа — для обмена между идентичными конфигурациями (попроще) и для всех остальных.

Шаг 2 способ №1. Если у вас обмен между двумя одинаковыми конфигурациями, то вы можете использовать функцию ЗначениеВСтрокуВнутр /ЗначениеИзСтрокиВнутр. В созданном ПКС добавляем следующий код «перед загрузкой»:

ТипыСвойства = Источник.ТипЗначения.Типы();
Значение = ЗначениеВСтрокуВнутр(ТипыСвойства);

Типы = ЗначениеИзСтрокиВнутр(ПараметрыОбъекта.Получить("Типы"));
Объект.ТипЗначения = Новый ОписаниеТипов(Типы );

Готово.

Шаг 2 способ №2. Если конфигурации не одинаковые, то предыдущий способ работать не будет. При вызове функции ЗначениеИзСтрокиВнутр тип значения не будет определен (будет Неопределено). Мой вариант — записать типы значений в строку, а затем расшифровать ее на стороне приемника.

ПКС «Типы» «перед загрузкой»:

ТипыСвойства = Источник.ТипЗначения.Типы();

МассивТиповСтроками = "";

Для Каждого ТипСвойства Из ТипыСвойства Цикл
МассивТиповСтроками = МассивТиповСтроками+ нрег(СтрЗаменить(Строка(ТипСвойства)," ","")) + ";";
КонецЦикла;

Значение = МассивТиповСтроками;

ПКО плана видов характеристик «после выгрузки»:

ТипыСтрокой = ПараметрыОбъекта.Получить("Типы");

МассивТиповСтрокой = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(ТипыСтрокой, ";");
МассивТипов = Новый Массив;

Для Каждого ТипСтрокой Из МассивТиповСтрокой Цикл

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

Объект.ТипЗначения = Новый ОписаниеТипов(МассивТипов);

Готово.

    Шаг 3. В ПКО справочника «Номенклатура» создаем стандартным способом ПКС для табличной части «Дополнительные реквизиты» и ее реквизитов (скрин 7)

Для ПКС реквизита «Значение» пишем в «перед выгрузкой»:

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

Теперь все готово. Можно пробовать выгружать.

19.02.14 — 22:10

1 — 19.02.14 — 22:37

это же обычный РС, что там переносить то?

2 — 19.02.14 — 22:41

Ну вот бьюсь сегодня весь день. Не могу корректно перенести.

Учитывай, что мне весь РС не нужен, а только по той номенклатуре, которая выгружается (по ссылкам).

3 — 19.02.14 — 22:55

((1) Не скажите. Там значения составного типа и более того планы видов характеристик. Для правильного создания последних нужно передавать типы значений.

4 — 19.02.14 — 22:56

(2) ВыгрузитьПоПравилу() после выгрузки

5 — 19.02.14 — 22:58

(3) Да, такое ощущение, что нужно, но куда не понятно.

(4) Так и делаю, выборкой получаю значения и в цикле их выгружаюпоправилу.

6 — 19.02.14 — 22:58

(3) Самое интересное, что даже простые типы Дата, Строка не проходят.

7 — 19.02.14 — 23:04

(6) Для ПВХ в параметрах нужно передавать типы значений этого ПВХ. Завтра с работы кину пример, если будет необходимость.

8 — 19.02.14 — 23:06

(7) Да есть необходимость, даже острая

Очень буду благодарен.

9 — 19.02.14 — 23:07

Делал так, в ПКС добавил табличную часть дополнительные реквизиты и для нее получить из входящих данных, и написал такое в пко в перед выгрузкой

СтрокаВходДанных = ВходящиеДанные.ДополнительныеРеквизиты.Добавить();

СтрокаВходДанных.Значение = Источник.КорпоративныйКлиент;

СтрокаВходДанных.ТекстоваяСтрока = «»;

10 — 19.02.14 — 23:13

11 — 19.02.14 — 23:59

(10) а что в пко?табличная часть доп реквизиты?

12 — 20.02.14 — 09:57

13 — 20.02.14 — 11:21

(12) по картинкам не совсем понятно, может сбросите кусок правил на почту?

(12) Разобрался, спасибо огромное, все работает!!!