diff --git a/PROYECTO/bin/ipprrp051.4rp b/PROYECTO/bin/ipprrp051.4rp
new file mode 100644
index 0000000..f2da80f
--- /dev/null
+++ b/PROYECTO/bin/ipprrp051.4rp
@@ -0,0 +1,118 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/PROYECTO/ipdir/ipprrp051.4gl b/PROYECTO/ipdir/ipprrp051.4gl
index e010a38..0996f0a 100644
--- a/PROYECTO/ipdir/ipprrp051.4gl
+++ b/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
diff --git a/PROYECTO/ipdir/ipprrp051.4rp b/PROYECTO/ipdir/ipprrp051.4rp
new file mode 100644
index 0000000..f2da80f
--- /dev/null
+++ b/PROYECTO/ipdir/ipprrp051.4rp
@@ -0,0 +1,118 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw
index 5efbe4e..71bad44 100644
--- a/PROYECTO/mbsERP.4pw
+++ b/PROYECTO/mbsERP.4pw
@@ -791,9 +791,10 @@
-
+
+