Перекидка контакт.данных контрагентов из 77 Россия торг. в 8.2 УТП Украина

1С v8

23.04.13

✎

17:33

База7 = Новый COMОбъект("V77s.Application");
Если База7.Initialize (База7.RMTrade , "","NO_SPLASH_SHOW") = 0 Тогда
База7 = Неопределено;
Сообщить("Произошла ошибка. Подключение к OLE-объекту не произошло"); Возврат;
Иначе

Контрагент7 = База7.CreateObject("Справочник.Контрагенты");

Контрагент7.ВыбратьЭлементы(1);
Пока Контрагент7.ПолучитьЭлемент()=1 цикл

Если Контрагент7.ПометкаУдаления()=1 тогда
Продолжить;
КонецЕсли;

Если (Контрагент7.ЭтоГруппа()=1) тогда
Продолжить;
Иначе
//Сообщить(Контрагент7.Наименование);
Контрагент8 = Справочники.Контрагенты.НайтиПоКоду(Контрагент7.Код);

Если Контрагент8=Справочники.Контрагенты.ПустаяСсылка() тогда
сообщить("Не найдено контрагента из 7.7: "+Контрагент7.Наименование+" из кодом "+Контрагент7.код);
продолжить;
конецесли;

Состояние("!!! Обрабатывается контрагент из версии 7.7: "+Контрагент7.Наименование + " !!!");

//**************************
// адреса
НаборЮрАдрес=РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();

НаборЮрАдрес.Отбор.Объект.Установить(Контрагент8.Ссылка);
НаборЮрАдрес.Отбор.Тип.Установить(Перечисления.ТипыКонтактнойИнформации.Адрес);
НаборЮрАдрес.Отбор.Вид.Установить(Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента.Ссылка);

//НаборЮрАдрес.прочитать();
П77 = СокрЛП(Контрагент7.ЮрФизЛицо.ЮрАдрес);
ЮрАд = СокрЛП(База7.EvalExpr("глПредставлениеАдреса(П77,0)"));
...

1 Mister-X07

23.04.13

✎

17:34

//******************************************************************************
// глПредставлениеАдреса(Знач Адрес, Способ = 0) Экспорт
//
// Параметры:
// Адрес (строка), адрес представление которого нужно вернуть.
// Способ - способ представления адреса (если=1, то возвращает представление адреса без индекса)
//
// Возвращаемое значение:
// Строку - представление адреса
//
// Описание:
// Предназначена для формирования адресной строки в "удобочитаемом" виде
// для отражения в формах.

2 Mister-X07

23.04.13

✎

17:35

пробовал и так

ЮрАд = СокрЛП(База7.EvalExpr("глПредставлениеАдреса("+П77+",0)"));

ошибка:

{Форма.Форма.Форма(48)}: Ошибка при вызове метода контекста (EvalExpr)
ЮрАд = СокрЛП(База7.EvalExpr("глПредставлениеАдреса("+П77+",0)"));
по причине:
Произошла исключительная ситуация (1С:Предприятие): 1 глПредставлениеАдреса(,,,,Тернопіль,Миру,,1В,<<?>>,21,0)
Ожидается выражение

3 Mister-X07

23.04.13

✎

17:38

и так пробовал

ЮрАд = СокрЛП(База7.EvalExpr("глПредставлениеАдреса("""+П77+""",0)"));

ошибка

{Форма.Форма.Форма(49)}: Метод объекта не обнаружен (EvalExpr)
ЮрАд = СокрЛП(База7.EvalExpr("глПредставлениеАдреса("""+П77+""",0)"));

4 Mister-X07

23.04.13

✎

18:03

ЮрАд = СокрЛП(База7.EvalExpr("глПредставлениеАдреса("+""""+П77+""""+",0)"));

так работает

5 zladenuw

23.04.13

✎

18:54

а взять правило с КД и выгрузить и загрузить.

6 Desna

23.04.13