Corrige ipprrp046 (Relacion de Documentos)

- Registra ipfmrp046.per y la dependencia FUNCIONESREPORT en mbsERP.4pw
- seleccionarsalida()/configureoutput() -> selectOutputSimple() y funcion
  local configurarSalidaClasica(): el configureOutput de msgrp000 es un stub
  que devuelve NULL; el reporte clasico PRINT COLUMN necesita el modo
  compatibilidad (monoespaciado) como el de indir/defecto.4gl
- Titulo de ventana corregido

Verificado: 01/05/2026 a hoy genera 299 paginas en pantalla y PDF.
Excel no probado por el volumen de datos.

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

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