Padrón AFIP Clarion

Este ejemplo utilizar 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 Clarion.

cCuit = '1234567'

xResultado = ?Ole{'Iniciar(''&CLIP(cClave1)&', '&CLIP(cClave2)&')'}

cResultado = ?Ole{'UltimoMensajeError'}

message(cresultado,'mensaje vacio si no hay errores',icon:hand)

xResultado = ?Ole{'cuitBuscar(''&CLIP(cCuit)&')'}

cResultado = ?Ole{'UltimoMensajeError'}

message(cresultado,'mensaje vacio si no hay errores',icon:hand)

cResultado = ?Ole{'cuitMensajeError'}

message(cresultado,'mensaje vacio si no hay errores',icon:hand)

cResultado = ?Ole{'cuitDenominacion'}

message(cresultado,'denominacion',icon:hand)

cResultado = ?Ole{'cuitIva'}

message(cresultado,'iva',icon:hand)