|
Подстановка реквизита взятого из РС
| ☑ |
0
a1phoenix
04.10.12
✎
14:37
|
Добрый день!
Необходимо добавить значение реквизита в справочник Пульт, взятый из РС. В моем случае это Адрес. Платформа 8.2. Конфигурация - РАРУС СРМ 1.4.
Процедура которой пытаюсь добавить реквизит:
/////////////////////////////////////////////////////////
Процедура КонтрагентПриИзменении(Элемент)
//Заполнение Полного Названия
ПолноеНазвание=Контрагент.НаименованиеПолное;
//Заполнение Наименования
Наименование=НомерПульта;
//Заполнение Адреса
КИ = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
КИ.Отбор.Объект.Значение = Контрагент.Ссылка;
КИ.Отбор.Объект.Использование = Истина;
КИ.Записать();
АдресФакт = КИ.Добавить();
АдресФакт.Объект= Контрагент.Ссылка;
АдресФакт.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
АдресФакт.Вид = Справочники.ВидыКонтактнойИнформации.НайтиПоНаименованию("Фактический адрес контрагента");
АдресФакт.Представление=Адрес;
КИ.Записать(Истина);
КонецПроцедуры
//////////////////////////////////////////////////////
Вот только при ее выполнении происходит затирание контактной информации контрагента. Подскажите мою ошибку...
|
|
1
zladenuw
04.10.12
✎
14:39
|
КИ.Отбор.Объект.Значение = Контрагент.Ссылка;
КИ.Отбор.Объект.Использование = Истина;
КИ.Записать();
тут
|
|
2
a1phoenix
04.10.12
✎
14:55
|
КИ.Отбор.Объект.Значение = Контрагент.Ссылка;
КИ.Отбор.Объект.Использование = Истина;
КИ.Записать(); //удалил строчку оставив только в конце процедуры КИ.Записать();
Эффект оказался таким же..
|
|
3
a1phoenix
04.10.12
✎
14:58
|
Убрал так же КИ.Запись(); и в конце процедуры, информация осталась однако реквизит так и не заполнился.
АдресФакт.Представление=Адрес; //Адрес - название реквизита в справочнике Пульт его мне и надо заполнить, но заполнение не происходит.
Где еще посмотреть?
|
|
4
a1phoenix
05.10.12
✎
08:53
|
Адрес = УправлениеКонтактнойИнформацией.ПолучитьАдресИзКонтактнойИнформации(Контрагент, "Фактический")
Данная функция решила мою проблему. Всем спасибо.
|
|