Перенос справочников по оле! Обработка значений неопределенного типа #145477

Как узнать тип полученного значения? Ф-я ТипЗначенияСтр возвращает "Ole" Внешняя V7.ТипЗначенияСтр не работает т.е. такой функции объекта V7 не существует как прочитать тип значения по оле?

Как узнать тип полученного значения? Ф-я ТипЗначенияСтр возвращает "Ole" Внешняя V7.ТипЗначенияСтр не работает т.е. такой функции объекта V7 не существует как прочитать тип значения по оле?

message(V7.EvalExpr(valuetypestr(MyValue))) что возвращает

не работает

а что пишет?

Надо туда отправить переменную а в ОЛЕ такой переменной нет Если отправить полученное значение то получаем "ОЛЕ : переменная не найдена"

переменная неопределена

1С:Предприятие: 1    ValueTypeStr(OLE<<?>>) Переменная не определена (OLE)

{F:USERSПРОГРАММИСТЫОБЩАЯКЛИЕНТЫМЕТПРОМ103.ERT}: 1С:Предприятие: 1    ValueTypeStr(OLE<<?>>) Переменная не определена (OLE)

а ты создал объект ОЛЕ?

тест

чудище.. куда дел скунка..

ну а как же??? базу переносим

правильно тебе говорит... епоросете... создай в голобальнике переменную типа mainMyValue ее позиционируй... и пробивай за тип

в бани он... париться

ещё варианты есть???

А не подскажите как в эту переменную запихнуть наше значение только не говорите что ещё оле создавать туда

Или так же EvalExpr("пер="+пер) Сканает???

Не не то Batch...("пер="+пер)

а потом так глядишь message(V7.EvalExpr(valuetypestr(глУсловие2)))

чё то я не понял надо тип узнать reference то бишь

тогда вам в баню...

пошляк? :) хам?

и то и другое вместе взятое... балин ну все разжевал... нет... не вкуривает...

что такое глУсловие2

Вас зовут Лева Баранов?

а я вот честно говоря мало что понимаю вот так на форуме.. мне видеть у себя на компе проблему надо.. что он там делает? поэтому стараюсь не давать советов..

Сам ты Баранов, а я Оксана ну если не понятно, пиши по русски, как для чайников.

пардон мадам..

ну раз так OLEServer.глУсловие2 = OLEServer.createobject("Строка,Дата,Число,Неоределённый");

....

"Неоределённый" -копировала?

Не не поняли если бы я знала что он справочник проблем бы не было

29. через метаданные не пробовала?

хамите... не буду вам помагать... а еще пожалуюс модераторам, что бы они вас забанили

ext.Metadata.Reference(refname).Attribute(n).Type="Неопределённый" ext.Metadata.Reference(refname).Attribute(n).Kind=""

что это было?

break

отдыхает

Оксана а вы откуда?

без комментариев, у него человек помощи попросил, а он издевается

Оксана, а вы разве не знали, что он такой. У него помощи безполезно просить. Хотите я вам помогу?

скунк не может издеваться.. он в бане.. весь код приводи.. фотку выкладывай.. скажи скунку что-нибудь приятное.. скунк до понедельника, пошел я бухать..

пернатый?

Что дальше не знаю?????

аха удачи... только я еще в бане буду... аж до 27 отправили...

Function GRC(Val extref,Val extmref,Val mref) Procedure SetRP(Val extmref,Val extref,Val mref,ref,Val nof,Val intownref,Val refname,k)    extrefpar=extref.Parent;    If ext.EmptyValue(extrefpar)=0 Then        If nof=1 Then sref.UseOwner(intownref); EndIf;                If ext.EmptyValue(extrefpar.Parent)=1 Then Return EndIf;                If sref.FindByCode(GRC(extrefpar.Parent,extmref,mref))=1 Then        If DelAll=1 Then            If ownmref.Selected=1 Then                    If extpr="СубСчет10" Then pr="Субсчет"                    ElsIf extpr="Цена" Then pr="Стоимость"                    If extpr="ПорядокХраненияОтпускнойЦены" Then pr=""                    ElsIf extpr="ПлановаяСебестоимость" Then pr=""                    ElsIf extpr="Себестоимость" Then pr="Стоимость"                    ElsIf extpr="СтранаПроисхожд" Then pr="СтранаПроисхождения"                    If extpr="ДатаВводаВЭксплуатацию" Then pr=""                    ElsIf extpr="ФактическийОбъемПродукцииРаботЗаМесяц" Then pr=""                    ElsIf extpr="ДокументПередачаВПроизводство" Then pr=""                    If extpr="ВалютаДоговора" Then pr="Валюта"                        If extattrper=1 Then                            If sobj.Selected=1 Then                                If intattrper=1 Then                            If EmptyValue(senumval)=0 Then                                If intattrper=1 Then        If k/100-Int(k/100)=0 Then Try CommitTransaction; BeginTransaction; Except EndTry; EndIf ~nextref:

Оксана скажи откуда ты?

Да. Оксана пошутила.

я оттуда откуда ты и предполагаешь ну вы же просили код, вот читайте, может все таки чем поможете

где не получается? не читать же его целиком... а вообще goto улыбнули...

If (vts="Число") or (vts="Строка") or (vts="Дата") Then сюда непопадём т.к. vts="OLE"

там, где проверяешь тип значения через EvalExpr делай, причем вычисляй в OLE-объекте, а не в текущей базе, т.к. в текущей оно всегда "OLE" будет

