El método "bFEGetCMP" / "SEGGetCMP" del nuevo Web Service WSBFE / WSSEG recupera los datos completos de un comprobante (incluyendo sus items o lineas). Este método requiere 3 argumentos: punto de venta, tipo de comprobante y número de comprobante. Si devuelve verdadero se recuperan todos los datos del comprobante.
Estos datos son accesibles utilizando las mismas propiedades que usa el método "bRegistrar" / "sRegistrar" o "BFEAutorize" / "SEGAuthorize" para cargar los datos, "bFecha_cmpte" / "sFecha_cmpte", "bimp_total" / "sImp_total", etc.
También quedan disponibles las propiedades "bRespuestaCAE" / "sRespuestaCAE" y similares para recuperar los datos fiscales del comprobante.
Además en la propiedad "bitemcantidad" / "sItemCantidad" se lee la cantidad de items del comprobante que pueden ser recuperados usando la propiedad "bIndiceitem" / "sindiceitem" y las propiedades de items "bITEMpro_codigo_ncm" / "sItemPoliza", etc.
Ejemplo (version 94.40 o superior)
Para usar el control ActiveX en Visual Basic 5 o posterior:
Agregar al proyecto una referencia al componente WSAFIPFE.
Insertar el control WSAFIPFE. Cambiar la propiedad "name" a "FE".
En el evento click de un control tipo botón insertar el siguiente código:
Agregar al proyecto una referencia al componente WSAFIPFE.
Insertar el control WSAFIPFE. Cambiar la propiedad "name" a "FE".
En el evento click de un control tipo botón insertar el siguiente código:
Dim lResultado As Boolean
lResultado = Me.fe.iniciar(0, "aqui cuit del certificado", "aui ruta del certificado *.pfx", "")
me.fe.bversion = 1
If lResultado Then
lResultado = Me.fe.bObtenerTicketAcceso()
If lResultado Then
me.fe.bQrArchivo = "d:\bqrconsulta.jpg"
me.fe.bQrFormato = 6
me.fe.bQrResolucion = 4
me.fe.bQrTolerancia = 0
If me.fe.bFEGetCMP(6, 1, 3) Then
MsgBox("CAE: " + me.fe.bRespuestaCAE + Chr(10) + Chr(13) + me.fe.bqrTexto)
Else
MsgBox("ERROR consulta: " + fe.UltimoMensajeError)
End If
Else
MsgBox ("Fallo al obtener ticket acceso: " + Chr(10) + Me.fe.UltimoMensajeError)
End If
Else
MsgBox ("Control no iniciado")
End If