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)