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.