From 65ad3fd68c384f50caffe344b841e2d36689ddf9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Abel=20L=C3=B3pez?= Date: Wed, 21 Oct 2026 12:43:25 -0400 Subject: [PATCH] cpprrp011 (Validacion Cuentas Afectadas en Facturacion): 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). - RIGHT MARGIN 142: la linea llega a la columna 139 y con el ancho por defecto (132) se cortaba. Verificado contra la BD .250 (grupo 22, 01/08/2026 al 15/08/2026, Afectar Mayor = N): PDF y Excel generados; 4 facturas, valor 62,868.52, Debe = Haber = 3,834,979.72 y totales por cuenta cuadran con SQL. Build OK con gsmake. No probado: Afectar Mayor = S (graba en cgtb00004). Co-Authored-By: Claude Opus 5.5 --- PROYECTO/cpdir/cpprrp011.4gl | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/PROYECTO/cpdir/cpprrp011.4gl b/PROYECTO/cpdir/cpprrp011.4gl index 2022a95..e946956 100644 --- a/PROYECTO/cpdir/cpprrp011.4gl +++ b/PROYECTO/cpdir/cpprrp011.4gl @@ -18,7 +18,6 @@ GLOBALS decide CHAR(1), entrada CHAR(14), detalle1 CHAR(30) - DEFINE p_reportfile STRING DEFINE p_ref_chk CHAR(50) DEFINE prt_mvto11 RECORD @@ -123,11 +122,8 @@ display "DIAG DESPUES DE INPUT: [",entrada CLIPPED,"]" RETURN END IF - -- 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 la vista previa SVG. - LET p_reportfile = FGL_GETENV("FGLSPOOL"), "/cpprrp011_cuentasft.xml" - LET handler = om.XmlWriter.createFileWriter(p_reportfile) + CALL seleccionarsalida() RETURNING r_output + CALL configureoutput(r_output) RETURNING handler START REPORT cuenta_ft TO XML HANDLER handler DECLARE movto CURSOR FOR @@ -214,7 +210,8 @@ display "DIAG DESPUES DE INPUT: [",entrada CLIPPED,"]" negrillas_off CHAR(6), hora CHAR(5) - OUTPUT + OUTPUT + RIGHT MARGIN 142 PAGE LENGTH 150 #ORDER BY x.cod_sp_sec,x.factura,x.cuenta_no,x.id