diff --git a/PROYECTO/bin/ipprrp047.4rp b/PROYECTO/bin/ipprrp047.4rp
new file mode 100644
index 0000000..cca4f05
--- /dev/null
+++ b/PROYECTO/bin/ipprrp047.4rp
@@ -0,0 +1,146 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/PROYECTO/ipdir/ipprrp047.4gl b/PROYECTO/ipdir/ipprrp047.4gl
index 218cc4f..3344b7a 100644
--- a/PROYECTO/ipdir/ipprrp047.4gl
+++ b/PROYECTO/ipdir/ipprrp047.4gl
@@ -78,6 +78,7 @@ FUNCTION ipprrp047()
OPEN FORM ipfmrp047 FROM "ipfmrp047"
DISPLAY FORM ipfmrp047
+ CALL ui.Window.getCurrent().setText("Transacciones de Inventario")
DISPLAY "ipprrp047" AT 4,3
DISPLAY "Operacion Por Movimiento Detallado y Valorizado" AT 6,18
@@ -200,7 +201,7 @@ END IF
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
@@ -504,5 +505,20 @@ FORMAT
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/ipprrp047.4rp b/PROYECTO/ipdir/ipprrp047.4rp
new file mode 100644
index 0000000..cca4f05
--- /dev/null
+++ b/PROYECTO/ipdir/ipprrp047.4rp
@@ -0,0 +1,146 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw
index 5aeff57..62efaab 100644
--- a/PROYECTO/mbsERP.4pw
+++ b/PROYECTO/mbsERP.4pw
@@ -781,9 +781,10 @@
-
+
+