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