Ejemplo CLARION II
Este ejemplo en CLARION usa la versión EXPERSS II para conectarse al nuevo Web Service WSBFE y obtener CAE de una factura bienes de capital. En el ejemplo se usa como ruta del archivo de licencia "c:\scfe9.lic". Aunque no exista el archivo el ejemplo obtiene cae ya que la licencia solo es necesaria para conectarse al modo fiscal o de producción. El punto de venta es "2" para no entrar en conflicto con pruebas del primer Web Service WSFE.
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.
cCuit = 'cuit del emisor sin separadores'
cLicencia = 'c:\SCFE9.lic'
cId = '1'
nModo = 0
cResultado = ''
tipocomprobante = 1
puntoventa = 2
cCertificado = 'aqui ruta y nombre del certificado *.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{'bObtenerTicketAcceso()'}
cResultado = ?Ole{'UltimoMensajeError'}
message(cresultado,'mensaje vacio si no hay errores',icon:hand)
?Ole{'bZona'} = 0
?Ole{'bImp_total'} = 121
?Ole{'bImp_neto'} = 100
?Ole{'bimpto_liq'} = 0
?Ole{'bimpto_liq_rni'} = 0
?Ole{'bimp_op_ex'} = 0
?Ole{'bImp_perc'} = 0
?Ole{'bImp_iibb'} = 0
?Ole{'bImp_internos'} = 0
?Ole{'bImp_moneda_id'} = '1'
?Ole{'bImp_moneda_ctz'} = 1
?Ole{'bFecha_cbte'} = '20090630'
?Ole{'bTipo_doc'} = 80
?Ole{'bNro_doc'} = 'aqui cuit valido de cliente inscripto'
?Ole{'bItemCantidad'} = 1
?Ole{'bIndiceItem'} = 0
?Ole{'bITEMpro_codigo_sec'} = '0'
?Ole{'bITEMpro_codigo_ncm'} = '7308.10.00'
?Ole{'bITEMpro_ds'} = 'articulo'
?Ole{'bITEMpro_precio_uni'} = 100
?Ole{'bITEMpro_qty'} = 1
?Ole{'bITEMpro_umed'} = 7
?Ole{'bITEMIva_id'} = 1
?Ole{'bITEMimp_total'} = 100
?Ole{'bITEMimp_bonif'} = 0
xResultado = ?Ole{'bRegistrar('&PuntoVenta&','&TipoComprobante&','&CLIP(cId)&')'}
cResultado = ?Ole{'ultimomensajeerror'}
message(cresultado,'mensaje vacio si no hay errores',icon:hand)
cCae = ?Ole{'bRespuestaCAE'}
cMotivo = ?Ole{'berrmsg'}
nNumero = ?Ole{'bRespuestacbte_numero'}
message('CAE: '&cCae&chr(10)&'Numero:'&nNumero&chr(10)&'motivo:'&cMotivo&chr(10),cMotivo,icon:hand)