Forms 6 hierarchical Tree

Question

I would like to Know concept of Hierarchical Tree of forms 6i. What query should be written in the record group to populate the tree and how to implement hierarchical tree to make the form act like Windows Explorer .
Thank You.

Answer 1

Read the documentation. Here is a sample query to load the record group.
PROCEDURE prc_populate_record_group
IS
CURSOR g IS
SELECT groupnum,
groupnm
FROM merch_group
ORDER BY groupnm;
CURSOR c (l_groupnum NUMBER) IS
SELECT categorynum,
categorynm
FROM merch_group_category
WHERE groupnum = l_groupnum
ORDER BY categorynm;
i NUMBER;
l_rg_id RECORDGROUP;
l_init_state GROUPCOLUMN;
l_level GROUPCOLUMN;
l_label GROUPCOLUMN;
l_icon GROUPCOLUMN;
l_value GROUPCOLUMN;
l_node ftree.node;
l_next_node ftree.node;
l_tree_item ITEM;
BEGIN
l_rg_id := FIND_GROUP('PRC_GROUP_CAT');
IF NOT ID_NULL(l_rg_id)
THEN
DELETE_GROUP(l_rg_id);
END IF;
l_rg_id := CREATE_GROUP('PRC_GROUP_CAT');
l_init_state := ADD_GROUP_COLUMN(l_rg_id, 'init_state', NUMBER_COLUMN);
l_level := ADD_GROUP_COLUMN(l_rg_id, 'level', NUMBER_COLUMN);
l_label := ADD_GROUP_COLUMN(l_rg_id, 'label', CHAR_COLUMN, 40);
l_icon := ADD_GROUP_COLUMN(l_rg_id, 'icon', CHAR_COLUMN, 20);
l_value := ADD_GROUP_COLUMN(l_rg_id, 'value', CHAR_COLUMN, 40);
i := 1;
FOR g_rec IN g
LOOP
ADD_GROUP_ROW (l_rg_id, i);
SET_GROUP_NUMBER_CELL(l_init_state, i, -1);
SET_GROUP_NUMBER_CELL(l_level, i, 1);
SET_GROUP_CHAR_CELL(l_label, i, g_rec.groupnm| |' - '| |g_rec.groupnum);
SET_GROUP_CHAR_CELL(l_icon, i, NULL);
SET_GROUP_CHAR_CELL(l_value, i, g_rec.groupnum);
i := i + 1;
FOR c_rec IN c (g_rec.groupnum)
LOOP
ADD_GROUP_ROW (l_rg_id, i);
SET_GROUP_NUMBER_CELL(l_init_state, i, -1);
SET_GROUP_NUMBER_CELL(l_level, i, 3);
SET_GROUP_CHAR_CELL(l_label, i, c_rec.categorynm| |' - '| |c_rec.categorynum);
SET_GROUP_CHAR_CELL(l_icon, i, NULL);
SET_GROUP_CHAR_CELL(l_value, i, c_rec.categorynum);
i := i + 1;
END LOOP;
END LOOP;
--Find the tree
l_tree_item := find_item('CONTROL.TREE4');
-- Assign record group to item causing the data to display
ftree.set_tree_property(l_tree_item, ftree.record_group, l_rg_id);
-- Find the root node of the tree
l_node := ftree.find_tree_node(l_tree_item, '');
END;
null