создатьменеджерзаписи

Ответ от InQuisitor[гуру]
// заносит в регистр контактной информации телефон контрагента
//
Процедура СоздатьЗаписьКИ (Выборка, Вид)
МЗ = РегистрыСведений. КИ. СоздатьМенеджерЗаписи ();
МЗ. ОбъектВладелец = Справочники. Контрагенты. НайтиПоКоду (Выборка. Код) ;
Если Вид = "Телефоны" Тогда
МЗ. Тип = Перечисления. ТипыКонтактнойИнформации. Телефон;
МЗ. Вид = Справочники. ВидыКонтактнойИнформации. ТелефонКонтрагента;
МЗ. ИД = Выборка. ИД;
МЗ. Представление = ОбработатьНомерТелефона (Выборка. Телефон) ;
ИначеЕсли Вид = "Адреса" Тогда
МЗ. Тип = Перечисления. ТипыКонтактнойИнформации. Адрес;
Если Выборка. ЮрФизЛицо = 1 Тогда
МЗ. Вид = Справочники. ВидыКонтактнойИнформации. ЮрАдресОрганизации;
Иначе
МЗ. Вид = Справочники. ВидыКонтактнойИнформации. ФактАдресКонтрагента;
КонецЕсли;
МЗ. Город = Выборка. Город;
МЗ. НаселенныйПункт = Выборка. НаселенныйПункт;
МЗ. Улица = Лев (СокрЛП (Выборка. Улица) , СтрДлина (СокрЛП (Выборка. Улица) ) - 1);
МЗ. Дом = Выборка. Дом;
МЗ. Корпус = Выборка. ИндексДома;
МЗ. Квартира = Выборка. Квартира;
МЗ. Индекс = УправлениеКонтактнойИнформациейКлассификаторы. ПолучитьИндекс ("", "", Выборка. Город, Выборка. НаселенныйПункт, Выборка. Улица, Выборка. Дом, Выборка. ИндексДома) ;
МЗ. Представление = Выборка. Представление;
//ЗаписатьВЛог (МЗ. Представление, СтатусСообщения. Важное) ;
КонецЕсли;
МЗ. Записать ();
КонецПроцедурыInQuisitor
Мыслитель
(5587)
Ну что-то типа того)) Очень удобно для русско-говорящего человека)