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/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/ipprgb000.4gl b/PROYECTO/ipdir/ipprgb000.4gl
index 6c4247f..34a8d37 100644
--- a/PROYECTO/ipdir/ipprgb000.4gl
+++ b/PROYECTO/ipdir/ipprgb000.4gl
@@ -546,6 +546,7 @@ DEFINE x RECORD
conduce_no LIKE iptb00006.conduce_no,
descrip_mov CHAR(40), #LIKE intb00005.descrip_mov,
bodega LIKE iptb00006.bodega,
+ bodega_destino SMALLINT,
detalle LIKE iptb00006.detalle,
cod_sp LIKE iptb00006.cod_sp,
cod_sp_sec LIKE iptb00006.cod_sp_sec,
@@ -554,10 +555,13 @@ DEFINE x RECORD
cod_mov1 SMALLINT,
entrada INT,
descrip_mov1 CHAR(40),
- descrip4 CHAR(30)
+ descrip4 CHAR(30),
+ factura INT
END RECORD
DEFINE z RECORD
+ area SMALLINT,
+ descripcion_area VARCHAR(30),
cod_n LIKE intb00003.cod_n,
cod_grupo LIKE intb00003.cod_grupo,
cod_tipo LIKE intb00003.cod_tipo,
@@ -565,8 +569,12 @@ DEFINE z RECORD
cantidad_1 LIKE iptb00006.cantidad_1,
cantidad_2 LIKE iptb00006.cantidad_2,
cantidad_p DEC(12,5),
- unidad_med LIKE iptb00002.unidad_med,
- descrip_esp CHAR(70)
+ unidad_med LIKE iptb00002.unidad_med,
+ descrip_esp CHAR(70),
+ existencia DEC(12,5),
+ disponible DEC(12,5),
+ codigo_bloque CHAR(15),
+ id_kit INT
END RECORD,
etiqueta,pcalle,purbanizacion,pcasa_num,ptelefono,pcelular,nombre,apellido CHAR(30),
plado1,plado2,plado3,pcantidad,pmedida DEC(12,5),
diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw
index 3d3e83f..2365383 100644
--- a/PROYECTO/mbsERP.4pw
+++ b/PROYECTO/mbsERP.4pw
@@ -508,6 +508,14 @@
+
+
+
+
+
+
+
+
@@ -526,9 +534,10 @@
-
+
+
diff --git a/PROYECTOS/otrodir/LlenarUbicaciones.4gl b/PROYECTO/otrodir/LlenarUbicaciones.4gl
similarity index 100%
rename from PROYECTOS/otrodir/LlenarUbicaciones.4gl
rename to PROYECTO/otrodir/LlenarUbicaciones.4gl