[kido]

Hi all!

As my subject says...we are developing a system in VB that is capable of calling function in SAP through RFC. I'm kinda new with VB.

For those who already tried this, just would like to ask what are the requirements for VB to be able to do RFC Calling. Do we need things such as SDK , OCx, DLL, etc...

If yes! May i ask what are these files.


Thanks!

Kido

[mas_detokyo]

Hi,

Basically, you need to install saplogon with RFCSDK.
(which includes librfc32.dll and other requried .ocx modules.)

Then, can write a code like below which does login to SAP.

Dim sapConn as object 'Declare variant
Set sapConn = CreateObject("SAP.Functions") 'Create ActiveX object
 
sapConn.Connection.user = "USER"
sapConn.Connection.password = "PASSWORD"
sapConn.Connection.client = "001"
sapConn.Connection.ApplicationServer = "127.0.0.1"
sapConn.Connection.Language = "EN"
 
If sapConn.Connection.Logon(0, True) <> True Then 'Try Logon
msgbox "Logged on to SAP"
end if 

After logging on to SAP, you can call function module in SAP.

R,
mas

[mas_detokyo]

Code should be corrected as below.

If sapConn.Connection.Logon(0, True) <> True Then 'Try Logon
msgbox "CANNOT Log on to SAP"
end if 

mas

[Pindento]

There are several reasons that a logon would be unsuccessful - do you guys know if there is a way to get return messages from the Connection attempt to determine if the failed logon was due to:

Client unavailable
user or password not in client
user locked
etc.

Thanks,
Pindento

[mas_detokyo]

That's good advice but I don't know if someone has any issues logging on to SAP.
mas

[Pindento]

When this line of code is executed:
sapConn.Connection.Logon(0, True) <> True

The SAP logon prompt is displayed:
I want to be able to have the code behave differently if:
1) The user hits "Cancel"
2) The system and/or client is not available
3) The user entered an incorrect password
etc.

I'm not going to be able to do that unless I'm able to capture a message, error, something being returned from the failed Connection - does anyone know a property of Connection or Logon that will provide this info.

Thank you,
Pindento

[mas_detokyo]

How about this? You may execute this method just after the SAP connection failure.

Code:

sapConn.Connection.SystemMessages

This calls up error message.
But I don't understand the case - "user hit 'cancel'". Are you going to have your own SAP logon dialog or use standard logon provided by SAP RFC SDK?
If it is latter, I believe server information etc.. will not be given in case the cancel button hit, so you can handle it separately.

Cheers,
mas

[komila.it]

I have successfully login in SAP but while calling RFC function it gives me error " unable to call RFC function"
I have written below code :

Set theFunc = sapObj.Add("ZPOMDRREP")
 
theFunc.Exports("MATNR") = "2000034862"
theFunc.Exports("WERKS") = "5005"
returnFunc = theFunc.Call
die_exception = theFunc.exception
 
If returnFunc = True Then
MsgBox "SAP Data found."
Else
MsgBox "SAP Data NOT found."
End If 

pl help me i m after this from a month....
I have registered all ocx file like wdtfuncs, wdobapi etc.. but all in vain.

Thanks in advance
Komila Kalia

[kumar.ashok05]

Originally Posted by komila.it

I have successfully login in SAP but while calling RFC function it gives me error " unable to call RFC function"
I have written below code :

Set theFunc = sapObj.Add("ZPOMDRREP")
 
theFunc.Exports("MATNR") = "2000034862"
theFunc.Exports("WERKS") = "5005"
returnFunc = theFunc.Call
die_exception = theFunc.exception
 
If returnFunc = True Then
MsgBox "SAP Data found."
Else
MsgBox "SAP Data NOT found."
End If 

pl help me i m after this from a month....
I have registered all ocx file like wdtfuncs, wdobapi etc.. but all in vain.

Thanks in advance
Komila Kalia

At first check it that you are login on sap or not
if u do not longin sap the write a code for login from sap

With SAP_Logon
.Client = Client_Name
.Language = EN
.User = User_Name
.Password = User_password
.ApplicationServer =Application_Sever_IP
.SystemNumber = system_number
.TraceLevel = 0
End With
 
With SAP_Functions
.Connection = SAP_Logon.NewConnection
.Connection.Logon 0, True
End With
 
after that export data in SAP RFC Table
 
 
Dim SAP_FunctionBatch As Object
 
Dim SAP_BatchNo As Object, SAP_TblBatchDetail As Object
 
 
Set SAP_FunctionBatch = SAP_Functions.Add("RFC_Name")
 
'Now SAP_FunctionBatch points to SAP Function Module RFC_Name
 
Set SAP_BatchNo = SAP_FunctionBatch.Exports("Export_Parameter_Field") ' Name of Export parameter field 
Set SAP_TblBatchDetail = SAP_FunctionBatch.Tables("ITAB") ' Give table name
 
 
SAP_FunctionBatch.Call 

[ohda19]

Please help!
I have added in my references the librfc32.dll. Then i declared a variable with Object datatype but when i used that variable why i do not have a .connection property. What am i going to add to have a .connection property. pls help. Thanks!