Ejemplo WSSEG CLARION

Este ejemplo en CLARION usa la versión EXPERSS II para conectarse al nuevo Web Service WSSEG 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. utiliza el identificador "1". recordar que debe ser un número único para no obtener CAE repetidos. El punto de venta es "3" para no entrar en conflicto con pruebas de los otros Web Services.

cCuit = 'cuit del emisor sin separadores'

cLicencia = 'c:\SCFE9.lic'

cId = '1'

nModo = 0

cResultado = ''

tipocomprobante = 1

puntoventa = 3

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{'sObtenerTicketAcceso()'}

cResultado = ?Ole{'UltimoMensajeError'}

message(cresultado,'mensaje vacio si no hay errores',icon:hand)

?Ole{'sImp_total'} = 121

?Ole{'sImp_neto'} = 100

?Ole{'simpto_liq'} = 0

?Ole{'simpto_liq_rni'} = 0

?Ole{'simp_op_ex'} = 0

?Ole{'sImp_perc'} = 0

?Ole{'sImp_iibb'} = 0

?Ole{'sImp_internos'} = 0

?Ole{'sImp_moneda_id'} = '1'

?Ole{'sImp_moneda_ctz'} = 1

?Ole{'sFecha_cbte'} = '20091013'

?Ole{'sTipo_doc'} = 80

?Ole{'sImp_otrib_prov'} = 0

?Ole{'sNro_doc'} = 'aqui cuit valido de cliente inscripto'

?Ole{'sItemCantidad'} = 1

?Ole{'sIndiceItem'} = 0

?Ole{'sITEMpoliza'} = 'seguro auto'

?Ole{'sITEMendoso'} = 'endoso 1'

?Ole{'sITEMds'} = 'auto 1'

?Ole{'sITEMprecio_uni'} = 100

?Ole{'sITEMqty'} = 1

?Ole{'sITEMIva_id'} = 1

?Ole{'sITEMimp_total'} = 100

?Ole{'sITEMimp_bonif'} = 0

?Ole{'sITEMimp_valor_aseg'} = 1000

?Ole{'sITEMimp_moneda_vaseg'} = 'PES'

xResultado = ?Ole{'sRegistrar('&PuntoVenta&','&TipoComprobante&','&CLIP(cId)&')'}

cResultado = ?Ole{'ultimomensajeerror'}

message(cresultado,'mensaje vacio si no hay errores',icon:hand)

cCae = ?Ole{'sRespuestaCAE'}

cMotivo = ?Ole{'serrmsg'}

nNumero = ?Ole{'sRespuestacbte_numero'}

message('CAE: '&cCae&chr(10)&'Numero:'&nNumero&chr(10)&'motivo:'&cMotivo&chr(10),cMotivo,icon:hand)