FUNCTION cvendedor()
 DEFINE  k1vendedor SMALLINT, dvendedor CHAR(60),
         k2vendedor ui.ComboBox
 
 LET k2vendedor = ui.combobox.forname("formonly.kvendedor")
 
 DECLARE bvendedor CURSOR FOR
   SELECT UNIQUE b.num_emp,RTRIM(CAST(b.nom1_emp AS CHAR(30)))+" " +
          RTRIM(CAST(b.apell1_emp AS CHAR(30)))+"("+LTRIM(CAST(b.num_emp AS VARCHAR(6)))+")" FROM vetb00028 a,
          adtb00003 b
   WHERE a.sec_vend = b.num_emp 
   order by 2
 CALL k2vendedor.clear()
 
 FOREACH bvendedor INTO k1vendedor,dvendedor
  CALL k2vendedor.additem(k1vendedor,dvendedor)
 END FOREACH
  
END FUNCTION