Прегрузка адресов УТ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
так че, получилось, нет?
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс