НаборЗаписей = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();

    НаборЗаписей.Отбор.Объект.Установить(Контрагент);

    НаборЗаписей.Прочитать();

    Для каждого Запись из НаборЗаписей Цикл

        Если Запись.Вид = Справочники.ВидыКонтактнойИнформации.НайтиПоНаименованию("Телефон контрагента") Тогда

            Запись.Представление = ЭлементыФормы.ПолеВводаТелефона.Значение;    

        КонецЕсли;  

    КонецЦикла;

    НаборЗаписей.Записать();