WSLUM ejemplo consultar liquidación
Este ejemplo para el WSLUM de lechería 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 33.40 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 "lumLeerPropiedad" 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.lumObtenerTicketAcceso() Then
fe.ArchivoXMLRecibido = "d:\lumconsulta.xml"
fe.lumPDF = "d:\caelum.pdf"
cnumero = fe.lumconsultarUltimoNro(1, 27)
If fe.UltimoMensajeError = "" And fe.lumErrorDescripcion1 = "" Then
bresultado = fe.lumconsultarLiquidacionPorNroComprobante("cuit", 1, 27, cnumero)
If fe.UltimoMensajeError = "" And fe.lumErrorDescripcion1 = "" Then
MsgBox "CAE " + fe.lumLeerPropiedad("lumconsultarLiquidacionPorNroComprobante", "liquidacion.encabezado.cae", "", 0, 0)
MsgBox "IVA " + fe.lumLeerPropiedad("lumconsultarLiquidacionPorNroComprobante", "liquidacion.resumenTotales.importeIVA", "", 0, 0)
Else
MsgBox "error al recuperar comprobante " + fe.UltimoMensajeError + fe.lumErrorDescripcion1
End If
Else
MsgBox "fallo numero comprobante " + fe.UltimoMensajeError + fe.lumErrorDescripcion1
End If
Else
MsgBox ("fallo acceso " + fe.UltimoMensajeError)
End If
Else
MsgBox ("fallo iniciar " + fe.UltimoMensajeError)
End If