Ejemplo WSFEX 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. La factura se registra usando el método xRegistrarConNumero: equivalente a xRegistrar pero con un 4°to argumento indicando el número de comprobante a autorizar que debe ser calculado manualmente. Usar fechas del día. No es necesario que este presente el archivo de licencia "prueba.lic" que se indica en el ejemplo.
cCuit = 'aqui c.u.i.t. del emisor sin separadores'
nModo = 0
cResultado = ''
tipocomprobante = 19
nNumero = 1
puntoventa = 3
cLicencia = 'prueba.lic'
cCertificado = 'ruta y nombre del certificado *.fpx'
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{'xObtenerTicketAcceso()'}
cResultado = ?Ole{'UltimoMensajeError'}
message(cresultado,'mensaje vacio si hay acceso',icon:hand)
?Ole{'xversion'} = 1
?Ole{'xFecha_cbte'} = '20191104'
?Ole{'xFecha_pago'} = '20191104'
?Ole{'xtipo_expo'} = 1
?Ole{'xPermiso_existenteS'} = 'S'
?Ole{'xDst_cmp'} = 203
?Ole{'xCliente'} = 'Joao Da Silva'
?Ole{'xCuit_pais_clienteS'} = '50000000016'
?Ole{'xDomicilio_cliente'} = 'Rua 76 km 34.5 Alagoas'
?Ole{'xId_impositivo'} = 'PJ54482221-l'
?Ole{'xMoneda_idS'} = 'PES'
?Ole{'xMoneda_ctz'} = 1
?Ole{'xObs_comerciales'} = 'Sin observaciones'
?Ole{'xImp_total'} = 500
?Ole{'xForma_pago'} = 'Contado'
?Ole{'xIncoTerms'} = 'CIF'
?Ole{'xIncoTerms_ds'} = 'Texto dic.'
?Ole{'xIdioma_cbte'} = 1
?Ole{'ArchivoXMLRecibido'} = 'C:\RECIBIDO.XML'
?Ole{'xItemCantidad'} = 2
?Ole{'xIndiceItem'} = 0
?Ole{'xITEMPro_codigo'} = 'PRO1'
?Ole{'xITEMPro_ds'} = 'Producto Tipo 1 Exportacion MERCOSUR ISO 9001'
?Ole{'xITEMPro_qty'} = 1
?Ole{'xITEMPro_umed'} = 7
?Ole{'xITEMPro_precio_uni'} = 250
?Ole{'xITEMPro_precio_item'} = 250
?Ole{'xIndiceItem'} = 1
?Ole{'xITEMPro_codigo'} = 'PRO1'
?Ole{'xITEMPro_ds'} = 'Producto Tipo 1 Exportacion MERCOSUR ISO 9001'
?Ole{'xITEMPro_qty'} = 1
?Ole{'xITEMPro_umed'} = 7
?Ole{'xITEMPro_precio_uni'} = 250
?Ole{'xITEMPro_precio_item'} = 250
?Ole{'xPermisoCantidad'} = 2
?Ole{'xPermisoNoInformar'} = 0
?Ole{'xIndiceItem'} = 0
?Ole{'xPERMISO_id_permiso'} = '09052EC01006154G'
?Ole{'xPERMISO_dst_merc'} = 203
?Ole{'xIndiceItem'} = 1
?Ole{'xPERMISO_id_permiso'} = '09052EC01006154G'
?Ole{'xPERMISO_dst_merc'} = 202
?Ole{'xCmps_asocCantidad'} = 0
cIdentificador = '1'
xResultado = ?Ole{'xRegistrarConNumero('&PuntoVenta&','&TipoComprobante&','&CLIP(cIdentificador)&','&CLIP(nNumero)&')'}
cResultado = ?Ole{'UltimoMensajeError'}
message(cresultado,'mensaje vacio si hay registro',icon:hand)
cCae = ?Ole{'xRespuestaCAE'}
nNumero = ?Ole{'xRespuestacbte_numeroS'}
cMotivo = ?Ole{'xRespuestaMotivos_obs'}
cError = ?Ole{'xerrmsg'}
cReProceso = ?Ole{'xRespuestaReproceso'}
message('CAE: '&cCae&chr(10)&'Numero:'&nNumero&chr(10)&cMotivo&chr(10)&cError&chr(10)&cReProceso&chr(10),cMotivo,icon:hand)
Ante cualquier duda consultar al soporte técnico.