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 <noreply@anthropic.com>

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