topic Re: Call RFC that return structure using VB 6 in Application Development and Automation Discussions

Call RFC that return structure using VB 6

Former Member — Tue, 15 May 2012 19:33:08 GMT

Hi, anyone has a sample code to call a custom RFC that returns table structure?

The RFC expect parameters to pinpoint the record and return it in a structure.

*----

*Local Interface:

'FUNCTION zfori_web_pgto_parceiros.

'*"----------------------------------------------------------------------

'*"*"Interface local:

'*" IMPORTING

'*" VALUE(I_LIFNR) TYPE LIFNR

'*" VALUE(I_DATAINICIO) TYPE DATE OPTIONAL

'*" VALUE(I_DATAFIM) TYPE DATE OPTIONAL

'*" TABLES

'*" T_PAGTO_PARCEIRO STRUCTURE ZSTORI_PAGTO_PARCEIRO_WEB

...

etc

-- final function

t_pagto_parceiro[] = t_saida[].

ENDFUNCTION.

in se37 run work fine

Here's my vb code, but it return zero entries (I'm sure it should return records).

***Login Process Here***

Set objFunc = objSAPLogon.Add("zfori_web_pgto_parceiros")

Set objtblparceiro = objFunc.Tables("T_PAGTO_PARCEIRO")

With objFunc

.Exports("I_LIFNR") = "1064425"

End With

If Not objFunc.Call Then

Debug.Print objFunc.Exception

Exit Sub

End If

Debug.Print objtblparceiro.RowCount ==> 0

Re: Call RFC that return structure using VB 6

Former Member — Tue, 15 May 2012 21:49:14 GMT

I'm not going to ask why you're using VB6 instead of VB.NET, since I'm sure you have your reasons. I see two possibilities. Capitalize the function module (just in case), and set the objtblparceiro AFTER the function is called, not before. Let me know if that works.

Re: Call RFC that return structure using VB 6

Former Member — Tue, 15 May 2012 23:17:17 GMT

Marcelo,

I tried my application using lower case for the Function Module name and it is working OK.

Did you remember to set your Function Module to be Remote Enabled?

Maybe the FM is not being called because of authority restrictions. Are you sure you have proper authority to call remote functions? We just recently starting using vb to get remote functions and we needed to update the authority roles. You will need object S_RFC with: Activity = 16, Name of RFC = Function Group (from your Function Module), Type of RFC = FUGR

Hope this helps.

Re: Call RFC that return structure using VB 6

Former Member — Wed, 16 May 2012 02:53:00 GMT

Hope this helps.

‘ Log into SAP
If sapConnection.logon(0, False) <> True Then
MsgBox “No connection to R/3!”
Exit Sub ‘End program
End If

‘ Call the Read RFC
Set theFunc = functionCtrl.Add(”YMAINT_TABLE”)

‘ Exporting table name
theFunc.exports(”TABLENAME”) = table_name

‘ Prepare Data sheet for data load
returnFunc = theFunc.Call
exception = theFunc.exception

‘ Map the data to cells
If returnFunc = True Then
Dim objtable As Object
Set objtable = theFunc.tables.Item(”DATA”)
End If

http://wiki.sdn.sap.com/wiki/display/ABAP/Table+Maintenance+Using+Excel+Visual+Basic+for+Applications

Re: Call RFC that return structure using VB 6

madhu_vadlamani — Wed, 16 May 2012 04:09:17 GMT

Hi,

Check if there is any leading zeros.I faced the same problem a long back.

Regards,

Madhu.

Re: Call RFC that return structure using VB 6

naresh_bammidi — Wed, 16 May 2012 05:00:05 GMT

HI,

Pass LIFNR with leading zeros.That is the reason for empty records.

Thanks

Naresh

Re: Call RFC that return structure using VB 6

naresh_bammidi — Wed, 16 May 2012 05:13:32 GMT

please look into the thread..http://scn.sap.com/thread/50275

Re: Call RFC that return structure using VB 6

Former Member — Wed, 16 May 2012 13:48:40 GMT

Thank you all

But the tip of Naresh work fine ,