PROCEDURE pop_tree (tree_mode VARCHAR2) IS
	
	htree     	ITEM;
	Query_text	VarChar2( 1000 );
	vParent     NUMBER;

BEGIN

	htree := Find_Item('TREE_BLOCK.HTREE3');

	-- очистить дерево
	Ftree.Populate_Tree(htree);
	
	-- заполнить дерево
	If tree_mode = 'EXPAND' then
		Query_text:= 'SELECT 1';
	ELSE	
		Query_text:= 'SELECT DECODE(LEVEL, 1, 1, -1)';
	END IF;
	
	Query_text:= Query_text||' AS STATE, LEVEL, '||
									'st.st_pack.item_decode(t.ITEM_ID, ''FULL'') || '' (*''||to_char(t.amount) ||''/''||TO_CHAR(T.COMPLETE)||'')'', '||
									'st.st_pack.GET_icon_name('||to_char(:production_task.Production_id)||
									', LEVEL, T.PROD_PARENT_ID, T.PROD_CHILD_ID) AS ICONS, '||
									'T.PROD_CHILD_ID '||
								'FROM st.prod_task_structure t '||
								'WHERE t.production_id = '||to_char(:production_task.Production_id)||
								' AND  ST.ST_PACK.ITEM_DECODE(T.ITEM_ID, ''STORE_ID'') = '||to_char(:parameter.p_store_id)||
								' AND st.st_pack.Check_Drafts(t.ITEM_ID) = 1 '||
								' CONNECT BY T.PROD_PARENT_ID = PRIOR T.PROD_CHILD_ID '||
								' START WITH PROD_PARENT_ID = 0'||
								' ORDER BY st.st_pack.Get_Tree_seq(T.ITEM_ID, LEVEL) ';
	
	-- Debug SQL
	DebugSQL('Executing> '||Query_text, FALSE);

	-- вставить ветку в дерево-приемник
	Ftree.Add_Tree_Data(htree,
		                   Ftree.ROOT_NODE,
		                   Ftree.PARENT_OFFSET,
		                   Ftree.LAST_CHILD,
		                   Ftree.QUERY_TEXT,
		                   query_text);
End;

Query_text:= 'select 1, level, ''Firm_name'', ''icons\module'', 1 from DUAL';