|
Прегрузка адресов УТ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
|
так че, получилось, нет?
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |