From f48618a23cccea5179a76ab0be68f8cc0333df39 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Abel=20L=C3=B3pez?= Date: Mon, 26 Oct 2026 11:36:31 -0400 Subject: [PATCH] coprrp004 (Cronologico de Ordenes): exportacion a PDF/Excel/pantalla - La salida escribia un XML crudo en FGLSPOOL (no era PDF ni Excel); vuelve a configureOutput() (modo compatibilidad de GRE, como en 3.20) con la ventana comun seleccionarsalida() (EXCEL / PDF / SCREEN). - Se quitan dos ESC P (ASCII 27, ASCII 80) de impresora matricial que el reporte imprimia directo y salian como basura en PDF/Excel. Verificado contra la BD .250 (tipo 01, 01/08/2026 al 15/08/2026): PDF y Excel generados; 4 ordenes, monto = productos + flete + otros gastos, total 1,515,154.88 = SQL. Build OK con gsmake. Co-Authored-By: Claude Opus 5.5 --- PROYECTO/codir/coprrp004.4gl | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) diff --git a/PROYECTO/codir/coprrp004.4gl b/PROYECTO/codir/coprrp004.4gl index f90f373..64bdf5a 100644 --- a/PROYECTO/codir/coprrp004.4gl +++ b/PROYECTO/codir/coprrp004.4gl @@ -117,13 +117,8 @@ END IF # doce,normal,archivo,copia - -- 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"), "/coprrp004_cronologico.xml" - LET handler = om.XmlWriter.createFileWriter(r_filename) + CALL seleccionarsalida() RETURNING r_output + CALL configureoutput(r_output) RETURNING handler START REPORT cronologico TO XML HANDLER handler @@ -194,7 +189,7 @@ REPORT cronologico(x) LET bandera1 = "N" LET hora = time LET l = (80 - LENGTH(p_companias.nombre CLIPPED))/2 - PRINT COLUMN 3, ASCII 27, ASCII 80,comp_off, negrillas_on + PRINT COLUMN 3, comp_off, negrillas_on # sin ESC P (codigo de impresora matricial) PRINT COLUMN 1, "coprrp004", COLUMN l, p_companias.nombre CLIPPED, COLUMN 73, "Pag. ",pageno using "###" @@ -259,7 +254,7 @@ REPORT cronologico(x) SKIP 1 LINES ON LAST ROW PRINT COLUMN 2, "Total Registros Impresos = ", count(*) USING "<<<<" - PRINT COLUMN 2, ASCII 27, ASCII 80 + PRINT COLUMN 2, "" # sin ESC P (codigo de impresora matricial) PRINT COLUMN 1, "==================================================", "=============================" END REPORT