Ejemplo consultar liquidación

Este ejemplo para el WSLP de liquidación pecuaria muestra como recuperar el numero de comprobante de la última liquidación autorizado y luego como recuperar los datos completos de este comprobante. Debe usarse el instalador 41.00 o superior.

En el proyecto en visual basic, agregar una referencia al objeto WSAFIPFE y ejecutar el código desde un botón.

En este ejemplo se hace uso del método "lspLeerPropiedad" para simplificar la lectura de datos y evitar la saturación de propiedades

Dim fe As New WSAFIPFE.Factura

Dim bresultado As Boolean

Dim cnumero As String

Dim nnumero As Integer

If fe.iniciar(0, "cuit", "pfx para ese CUIT", "") Then

fe.ArchivoCertificadoPassword = ""

If fe.lspObtenerTicketAcceso() Then

fe.ArchivoXMLRecibido = "d:\lspconsulta.xml"

fe.lpgPDF = "d:\archivo.pdf"

cnumero = fe.lspconsultarUltimoNro(1, 185)

If fe.UltimoMensajeError = "" And fe.lspErrorDescripcion1 = "" Then

bresultado = fe.lspconsultarLiquidacionPorNroComprobante(1, 185, cnumero)

If fe.UltimoMensajeError = "" And fe.lspErrorDescripcion1 = "" Then

MsgBox "CAE " + fe.lspLeerPropiedad("lspconsultarLiquidacionPorNroComprobante", "cabecera.cae", "", 0, 0)

MsgBox "IVA " + fe.lspLeerPropiedad("lspconsultarLiquidacionPorNroComprobante", "resumenTotales.importeIVASobreGastos", "", 0, 0)

Else

MsgBox "error al recuperar comprobante " + fe.UltimoMensajeError + fe.lspErrorDescripcion1

End If

Else

MsgBox "fallo numero comprobante " + fe.UltimoMensajeError + fe.lspErrorDescripcion1

End If

Else

MsgBox ("fallo acceso " + fe.UltimoMensajeError)

End If

Else

MsgBox ("fallo iniciar " + fe.UltimoMensajeError)

End If