Результат = РегистрыСведений.КонтактнаяИнформация.СоздатьМенеджерЗаписи();
       Результат.Объект = ТекКонтрагент;
       Результат.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
       Результат.Вид = ВидФакт;
       Результат.Представление = КонтрОле.ЮрФизЛицо.ФактАдрес;
       Результат.Период = '20120101';        
       Результат.Поле1="Россия";
       Результат.Записать();
Какая-то хитрость была с полем1, но не помню какая!
В регистре данные есть, но в справочник не подтягиваются.

Объект                        
Представление                        
Поле1    Комментарий    Значение по умолчанию    Тип дома    Тип корпуса    Тип квартиры    Тип
БТЛ агенство                        
115477,г.москва,ул. Кантемировская,д.53,корп.1                        
Россия        Нет                Адрес

Так в чем фокус-то?

(2) Фокус в наличии фотки. Твоей. Хочешь поспорить- ну рискни.

Я уже почти! Только такая маленькая не получается - 200 кб, я не влезаю.

(4) Не пролазит. Сочувствую.

Ау?

(0) скорее всего проблема с ВидФакт

ВидФакт=Справочники.ВидыКонтактнойИнформации.ФактАдресОрганизации;

вроде если адрес российский, тогда надо заполнять поле1-поле10, для нероссийских - представление

плохо, что в типовых нигде адрес не записывается :(
Зато клиенты пищат

Представление работает для всех, я проверяла.

У меня примерно то же - где-то работало, только не могу найти сейчас - где. И в чем разница, никак не пойму.

(11) да, но в режиме предприятия оно доступно только для нероссийских адресов, а для российских вызывается функция по сборке адреса по полям 1-10, емнип

Функция Разложить(Знач Стр, Разделитель = ",") Экспорт
   
   Список = новый СписокЗначений;
   Длина  = СтрДлина(Разделитель);
   
   Стр = СокрЛП(Стр);
   Поз = Найти(Стр, Разделитель);
   
   Пока 0 < Поз Цикл
       Список.Добавить(СокрП(Лев(Стр, Поз-1)));
       
       Стр = СокрЛ(Сред(Стр, Поз+Длина));
       Поз = Найти(Стр, Разделитель);
   КонецЦикла;
   
   Список.Добавить(Стр);
   
   Возврат Список;
   
КонецФункции // глРазложить()

Функция ВернутьСтрутуруАдреса(Адрес)
   //1 - Структура строки с адресом в 7-ке
   //2 - Код страны
   //3 - Индекс
   //4 - Наименование региона
   //5 - Наименование района
   //6 - Наименование города
   //7 - Наименование нас пункта
   //8 - Наименование улицы
   //9 - Номер дома
   //10- Номер корпуса
   //11- Номер квартиры
   СписокСАдресом = Разложить(Адрес);
   Результат  = новый Структура();
   Результат.Вставить("Поле1",?(СписокСАдресом.количество()>1,СписокСАдресом[1].Значение,""));
   Результат.Вставить("Поле2",?(СписокСАдресом.количество()>2,СписокСАдресом[2].Значение,""));
   Результат.Вставить("Поле3",?(СписокСАдресом.количество()>3,СписокСАдресом[3].Значение,""));
   Результат.Вставить("Поле4",?(СписокСАдресом.количество()>4,СписокСАдресом[4].Значение,""));
   Результат.Вставить("Поле5",?(СписокСАдресом.количество()>5,СписокСАдресом[5].Значение,""));
   Результат.Вставить("Поле6",?(СписокСАдресом.количество()>6,СписокСАдресом[6].Значение,""));
   Результат.Вставить("Поле7",?(СписокСАдресом.количество()>7,СписокСАдресом[7].Значение,""));
   Результат.Вставить("Поле8",?(СписокСАдресом.количество()>8,СписокСАдресом[8].Значение,""));
   Результат.Вставить("Поле9",?(СписокСАдресом.количество()>9,СписокСАдресом[9].Значение,""));
   Результат.Вставить("Поле10","");
   Результат.Вставить("Представление","");
   
   Возврат Результат
КонецФункции

Функция ОбновитьАдрес(СтрокаАдреса, ТекОбъект, ТекТип, ТекВид)
   НовыйАдрес = ВернутьСтрутуруАдреса(СтрокаАдреса);
   АдресИзменен = False;
   Результат = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
   Результат.Отбор.Объект.Установить(ТекОбъект.Ссылка);
   Результат.Отбор.Тип.Установить(ТекТип);
   Результат.Отбор.Вид.Установить(ТекВид);
   Результат.Прочитать();
   Если Результат.Количество() = 0 Тогда
       Адрес = Результат.Добавить();
       Адрес.Объект = ТекОбъект.Ссылка;
       Адрес.Тип = ТекТип;
       Адрес.Вид = ТекВид;
   Иначе
       Адрес = Результат[0];
   КонецЕсли;
   Для Каждого ТекРеквизит из НовыйАдрес Цикл
       Если Адрес[ТекРеквизит.Ключ]<>ТекРеквизит.Значение и
           ЗначениеЗаполнено(ТекРеквизит.Значение) тогда
           Адрес[ТекРеквизит.Ключ]=ТекРеквизит.Значение;
           АдресИзменен = True;
       КонецЕсли;
   КонецЦикла;
   
   Адрес.Представление = УправлениеКонтактнойИнформацией.ПолучитьПредставлениеАдреса(Адрес);
   
   Если АдресИзменен тогда
       Результат.Записать();
   КонецЕсли;
   
   Возврат АдресИзменен;
   
Конецфункции

(8) а должно быть что-то типа
ВидФакт=Справочники.ВидыКонтактнойИнформации.ФактАдресКонтрагента;

ТекТип = Перечисления.ТипыКонтактнойИнформации.Адрес;
ТекВид = Справочники.ВидыКонтактнойИнформации.ФактАдресКонтрагента;

ОбновитьАдрес(РеквизитыОбъекта["ФактАдрес"], ТекКонтрагент, ТекТип, ТекВид)

(15) Уря!! Точно, собака там порылась!

Спасибо!!!

(3) она ж сказала что нам не  понравится ее фотки ))