Ejemplo WSFEv1 en Visual Basic para solicitar CAE anticipado

Este ejemplo usa la versión 7.7 (o superior) del instalador.

Es totalmente operativo pero es necesario leer toda la documentación del WSFEv1 para una implementación real.

Dim fe As New WSAFIPFE.Factura

If fe.iniciar(0, "CUIT sin separador", "ruta y nombre del certificado *.pfx", "") Then

If fe.f1ObtenerTicketAcceso() Then

fe.ArchivoXMLRecibido = "c:\recibido.xml"

If fe.F1CAEASolicitar(201011, 1) Then

MsgBox "CAE anticipado " + fe.f1RespuestaCAEA

MsgBox "Vencimiento " + fe.f1RespuestaCAEAFchVigHasta

Else

MsgBox "fallo solicitar " + fe.f1ErrorMsg1

If fe.f1ErrorCode1 = 15008 Then

If fe.F1CAEAConsultar(201011, 1) Then

MsgBox "CAE anticipado ya solicitado " + fe.f1RespuestaCAEA

MsgBox "Vencimiento " + fe.f1RespuestaCAEAFchVigHasta

End If

Else

MsgBox "fallo acceso " + fe.UltimoMensajeError

End If

Else

MsgBox "fallo iniciar " + fe.UltimoMensajeError

End If