Ejemplo WSFEv1 en POWERBUILDER para obtener CAE

Usar fechas actuales. El ejemplo no hace validaciones por simplicidad.

string cadena

double numero

boolean resultado

if fe.object.iniciar(0, "cuit del emisor sin separadores", "ruta y nombre del archivo *.pfx", "") then

if fe.f1object.f1obtenerTicketAcceso() then

fe.object.F1CabeceraCantReg = 1 fe.object.F1CabeceraPtoVta = 4 fe.object.F1CabeceraCbteTipo = 1 fe.object.f1Indice = 0 fe.object.F1DetalleConcepto = 1 fe.object.F1DetalleDocTipo = 80 fe.object.F1DetalleDocNro = "20111111112" fe.object.F1DetalleCbteDesde = 1 fe.object.F1DetalleCbteHasta = 1 fe.object.F1DetalleCbteFch = "20101018" fe.object.F1DetalleImpTotal = 184.05 fe.object.F1DetalleImpTotalConc = 0 fe.object.F1DetalleImpNeto = 150 fe.object.F1DetalleImpOpEx = 0 fe.object.F1DetalleImpTrib = 7.8 fe.object.F1DetalleImpIva = 26.25 fe.object.F1DetalleFchServDesde = "20101018" fe.oject.F1DetalleFchServHasta = "20101018" fe.object.F1DetalleFchVtoPago = "20101018" fe.object.F1DetalleMonId = "PES" fe.object.F1DetalleMonCotiz = 1 fe.object.F1DetalleTributoItemCantidad = 1 fe.object.f1IndiceItem = 0 fe.object.F1DetalleTributoId = 3 fe.object.F1DetalleTributoDesc = "Impuesto Municipal Matanza" fe.object.F1DetalleTributoBaseImp = 150 fe.object.F1DetalleTributoAlic = 5.2 fe.object.F1DetalleTributoImporte = 7.8 fe.object.F1DetalleIvaItemCantidad = 2 fe.object.f1IndiceItem = 0 fe.object.F1DetalleIvaId = 5 fe.object.F1DetalleIvaBaseImp = 100 fe.object.F1DetalleIvaImporte = 21 fe.object.f1IndiceItem = 1 fe.object.F1DetalleIvaId = 4 fe.object.F1DetalleIvaBaseImp = 50 fe.object.F1DetalleIvaImporte = 5.25 fe.object.F1DetalleCbtesAsocItemCantidad = 0 fe.object.F1DetalleOpcionalItemCantidad = 0 fe.object.ArchivoXMLRecibido = "c:\recibido.xml" fe.object.ArchivoXMLEnviado = "c:\enviado.xml" lResultado = fe.object.F1CAESolicitar()

cadena = fe.object.F1RespuestaResultado

messagebox("resultado global", cadena)

cadena = fe.object.F1RespuestaReProceso

messagebox("reproceso?", cadena)

cadena = fe.object.f1ErrorMsg1

messagebox("error generico global", cadena)

if fe.object.F1RespuestaCantidadReg > 0 then

fe.object.f1Indice = 0

cadena = fe.object..F1RespuestaDetalleResultado

messagebox("resultado detallado", cadena)

cadena = fe.object.F1RespuestaDetalleCae

messagebox("CAE", cadena)

cadena = fe.object.F1RespuestaDetalleObservacionMsg1

messagebox("obervaciones", cadena)

end if

else

cadena = fe.object.ultimomensajeerror

messagebox("error al acceder", cadena)

end if

else

cadena = fe.object.ultimomensajeerror

messagebox("error al iniciar", cadena)

end if