diff --git a/PROYECTO/ipdir/ipprrp046.4gl b/PROYECTO/ipdir/ipprrp046.4gl
index a616398..8c8e3a6 100644
--- a/PROYECTO/ipdir/ipprrp046.4gl
+++ b/PROYECTO/ipdir/ipprrp046.4gl
@@ -53,6 +53,7 @@ FUNCTION ipprrp046()
 
     OPEN FORM ipfmrp046 FROM "ipfmrp046"
     DISPLAY FORM ipfmrp046
+    CALL ui.Window.getCurrent().setText("Relacion de Documentos")
   #  CALL pantalla()
     DISPLAY "ipprrp046" AT 4,3 ATTRIBUTE(RED)
     DISPLAY "      Relacion de Documentos" AT 6,22 ATTRIBUTE(BLACK)
@@ -110,8 +111,8 @@ END INPUT
     DISPLAY "<< Reporte Generandose ...  Por Favor Espere. >>"
             AT 19,14 ATTRIBUTE (REVERSE) 
 
-    CALL seleccionarsalida() RETURNING r_output        
-    CALL configureoutput(r_output) RETURNING handler        
+    CALL selectOutputSimple() RETURNING r_output
+    LET handler = configurarSalidaClasica(r_output)
     START REPORT relacion TO  XML HANDLER handler
 
 
@@ -241,3 +242,16 @@ END FUNCTION
    ON LAST ROW
 
    END REPORT
+
+FUNCTION configurarSalidaClasica(tipo_file)
+    DEFINE tipo_file CHAR(3)
+    IF NOT fgl_report_loadCurrentSettings(NULL) THEN
+        RETURN NULL
+    END IF
+    CALL fgl_report_setPageMargins("0.5cm", "0.5cm", "0.5cm", "0.5cm")
+    CALL fgl_report_configureCompatibilityOutput(160,"Monospaced",NULL,NULL,NULL,NULL)
+    CALL fgl_report_selectDevice(tipo_file)
+    CALL fgl_report_configurexlsxdevice(NULL, NULL, NULL, FALSE, FALSE, NULL, 1)
+    CALL fgl_report_selectPreview(TRUE)
+    RETURN fgl_report_commitCurrentSettings()
+END FUNCTION
diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw
index 719576a..5aeff57 100644
--- a/PROYECTO/mbsERP.4pw
+++ b/PROYECTO/mbsERP.4pw
@@ -776,9 +776,10 @@
         <File compilerOptions="--build-rdd" filePath="ipdir/ipprrp014.4gl"/>
         <File filePath="ipdir/ipfmrp014.4fd"/>
       </Application>
-      <Application binaryName="ipprrp046" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000029" label="ipprrp046">
+      <Application binaryName="ipprrp046" dependencies="1763548104,-1026233879,-764824792,-1423229125" externalDependencies="libgre.42x" id="-960000029" label="ipprrp046">
         <Configuration commandLineArguments="jpeguero Peguero2023" id="-961000029" label="Configuration"/>
         <File compilerOptions="--build-rdd" filePath="ipdir/ipprrp046.4gl"/>
+        <File filePath="ipdir/ipfmrp046.per"/>
       </Application>
       <Application binaryName="ipprrp047" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000030" label="ipprrp047">
         <Configuration commandLineArguments="jpeguero Peguero2023" id="-961000030" label="Configuration"/>