Padrón AFIP Delphi

Este ejemplo en DELPHI 5 y 7 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.

Para este ejemplo se usa la sentencia CreateOleObject que se encuentra en la unidad ComObj.

Ejecutar los pasos en un nuevo proyecto con un formulario y un objeto tipo "button".

(En "uses" debe estar declarada "comobj")

En el evento "click" del botón insertar el siguiente código:

var md: variant;

var resultado: bool;

var ccuit: widestring;

var cresultado: widestring;

begin

ccuit:='12345678;

md := createoleobject("WSAFIPFE.misdatos");

resultado:= md.iniciar("clave 1", "clave 2");

resultado:= md.cuitBuscar(ccuit);

showMessagePos('error : '+md.UltimoMensajeError,100,100);

showMessagePos('error : '+md.CuitMensajeError,100,100);

showMessagePos('denominacion : '+md.CuitDenominacion,100,100);

showMessagePos('IVA : '+md.CuitIVA, 100,100);

end;