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