Добрый день,
нужно автоматически добавить в BAS КУП 1С 8.3 из 1С 7.7
контактную информацию вновь созданным контрагентам и партнёрам, а так же их контактным лицам.
Сами партнёры, контрагенты, контактные лица создаются. но вот контактная информация к ним не добавляется.
уже использую 3 варианта одновременно, но ни один в коде не работает.
Прошу помощи:

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

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

    УправлениеКонтактнойИнформацией.ДобавитьКонтактнуюИнформацию(Объект, АдресJSON, Справочники.ВидыКонтактнойИнформации.АдресПартнера, ТекущаяДата(), Ложь); 
         
 УправлениеКонтактнойИнформацией.ЗаписатьКонтактнуюИнформацию(Объект,АдресJSON,Справочники.ВидыКонтактнойИнформации.ФактАдресКонтрагента,Перечисления.ТипыКонтактнойИнформации.Адрес,Объект.КонтактнаяИнформация.Количество()+1,ТекущаяДата());
             
КонецПроцедуры





        
   //обращение к функции
                    
                     адрес_t=АдресИзСтроки(Данные[Индекс].Физ_адрес);
            ЕСЛИ  адрес_t.Свойство("Индекс")=ИСТИНА тогда
                 ЗаписатьАдрес(Партнер,адрес_t.Город,адрес_t.Улица,адрес_t.Дом,адрес_t.Офис,адрес_t.Индекс);
                        Иначе
                ЗаписатьАдрес(Партнер,адрес_t.Город,адрес_t.Улица,адрес_t.Дом,адрес_t.Офис,);
            конецесли;

Попытка
              // Заполняем адрес, если передан
           Если ЗначениеЗаполнено(Данные[Индекс].Физ_адрес) Тогда  

                  АдресXML     =  УправлениеКонтактнойИнформацией.КонтактнаяИнформацияВXML(адрес_t,"", Перечисления.ТипыКонтактнойИнформации.Адрес);
                  АдресJSON = УправлениеКонтактнойИнформацией.КонтактнаяИнформацияВJSON(АдресXML);
                  МенеджерКонтактов.ЗаписатьКонтактнуюИнформацию(
                  Партнер.Ссылка,
                   , // Представление
                  Справочники.ВидыКонтактнойИнформации.ФактАдресКонтрагента,
                  Перечисления.ТипыКонтактнойИнформации.Адрес,
                  МенеджерКонтактов.КонтактнаяИнформацияВJSON(АдресJSON)
               );
           КонецЕсли;
        
                
         Исключение
        // Логирование ошибки, если нужно
        // Сообщить(ОписаниеОшибки());
         КонецПопытки;