From 4762e8c10d05325be9e640560ac26ad2ce90ea95 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Abel=20L=C3=B3pez?= Date: Mon, 26 Oct 2026 16:42:33 -0400 Subject: [PATCH] coprrp007: exportacion a Excel/PDF con el cuadro de formato - La salida escribia un XML directo en FGLSPOOL; se vuelve a seleccionarsalida()/configureoutput() como en la version 3.20. - RIGHT MARGIN 148 para que no se recorten las columnas. Co-Authored-By: Claude Opus 5.5 --- PROYECTO/codir/coprrp007.4gl | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/PROYECTO/codir/coprrp007.4gl b/PROYECTO/codir/coprrp007.4gl index 22b356f..344a7a0 100644 --- a/PROYECTO/codir/coprrp007.4gl +++ b/PROYECTO/codir/coprrp007.4gl @@ -164,13 +164,8 @@ LET idx = 1 END IF IF idx = 1 THEN - -- La API de configuracion de reportes (fgl_report_*) no esta - -- disponible en este FGL; seleccionarsalida()/configureoutput() - -- tampoco estan definidas en este programa. Se escribe el XML - -- directo a un archivo en FGLSPOOL en lugar de usar la plantilla - -- .4rp con vista previa. - LET r_filename = FGL_GETENV("FGLSPOOL"), "/coprrp007_organiza.xml" - LET handler = om.XmlWriter.createFileWriter(r_filename) + CALL seleccionarsalida() RETURNING r_output + CALL configureoutput(r_output) RETURNING handler START REPORT organiza TO XML HANDLER handler END IF @@ -221,6 +216,7 @@ LET idx = 1 DEFINE hora CHAR(5) OUTPUT + RIGHT MARGIN 148 TOP MARGIN 0 LEFT MARGIN 0