FUNCTION familia()
 
 DEFINE  ketiquetas SMALLINT, detiquetas CHAR(30),
         cbcategoria ui.ComboBox,
         cb2 CHAR(2)
         
    LET cbcategoria = ui.combobox.forname("formonly.id_familia")
    DECLARE bcategoria CURSOR FOR
      SELECT a.id_familia,LTRIM(a.descripcion) FROM familia a
      ORDER BY a.descripcion
      CALL cbcategoria.clear()
 
    FOREACH bcategoria INTO ketiquetas,detiquetas
      CALL cbcategoria.additem(ketiquetas,detiquetas)
    END FOREACH
    
 END FUNCTION