diff --git a/PROYECTO/bin/ipprmt020.4rp b/PROYECTO/bin/ipprmt020.4rp
new file mode 100644
index 0000000..3471a47
--- /dev/null
+++ b/PROYECTO/bin/ipprmt020.4rp
@@ -0,0 +1,120 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/PROYECTO/ipdir/ipfmmt020.4fd b/PROYECTO/ipdir/ipfmmt020.4fd
index 0bb7d2e..1e249de 100644
--- a/PROYECTO/ipdir/ipfmmt020.4fd
+++ b/PROYECTO/ipdir/ipfmmt020.4fd
@@ -76,9 +76,9 @@
-
-
-
+
+
+
@@ -91,11 +91,11 @@
-
-
-
-
-
+
+
+
+
+
diff --git a/PROYECTO/ipdir/ipprmt020.4gl b/PROYECTO/ipdir/ipprmt020.4gl
index 5d31ac4..c7a2711 100644
--- a/PROYECTO/ipdir/ipprmt020.4gl
+++ b/PROYECTO/ipdir/ipprmt020.4gl
@@ -108,6 +108,7 @@ FUNCTION ipprmt020()
LET p_iptb57.numero_doc = arr_busqueda[arr_curr()].numeroid
LET p_iptb57.cod_mov = arr_busqueda[arr_curr()].cod_mov
CALL anular()
+ CALL buscarData()
ON ACTION imprimir ATTRIBUTE(TEXT = "Imprimir", IMAGE = "printer")
CALL buscadoc(
@@ -153,6 +154,7 @@ FUNCTION buscardata()
AND b.us_crea = usuarios
AND b.status_t IS NULL
+ CALL arr_busqueda.clear()
LET i = 1
FOREACH buscardata INTO arr_busqueda[i].*
LET p_iptb57.cod_mov = arr_busqueda[i].cod_mov
diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw
index e8be640..cdf42d7 100644
--- a/PROYECTO/mbsERP.4pw
+++ b/PROYECTO/mbsERP.4pw
@@ -499,9 +499,13 @@
+
+
+
+
@@ -514,6 +518,7 @@
+
diff --git a/PROYECTOS/otrodir/funciones.4gl b/PROYECTO/otrodir/funciones_ip.4gl
similarity index 100%
rename from PROYECTOS/otrodir/funciones.4gl
rename to PROYECTO/otrodir/funciones_ip.4gl
diff --git a/PROYECTO/otrodir/seg000.4gl b/PROYECTO/otrodir/seg000.4gl
index 72538a3..84da1e0 100644
--- a/PROYECTO/otrodir/seg000.4gl
+++ b/PROYECTO/otrodir/seg000.4gl
@@ -67,3 +67,13 @@ DEFINE numero_msg INT,
END IF
RETURN
END FUNCTION
+
+FUNCTION usuarioSistema(xuser)
+ DEFINE xuser,nombre,email STRING
+
+ SELECT ISNULL(RTRIM(b.nom1_emp)||' '||RTRIM(b.apell1_emp),' '),a.email INTO nombre,email FROM seg0001 a,adtb00003 b
+ WHERE a.usuario = xuser AND
+ a.num_emp = b.num_emp
+
+ RETURN nombre,email
+END FUNCTION