Обмен УТ11 -> БП выгрузка контрагентов с адресами

Речь пойдет о ручной выгрузке данных из Управления Торговлей 11 в Бухгалтерию 2.0.
Здесь достаточно приводится рабочих правил выгрузки, посмотрите тут или тут
но там не работает, при выгрузке контрагента, выгрузка "Адресов" (Юридические и Фактические). Повозившись, изменил Алгоритм.ВыгрузкаКонтактнойИнформации, который есть в этих правилах, но отключен, закомментирована его работа.

Так вот, заменяем код этого алгоритма в правилах на мой, и должно работать, предварительно раскомментировав строку

//Выполнить(Алгоритмы.ВыгрузкаКонтактнойИнформации);

в Правилах выгрузки(событие "после выгрузки"), Контрагентов

также в правилах конвертации "КотактнойИнформации" необходимо изменить существующие строки события "после загрузки" 
 

вставить следующий код

ОбъектМодифицирован = Ложь;
    ЗаписьРегистра = Объект;//[НомерЗаписи - 1];
    Если ЗаписьРегистра.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес И НЕ ЗначениеЗаполнено(ЗаписьРегистра.Представление) Тогда
        // Заполняем представление по умолчанию, если в УТ адрес был не произвольный
        ПредставлениеАдреса = УправлениеКонтактнойИнформацией.ПолучитьПредставлениеАдреса(ЗаписьРегистра);
        Если ЗначениеЗаполнено(ПредставлениеАдреса) Тогда
            ОбъектМодифицирован = Истина;
            ЗаписьРегистра.Представление = ПредставлениеАдреса;
        КонецЕсли;
    КонецЕсли;

и должно работать, выгружается вся контактная информация по контрагенту, но в бухгателрию попадает только нужная Юр. адрес, Факт. адрес и телефоны.

код Алгоритма.ВыгрузкаКонтактнойИнформации

Строки = Новый ТаблицаЗначений;
Строки.Колонки.Добавить("Ссылка");
Строки.Колонки.Добавить("Объект");
Строки.Колонки.Добавить("Вид");
Строки.Колонки.Добавить("Тип");
Строки.Колонки.Добавить("Поле1");
Строки.Колонки.Добавить("Поле2");
Строки.Колонки.Добавить("Поле3");
Строки.Колонки.Добавить("Поле4");
Строки.Колонки.Добавить("Поле5");
Строки.Колонки.Добавить("Поле6");
Строки.Колонки.Добавить("Поле7");
Строки.Колонки.Добавить("Поле8");
Строки.Колонки.Добавить("Поле9");
Строки.Колонки.Добавить("ТипДома");
Строки.Колонки.Добавить("ТипКвартиры");
Строки.Колонки.Добавить("ТипКорпуса");
Строки.Колонки.Добавить("Представление");
Строки.Колонки.Добавить("Комментарий");
Строки.Колонки.Добавить("ЭтоПроизвольнаяСтрока", Новый ОписаниеТипов("Булево"));

// Типы дома, корпуса и квартиры, которые поддерживаются в БП
ТипыДомов = Новый Массив;
ТипыДомов.Добавить("дом");
ТипыДомов.Добавить("владение");

