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.