Prueba inprrp011 (completo) e inprrp028 (matricial completo, PDF pendiente)
- Corrige selectOutput()/seleccionarSalida()/configureOutput() en defecto.4gl para usar la API real fgl_report_* (Report Writer 2.0), reemplazando los stubs previos. Reutiliza el formulario Configuration ya existente en el proyecto (FUNCIONESREPORT) - inprrp011: quita el START REPORT forzado a XML roto (media migracion abandonada), probado completo: filtros, totales/subtotales vs produccion, exportacion PDF/Excel/Pantalla funcionando - inprrp028: mismo patron, restaura Sietesalida) - No/matricial como respaldo. Crea bin/inprrp028.4rp (diseno de reporte, no existia) para la salida grafica; carga sin error de formato pero la generacion no completa en este entorno - pendiente de revisar rendimiento/recursos Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
This commit is contained in:
+36
-11
@@ -167,22 +167,47 @@ END FUNCTION
|
||||
|
||||
FUNCTION configureOutput(tipo_file)
|
||||
DEFINE tipo_file CHAR(3)
|
||||
-- La API fgl_report_* (Report Writer 2.0) no esta disponible en este
|
||||
-- FGL 6.00.01. Esta salida (XML/XLS/PDF por handler) no esta soportada
|
||||
-- en este entorno; usar r_output = 'MA' (impresion clasica) en su lugar.
|
||||
IF NOT fgl_report_loadCurrentSettings(NULL) THEN
|
||||
RETURN NULL
|
||||
END IF
|
||||
CALL fgl_report_setPageMargins("0.5cm", "0.5cm", "0.5cm", "0.5cm")
|
||||
CALL fgl_report_configureCompatibilityOutput(160,"Monospaced",NULL,NULL,NULL,NULL)
|
||||
CALL fgl_report_selectDevice(tipo_file)
|
||||
CALL fgl_report_configurexlsxdevice(NULL, NULL, NULL, FALSE, FALSE, NULL, 1)
|
||||
CALL fgl_report_selectPreview(TRUE)
|
||||
RETURN fgl_report_commitCurrentSettings()
|
||||
|
||||
RETURN NULL
|
||||
END FUNCTION
|
||||
|
||||
FUNCTION selectOutput()
|
||||
-- El formulario "Configuration" del Report Writer 2.0 no esta disponible
|
||||
-- en este entorno (ver configureOutput). Se devuelve un valor fijo para
|
||||
-- que el flujo de "Reporte Grafico" siga y falle de forma consistente
|
||||
-- con la limitacion ya conocida; usar MATRICIAL en su lugar.
|
||||
RETURN "PDF"
|
||||
DEFINE
|
||||
r_output STRING,
|
||||
r_action STRING,
|
||||
preview INTEGER
|
||||
|
||||
OPTIONS INPUT WRAP
|
||||
OPEN WINDOW f_configuration WITH FORM "Configuration"
|
||||
LET INT_FLAG=FALSE
|
||||
LET preview = FALSE
|
||||
INPUT BY NAME r_output
|
||||
ON ACTION CANCEL
|
||||
EXIT PROGRAM
|
||||
ON ACTION CLOSE
|
||||
EXIT PROGRAM
|
||||
END INPUT
|
||||
CLOSE WINDOW f_configuration
|
||||
CALL ui.interface.refresh()
|
||||
|
||||
IF r_action IS NOT NULL THEN
|
||||
IF r_action == "preview" THEN
|
||||
LET preview = TRUE
|
||||
END IF
|
||||
END IF
|
||||
|
||||
RETURN r_output
|
||||
END FUNCTION
|
||||
|
||||
FUNCTION seleccionarSalida()
|
||||
-- Mismo caso que selectOutput(): el formulario "Configuration" del
|
||||
-- Report Writer 2.0 no esta disponible en este entorno; usar MATRICIAL.
|
||||
RETURN "PDF"
|
||||
RETURN selectOutput()
|
||||
END FUNCTION
|
||||
|
||||
Reference in New Issue
Block a user