Consultar una Funcion con RFC

[crisangel_87]

amigos,

tengo que invocar a una función que esta en SAP mediante un RFC la cual me devuelve un valor que correspondería al número de guía de despacho a utilizar.

tengo hecho ya una conexión con sap que interactua bien con una función, a la cual le envío parametros y esta me reponde bien.

el problema que esta nueva función la cual debo utilizar no recibe parametros, segun la documentación que me entregaron, solo debo llamarla y esta esta me devuelve el número de guía de despacho.

la estructura es distinta si la funcion no es conparametros?.

este es el codigo que estoy utilizando: la cual me devuelve el siguente valor:

RESULTADO = 0000000000 alguna idea en lo que estoy fallando?


Private Function ObtieneFolio(num_folio As String)

Dim SapFuncionFolio As Object
Dim RFC As Object
Dim ObjConFolio As Object
Dim RESULTADO As Object


If Trim(SapInternet) = "0" Then
LogonSapInternet2 ObjConFolio
Else
LogonSap ObjConFolio
End If


Set SapFuncionFolio = CreateObject("SAP.Functions")
Set SapFuncionFolio.Connection = ObjConFolio

If SapFuncionFolio.Connection.Logon(0, True) Then
Set RFC = SapFuncionFolio.Add("ZRFC_PROXIMO_FOLIO")

If RFC Is Nothing Then
Error = "Error, No se encuentra Funcion"
Else
Set RESULTADO = RFC.IMPORTS("E_NEXT_NUM")
MsgBox "El resultado devuelto es: " & RESULTADO.Value
num_folio = RESULTADO.Value

End If

Else

Error = "Ejecucion Fallida A SAP"
ConectadoSAP = False
SapFuncionFolio.Connection.Logoff
Exit Function

End If

ConectadoSAP = False
SapFuncionFolio.Connection.Logoff

End Function