bFEGetCMP / SEGGetCMP

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:

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