how to translate a VB code into VFP Visual FoxPro code objets

*-- objconnection must contain valid connection object already (it maight be created following way)
oSAPLogon = CREATEOBJECT('SAP.LogonControl.1')
oSAPLogon.ApplicationServer = "YourSAPserver"
objconnection = oSAPLogon.NewConnection()
*-- And here you have to complete all necessary connection properties and call 
*-- objconnection.Logon(0,.T.)
 
 
*-- Here follows your corrected code
objBapiControl = CREATEOBJECT("SAP.Functions")
objBapiControl.connection = objconnection
oFunc=objBapiControl.add("Z_EXEC_INTERFACES")
oFunc.Exports("I_PROGRAMA") = 'imp_programa'
oFunc.Exports("I_ORIGEM") = 'imp_origem'
 
*-- And now you can call RFC
llSuccess = oFunc.Call()
 
*-- And process oFunc.Imports (which is problematic for many RFCs sometimes)
*-- Of course, you have to test return values for success and check error states.
*-- The best way you can start is VFP Command window
 
*-- And please remember, SAP consultancy is a little bit expensive :-(
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

* DEFINIE VALOR PARA AS PROPRIEDADES DE LOGON NO SAP
xsystem='00'         &&System ID 
xuser='kffk227'     &&SAP User name 
xclient='303'         &&SAP Client
xpassword='eccastra1' &&Password 
 
**All the ablove values may be left blank
 
* DEFINE E CHAMA O OBJETO DA CLASSE SAP FUNCTIONS
objBapiControl =CREATEOBJECT("SAP.Functions")
objconnection=objBapiControl.connection
 
objconnection.ApplicationServer = '156.70.93.131'  &&SAP System IP address
objconnection.System=xsystem
objconnection.Client=xclient
objconnection.User=xuser
objconnection.Password=xpassword
objconnection.Language='PT'
objconnection.tracelevel=6
 
retcd=objconnection.Logon(0,.T.)  && .F. COM LOGON ABRINDO NA TELA
 
IF retcd = .f.
   return
ENDIF
 
* ATIVA O METODO QUE TRÁS A TABELA DO SAP DA RFC Z_RFC_LIC_PRODUTO"
objcompanycodes=objBapiControl.add("Z_RFC_LIC_PRODUTO")
objcompanycodes.call
 
objtable=objcompanycodes.tables("T_PRODUTO")  && T_CONVERSAO  && T_HIERARQUIA  && BU/BF
 
 
* CRIA-SE UMA CURSOR\TABELA TEMPORÁRIA PARA RECEBER OS DADOS DA TABLE DO SAP (BLOCO FOR - NEXT)
create table ('c:\temp\solution\T_PRODUTO') ;   &&Change as required
     (ID_PRODUTO C(18), ID_BU C(2), ID_BF C(2), ID_AREA C(2), ID_FAMILIA C(3), TDESCRICAO C(40))
     
* LE-SE TODAS AS LINHAS DA TABLE INSERINDO OS REGISTROS NO CURSOR\TABELA TEMPORARIA 
FOR i = 1 TO objtable.rowcount
   APPEND BLANK
   replace ID_PRODUTO WITH objtable.cell(i,1)
   replace  ID_BU  WITH objtable.cell(i,2)
   replace ID_BF WITH objtable.cell(i,3)
   replace ID_AREA WITH objtable.cell(i,4)
   replace ID_FAMILIA  WITH objtable.cell(i,5)
   replace TDESCRICAO WITH objtable.cell(i,6)
endfor
 
objconnection.logoff
 
BROWSE

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51: