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)