WSCDC ejemplo

Este ejemplo en visual basic 6 (puede ser implementado en cualquier lenguaje que acepte interfaz COM o controles OCX) usa la interfaz (versión 20.20 o superior) para conectar al WSCDC y validar un comprobante.

Dim fe As New WSAFIPFE.Factura

Dim bResultado As Boolean

If fe.iniciar(0, "CUIT", "certificado fiscal del CUIT", "archivo licencia.lic") Then

If fe.ccObtenerTicketAcceso() Then

fe.ccFecha = "20131127"

fe.ccModo = "CAE"

fe.ccPtoVta = 1

fe.ccNro = 256

fe.ccTipo = 6

fe.cccodAutorizacion = "12345678901234"

fe.cccuitEmisor = "20123456780"

fe.ccdocTipoReceptor = 80

fe.ccdocNroReceptor = "20123456781"

fe.ccImpTotal = 100.34

fe.ccOpcionalItemCantidad = 0

fe.ArchivoXMLEnviado = "c:\enviado.xml"

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

bResultado = fe.ccComprobanteConstatar()

MsgBox ("error local: " + fe.UltimoMensajeError)

MsgBox ("resultado AFIP: " + fe.ccRespuestaResultado)

MsgBox ("error AFIP: " + fe.ccErrorMsg1)

MsgBox ("observaciones AFIP: " + fe.ccRespuestaObservacionMsg1)

Else

MsgBox ("fallo acceso " + fe.UltimoMensajeError)

End If

Else

MsgBox ("fallo iniciar " + fe.UltimoMensajeError)

End If