Из одной базы 7.7 выполняется подключение к другой по OLE. Получаем объекты. Как получить ID объекта?

Типа v7.EvalExpr("ЗначениеВстрокуВнутр(ТвойОбъект)");

ID объекто текущй базы получаю
_IdToStr(СтрПолучитьСтроку(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(ЗначениеВСтрокуВнутр(Обж),"{",""),"}",""),Симв(34),""),",",РазделительСтрок),7))+"   ";

Но это не работает, если Обж - объект OLE

Через v7.EvalExpr(

Возврат _IdToStr(СтрПолучитьСтроку(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(ПУБ.EvalExpr("ЗначениеВстрокуВнутр(Обж)"),"{",""),"}",""),Симв(34),""),",",РазделительСтрок),7))+"   ";;
{Обработка.ИмпортДокументов.Форма.Модуль(18)}: 1С:Предприятие: 1    ЗначениеВстрокуВнутр(Обж<<?>>)
Переменная не определена (Обж)

Обж - это че у тя ?

ну и надо ОлеБаза.ЗначениеВСтрокуВнутр..
а так, через метадатаворк всё проще делать, или через вызов глобальной функции, которая сразу вернёт id в норм виде.

(6) Пытается использовать недокументированные функции 77

(5) Обж - это объект, полученный из базы источника
примерно так:
    ДокПУБ=ПУБ.CreateObject("Документ");
    ДокПУБ.ВыбратьДокументы(Дата1,Дата2);
...        
Обж = ДокПУБ.Субконто1
...

Функция ПолучитьID(Обж)
    СпрИст = ПУБ.CreateObject("Справочник."+Обж.Вид()+"");
    СпрИст.НайтиЭлемент(Обж);
    Возврат _IdToStr(СтрПолучитьСтроку(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(ПУБ.EvalExpr("ЗначениеВстрокуВнутр(СпрИст)"),"{",""),"}",""),Симв(34),""),",",РазделительСтрок),7))+"   ";;
КонецФункции

выдает ошибку Возврат _IdToStr(СтрПолучитьСтроку(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(ПУБ.EvalExpr("ЗначениеВстрокуВнутр(СпрИст)"),"{",""),"}",""),Симв(34),""),",",РазделительСтрок),7))+"   ";;
{Обработка.ИмпортДокументов.Форма.Модуль(20)}: 1С:Предприятие: 1    ЗначениеВстрокуВнутр(СпрИст<<?>>)
Переменная не определена (СпрИст)

Самый простой способ добавить в ОЛЕ базу процедуры

//-----------------------------------------------
Функция адЗначениеИзСтрокиВнутр(ВнутреннийИдентификатор) Экспорт
    Возврат ЗначениеИзСтрокиВнутр(ВнутреннийИдентификатор);
КонецФункции
//-----------------------------------------------
Функция адЗначениеВСтрокуВнутр(Объект) Экспорт
    Возврат ЗначениеВСтрокуВнутр(Объект);
КонецФункции

(8) СпрИст.ТекущийЭлемент(), это для начала

Ну и вызов соответственно
ВнутреннийИдентификатор = БазаОЛЕ.адЗначениеВСтрокуВнутр(ОбъектОЛЕ)

Обратно
ОбъектОЛЕ = БазаОЛе.адЗначениеИзСтрокиВнутр(ВнутреннийИдентификатор)

СпрИст = ПУБ.CreateObject("Справочник."+Обж.Вид()+"");
    СпрИст.НайтиЭлемент(Обж);

вот это всё выкинуть из функции, это там не нужно, от слова совсем

Совсем для эстетов
ВнутреннийИдентификатор = БазаОЛЕ.ValueToString(ОбъектОЛЕ)
ОбъектОЛЕ = БазаОЛе.ValueFromStringInternal(ВнутреннийИдентификатор)
   так я не пробовал, но должно работать

(9) я не могу менять базу источника, она типовая

(10) делала, пишет неопознанный оператор СпрИст.ТекущийЭлемент() <<?>>

(12) убрала. Оставила так:
Функция ПолучитьID(Обж)
    Возврат _IdToStr(СтрПолучитьСтроку(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(ПУБ.EvalExpr("ЗначениеВстрокуВнутр(Обж.ТекущийЭлемент())"),"{",""),"}",""),Симв(34),""),",",РазделительСтрок),7))+"   ";
КонецФункции

{Обработка.ИмпортДокументов.Форма.Модуль(20)}: 1С:Предприятие: 1    ЗначениеВстрокуВнутр(Обж.ТекущийЭлемент()<<?>>)
Неопознанный оператор

(14) без этих строк, Вам идентификатор не получить.

не хотите портить типовую? сделайте во внешней обработке и запускайте по примеру Как выполнить процедуру внешней обработки через OLE

(16)

ПУБ.ЗначениеВстрокуВнутр(Обж), что возвращает ?
Дальше думай :)

или что мешает выписать все возможные идентификаторы из удаленной и прописать в обработке? если конечно не ваяете универсальную нетленку )

Заработало так
_IdToStr(СтрПолучитьСтроку(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(ПУБ.ЗначениеВстрокуВнутр(Обж.ТекущийЭлемент()),"{",""),"}",""),Симв(34),""),",",РазделительСтрок),7))+"   ";

Спасибо всем за помощь!