Announcement:
wanna exchange links? contact me at sapchatroom@gmail.com.
Posted by
Admin at
Reply from sapwes on Aug 17 at 11:41 AM Mauro: Are you sure? recommend again executing the function module in SAP in SE37 (not SM37, sorry for the typo) with the same inputs. What is the result? Alternately you could use RFC_READ_TABLE. Functional and security checks aside, all this function module does is query table SKB1 for the supplied company code and GL Acct. Wes
| | | ---------------Original Message--------------- From: Mauro Re Garbagnati Sent: Thursday, August 16, 2012 6:29 AM Subject: SAP RFC Call Returns Error in Return Parameter from Vb Before the RFC Call Hi everybody. I'm trying to call a SAP BAPI using RFC from vb but I'm having some problem to get the result of the call. The BAPI "BAPI_GL_ACC_EXISTENCECHECK" (from General Ledger Account module) has two parameters, COMPANYCODE and GLACCT, and a RETURN parameter. I wrote the attached piece of code to make the call and I had no problem to establish the SAP Connection (I use the SAP Logon Control OLE/COM object to do the job). I then instantiate the input Parameters COMPANYCODE and GLACCT and again no problem. However, when I try to instantiate the RETURN parameter (the result), I get an 'Error 0' in it. The strange thing is that when I make the call it gives no error because the RFC call returns true and no exception. However, looking through the objReturn object/parameter, it has a value "Error 0" in it. I was expecting a complex structure like the BAPIRETURN object in SAP or something similar if the account doesn't exist. BTW, Final Notes: the user that makes the call has SAP_ALL / SAP_NEW authorization 'BAPI RFC Call Set objRfcFunc = sapConn.Add("BAPI_GL_ACC_EXISTENCECHECK" ) objRfcFunc.exports("COMPANYCODE") = "C100" objRfcFunc.exports("GLACCT") = "0000000001" Dim objReturn As Object Set objReturn = objRfcFunc.imports("RETURN") Rem *** BAPI CALL *** If objRfcFunc.Call = False Then ErrorMsg = objRfcFunc.Exception 'Message collection MsgBox ErrorMsg, 16, "Error" sapConn.Connection.logoff Exit Sub End If Thanks in advance for your precious answers or suggestions ... | | Reply to this email to post your response. __.____._ | _.____.__ |