#1
|
|||
|
|||
Consultar una Funcion con RFC
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 |
Herramientas | Buscar en Tema |
Desplegado | |
|
|