Tweet
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
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
Comentario