FUNCTION gerentesmarcas()                                                   
DEFINE pgerentes ui.combobox,                                              
        knum_emp SMALLINT,knombre VARCHAR(100)
   
       LET  pgerentes = ui.combobox.forname("formonly.num_emp")  
       CALL pgerentes.clear()                                         
       DECLARE depto CURSOR FOR                                           
         SELECT a.num_emp, rtrim(a.nom1_emp)+' '+rtrim(a.apell1_emp) FROM adtb00003 a
         WHERE a.gerentemarcas = 'SI' AND
               a.status_t is null 
        
       FOREACH depto INTO knum_emp,knombre
         CALL pgerentes.additem(knum_emp,knombre)                        
       END FOREACH 
    
END FUNCTION