Попълване на елемент от дърво с група записи във форми на Oracle

ДЕКЛАРИРАЙТЕ
htree ITEM;
v_ignore NUMBER;
rg_emps RECORDGROUP;
BEGIN
-- Намерете самото дърво.
htree :=Find_Item('treeblock. htree1');
-- Проверете за съществуването на групата записи.
rg_emps :=Find_Group('emps');
АКО НЕ Id_Null(rg_emps) ТОГАВА
DELETE_GROUP( rg_emps);
END IF;
-- Създайте групата записи.
rg_emps :=Create_Group_From_Query('rg_emps',
'select 1, level, ename, NULL, to_char( empno) ' ||
'от emp ' ||
'свързване чрез предварително empno =mgr ' ||
'започнете с работа =''ПРЕЗИДЕНТ''');
-- Попълнете групата записи с данни.
v_ignore :=Populate_Group(rg_emps);
-- Прехвърлете данните от групата записи в йерархичното
-- дърво и ги накарайте да се покажат.
Ftree.Set_Tree_Property(htree, Ftree.RECORD_GROUP, rg_emps);
END;