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