From 1d6a2556e585a6d6ba3c2d1c3c1435a53c3a0f1a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Abel=20L=C3=B3pez?= Date: Mon, 26 Oct 2026 11:31:33 -0400 Subject: [PATCH] coprrp001 (Catalogo de Suplidores): exportacion a PDF/Excel/pantalla - La salida escribia un XML crudo en FGLSPOOL (no era PDF ni Excel); se restaura el codigo de 3.20: ventana seleccionarSalida() (EXCEL / PDF / SCREEN) con el diseno bin/coprrp001.4rp (fgl_report_loadCurrentSettings). Verificado contra la BD .250 (22-1 a 22-10, orden numerico): PDF y Excel generados; 9 suplidores = SQL (22-7 anulado). Build OK con gsmake. Co-Authored-By: Claude Opus 5.5 --- PROYECTO/codir/coprrp001.4gl | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/PROYECTO/codir/coprrp001.4gl b/PROYECTO/codir/coprrp001.4gl index 6585f30..4d4c9c8 100644 --- a/PROYECTO/codir/coprrp001.4gl +++ b/PROYECTO/codir/coprrp001.4gl @@ -144,11 +144,13 @@ FUNCTION coprrp001() archivo, copia - -- La API de configuracion de reportes (fgl_report_*) no esta - -- disponible en este FGL; 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"), "/coprrp001_catalogo.xml" - LET handler = om.XmlWriter.createFileWriter(r_filename) + LET r_filename = 'coprrp001.4rp' + CALL seleccionarSalida() RETURNING r_output + IF fgl_report_loadCurrentSettings(r_filename) THEN + CALL fgl_report_selectDevice(r_output) + CALL fgl_report_selectPreview(TRUE) + LET handler = fgl_report_commitCurrentSettings() + END IF START REPORT catalogo2 TO XML HANDLER handler #### Enviando la informacion al registro del reporte