FUNCTION cvendedor(xusuario)
 DEFINE  k1vendedor SMALLINT, dvendedor CHAR(60),
         k2vendedor ui.combobox,
         tipo_vendedor VARCHAR(10),
         xusuario VARCHAR(50),
         selec STRING
 
 LET k2vendedor = ui.combobox.forname("formonly.kvendedor")
 IF xusuario = "ALL" THEN
    LET selec = "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  RTRIM(CAST(b.nom1_emp AS CHAR(30)))+' ' +
          RTRIM(CAST(b.apell1_emp AS CHAR(30)))+'('+LTRIM(CAST(b.num_emp AS VARCHAR(6)))+')' "
  ELSE
     LET selec = "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,seg0007 c
          WHERE a.sec_vend = b.num_emp  AND c.usuario ='",xusuario CLIPPED,"' AND c.sec_vend = b.num_emp ",
          "order by  RTRIM(CAST(b.nom1_emp AS CHAR(30)))+' ' +
          RTRIM(CAST(b.apell1_emp AS CHAR(30)))+'('+LTRIM(CAST(b.num_emp AS VARCHAR(6)))+')' "
 
  END IF
          
 PREPARE comando FROM selec         
 DECLARE bvendedor CURSOR FOR comando
   
 CALL k2vendedor.clear()
 
 FOREACH bvendedor INTO k1vendedor,dvendedor
  CALL k2vendedor.additem(k1vendedor,dvendedor)
 END FOREACH
  
END FUNCTION