Corrige ipprrp051 (Transacciones de Inventario con ubicacion)

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

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

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

PROYECTO/ipdir/ipprrp051.4gl

@@ -87,6 +87,7 @@ FUNCTION ipprrp051()
 
     OPEN FORM ipfmrp051 FROM "ipfmrp051"
     DISPLAY FORM ipfmrp051
+    CALL ui.Window.getCurrent().setText("Transacciones de Inventario")
 
     DISPLAY "ipprrp051" AT 4, 3
     DISPLAY "Operacion Por Movimiento Detallado y Valorizado" AT 6, 18
@@ -186,8 +187,7 @@ FUNCTION ipprrp051()
 
             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 =
@@ -381,3 +381,21 @@ REPORT opera(x, y)
             LET t_t_mtsAdicionales = SUM(x.mtsAdicionales)
             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