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