1C 8.3 Запись в регистр сведений - контактная информация email контрагента

[veuron]

Добрый день! После перехода с 1С 7.7 Предприятие  -> 1С 8.3 УПП , возникла необходимость добавить в карточки контрагентов email адреса. Адреса хранятся в файле Adresa.DBF. Номер строки в ДБФ файле совпадает с кодом контрагента в 1С 8.3 УПП.
Если я правильно понял, адреса необходимо закидывать в регистр сведений- контактная информация. Никак не вникну как это реализовать в 1С 8.3 УПП, все что "нарыл" в интернете, но с email ничего нету,подскажите как реализовать, вот код:

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

Процедура ЗагрузитьНажатие(Элемент)
Файл = Новый XBase;
НаборЗаписей = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Объект.Установить("Контрагент");
НаборЗаписей.Прочитать();
Файл.ОткрытьФайл("D:\adresa.dbf",,Истина); //открываем для чтения
Файл.Первая();
Пока НЕ Файл.ВКонце() Цикл
Адрес = Файл.ПолучитьЗначениеПоля("Adres");
Ном = Файл.НомерЗаписи();
Для каждого Запись из НаборЗаписей Цикл
Если (Запись.Объект.Код = Ном) и (Запись.Вид = Справочники.ВидыКонтактнойИнформации.НайтиПоНаименованию("Адрес электронной почты контрагента для обмена электронными документ")) Тогда
Запись.Представление = Адрес;   
НаборЗаписей.Записать();
КонецЕсли; 
КонецЦикла;
Сообщить(Адрес + " " + Ном);
Файл.Следующая();
КонецЦикла;
Файл.ЗакрытьФайл();
КонецПроцедуры


[СветланаCC]

попробуйте так...

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

Процедура ЗагрузитьНажатие(Элемент)
Файл = Новый XBase;
Файл.ОткрытьФайл("D:\adresa.dbf",,Истина); //открываем для чтения
Файл.Первая();
Пока НЕ Файл.ВКонце() Цикл
Адрес = Файл.ПолучитьЗначениеПоля("Adres");
НайдКонтрагент = Справочники.Контрагенты.НайтиПоКоду("Code");  //код контрагента из базы
Если НайдКонтрагент<>Справочники.Контрагенты.ПустаяСсылка() Тогда
НаборЗаписей = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Объект.Установить(НайдКонтрагент);
НаборЗаписей.Отбор.Тип.Установить(перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты);
НаборЗаписей.Отбор.Вид.Установить(справочники.ВидыКонтактнойИнформации.АдресЭлектроннойПочтыКонтрагентаДляОбменаДокументами);
НоваяЗапись = НаборЗаписей.Добавить();
НоваяЗапись.Объект = НайдКонтрагент;
НоваяЗапись.Тип = перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты;
НоваяЗапись.Вид = справочники.ВидыКонтактнойИнформации.АдресЭлектроннойПочтыКонтрагентаДляОбменаДокументами;
НоваяЗапись.Значение = Адрес;
НаборЗаписей.Записать();
КонецЦикла;
Файл.Следующая();
КонецЦикла;
Файл.ЗакрытьФайл();
КонецПроцедуры

[СветланаCC]

Процедура ЗагрузитьНажатие(Элемент)
   Файл = Новый XBase;
   Файл.ОткрытьФайл("D:\adresa.dbf",,Истина); //открываем для чтения
   Файл.Первая();
   Пока НЕ Файл.ВКонце() Цикл
      Адрес = Файл.ПолучитьЗначениеПоля("Adres");
      НайдКонтрагент = Справочники.Контрагенты.НайтиПоКоду("Code");  //код контрагента из базы
      Если НайдКонтрагент<>Справочники.Контрагенты.ПустаяСсылка() Тогда
         НаборЗаписей = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
         НаборЗаписей.Отбор.Объект.Установить(НайдКонтрагент);
         НаборЗаписей.Отбор.Тип.Установить(перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты);
         НаборЗаписей.Отбор.Вид.Установить(справочники.ВидыКонтактнойИнформации.АдресЭлектроннойПочтыКонтрагентаДляОбменаДокументами);
         НоваяЗапись = НаборЗаписей.Добавить();
         НоваяЗапись.Объект = НайдКонтрагент;
         НоваяЗапись.Тип = перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты;
         НоваяЗапись.Вид = справочники.ВидыКонтактнойИнформации.АдресЭлектроннойПочтыКонтрагентаДляОбменаДокументами;
         НоваяЗапись.Значение = Адрес;
         НаборЗаписей.Записать();
      КонецЕсли;
      Файл.Следующая();
   КонецЦикла;
   Файл.ЗакрытьФайл();
КонецПроцедуры