diff --git a/DATABASE/smarmotech.4db b/DATABASE/smarmotech.4db
index 46dacd7..4c28f3d 100644
--- a/DATABASE/smarmotech.4db
+++ b/DATABASE/smarmotech.4db
@@ -7870,7 +7870,7 @@
-
+
@@ -12004,7 +12004,7 @@
-
+
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/bin/ipprmt020_1.4rp b/PROYECTO/bin/ipprmt020_1.4rp
new file mode 100644
index 0000000..2e7479d
--- /dev/null
+++ b/PROYECTO/bin/ipprmt020_1.4rp
@@ -0,0 +1,126 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
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/ipautorizareq.4gl b/PROYECTO/ipdir/ipautorizareq.4gl
index 5f2ed5c..e427a77 100644
--- a/PROYECTO/ipdir/ipautorizareq.4gl
+++ b/PROYECTO/ipdir/ipautorizareq.4gl
@@ -77,7 +77,7 @@ FUNCTION ipautorizadas(xusuario)
END IF
ON ACTION imprimir ATTRIBUTE(TEXT="Imprimir", IMAGE="printer")
IF arr_busqueda1[arr_curr()].numeroid > 0 THEN
- CALL buscadoc(arr_busqueda1[arr_curr()].numeroid,arr_busqueda1[arr_curr()].cod_mov1)
+ CALL buscadocAutoriza(arr_busqueda1[arr_curr()].numeroid,arr_busqueda1[arr_curr()].cod_mov1)
LET data.rnumeroDoc = arr_busqueda1[arr_curr()].numeroid
LET data.rcodMov = arr_busqueda1[arr_curr()].cod_mov1
LET data.rtipo_cliente = arr_busqueda1[arr_curr()].rtipo_cliente
@@ -88,7 +88,7 @@ FUNCTION ipautorizadas(xusuario)
LET data.bodega_destino = arr_busqueda1[arr_curr()].bodega_destino
LET nombreUsuario = arr_busqueda1[arr_curr()].usuario
- CALL impdocumento()
+ CALL impdocumentoAutoriza()
END IF
ON ACTION procesar ATTRIBUTE(TEXT="Procesa",IMAGE="")
IF arr_busqueda1[arr_curr()].numeroid > 0 THEN
@@ -172,7 +172,7 @@ FUNCTION buscadataReq(pusuario)
END FUNCTION
-FUNCTION buscadoc(numid,codmov)
+FUNCTION buscadocAutoriza(numid,codmov)
DEFINE numid,codmov INT
LET vendedor = null
@@ -235,7 +235,7 @@ FUNCTION buscadoc(numid,codmov)
LET idx = idx + 1
END FOREACH
END FUNCTION
-FUNCTION impdocumento()
+FUNCTION impdocumentoAutoriza()
DEFINE idx_l INT,
xcodigo VARCHAR(50)
LET r_filename = "ipprmt020_1.4rp"
@@ -251,7 +251,7 @@ FUNCTION impdocumento()
ELSE
RETURN
END IF
- START REPORT requiere TO XML HANDLER HANDLER
+ START REPORT requiereAutoriza TO XML HANDLER HANDLER
FOR idx = 1 TO arr_iptb58.getLength()
@@ -261,15 +261,15 @@ FUNCTION impdocumento()
arr_iptb58[idx].cod_tipo USING '&&&&&&','-',
arr_iptb58[idx].cod_sec USING '&&&&&&&'
- OUTPUT TO REPORT requiere(p_iptb57.*,arr_iptb58[idx].*,despiece1[idx].*, xcodigo)
-
+ OUTPUT TO REPORT requiereAutoriza(p_iptb57.*,arr_iptb58[idx].*,despiece1[idx].*, xcodigo)
+
END IF
-
+
END FOR
- FINISH REPORT requiere
+ FINISH REPORT requiereAutoriza
END FUNCTION
-REPORT requiere(x,detalle,xdespiece,codigo)
+REPORT requiereAutoriza(x,detalle,xdespiece,codigo)
DEFINE hora STRING,
detalle RECORD
area INT,
@@ -308,7 +308,8 @@ REPORT requiere(x,detalle,xdespiece,codigo)
estado VARCHAR(50),
ruta_documento ,
url_file ,
- idestado VARCHAR(200)
+ idestado VARCHAR(200),
+ us_crea VARCHAR(50)
END RECORD,
etiqueta VARCHAR(100),
diff --git a/PROYECTO/ipdir/ipfmmt013.4fd b/PROYECTO/ipdir/ipfmmt013.4fd
index 0d3f830..e64f1d1 100644
--- a/PROYECTO/ipdir/ipfmmt013.4fd
+++ b/PROYECTO/ipdir/ipfmmt013.4fd
@@ -1,5 +1,5 @@
-
+
@@ -27,7 +27,7 @@
-