dennnyСтрочка Do_Key('execute_query') хорошо помогала в эмбеде WHEN-NEW-FORM-INSTANCE на форме. Добавил новый ДАТА-блок с деревом на ту же форому - перестала спасать эта строчка. Пытался вставить WHEN-NEW-FORM-INSTANCE на сам ДАТА-блок с таблицей - не помогает. Может кто объяснит не "куда сунуть", а в чем фишка ситуации ?
Деревянный блок нельзя заполнить с помощью этой команды.
Сначала надо создать Record_Group, в котрой будет лежать иерархический запрос
Эту группу связать с деревом, после этого обновить дерево
Примерно так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
procedure refresh_(id number) is
htree item;
query_ok number;
rg_tree recordgroup;
state number;
query_txt varchar2( 32000 );
top_node ftree.node;
t timer;
znode_id number;
begin
<<metka>>
-- найти деревянный итем
htree := find_item('ltree.lpoint');
-- найти рекорд_группу
rg_tree := find_group('TREE_GRP');
if not id_null(rg_tree) then
delete_group(rg_tree);
end if;
-- иерархический запрос
query_txt := 'select node_state, node_level, node_name, node_icon, node_id'||
' from tree_item_tmp where item_id = '||id||
' order by node_sort ';
-- создать группу
rg_tree := Create_Group_From_Query('TREE_GRP', query_txt);
-- заполнить группу
query_ok := populate_group(rg_tree);
-- привязать группу к деревянному итему
ftree.set_tree_property(htree, ftree.record_group, 'TREE_GRP');
synchronize;
END;
