Announcement:
wanna exchange links? contact me at sapchatroom@gmail.com.
Posted by
Admin at
Reply from mrg1968 on Aug 18 at 2:17 PM Here I am again to stress you everywhere!
I just checked out - for fun and for profit - another BAPI of the same General Ledger module, and I get it working:
Set objRfcFunc = sapConn.Add("BAPI_GL_ACC_GETLIST") objRfcFunc.Exports("COMPANYCODE") = "C100" Rem *** BAPI Call *** If objRfcFunc.Call = False Then ErrorMsg = objRfcFunc.Exception 'Message collection MsgBox ErrorMsg, 16, "Error" sapConn.Connection.Logoff Exit Sub End If Dim objReturn As Object Set objReturn = objRfcFunc.Imports("RETURN") Dim objDetail As Variant Set objDetail = objRfcFunc.Tables("ACCOUNT_LIST")
the object ACCOUNT_LIST is correctly populated with all the General Ledger Accounts of the Company 'C100'.
Again, the strange thing is that the objReturn Object gets the 'Error 0' output.
It seems that everytime I check a BAPIRETURN object from SAP I can't access it.
Could it be a bug on SAP server side giving responses to RFC?
Bah!
;-) Mauro
| | | ---------------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. __.____._ | In the Spotlight Become a blogger at Toolbox.com and share your expertise with the community. Start today.   _.____.__ |
