соединение с BW через BEx 7 - BExAnalyzer.xla!sapBEXgetConnection

jacknk88

проблема в том, что при соединении через BEx 7 с BW русские буквы преобразуются в знаки вопроса.
соединение происходит следующим образом

Code:

Set g_BI_connect = Run("BExAnalyzer.xla!sapBEXgetConnection")

вызов ФМ

Code:

Dim funcControl, mFunc, mTable
                    Set funcControl = CreateObject("SAP.Functions")
                    funcControl.Connection = g_BI_connect
                    Set mFunc = funcControl.Add("MY_FM")
                        mFunc.Exports("Param").Value = "Параметр"
If mFunc.Call = False Then
                        msgTrace ("Ошибка чтения")
                        Exit Sub
                    End If
                Set mTable = mFunc.Tables.Item("TAB_COM")

в результате значение параметра содержит вопросики

Code:

mFunc.Exports("Param").Value = "????????"

и соответственно в mTable данных нет

jacknk88

в BEx 3 все нормально

Air_demon

http://www.sapboard.ru/forum/viewtopic.php?p=410737#p410737

jacknk88

Air_demon написал(а):

http://www.sapboard.ru/forum/viewtopic.php?p=410737#p410737

чего-то пишет всегда Object required

должен ли он работать с

Code:

Set g_BI_connect = Run("BExAnalyzer.xla!sapBEXgetConnection")

или параметры надо самому прописывать

вылезает еще и вот такая ошибка Bad variant type на строке funcControl.Connection = g_BI_connect

Code:

Dim funcControl, mFunc, mTable
Set funcControl = CreateObject("SAP.Functions.unicode")
funcControl.Connection = g_BI_connect

jacknk88

funcControl.Connection содержит данные g_BI_connect, но возникает ошибка при вызове функции mFunc

jacknk88

сделал вот так, но функцию не получается вызвать

Code:

                    Set funcControl = CreateObject("SAP.Functions.Unicode")
                    'funcControl.Connection = g_BI_connect
                    funcControl.Connection.ApplicationServer = g_BI_connect.ApplicationServer
                    funcControl.Connection.Password = g_BI_connect.Password
                    funcControl.Connection.client = g_BI_connect.client
                    funcControl.Connection.CodePage = g_BI_connect.CodePage
                    'funcControl.Connection.CodePage = "1504"
                    funcControl.Connection.User = g_BI_connect.User
                    funcControl.Connection.Language = g_BI_connect.Language
                    funcControl.Connection.Language = "RU"
                    funcControl.Connection.hostname = g_BI_connect.hostname
                    funcControl.Connection.SystemNumber = g_BI_connect.SystemNumber
                    funcControl.Connection.System = g_BI_connect.System
                    funcControl.Connection.Destination = g_BI_connect.Destination
                    funcControl.Connection.SapRouter = g_BI_connect.SapRouter
                    funcControl.Connection.SystemID = g_BI_connect.SystemID
                    funcControl.Connection.RfcWithDialog = 2     ' Чтобы SAPGUI не вылезало

Set mFunc = funcControl.Add("ZMY_FM")
                        mFunc.Exports("PARAM").Value = "Пример"

jacknk88

в результате mFunc = Empty
mFunc.Exports("PARAM").Value = Object required

jacknk88

некоторые пишут

Цитата:

c:\Program Files\Common Files\SAP Shared\
wdtlogU.ocx and wdtfuncU.ocx are required.

вот этот wdtlogU.ocx у меня есть, второго нет и больше ни у кого нет

Air_demon

jacknk88 написал(а):

второго нет и больше ни у кого нет

У меня вот тут есть C:\Program Files (x86)\SAP\FrontEnd\SAPgui

jacknk88

да, он там есть...но все равно не работает

jacknk88

может в tools/references надо какие-то библиотеки подключить чтоб в unicode-е заработало?
у меня только первые 6 подключены

Visual Basi for Applications
Microsoft Excel 14/0 Object Library
OLE Automation
Microsoft Office 14/0 Object Library
Microsoft Forms 2.0 Object Library
SAP BEx Analyzer API

jacknk88

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

murmur

1700264 - LogonCtrl:Runtime error 61704 is thrown from Bex Analyzer

Если у вас 7.20, то попробуйте установить SAP GUI for Windows 7.20 Patchlevel 11 Hotfix 1

jacknk88

murmur написал:

1700264 - LogonCtrl:Runtime error 61704 is thrown from Bex Analyzer

Если у вас 7.20, то попробуйте установить SAP GUI for Windows 7.20 Patchlevel 11 Hotfix 1

не помагло

murmur

По идее, правильный вариант должен быть таким (у меня версия 7.20 SP6, поэтому тоже не работает)

Code:

    Dim sapConnection As Object
    Set sapConnection = Run("BEXAnalyzer.XLA!sapBEXgetConnection")

    Dim sapFunctions As Object
    Set sapFunctions = CreateObject("SAP.Functions.Unicode")
    Set sapFunctions.Connection = sapConnection

    Dim sapFunction As Object
    Set sapFunction = sapFunctions.Add("ZMY_FM")
    sapFunction.Exports("PARAM").Value = "Параметр"

а без поддержки русского таким

Code:

    Dim sapConnection As Object
    Set sapConnection = Run("BEXAnalyzer.XLA!sapBEXgetConnection")

    Dim sapFunctions As Object
    Set sapFunctions = CreateObject("SAP.Functions")
    Set sapFunctions.Connection = sapConnection

    Dim sapFunction As Object
    Set sapFunction = sapFunctions.Add("ZMY_FM")
    sapFunction.Exports("PARAM").Value = "Параметр"

но и тот, и другой варианты нерабочие

Вариант, который ранее приведен по ссылке, когда Password от существующего соединения, полученного от BEXAnalyzer.XLA!sapBEXgetConnection явно присваивался объекту соединения SAP.Functions может и работал в какой-то ошибочной версии, но в более свежих (по крайней мере 7.20 SP6) эту дыру уже закрыли, закодировав пароль. Так что, копать надо все-таки в направлении версии SAP GUI с правильным патчем, в котором все ошибки исправлены

соединение с BW через BEx 7 - BExAnalyzer.xla!sapBEXgetConnection

Кто сейчас на конференции