FUNCTION clasf_bloque()
 DEFINE kclasf_bloque VARCHAR(14),
        kdescripcion CHAR(75),
        clasf_bloque ui.ComboBox,
        xdepartamento int
 
 LET clasf_bloque = ui.combobox.forname("formonly.clasf_bloque")
 
 DECLARE busca_clasf_bloque CURSOR FOR
  SELECT a.cod_clasf_bloque, LTRIM(RTRIM(a.descrip_clasf_bloque)) 
    FROM intb00058 a ORDER BY a.cod_clasf_bloque, a.descrip_clasf_bloque
  
  CALL clasf_bloque.clear()
  FOREACH busca_clasf_bloque INTO kclasf_bloque,kdescripcion
   CALL clasf_bloque.additem(kclasf_bloque,kdescripcion)
  END FOREACH 
  
END FUNCTION