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)