WSLSG ejemplo consulta liquidación

El ejemplo requiere versión 29.80 superior del instalador y realiza una consulta de una liquidación por COE para recuperar todos sus datos tal como fueron autorizados.

Los datos son teóricos. Aun en modo prueba los C.U.I.T. deben ser validos y con un certificado de prueba.

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

Dim fe As New WSAFIPFE.Factura

Dim bResultado As Boolean

Dim ncantidad As Integer =

Dim nindice As Integer = 0

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

fe.ArchivoCertificadoPassword = ""

fe.lpgVersion = 1

If fe.lpgObtenerTicketAcceso() Then

fe.ArchivoXMLEnviado = ""

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

bResultado = fe.lpgliquidacionXCOEConsultar("COE")

If bResultado Then

MsgBox("resultado verdadero ")

Else

MsgBox("resultado falso")

End If

MsgBox("error general" + fe.UltimoMensajeError)

MsgBox("error servidor " + fe.lpgErrorDescripcion1)

ncantidad = fe.lpgLeerRespuestaConsulta("cantidad", 0, 0)

For nindice = 0 To ncantidad - 1

MsgBox("liquidacion estado: " + fe.lpgLeerRespuestaConsulta("liquidacion.estado", nindice, 0))

MsgBox("liquidacion numero: " + fe.lpgLeerRespuestaConsulta("liquidacion.nroorden", nindice, 0))

MsgBox("liquidacion percepcion: " + fe.lpgLeerRespuestaConsulta("liquidacion.totalpercepcion", nindice, 0))

MsgBox("autorizacion subtotal: " + fe.lpgLeerRespuestaConsulta("autorizacion.subtotal", nindice, 0))

MsgBox("autorizacion iva: " + fe.lpgLeerRespuestaConsulta("autorizacion.importeiva", nindice, 0))

MsgBox("ajuste estado: " + fe.lpgLeerRespuestaConsulta("ajuste.estado", nindice, 0))

MsgBox("ajuste estado iva0: " + fe.lpgLeerRespuestaConsulta("ajuste.estado.req.importeajustar0", nindice, 0))

MsgBox("error al leer campos: " + fe.UltimoMensajeError)

Next

Else

MsgBox("fallo acceso " + fe.UltimoMensajeError)

End If

Else

MsgBox("fallo inicio " + fe.UltimoMensajeError)

End If