From 4059dc92e6d0939012de4eb0cea7754e839c1f7e Mon Sep 17 00:00:00 2001 From: Jeilyn Peguero Date: Wed, 21 Oct 2026 09:40:43 -0400 Subject: [PATCH] ipprmt002: recalcula nombre_representante antes de grabar (Escoger lo dejaba en blanco) En la pantalla nueva se puede aceptar con OK sin pasar por el campo num_emp, y nombre_representante solo se calculaba en AFTER FIELD num_emp. Al modificar un producto, el UPDATE lo grababa vacio. Se recalcula antes de los 5 INSERT/UPDATE de iptb00002. Verificado en la .250: tras Escoger+OK sin cambios solo cambian us_mod y fech_mod. Co-Authored-By: Claude Sonnet 5.5 --- PROYECTO/ipdir/ipprmt002.4gl | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/PROYECTO/ipdir/ipprmt002.4gl b/PROYECTO/ipdir/ipprmt002.4gl index e2ec10c..6fe6279 100644 --- a/PROYECTO/ipdir/ipprmt002.4gl +++ b/PROYECTO/ipdir/ipprmt002.4gl @@ -648,6 +648,10 @@ SET CONNECTION "MSSQL" p_iptb02.cod_sec,p_iptb02.unidad_med,p_iptb01.factor_conv, NULL,SUSER_SNAME(),GETDATE(),NULL,NULL,p_iptb01.factor_ad) + # Se puede aceptar sin pasar por num_emp (GUI): se recalcula el nombre del representante + IF p_iptb02.num_emp IS NOT NULL THEN + LET p_iptb02.nombre_representante = ui.ComboBox.forName('formonly.num_emp').getTextOf(p_iptb02.num_emp) + END IF INSERT INTO iptb00002(cod_cia,cod_n,cod_grupo,cod_tipo,cod_Sec,descrip_esp, descrip_ing,unidad_med,bodega,control_existencia,control_itbis,dia_llegada,exist_max, exist_min,us_crea,fech_crea,foto_producto,porc_desc,fecha_desc,imagen,descuento_permitido,departamento,grupo1, @@ -685,6 +689,10 @@ SET CONNECTION "MSSQL" SET CONNECTION "IFMX" + # Se puede aceptar sin pasar por num_emp (GUI): se recalcula el nombre del representante + IF p_iptb02.num_emp IS NOT NULL THEN + LET p_iptb02.nombre_representante = ui.ComboBox.forName('formonly.num_emp').getTextOf(p_iptb02.num_emp) + END IF INSERT INTO iptb00002(cod_cia,cod_n,cod_grupo,cod_tipo,cod_Sec,descrip_esp, descrip_ing,unidad_med,bodega,control_existencia,control_itbis,dia_llegada,exist_max, exist_min,imp_aduanal, us_crea,fech_crea,codid) @@ -714,6 +722,10 @@ SET CONNECTION "MSSQL" # PRIMERA CONEXION SET CONNECTION "MSSQL" + # Se puede aceptar sin pasar por num_emp (GUI): se recalcula el nombre del representante + IF p_iptb02.num_emp IS NOT NULL THEN + LET p_iptb02.nombre_representante = ui.ComboBox.forName('formonly.num_emp').getTextOf(p_iptb02.num_emp) + END IF UPDATE iptb00002 SET iptb00002.cod_cia = p_iptb02.cod_cia, iptb00002.cod_n =p_iptb02.cod_n, iptb00002.cod_grupo = p_iptb02.cod_grupo, @@ -790,6 +802,10 @@ SET CONNECTION "MSSQL" a.cod_sec = p_iptb02.cod_sec IF STATUS <> NOTFOUND THEN + # Se puede aceptar sin pasar por num_emp (GUI): se recalcula el nombre del representante + IF p_iptb02.num_emp IS NOT NULL THEN + LET p_iptb02.nombre_representante = ui.ComboBox.forName('formonly.num_emp').getTextOf(p_iptb02.num_emp) + END IF UPDATE iptb00002 SET iptb00002.cod_cia = p_iptb02.cod_cia, iptb00002.descrip_esp =p_iptb02.descrip_esp, iptb00002.descrip_ing =p_iptb02.descrip_ing, @@ -810,6 +826,10 @@ SET CONNECTION "MSSQL" cod_tipo = p_iptb02.cod_tipo AND cod_Sec = p_iptb02.cod_sec ELSE + # Se puede aceptar sin pasar por num_emp (GUI): se recalcula el nombre del representante + IF p_iptb02.num_emp IS NOT NULL THEN + LET p_iptb02.nombre_representante = ui.ComboBox.forName('formonly.num_emp').getTextOf(p_iptb02.num_emp) + END IF INSERT INTO iptb00002(cod_cia,cod_n,cod_grupo,cod_tipo,cod_Sec,descrip_esp, descrip_ing,unidad_med,bodega,control_existencia,control_itbis,dia_llegada,exist_max, exist_min,imp_aduanal,us_crea,fech_crea,codid)