Remote Function Call (Llamada a función remota)

En este ejemplo se muestra el código necesario. Anterior mente es necesario realizar un Logon(objeto oConnection) en la máquina SAP en cuestión( también por código de Visual Basic ). Se crea el objeto SAP.Functions y se invoca a la función Z_1S_I_READ_MAINT_NOTIFICATION( no es una función estandar).

Se le pasa el parametro de import de la función que aquí es EXPORTS(paradoja).

La función devuelve una tabla que es leida y cargada en un recordset de Microsoft Access.

Set orfcs = CreateObject("SAP.Functions")
Set orfcs.Connection = oConnection
Set mirfc = orfcs.Add("Z_1S_I_READ_MAINT_NOTIFICATION")
mirfc.EXPORTS("PI_CENTROJRR") = "9999"

mirfc.call
Set ocliente = mirfc.tables("TI_EQUZ")
For Each ocliente In ocliente.Rows
If ocliente("RBNR") <> "" Then
If ocliente("HEQUI") = "" Then

mirs1.AddNew

mirs1!EQUNR = ocliente("EQUNR")
mirs1!RBNR = ocliente("RBNR")
mirs1!ILOAN = ocliente("ILOAN")

mirs1.Update

End If

End If

Next

mirs1.Close