Народ, подскажите как программно заполнить поля контрактной информации:

КИ = РегистрыСведений.КонтактнаяИнформация;
    ОтборКИ = Новый Структура("Объект");
    ОтборКИ.Объект = ВыбКонтрагент;
    ВыборкаКИ = КИ.Выбрать();
    ВыбКонтрагент.Записать();
    
    СтруктураКонтрагента.СсылкаНаКонтрагента= ВыбКонтрагент;
        
    
    ЗаписьКИ = КИ.СоздатьМенеджерЗаписи();
    ЗаписьКИ.Объект = ВыбКонтрагент.Ссылка;
    ЗаписьКИ.Вид = Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента;
    ЗаписьКИ.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
    ЗаписьКИ.Представление = СокрЛП(ЮридическийАдресКонтрагента);
                
    ЗаписьКИ.Поле1 = ИндексЮрКт;    //индекс
    ЗаписьКИ.Поле2 = ОбластьЮрКт;    //область
        ЗаписьКИ.Поле3 = "";    //
        ЗаписьКИ.Поле4 = ГородЮрКт;    //город
        ЗаписьКИ.Поле5 = "";
        ЗаписьКИ.Поле6 = УлицаЮрКт;    //улица
        ЗаписьКИ.Поле7 = НомерДомаЮрКт;    //номер дома
        ЗаписьКИ.Поле8 = "";
        ЗаписьКИ.Поле9 = НомерОфисЮрКт;    //номер офиса
        ЗаписьКИ.Поле10 = "";

    
    ЗаписьКИ.Записать(Истина);

есть ли примерчик.

апнем

(0) посмотри обработку загрузки данных из семерки, может там есть