Corrige ipprrp048 (Transacciones de Inventario por Departamento)

- Registra ipfmrp048.4fd y la dependencia FUNCIONESREPORT en mbsERP.4pw
  (resuelve msgrp000 y seleccionarSalida)
- busca_departamento() definida localmente (igual que ipprrp035/036/047)
- seleccionarsalida() -> selectOutputSimple()
- Rescata ipprrp048.4rp del respaldo PROYECTOS/bin (ipdir/ y bin/)
- Titulo de ventana corregido

Verificado: 01/08/2026 a hoy, movimiento 30, 4 paginas en pantalla y PDF.
Excel no probado.

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

PROYECTO/ipdir/IPPRRP048.4gl

@@ -75,6 +75,7 @@ FUNCTION ipprrp048()
 
     OPEN FORM ipfmrp048 FROM "ipfmrp048"
     DISPLAY FORM ipfmrp048
+    CALL ui.Window.getCurrent().setText("Transacciones de Inventario por Departamento")
     
     DISPLAY "ipprrp048" AT 4,3
     DISPLAY "Operacion Por Movimiento Detallado y Valorizado" AT 6,18
@@ -167,7 +168,7 @@ END INPUT
 
         IF fgl_report_loadCurrentSettings(r_filename) THEN
             LET preview=1                           
-            CALL seleccionarsalida() RETURNING r_output      -- load the .4rp file
+            CALL selectOutputSimple() RETURNING r_output      -- load the .4rp file
             CALL fgl_report_selectDevice(r_output)           -- changing default
             CALL fgl_report_selectPreview(preview)           -- changing default
             LET handler = fgl_report_commitCurrentSettings() -- commit changes
@@ -296,5 +297,20 @@ FORMAT
         PRINTX t_t_consumo,t_t_mtsAdicionales
 END REPORT
 
+FUNCTION busca_departamento()
+    DEFINE
+        pdepartamento ui.combobox,
+        kdepartamento SMALLINT,
+        kdescripcion CHAR(30)
 
-
+    LET pdepartamento = ui.combobox.forname("formonly.departamento")
+    CALL pdepartamento.clear()
+    DECLARE pagar CURSOR FOR
+        SELECT departamento, nom_dpto
+            FROM adtb00001
+            WHERE status_t IS NULL
+            ORDER BY nom_dpto
+    FOREACH pagar INTO kdepartamento, kdescripcion
+        CALL pdepartamento.additem(kdepartamento, kdescripcion)
+    END FOREACH
+END FUNCTION