Пардон ребят, не мой сегодня день, подскажите из-за чего ошибка?
КОД:

            //СОЗДАЕМ КОНТРАГЕНТА
            
            СпрКонтрагент              = Справочники.Контрагенты.СоздатьЭлемент();
            СпрКонтрагент.Наименование = стр.ФИО;
            СпрКонтрагент.ОсновнойМенеджерПокупателя = ПолеВвода3;
            СпрКонтрагент.НаименованиеПолное = стр.ФИО;
            СпрКонтрагент.ЮрФизЛицо    = Перечисления.ЮрФизЛицо.ФизЛицо;
            СпрКонтрагент.Покупатель   = Истина;
            СпрКонтрагент.Родитель = Выбрано;
            СпрКонтрагент.Записать();
            
            //ЗАПОЛНЯЕМ ИНФОРМАЦИЮ О КОНТРАГЕНТЕ
            //ТЕЛЕФОН
            НаборЗаписей = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
            НаборЗаписей.Отбор.Объект.Установить(СпрКонтрагент);
            НаборЗаписей.Отбор.Тип.Установить(Перечисления.ТипыКонтактнойИнформации.Телефон);
            НаборЗаписей.Отбор.Вид.Установить(Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента);
            НаборЗаписей.Прочитать();
            Если НаборЗаписей.Количество() > 0 Тогда
                Для каждого Запись из НаборЗаписей Цикл
                    Если Запись.Вид = Справочники.ВидыКонтактнойИнформации.НайтиПоНаименованию("Телефон контрагента") Тогда
                        Запись.Представление = стр.телефон;    
                    КонецЕсли;
                КонецЦикла;                
            Иначе
                НовСтр = НаборЗаписей.Добавить();
                НовСтр.Объект = СпрКонтрагент;
                НовСтр.Тип = Перечисления.ТипыКонтактнойИнформации.Телефон;
                НовСтр.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента;
                НовСтр.Представление = стр.телефон;
            КонецЕсли;  
            НаборЗаписей.Записать();


Ошибка:

{ВнешняяОбработка.ВнешняяОбработка1.Форма.Форма.Форма(151)}: Ошибка при вызове метода контекста (Записать)
            НаборЗаписей.Записать();
по причине:
Не удалось записать: "Контактная информация"!

Ошибка когда  Если НаборЗаписей.Количество() = 0 Тогда , т.е. пытаюсь добавить запись в регистр, по ветке

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

Наверно надо отладчиком смотреть в модуле набора записей

(2) Мда... НовСтр.Объект = СпрКонтрагент; Объект, вместо ссылки. НЕ МОЙ ДЕНЬ! Пардон ребят за глупый вопрос...