Контактная информация контрагента.

Здравствуйте, проблема такая. Имею бухгалтерию предприятия 2.0, в которой контрагенты с пустыми адресами и телефонами. Программно добавил записи в регистр сведений контактная информация. Регистр заполнился, в контрагенте пусто! в чем ошибся не понял! Вот код!

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

                НоваяЗапись.Поле1 = СтрокаТаблицы.Поле1;
                НоваяЗапись.Поле2 = СтрокаТаблицы.Поле2;
                НоваяЗапись.Поле3 = СтрокаТаблицы.Поле3;
                НоваяЗапись.Поле4 = СтрокаТаблицы.Поле4;
                НоваяЗапись.Поле5 = СтрокаТаблицы.Поле5;
                НоваяЗапись.Поле6 = СтрокаТаблицы.Поле6;
                НоваяЗапись.Поле7 = СтрокаТаблицы.Поле7;
                НоваяЗапись.Поле8 = СтрокаТаблицы.Поле8;
                НоваяЗапись.Поле9 = СтрокаТаблицы.Поле9;
                НоваяЗапись.Поле10 = СтрокаТаблицы.Поле10;
                НоваяЗапись.Комментарий = СтрокаТаблицы.Комментарий;
                НоваяЗапись.ТипДома = СтрокаТаблицы.ТипДома;
                НоваяЗапись.ТипКорпуса = СтрокаТаблицы.ТипКорпуса;
                НоваяЗапись.ТипКвартиры = СтрокаТаблицы.ТипКвартиры;
                НоваяЗапись.ПользовательЛичногоКонтакта = СтрокаТаблицы.ПользовательЛичногоКонтакта;
                НоваяЗапись.Представление = СтрокаТаблицы.Представление;
                Если НЕ НоваяЗапись.Выбран() Тогда
                    НоваяЗапись.Записать(Ложь);
                Иначе
                    НоваяЗапись.Записать()
                КонецЕсли;

            КонецЦикла;