From 5b53d994ac1f3fb60758c26004aaca22300c2783 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Abel=20L=C3=B3pez?= Date: Tue, 27 Oct 2026 11:48:43 -0400 Subject: [PATCH] noprrp009: salida con cuadro de formato y conteo por movimiento - La salida pasa del archivo de texto en FGLSPOOL a seleccionarsalida()/configureoutput() (Excel/PDF/pantalla); antes se dejo en texto porque configureOutput() era un stub que devolvia NULL. - RIGHT MARGIN 86 (el reporte usa hasta la columna 84). - NO. REGISTROS se reinicia en cada codigo de movimiento (se acumulaba). Co-Authored-By: Claude Opus 5.5 --- PROYECTO/nodir/noprrp009.4gl | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/PROYECTO/nodir/noprrp009.4gl b/PROYECTO/nodir/noprrp009.4gl index 2f0e0a5..6657198 100644 --- a/PROYECTO/nodir/noprrp009.4gl +++ b/PROYECTO/nodir/noprrp009.4gl @@ -182,8 +182,9 @@ FUNCTION noprrp009() EXIT WHILE END IF IF idx = 1 THEN - LET cmd = FGL_GETENV("FGLSPOOL"),"\\noprrp009.txt" - START REPORT list_cooper TO cmd + CALL seleccionarsalida() RETURNING r_output + CALL configureoutput(r_output) RETURNING handler + START REPORT list_cooper TO XML HANDLER handler LET idx = 2 END IF @@ -239,6 +240,7 @@ END FUNCTION OUTPUT ## DEFINICION DE LOS MARGENES DE IMPRESION + RIGHT MARGIN 86 TOP MARGIN 0 LEFT MARGIN 0 BOTTOM MARGIN 3 @@ -321,6 +323,7 @@ END FUNCTION SKIP TO TOP OF PAGE LET total1 = 0 LET total = 0 + LET noRegistros = 0 -- el conteo es por codigo de movimiento AFTER GROUP OF x.num_emp LET balance = 0