diff --git a/PROYECTO/cpdir/cpprrp004.4gl b/PROYECTO/cpdir/cpprrp004.4gl
index 379bbc6..c30cf93 100644
--- a/PROYECTO/cpdir/cpprrp004.4gl
+++ b/PROYECTO/cpdir/cpprrp004.4gl
@@ -16,7 +16,6 @@ GLOBALS "cpprgb000.4gl"
     DEFINE salir, salir2, salir1, salir3, tipo_venta CHAR(1) 
     DEFINE selec5, selec6 CHAR(1500)
     DEFINE valor2,valor3 DECIMAL(18,2)
-    DEFINE p_reportfile STRING
 
     DEFINE tot_gen1 RECORD 
        totald     DECIMAL(10,2),
@@ -170,15 +169,11 @@ FUNCTION cpprrp004()
 
   CONSTRUCT criterio ON a.cod_sp_sec FROM cod_sp_sec
 
-       CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
-                                                       doble_on,doble_off,comp_on,comp_off,
-                                                       doce,normal,archivo,copia
+       -- defecto() solo cargaba codigos de la impresora matricial (comp_on, normal...);
+       -- en PDF/Excel salian como caracteres basura. La salida es por configureoutput().
 
-       -- 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 la vista previa SVG.
-       LET p_reportfile = FGL_GETENV("FGLSPOOL"), "/cpprrp004_estcta.xml"
-       LET handler = om.XmlWriter.createFileWriter(p_reportfile)
+       CALL seleccionarsalida() RETURNING r_output
+       CALL configureoutput(r_output) RETURNING handler
        START REPORT report141 TO XML HANDLER handler
  
 LET selec5 =