Имя: Пароль:
1C
1С v8
Прегрузка адресов УТ11 БП30
0 Мисти
 
08.12.13
01:12
Только я, вроде, научилась перегружать адреса, когда они были в регистре сведений, как их перенесли в табличную часть!
Опять не получается.
        Для Каждого КонтИнформацияУТ из  КонтрУТ.КонтактнаяИнформация Цикл
            КонтрБП.КонтактнаяИнформация.Очистить();
            КонтИнформацияБП = КонтрБП.КонтактнаяИнформация.Добавить();      
            ИмяЗначенияПеречисленияCOM= БазаОле.XMLString(КонтИнформацияУТ.Тип);
            ПредставлениеПеречисленияCOM= БазаОле.String(КонтИнформацияУТ.Тип); //синоним
            ИмяПеречисленияCOM= КонтИнформацияУТ.Тип.Метаданные().Имя;
            СсылкаНаПеречисление = XMLЗначение(Тип("ПеречислениеСсылка."+ИмяПеречисленияCOM),ИмяЗначенияПеречисленияCOM);
            КонтИнформацияБП.Тип              =  СсылкаНаПеречисление;
            КонтИнформацияБП.Вид =  Справочники.ВидыКонтактнойИнформации.НайтиПоНаименованию(КонтИнформацияУТ.Вид.Наименование);
            КонтИнформацияБП.Представление  =  КонтИнформацияУТ.Представление;
            КонтИнформацияБП.ЗначенияПолей  =  КонтИнформацияУТ.ЗначенияПолей;
            КонтИнформацияБП.Страна         =  КонтИнформацияУТ.Страна;
            КонтИнформацияБП.Регион         =  КонтИнформацияУТ.Регион;
            КонтИнформацияБП.Город          =  КонтИнформацияУТ.Город;
            КонтИнформацияБП.АдресЭП        =  КонтИнформацияУТ.АдресЭП;
            КонтИнформацияБП.ДоменноеИмяСервера=  КонтИнформацияУТ.ДоменноеИмяСервера;
            КонтИнформацияБП.НомерТелефона =  КонтИнформацияУТ.НомерТелефона;
            КонтИнформацияБП.НомерТелефонаБезКодов=  КонтИнформацияУТ.НомерТелефонаБезКодов;
            КонтИнформацияБП.НомерСтроки  =  КонтИнформацияУТ.НомерСтроки;
        КонецЦикла;
1 Мисти
 
08.12.13
01:12
Значения полей - строка, вроде как...
Тип и вид находятся
2 ИсчадиеADO
 
08.12.13
01:21
я бы сделал так: сформулировал для себя проблему, поискал бы в гугле, если совсем лень и проще спросить, то таки задал бы вопрос, да
3 Мисти
 
08.12.13
01:27
(2) В гугле очень часто находятся вопросы, но на них нет ответов.
Я, похоже, нашла, в чем фокус. Надо вид искать, учитывая родителя.
4 Мисти
 
08.12.13
01:29
КонтИнформацияБП.Вид = Справочники.ВидыКонтактнойИнформации.НайтиПоНаименованию(КонтИнформацияУТ.Вид.Наименование,,СправГруппа.Ссылка);

Не помогло!
5 IKSparrow
 
08.12.13
01:34
А на фига изобретать велосипе если есть стандартная выгрузка из УТ11 в БП3?
И вот эти COM-извращения, зачем?
Берем КД в руки, 30 минут и все готово.
6 Мисти
 
08.12.13
01:43
КонтрБП.КонтактнаяИнформация.Очистить(); - вот в чем фокус.
Мне стандартная не нужна, мы только 2 документа выгружаем и всё по-своему. Что с КД править, что без КД.
7 ИсчадиеADO
 
08.12.13
01:48
так че, получилось, нет?