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