diff --git a/PROYECTO/codir/coprrp004.4gl b/PROYECTO/codir/coprrp004.4gl
index f90f373..64bdf5a 100644
--- a/PROYECTO/codir/coprrp004.4gl
+++ b/PROYECTO/codir/coprrp004.4gl
@@ -117,13 +117,8 @@ END IF
 #                                                       doce,normal,archivo,copia
 
 
-       -- 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"), "/coprrp004_cronologico.xml"
-       LET handler = om.XmlWriter.createFileWriter(r_filename)
+       CALL seleccionarsalida() RETURNING r_output
+       CALL configureoutput(r_output) RETURNING handler
 
        START REPORT cronologico TO XML HANDLER handler
 
@@ -194,7 +189,7 @@ REPORT cronologico(x)
         LET bandera1 = "N"
         LET hora = time
         LET l = (80 - LENGTH(p_companias.nombre CLIPPED))/2
-           PRINT COLUMN  3, ASCII 27, ASCII 80,comp_off, negrillas_on
+           PRINT COLUMN  3, comp_off, negrillas_on   # sin ESC P (codigo de impresora matricial)
            PRINT COLUMN  1, "coprrp004",
                  COLUMN  l, p_companias.nombre CLIPPED,
                  COLUMN 73, "Pag. ",pageno using "###"
@@ -259,7 +254,7 @@ REPORT cronologico(x)
     SKIP 1 LINES
     ON LAST ROW
          PRINT COLUMN 2, "Total Registros Impresos = ", count(*) USING "<<<<"
-         PRINT COLUMN 2, ASCII 27, ASCII 80
+         PRINT COLUMN 2, ""   # sin ESC P (codigo de impresora matricial)
          PRINT COLUMN 1, "==================================================",
                          "=============================" 
      END REPORT