База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)"));
...із доків по ОЛЕ
Цитата
EvalExpr() - вычислить выражение.
Синтаксис метода такой: EvalExpr(<СтрокаВыражения>), где:
<СтрокаВыражения> - строковое выражение, записанное на встроенном языке 1С-Предприятия.
Результатом выражения может быть число, строка, дата или значение любого агрегатного типа данных. Результат с неопределенным типом преобразуется к строковому типу.
Синтаксис метода такой: EvalExpr(<СтрокаВыражения>), где:
<СтрокаВыражения> - строковое выражение, записанное на встроенном языке 1С-Предприятия.
Результатом выражения может быть число, строка, дата или значение любого агрегатного типа данных. Результат с неопределенным типом преобразуется к строковому типу.
Вилітає із помилкою при використанні методу EvalExpr:
Цитата
{Форма.Форма.Форма(48)}: Ошибка при вызове метода контекста (EvalExpr)
ЮрАд = СокрЛП(База7.EvalExpr("глПредставлениеАдреса(П77,0)"));
по причине:
Произошла исключительная ситуация (1С:Предприятие): 1 глПредставлениеАдреса(П77<<?>>,0)
Переменная не определена (П77)
ЮрАд = СокрЛП(База7.EvalExpr("глПредставлениеАдреса(П77,0)"));
по причине:
Произошла исключительная ситуация (1С:Предприятие): 1 глПредставлениеАдреса(П77<<?>>,0)
Переменная не определена (П77)
Маємо у таблі (відлагоджувач):
П77=",,,,Тернопіль,Миру,,1В,,21" (тип - строка).
глоб. функція і3 7.7
Цитата
//******************************************************************************
// глПредставлениеАдреса(Знач Адрес, Способ = 0) Экспорт
//
// Параметры:
// Адрес (строка), адрес представление которого нужно вернуть.
// Способ - способ представления адреса (если=1, то возвращает представление адреса без индекса)
//
// Возвращаемое значение:
// Строку - представление адреса
//
// Описание:
// Предназначена для формирования адресной строки в "удобочитаемом" виде
// для отражения в формах.
// глПредставлениеАдреса(Знач Адрес, Способ = 0) Экспорт
//
// Параметры:
// Адрес (строка), адрес представление которого нужно вернуть.
// Способ - способ представления адреса (если=1, то возвращает представление адреса без индекса)
//
// Возвращаемое значение:
// Строку - представление адреса
//
// Описание:
// Предназначена для формирования адресной строки в "удобочитаемом" виде
// для отражения в формах.
хто юзав цей метод EvalExpr - що він хоче?
