coprrp007: exportacion a Excel/PDF con el cuadro de formato

- La salida escribia un XML directo en FGLSPOOL; se vuelve a
  seleccionarsalida()/configureoutput() como en la version 3.20.
- RIGHT MARGIN 148 para que no se recorten las columnas.

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>

PROYECTO/codir/coprrp007.4gl

@@ -164,13 +164,8 @@ LET idx = 1
        END IF
      IF idx = 1 THEN
 
-        -- 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"), "/coprrp007_organiza.xml"
-        LET handler = om.XmlWriter.createFileWriter(r_filename)
+        CALL seleccionarsalida() RETURNING r_output
+        CALL configureoutput(r_output) RETURNING handler
         START REPORT organiza TO XML HANDLER handler
 
      END IF
@@ -221,6 +216,7 @@ LET idx = 1
     DEFINE hora CHAR(5)
 
     OUTPUT
+       RIGHT MARGIN 148
 
      TOP MARGIN 0
       LEFT MARGIN 0