From e414e525235e1cc012f8991382c219be1f90ffef Mon Sep 17 00:00:00 2001 From: Jeilyn Peguero Date: Thu, 10 Sep 2026 13:03:01 -0400 Subject: [PATCH] Registrar y corregir ipprmt021 (Autorizaciones Requisiciones Almacenes) - Registrar estadosprocesos.4gl y formulario ipfmmt021.4fd en el proyecto - Corregir columna estado_proceso inexistente por idestado (error SQL -6372) - Corregir desfase de columnas en SELECT/INTO de buscadoc() que dejaba usuario, bodega origen y tipo de movimiento vacios en el reporte impreso, y filtraba la descripcion del estado hacia el campo de observacion --- PROYECTO/ipdir/buscarequisicion.4gl | 19 ++++++++++++++++--- PROYECTO/ipdir/ipprgb000.4gl | 3 ++- PROYECTO/ipdir/ipprmt021.4gl | 2 +- PROYECTO/mbsERP.4pw | 2 ++ 4 files changed, 21 insertions(+), 5 deletions(-) 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 @@ + +