diff --git a/PROYECTO/bin/ipprrp048.4rp b/PROYECTO/bin/ipprrp048.4rp
new file mode 100644
index 0000000..09a0137
--- /dev/null
+++ b/PROYECTO/bin/ipprrp048.4rp
@@ -0,0 +1,93 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/PROYECTO/ipdir/IPPRRP048.4gl b/PROYECTO/ipdir/IPPRRP048.4gl
index 3defc37..c337d1e 100644
--- a/PROYECTO/ipdir/IPPRRP048.4gl
+++ b/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
diff --git a/PROYECTO/ipdir/ipprrp048.4rp b/PROYECTO/ipdir/ipprrp048.4rp
new file mode 100644
index 0000000..09a0137
--- /dev/null
+++ b/PROYECTO/ipdir/ipprrp048.4rp
@@ -0,0 +1,93 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw
index 62efaab..5efbe4e 100644
--- a/PROYECTO/mbsERP.4pw
+++ b/PROYECTO/mbsERP.4pw
@@ -786,9 +786,10 @@
-
+
+