diff --git a/PROYECTO/codir/coprrp001.4gl b/PROYECTO/codir/coprrp001.4gl
index 6585f30..4d4c9c8 100644
--- a/PROYECTO/codir/coprrp001.4gl
+++ b/PROYECTO/codir/coprrp001.4gl
@@ -144,11 +144,13 @@ FUNCTION coprrp001()
             archivo,
             copia
 
-    -- 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 usar la plantilla .4rp con vista previa.
-    LET r_filename = FGL_GETENV("FGLSPOOL"), "/coprrp001_catalogo.xml"
-    LET handler = om.XmlWriter.createFileWriter(r_filename)
+    LET r_filename = 'coprrp001.4rp'
+    CALL seleccionarSalida() RETURNING r_output
+    IF fgl_report_loadCurrentSettings(r_filename) THEN
+        CALL fgl_report_selectDevice(r_output)
+        CALL fgl_report_selectPreview(TRUE)
+        LET handler = fgl_report_commitCurrentSettings()
+    END IF
 
     START REPORT catalogo2 TO XML HANDLER handler
 #### Enviando la informacion al registro del reporte