From 987c2c1122bc7862630e4bfde51b63f8ab5834cb Mon Sep 17 00:00:00 2001 From: Jeilyn Peguero Date: Thu, 10 Sep 2026 14:15:49 -0400 Subject: [PATCH] Avanzar en registro y correccion de ipprmt044 (Productos Terminados) - Registrar 8 archivos faltantes en FUNCIONES_IP (ipautorizareq, codigoModificacion, piking, conduces, ubicacionH, ipactualizareqtrx, loadDespiece, LlenarUbicaciones) - Agregar dependencias FUNCIONESREPORT y FUNCIONESEMAIL a ipprmt044 (defecto, configureOutput, enviaemail ya existian en el proyecto) - Resolver colision de nombres: renombrar REPORT/FUNCTION duplicados en ipautorizareq.4gl (requiere->requiereAutoriza, buscadoc->buscadocAutoriza, impdocumento->impdocumentoAutoriza) que chocaban con imprequisiciones.4gl y buscarequisicion.4gl - Sincronizar registros locales desactualizados: x RECORD en ipautorizareq.4gl (faltaba us_crea) y x/z RECORD del REPORT formu4 en ipprgb000.4gl (faltaban bodega_destino, factura, area, descripcion_area, existencia, disponible, codigo_bloque, id_kit) respecto a los registros globales reales - Migrar ipprmt020_1.4rp desde PROYECTOS y corregir su RWFglReportName Pendiente: funcion 'fotos' (12 parametros) no existe en ningun archivo del proyecto, consultado con Johnny --- PROYECTO/bin/ipprmt020_1.4rp | 126 ++++++++++++++++++ PROYECTO/ipdir/ipautorizareq.4gl | 23 ++-- PROYECTO/ipdir/ipprgb000.4gl | 14 +- PROYECTO/mbsERP.4pw | 11 +- .../otrodir/LlenarUbicaciones.4gl | 0 5 files changed, 159 insertions(+), 15 deletions(-) create mode 100644 PROYECTO/bin/ipprmt020_1.4rp rename {PROYECTOS => PROYECTO}/otrodir/LlenarUbicaciones.4gl (100%) 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