ТипыКорпусов = Новый Массив;
ТипыКорпусов.Добавить("корпус");
ТипыКорпусов.Добавить("строение");

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

    Для Сч = 1 По СтрЧислоСтрок(СтрокаПолей) Цикл
        Стр = СтрПолучитьСтроку(СтрокаПолей, Сч);
        Если Лев(Стр, 1) = Символы.Таб Тогда
            Если ПоследнийЭлементИмя <> Неопределено Тогда
                СтруктураПолей[ПоследнийЭлементИмя] = СтруктураПолей[ПоследнийЭлементИмя] + Символы.ПС + Сред(Стр, 2);
            КонецЕсли;
        Иначе
            Поз = Найти(Стр, "=");
            Если Поз <> 0 Тогда
                ПоследнийЭлементИмя = Лев(Стр, Поз-1);
                СтруктураПолей.Вставить(ПоследнийЭлементИмя, Сред(Стр, Поз+1));
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;

    СтрокаНабора = Строки.Добавить();
    СтрокаНабора.Объект                 = Объект.Ссылка;
    СтрокаНабора.Вид                    = СтрокаКИ.Вид;
    СтрокаНабора.Тип                    = СтрокаКИ.Тип;
    СтрокаНабора.Представление          = СтрокаКИ.Представление;

    Если СтрокаКИ.Тип = Перечисления.ТипыКонтактнойИнформации.Факс
        ИЛИ СтрокаКИ.Тип = Перечисления.ТипыКонтактнойИнформации.Телефон Тогда
        СтруктураПолей.Свойство("КодСтраны", СтрокаНабора.Поле1);
        СтруктураПолей.Свойство("КодГорода", СтрокаНабора.Поле2);
        СтруктураПолей.Свойство("НомерТелефона", СтрокаНабора.Поле3);
        СтруктураПолей.Свойство("Добавочный", СтрокаНабора.Поле4);
    ИначеЕсли СтрокаКИ.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес Тогда

        СтруктураПолей.Свойство("Индекс", СтрокаНабора.Поле1);
        СтруктураПолей.Свойство("Регион", СтрокаНабора.Поле2);
        СтруктураПолей.Свойство("Район", СтрокаНабора.Поле3);
        СтруктураПолей.Свойство("Город", СтрокаНабора.Поле4);
        СтруктураПолей.Свойство("НаселенныйПункт", СтрокаНабора.Поле5);
        СтруктураПолей.Свойство("Улица", СтрокаНабора.Поле6);
        СтруктураПолей.Свойство("Дом", СтрокаНабора.Поле7);
        СтруктураПолей.Свойство("Корпус", СтрокаНабора.Поле8);
        СтруктураПолей.Свойство("Квартира", СтрокаНабора.Поле9);

        СтруктураПолей.Свойство("ТипДома", СтрокаНабора.ТипДома);
        СтруктураПолей.Свойство("ТипКорпуса", СтрокаНабора.ТипКорпуса);
        СтруктураПолей.Свойство("ТипКвартиры", СтрокаНабора.ТипКвартиры);

        // Проверяем значения типа дома, корпуса и квартиры
        СтрокаНабора.ТипДома     = ?(ТипыДомов.Найти(НРег(СтрокаНабора.ТипДома)) = Неопределено, Неопределено, СтрокаНабора.ТипДома);
        СтрокаНабора.ТипКорпуса  = ?(ТипыКорпусов.Найти(НРег(СтрокаНабора.ТипКорпуса)) = Неопределено, Неопределено, СтрокаНабора.ТипКорпуса);
        СтрокаНабора.ТипКвартиры = ?(ТипыКвартир.Найти(НРег(СтрокаНабора.ТипКвартиры)) = Неопределено, Неопределено, СтрокаНабора.ТипКвартиры);

        // Получаем представление, какое оно должно быть
        КодСтраны = "";
        НаименованиеСтраны = СтрокаКИ.Страна;
        СтранаРоссия = Справочники.СтраныМира.Россия;

        СтруктураПолей.Свойство("КодСтраны", КодСтраны);
        Страна = ?(ЗначениеЗаполнено(КодСтраны), Справочники.СтраныМира.НайтиПоКоду(КодСтраны), Неопределено);
        Страна = ?(ЗначениеЗаполнено(Страна), Справочники.СтраныМира.НайтиПоНаименованию(НаименованиеСтраны, Истина), СтранаРоссия);
        Страна = ?(ЗначениеЗаполнено(Страна), Страна, СтранаРоссия);

        Представление = "";
        Если Страна <> СтранаРоссия Тогда
            Представление = Представление + ?(ЗначениеЗаполнено(Строка(Страна)), ", " + Строка(Страна), "");
        КонецЕсли;
        Представление = Представление + ?(ЗначениеЗаполнено(СокрЛП(СтрокаНабора.Поле1)), ", " + СокрЛП(СтрокаНабора.Поле1), "");
        Представление = Представление + ?(ЗначениеЗаполнено(СокрЛП(СтрокаНабора.Поле2)), ", " + СокрЛП(СтрокаНабора.Поле2), "");
        Представление = Представление + ?(ЗначениеЗаполнено(СокрЛП(СтрокаНабора.Поле3)), ", " + СокрЛП(СтрокаНабора.Поле3), "");
        Представление = Представление + ?(ЗначениеЗаполнено(СокрЛП(СтрокаНабора.Поле4)), ", " + СокрЛП(СтрокаНабора.Поле4), "");
        Представление = Представление + ?(ЗначениеЗаполнено(СокрЛП(СтрокаНабора.Поле5)), ", " + СокрЛП(СтрокаНабора.Поле5), "");
        Представление = Представление + ?(ЗначениеЗаполнено(СокрЛП(СтрокаНабора.Поле6)), ", " + СокрЛП(СтрокаНабора.Поле6), "");
        Представление = Представление + ?(ЗначениеЗаполнено(СокрЛП(СтрокаНабора.Поле7)), ", " + СтрокаНабора.ТипДома    + " № " + СокрЛП(СтрокаНабора.Поле7), "");
        Представление = Представление + ?(ЗначениеЗаполнено(СокрЛП(СтрокаНабора.Поле8)), ", " + СтрокаНабора.ТипКорпуса + " " + СокрЛП(СтрокаНабора.Поле8), "");
        Представление = Представление + ?(ЗначениеЗаполнено(СокрЛП(СтрокаНабора.Поле9)), ", " + СтрокаНабора.ТипКвартиры + " " + СокрЛП(СтрокаНабора.Поле9), "");

        Если СтрДлина(Представление) > 2 Тогда
            Представление = Сред(Представление, 3);
        КонецЕсли;

        // Проверяем представление на наличие произвольного значения
        Если Представление <> СтрокаНабора.Представление Тогда
            СтрокаНабора.ЭтоПроизвольнаяСтрока = Истина;
            СтрокаНабора.Поле1 = Строка(Страна);
        КонецЕсли;

        СтрокаНабора.ТипКвартиры = ?(СтрокаНабора.ТипКвартиры = "кв.", "Квартира", "Офис");

    КонецЕсли;

    СтруктураПолей.Свойство("Комментарий", СтрокаНабора.Комментарий);
КонецЦикла;




Для Каждого текСтрокаКотакт из Строки Цикл

    Сообщить(текСтрокаКотакт.Представление);
    ВыгрузитьПоПравилу(текСтрокаКотакт, ,, , "КонтактнаяИнформация");
КонецЦикла;