COBOL MICROFOCUS y ACUCOBOL

Este ejemplo es para COBOL MICROFOCUS. Sirve para cualquier versión que permita usar controles ActiveX. Este ejemplo emite una factura y guarda en la variable "resultado" el CAE obtenido. Para simplificar no hay validación de errores.

En la página http://www.cobol.com.ar/ encontrarán mas comentarios y consultas sobre este ejemplo.

move 0 to numero

invoke "FE" "iniciar" using 0 "aqui cuit sin separador" "aqui archivo del certificado tipo pfx" " "

invoke "FE" "obtenerTicketAcceso"

move 0 to numero

invoke "FE" "setIndice" using numero

move 1 to numero

invoke "FE" "setFECabeceraCantReg" using numero

move 1 to numero

invoke "FE" "setFECabeceraPresta_serv" using numero.

invoke "FE" "setFEDetalleFecha_vence_pago" using "20090101".

invoke "FE" "setFEDetalleFecha_serv_desde" using "20090101".

invoke "FE" "setFEDetalleFecha_serv_hasta" using "20090101".

invoke "FE" "setFEDetalleFecha_vence_pago" using "20090101".

invoke "FE" "setFEDetalleImp_neto" using 100.

invoke "FE" "setFEDetalleImp_total" using 121.

invoke "FE" "setFEDetalleFecha_cbte" using "20090101".

invoke "FE" "setFEDetalleNro_doc" using "aqui CUIT del cliente sin separadores".

move 80 to numero

invoke "FE" "setFEDetalleTipo_doc" using 80.

move 1 to numero

invoke "FE" "registrar" using numero numero.

move 0 to numero

invoke "FE" "setIndice" using numero.

invoke "FE" "getFERespuestaDetalleCae" returning Resultado.