COBOL FUJITSU y POWERCOBOL

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.

El ejemplo es para COBOL FUJITSU y POWER COBOL (versión 6 o superior). Emite una factura y muestra el CAE obtenido. Para simplificar no hay validación de errores. Debe usar fechas del día.

Agradecemos especialmente a "diegoher25@hotmail.com" por el aporte.

ENVIRONMENT DIVISION.

DATA DIVISION.

WORKING-STORAGE SECTION.

77 numero PIC S9(9) comp-5.

77 Resultado PIC s9(9) comp-5.

77 Resultado2 PIC s9(9) comp-5.

77 resultado3 PIC s9(9) comp-5.

77 cuit pic x(20).

77 ruta pic x(50).

77 licencia pic x(50).

77 ipuntoventa pic 9(01).

77 itipocomprobante Pic 9(01).

77 cae pic x(18).

77 cIdentificador PIC X(10).

PROCEDURE DIVISION.

move 0 to numero

move "cuit del certificado" to cuit

move "ruta del certirficado.pfx" to ruta

move "" to licencia

INVOKE fe "iniciar" USING numero cuit ruta licencia RETURNING Resultado

INVOKE fe "ObtenerTicketAcceso" RETURNING Resultado2

move 0 to "Indice" OF FE

move 1 to "FECabeceraCantReg" of FE

move 1 to "FECabeceraPresta_serv" OF FE

move "20090101" to "FEDetalleFecha_vence_pago" OF FE

move "20090101" to "FEDetalleFecha_serv_desde" OF FE

move "20090101" to "FEDetalleFecha_serv_hasta" OF FE

move "20090101" to "FEDetalleFecha_vence_pago" OF FE

move 100 to "FEDetalleImp_neto" OF FE

move 121 to "FEDetalleImp_total" OF FE

move "20090101" to "FEDetalleFecha_cbte" OF FE

move "cuit cliente" to "FEDetalleNro_doc" OF fe

move 80 to "FEDetalleTipo_doc" OF FE

Move 1 to ipuntoventa

Move 1 to itipocomprobante

Move "1" to cIdentificador

INVOKE FE "Registrar" USING iPuntoVenta iTipoComprobante, cIdentificador RETURNING Resultado3

move 0 to "indice" OF FE

move "ferespuestadetallecae" OF fe to cae

invoke pow-self "Displaymessage" using cae