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 <noreply@anthropic.com>

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)