extkind=extattr.Kind Нет у простых типов можно для справочников счетов и т.д.

не пойму, тебе трудно чтоли? сделай и скажи че вышло

+56 неривычно в аанглийской нотации код выглядит, трудно разбираю :(

Не получится не могу как передать extattr? Message(ext.EvalExpr("ValueTypeStr("+extattr+")")); {F:USERSПРОГРАММИСТЫОБЩАЯКЛИЕНТЫМЕТПРОМ103.ERT}: 1С:Предприятие: 1    ValueTypeStr(OLE<<?>>) Переменная не определена (OLE)

не то, щас поэкспериментирую, напишу

Ну люди добрые где вы ????

балин... точно Баранова в глобальном модуле находишь любую переменую ... описанную на экспорт Перем глУсловие1  Экспорт; далее

если глобальной переменной нет... то придеться создать

да, тебе все верно пишут: 1. В базе-источнике создаешь глобальную переменную 2. Во второй базе условие присваиваешь этой переменной и вычисляешь выражение, т.к. через OLE ты агркгатный объект обратно не передашь

уговорили, чичас буду пробовать только вот не надо про баранову

превый раз вижу чайника с английским синтаксисом

Кро ты из Тольятти?

ну это не показатель... хотя интересно Кро, за то что помогли, сделай одолжение, убери goto и забудь про существование этого оператора

Из Екатеринбурга

нет просто код да боли знаком... у меня пол конфигурации в таком стиле... я тогда на 1С начинал только писать... стиля не было... какой район?

хочешь сказать, что это твоя конфа?! интересно...

нет не моя... откуда ей взяться в Свердловске... но палить как похоже

по стилю... код не смотрел... толком

да и за goto убил бы...

солидарен :) не выношу этого... наверное нервы слабые стали :)))

а так в принципе можно даже похвалить... не каждый возметься универсалку для справочников делать...

да, эт точно, если оно конечно надо... да тогда через метаданные делать нужно, как в "универсале" - была такая обработка по проклубе или еще где, не помню.

+76 а еще очень нехорошо отношусь к оле, когда оно не свосем к месту: тормозит эска с ней, имхо юзать файловый обмен тоже совсем не плохо

нет все правильно она делает... в этом плане... а все эти обработки как раз на этом неопределеном значении атрибута и затыкались... ни одной 100% не видал...

а ОЛЯ... это вопрос религии... если все делать правильно... то намного круче чем через файло... файло удобно для трансфера... а если базы локально... то тут ОЛЯ рулит

точно, вопрос религиозный :) только что на "универсал" еще раз глянул, там проблему решили несколько по-другому: в базе-источнике грузится ert, а база-приемник инициализируется по OLE, интересно, что тип значения ("неопределенный") они определили, так что одна такая обработка все же есть :)

не знаю не видал... а вот копировать лучше наоборот... тянуть информацию по ОЛИ оттуда...

я так же думаю, а вот как сделали могу привести фрагмент (надеюсь авторы не обидятся): Здесь: врРекв - имя текущего реквизита "того" справочника прТип - искомый тип значения, о чем мы так долго говорили с Кро Остальные переменные думаю понятны.

нет Кро хотела другое ... есть справочник "МойСправочник" ... у него есть реквизит "МойРеквизит" ... его тип не определен... при внесении этому реквизиту могут быть присвоен любой тип... "документ" ... "справочник" ... "строка" ... и т.д. и т.п.  .... вот какой тип значения у этого "МойРеквизит" ей и надо определить... причем у конкретного элемента справочника... метадата здесь не взлетит

Чет не пойму, где проблема то ? При импорте в 8.0 из 7.7 работает такой код : где Соединение - ОЛЕ соединение Объект - ОЛЕ объект к переносу --- Пилять, ну и код, смесь английского с нижегородским. Ну не знаешь языка, так какого из себя строить. И для кого ?!

прежде чем пятки выворачивать... сперва за пробуй...

Это кусок из работающей обработки

я фих знает за 8 ... но в 77 ты получишь лыжи...

упс... я неправ, действительно не о том написал действительно работает, спасибо за интересную мысль, но как увидеть тип объекта, т.е. определить справочник это или документ возможно, но остальное - это нужно dd или dds ковырять или я неправ?

ЗначениеВСтроку

если базы разные?

Вообще для скорости я пользую ЗначениеВСтрокуВнутр, поскольку через него можно получить сразу тип, вид, и ид объекта. А для того, чтобы получить идешники метаданных совершенно не обязательно парсить файлы и использовать внешние компоненты. Достаточно той же самой ЗначениеВстрокуВнутр

В смысле ?!

что-то я не догнал. сформулирую по-другому: в базе-источнике есть спр. "фирмы", номер таблицы например 127 в базе-приемнике такого справочника нет, есть другой (например "ЮрЛица", неважно) и номер таблицы 355, как я смогу использую ЗначениеИзСтрокиВнутр расшифровать то, что пришло из базы-источника, если у меня такого объекта в базе-приемнике отродясь не было?

;)))

я че, глупость сморозил?

пока я мыслил как сказать... ты уже написал...

а... так вот я ж задаюсь вопросом, вероятно тогда парсить словарь данных - тогда метод годится как универсальный, а так... хорошо только для однохренственных баз

не знаю не заворачивался... а куда пропала аффтор...