Речь пойдет о ручной выгрузке данных из Управления Торговлей 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 = Строка(Страна);
КонецЕсли;
СтрокаНабора.ТипКвартиры = ?(СтрокаНабора.ТипКвартиры = "кв.", "Квартира", "Офис");
КонецЕсли;
СтруктураПолей.Свойство("Комментарий", СтрокаНабора.Комментарий);
КонецЦикла;
Для Каждого текСтрокаКотакт из Строки Цикл
Сообщить(текСтрокаКотакт.Представление);
ВыгрузитьПоПравилу(текСтрокаКотакт, ,, , "КонтактнаяИнформация");
КонецЦикла;
