Привет, Всем!
Есть небольшая проблема с получением данных из SAP через BAPI.
Коннект к SAP проходит нормально, при попытке вызвать метод GetDetail Vb выдает "Error 4701. Non-Bapi methods with export parameters not supported". Текст скрипта ниже, в самом SAP когда вызываю этот метод через бапи-проводник никаких проблем исполняется.
Sub conn()
Dim bapi As Object
Dim suser As Object
Dim sprof As Object
Dim sact As Object
Dim sparam As Object
Dim sres As Object
Set bapi = CreateObject("SAP.BAPI.1")
bapi.Connection.user = "avt"
bapi.Connection.Password = "******"
bapi.Connection.System = "02"
bapi.Connection.Client = "500"
bapi.Connection.Language = "RU"
If bapi.Connection.Logon(0, False) Then
Set suser = bapi.GetSAPObject("user", "avt")
'//suser.UserName:='avt';
'//sparam:=BAPI.DimAs(suser,'GetDetail','PARAMETER');
'Set sprof = bapi.DimAs(suser, "getDetail", "profiles")
'Set sact = bapi.DimAs(suser, "GetDetail", "ACTIVITYGROUPS")
'Set sres = bapi.DimAs(suser, "GetDetail", "RETURN")
suser.getdetail return:=sres, PROFILES:=sprof, ACTIVITYGROUPS:=sact
End If
End Sub
|
|