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.