From 95aa24c029e575c4311b44eb99f8af9c16f07982 Mon Sep 17 00:00:00 2001 From: Jhonny Soto Date: Thu, 15 Oct 2026 17:37:36 -0400 Subject: [PATCH] JSOTO Restaura configureOutput() de 3.20 en msgrp000 (reportes GRE) El stub RETURN NULL dejaba sin handler a los ~90 programas que usan configureOutput(): todos caian con -8083 en START REPORT ... TO XML HANDLER. Se vuelve a la version de 3.20 y se agrega IMPORT FGL greruntime para que las funciones fgl_report_* resuelvan aunque la app no declare libgre.42x. Verificado con gsmake (fgl602) sobre las 79 apps que dependen de FUNCIONESREPORT: ninguna empeora; las de CxP, Compras y Nomina siguen compilando y 8 reportes de Ventas pasan a compilar. Co-Authored-By: Claude Opus 5.5 --- PROYECTO/otrodir/msgrp000.4gl | 18 ++++++++++++++---- 1 file changed, 14 insertions(+), 4 deletions(-) diff --git a/PROYECTO/otrodir/msgrp000.4gl b/PROYECTO/otrodir/msgrp000.4gl index fcacf98..60da6aa 100644 --- a/PROYECTO/otrodir/msgrp000.4gl +++ b/PROYECTO/otrodir/msgrp000.4gl @@ -1,3 +1,4 @@ +IMPORT FGL greruntime -- fgl_report_* (Genero Report Writer) para configureOutput() { Esta funcion se utiliza para desplegar mensajes de los reportes de los sistemas de Ray-O-Vac Dominicana. @@ -274,10 +275,19 @@ 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. - RETURN NULL + IF NOT fgl_report_loadCurrentSettings(NULL) THEN + RETURN NULL + END IF + # CALL fgl_report_selectLogicalPageMapping("multipage") + # CALL fgl_report_configureMultipageOutput(2, 4, TRUE) + CALL fgl_report_setPageMargins("0.5cm","0.5cm","0.5cm","0.5cm") + --CALL fgl_report_selectDevice("XLS") + # CALL fgl_report_selectDevice(getPreviewDevice()) + # CALL fgl_report_configureCompatibilityOutput(1,'Franklin Gothic Heavy',false,'existencia',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() END FUNCTION FUNCTION getPreviewDevice()