Padrón AFIP FoxPro

Este ejemplo utiliza el instalador 27 (o superior) de la interfaz Mis Datos para conectar al servicio de padrón de AFIP de www.misdatos.com.ar y validar los datos de un C.U.I.T. desde Visual FoxPro 6 o superior.

En el evento click de un control tipo botón insertar el siguiente código:

local md

local bResultado as Boolean

LOCAL cCuit as string

cCuit = "12345678"

bResultado = .f.

MD = CREATEOBJECT("WSAFIPFE.misdatos")

If md.iniciar("clave 1", "clave 2") Then

bResultado = md.cuitBuscar(cCuit)

if md.UltimoMensajeError = "" then

If md.cuitMensajeError = "" Then

MessageBox("nombre: " + md.cuitDenominacion + "iva: " + md.cuitIVA + "monotributo: "+ md.cuitMonotributo, 0, "Resultado")

Else

MessageBox("cuit no existe " + md.cuitMensajeError, 0, "Error")

EndIf

Else

MessageBox("fallo conexión " + md.UltimoMensajeError, 0, "Error")

EndIf

Else

MessageBox("fallo iniciar "+ thisform.md.UltimoMensajeError, 0, "Error")

EndIf