set_window_PRoperty('window1', window_state, maximize); declare rg1 recordgroup; t number; uname varchar2(32); BEGIN :global.os := get_application_property(Operating_system);
rg1 := find_group('RG1'); if not id_null(rg1) then delete_group(rg1); end if; uname := user; :vdata := uname; uname := lower(uname); rg1 := create_group_from_query('RG1','select init,depth,lpad(substr(treeno,-1,2),2,''0'')''.''label,'''',data from menu order by treeno'); t := populate_group(rg1); ftree.set_tree_property('TREE',Ftree.record_group, rg1); --psize(); END;
ftype:=lower(substr(node_value,-1,3)); --ftype:='fmx'; if node_value <>'node' then if ftype = 'fmx' then call_form(node_value ,no_hide); elsif ftype = 'sql' then -- execute those sql need not parameter -- host('plus80w @':vdata, NO_SCREEN); end if; end if; END;
