FUNCTION cinstalador()
 DEFINE instalador ui.ComboBox,
        kinstalador SMALLINT,
        ddescripcion CHAR(60)

 LET  instalador = ui.ComboBox.forName("formonly.num_emp_inst")  

 CALL instalador.clear()

 DECLARE busca CURSOR FOR
   SELECT a.num_emp,RTRIM(a.nom1_emp)||' '||ISNULL(RTRIM(a.apell1_emp),' ') FROM adtb00003 a
   WHERE a.instalador ='SI' AND a.status_t IS NULL
   ORDER BY a.nom1_emp
   FOREACH busca INTO kinstalador,ddescripcion
     CALL instalador.addItem(kinstalador,ddescripcion)
   END FOREACH

 
END FUNCTION