Заполнение реквизита из РС

[a1phoenix]

День добрый!
Ломаю голову над такой проблемой:
Не получается вытащить и записать Адрес из РС в справочник.
Процедура над которой ломаю голову:

Код Выделить Развернуть

Процедура КонтрагентПриИзменении(Элемент)
//Заполнение Полного Названия
ПолноеНазвание=Контрагент.НаименованиеПолное;
//Заполнение Наименования
Наименование=НомерПульта;
//Заполнение Адреса
КИ = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
    КИ.Отбор.Объект.Значение = Контрагент.Ссылка;
    КИ.Отбор.Объект.Использование = Истина;
    КИ.Записать();
    АдресФакт = КИ.Добавить();
    АдресФакт.Объект= Контрагент.Ссылка;
    АдресФакт.Тип  = Перечисления.ТипыКонтактнойИнформации.Адрес;
    АдресФакт.Вид  = Справочники.ВидыКонтактнойИнформации.НайтиПоНаименованию("Фактический адрес контрагента");
    АдресФакт.Представление=Адрес;
    КИ.Записать(Истина);
КонецПроцедуры
В процесседанной процедуры просто трется контактная информация контрагента и все. Нужна Ваша помощь чтобы вместо удаления происходило заполнение Реквизита.

[СветланаCC]

Не много не поняла сути - объясните что именно нужно Вам,
но при записи информации в РС 
Синтаксис:

Записать(<Замещать>)
Параметры:

<Замещать> (необязательный)

Тип: Булево.
Определяет режим замещения существующей записи в соответствии с текущими установками отбора. Истина - перед записью существующие записи будут удалены. Ложь - записи будут дописаны к уже существующим в информационной базе записям
Значение по умолчанию: Истина
Описание:

Записывает набор записей в базу данных. В зависимости от переданного параметра, может быть выполнено добавление записей или их замещение.

[a1phoenix]

Не много не поняла сути - объясните что именно нужно Вам,

Мне необходимо заполнить созданный мной справочник Пульт данными из справочника Контрагенты(НаименованиеПолное), а так же из Регистра Сведений взять адрес, указанного в форме справочника Пульт, контрагента(Наименование).
http://saveimg.ru/show-image.php?id=62172b48f3e5b2ba1e179cca5731da7e - картинка самой формы в модуле которой и пишу данную процедуру.

[СветланаCC]

При выборе значит нужно, чтобы адрес подставлялся???

[a1phoenix]

Да, именно так

[СветланаCC]

Вы вообще не понятно что делаете в примере.... вот смотрите что должно быть -

Код Выделить Развернуть

Запрос = новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| КонтактнаяИнформация.Представление
|ИЗ
| РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
|ГДЕ
| КонтактнаяИнформация.Объект = &Контрагент
| И КонтактнаяИнформация.Тип = &ТипКИ
| И КонтактнаяИнформация.Вид = &ВидКИ";
Запрос.УстановитьПараметр("Контрагент",ВыбранноеЗначение);
Запрос.УстановитьПараметр("ТипКИ",Перечисления.ТипыКонтактнойИнформации.Адрес);

Запрос.УстановитьПараметр("ВидКИ",Справочники.ВидыКонтактнойИнформации.ФактАдресКонтрагента);
//либо в зависимости какой адрес нужен
Запрос.УстановитьПараметр("ВидКИ",Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента);
Результат = Запрос.Выполнить().Выбрать();
Пока Результат.Следующий() Цикл
Адрес = Результат.Представление;
КонецЦикла;


[a1phoenix]

Спасибо большое за помощь, но задачка решилась при помощи функции:
Адрес = УправлениеКонтактнойИнформацией.ПолучитьАдресИзКонтактнойИнформации(Контрагент, "Фактический")

[СветланаCC]

Спасибо большое за помощь, но задачка решилась при помощи функции:
Адрес = УправлениеКонтактнойИнформацией.ПолучитьАдресИзКонтактнойИнформации(Контрагент, "Фактический")

Да, есть такое - просто я думала у Вас своя разработка, а так конечно тоже верно)