Este ejemplo en visual basic 6 utiliza el Instalador 28.40 (o superior) de la interfaz Mis Datos para conectar al servicio de padrón de AFIP y validar los datos de un C.U.I.T. Para ejecutarlo debe registrar una clave de acceso desde la página Mis Datos. También hay ejemplos de otros lenguajes como:
Y aqui en Visual Basic 6.
Agregar al proyecto una referencia al componente WSAFIPFE
En el evento click de un control tipo botón insertar el siguiente código:
Dim md As New WSAFIPFE.misdatos
dim bResultado as boolean
dim cCuit a string
cCuit = "12345678"
If md.iniciar("clave 1", "clave 2") Then
bResultado = md.cuitBuscar(cCuit)
if md.UltimoMensajeError = "" then
If md.cuitMensajeError = "" Then
MsgBox("nombre: " + md.cuitDenominacion + "iva: " + md.cuitIVA + "monotributo: "+ md.cuitMonotributo)
Else
MsgBox("cuit no existe " + md.cuitMensajeError)
End If
Else
MsgBox("fallo conexión " + md.UltimoMensajeError)
End If
Else
MsgBox("fallo iniciar "+ md.UltimoMensajeError)
End If