Ejemplo CLARION
Este ejemplo usa el identificador "1" como 3°er argumento del método registrar. Debe usar un identificador único y diferente para obtener CAE diferentes en cada ejecución. Después de probar el ejemplo lea toda la documentación referente a "identificador" y "reproceso" para una explicación detallada sobre la función de este argumento.
Agradecemos especialmente a Ricardo Pardo (rpardo@net-sistemas.com.ar) por el aporte.
cCuit = 'aqui cuit del emisor sin separador'
nModo = 0
cResultado = ''
tipocomprobante = 1
puntoventa = 1
cLicencia = 'prueba.lic'
cCertificado = 'ruta y nombre del certificado tipo *.pfx'
xResultado = ?Ole{'Iniciar('&nModo&', '&CLIP(cCuit)&','&CLIP(cCertificado)&','&CLIP(cLicencia)&')'}
cResultado = ?Ole{'UltimoMensajeError'}
message(cresultado,'mensaje vacio si no hay errores',icon:hand)
xResultado = ?Ole{'ObtenerTicketAcceso()'}
cResultado = ?Ole{'UltimoMensajeError'}
message(cresultado,'mensaje vacio si no hay errores',icon:hand)
?Ole{'FECabeceraCantReg'} = 1
?Ole{'FECabeceraPresta_serv'} = 1
?Ole{'indice'} = 0
?Ole{'FEDetalleFecha_vence_pago'} = '20090101'
?Ole{'FEDetalleFecha_serv_desde'} = '20090101'
?Ole{'FEDetalleFecha_serv_hasta'} = '20090101'
?Ole{'FEDetalleImp_neto'} = 100
?Ole{'FEDetalleImp_total'} = 121
?Ole{'FEDetalleFecha_cbte'} = '20090101'
?Ole{'FEDetalleNro_doc'} = 'aqui cuit del cliente'
?Ole{'FEDetalleTipo_doc'} = 80
cIdentificador = '1'
xResultado = ?Ole{'Registrar('&PuntoVenta&','&TipoComprobante&','&CLIP(cIdentificador)&')'}
cResultado = ?Ole{'UltimoMensajeError'}
message(cresultado,'mensaje vacio si no hay errores',icon:hand)
?Ole{'indice'} = 0
cCae = ?Ole{'FERespuestaDetalleCAE'}
nNumero = ?Ole{'FERespuestaDetallecbt_desde'}
cMotivo = ?Ole{'FERespuestaDetalleMotivo'}
message('CAE: '&cCae&chr(10)&'Numero:'&nNumero&chr(10),cMotivo,icon:hand)
Ante cualquier duda consultar al soporte técnico.