diff --git a/PROYECTO/ipdir/buscarequisicion.4gl b/PROYECTO/ipdir/buscarequisicion.4gl
index 08ead56..8c9aff1 100644
--- a/PROYECTO/ipdir/buscarequisicion.4gl
+++ b/PROYECTO/ipdir/buscarequisicion.4gl
@@ -4,10 +4,10 @@ FUNCTION buscadoc(numid,codmov)
    DEFINE numid,codmov INT 
 
    SELECT a.numero_Doc,a.cod_mov,a.fecha,a.num_oc,a.tipo_cliente,a.sec_cliente,a.nombre,a.bodega,a.bodega_destino,
-          a.estado,a.url_destino,b.descripcion,a.observacion
+          a.estado,a.url_destino,b.descripcion,a.observacion,a.us_crea
    INTO p_iptb57.numero_doc,p_iptb57.cod_mov,p_iptb57.fecha,p_iptb57.num_oc,p_iptb57.tipo_cliente,p_iptb57.sec_cliente,
         p_iptb57.cliente,p_iptb57.bodega,p_iptb57.bodega_destino,p_iptb57.estado,
-        p_iptb57.url_file,p_iptb57.observacion
+        p_iptb57.url_file,p_iptb57.idstado,p_iptb57.observacion,p_iptb57.us_crea
    FROM iptb00057 a, iptb00061 b
    WHERE a.numero_doc = numid AND a.cod_mov = codmov AND
          a.idestado = b.idestado
@@ -15,7 +15,20 @@ FUNCTION buscadoc(numid,codmov)
    #BODEGA DESTINO
    IF p_iptb57.bodega_destino IS NOT NULL THEN
       SELECT a.descripcion INTO nombreBodegaDestino FROM intb00009 a WHERE a.cod_bodega = p_iptb57.bodega_destino
-   END IF   
+   END IF
+   #BODEGA ORIGEN
+   IF p_iptb57.bodega IS NOT NULL THEN
+      SELECT a.descripcion INTO nombreBodega FROM intb00009 a WHERE a.cod_bodega = p_iptb57.bodega
+   END IF
+   #TIPO DE MOVIMIENTO
+   IF p_iptb57.cod_mov IS NOT NULL THEN
+      SELECT RTRIM(a.descrip_mov) || '(' || CAST(a.cod_mov AS VARCHAR(6)) || ')' INTO nombreMov
+          FROM iptb00005 a WHERE a.cod_mov = p_iptb57.cod_mov
+   END IF
+   #USUARIO QUE CREO EL DOCUMENTO
+   IF p_iptb57.us_crea IS NOT NULL THEN
+      CALL usuarioSistema(p_iptb57.us_crea) RETURNING nombreUsuario,email
+   END IF
    DECLARE buscardetalle CURSOR FOR
        SELECT a.area,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descripcion,a.unidad_med, 
               a.cantidad_1,a.cantidad_2,b.factor_conv,
diff --git a/PROYECTO/ipdir/ipprgb000.4gl b/PROYECTO/ipdir/ipprgb000.4gl
index 1998e28..6c4247f 100644
--- a/PROYECTO/ipdir/ipprgb000.4gl
+++ b/PROYECTO/ipdir/ipprgb000.4gl
@@ -51,7 +51,8 @@ GLOBALS
        estado              VARCHAR(50),
        ruta_documento      ,
        url_file            STRING,
-       idstado      VARCHAR(60)
+       idstado      VARCHAR(60),
+       us_crea             VARCHAR(50)
     END RECORD,
           arr_iptb58 DYNAMIC ARRAY OF RECORD
              area        INT,
diff --git a/PROYECTO/ipdir/ipprmt021.4gl b/PROYECTO/ipdir/ipprmt021.4gl
index ba5c1c5..505b757 100644
--- a/PROYECTO/ipdir/ipprmt021.4gl
+++ b/PROYECTO/ipdir/ipprmt021.4gl
@@ -91,7 +91,7 @@ FUNCTION ipprmt021()
           
               
                      UPDATE iptb00057 SET us_mod=usuarios,fech_mod=getdate(),
-                                          estado_proceso = arr_busqueda[arr_curr()].idestado
+                                          idestado = arr_busqueda[arr_curr()].idestado
                       WHERE numero_doc = arr_busqueda[arr_curr()].numeroid AND
                             cod_mov = arr_busqueda[arr_curr()].cod_mov 
 
diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw
index cdf42d7..3d3e83f 100644
--- a/PROYECTO/mbsERP.4pw
+++ b/PROYECTO/mbsERP.4pw
@@ -500,12 +500,14 @@
       <Library binaryName="FORMULARIOS_IP" dependencies="-1026233879" id="-1826025351" label="FORMULARIOS_IP">
         <File filePath="ipdir/ipfmmt003.4fd"/>
         <File filePath="ipdir/ipfmmt020.4fd"/>
+        <File filePath="ipdir/ipfmmt021.4fd"/>
       </Library>
       <Library binaryName="FUNCIONES_IP" dependencies="-1026233879" id="1763548104" label="FUNCIONES_IP">
         <File filePath="ipdir/ipprgb000.4gl"/>
         <File filePath="ipdir/buscarequisicion.4gl"/>
         <File compilerOptions="--build-rdd" filePath="ipdir/imprequisiciones.4gl"/>
         <File filePath="otrodir/funciones_ip.4gl"/>
+        <File filePath="ipdir/estadosprocesos.4gl"/>
       </Library>
       <Application binaryName="ipprmt002" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000000" label="ipprmt002">
         <Configuration commandLineArguments="jpeguero Peguero2023" id="-961000000" label="Configuration"/>