FUNCTION Get_Prev_Tree_Node(in_node IN FTREE.Node) RETURN FTREE.Node IS
	parent_node FTREE.Node;
	prev_node		FTREE.Node;
	cur_node		FTREE.Node;
	start_node	FTREE.Node;
	htree 			ITEM;	
	i number := 1;
BEGIN
	--Проверяем чтобы параметр не был пустым. Если входящий пустой, то и результат соответствующий.
  IF NOT FTREE.ID_NULL(in_node) THEN
		htree := Find_Item('TREE_OBJECTS.TREE');
  	parent_node := FTREE.GET_TREE_NODE_PARENT(htree, in_node);
  	--Проверяем есть ли родитель у входящего элемента.
  	IF NOT FTREE.ID_NULL(parent_node) THEN
  		--Если есть, то цикл будем начинать с родителя.
  		start_node := parent_node;
  	ELSE
  		start_node := FTREE.FIND_TREE_NODE(htree, '', FTREE.FIND_NEXT, FTREE.NODE_LABEL, FTREE.ROOT_NODE, FTREE.ROOT_NODE);
  	END IF;
  	--Если входящий параметр это первый элемент дерева, то сразу говорим что предыдущего элемента у него нет.
  	IF in_node = start_node THEN
  		RETURN NULL;
  	END IF;
  	--Организуем цикл.
 		prev_node := start_node;
  	LOOP
  		cur_node := FTREE.FIND_TREE_NODE(htree, '', FTREE.FIND_NEXT, FTREE.NODE_LABEL, FTREE.ROOT_NODE, prev_node);
  		IF cur_node = in_node THEN
  			EXIT;
  		END IF;
  		prev_node := cur_node;
  	END LOOP;
  ELSE
  	RETURN NULL;
  END IF;
  --Возможно, что предыдущий элемент "не раскрыт" и выделять его, раскрыв, будет не очень красиво.
  --Поэтому нужно найти его ближайшего "видимого" родителя.
  LOOP
  	i:=i+1;
  	if i>10 then exit;
  	end if;
  	parent_node := FTREE.GET_TREE_NODE_PARENT(htree, prev_node);
  	--Если родитель есть.
  	IF NOT FTREE.ID_NULL(parent_node) THEN
	  	--Если узел не раскрыт, то делаем родителя нашим искомым элементом и идем на следующую итерацию.
	  	IF FTREE.GET_TREE_NODE_PROPERTY(htree, parent_node, FTREE.NODE_STATE) = FTREE.COLLAPSED_NODE THEN
	  		prev_node := parent_node;
	  	--Если родитель раскрыт, выходим из цикла.
	  	ELSE
	  		EXIT;
	  	END IF;
		--Если родителя нет, то выходим из цикла.
  	ELSE
  		EXIT;
  	END IF;
  END LOOP;
  RETURN prev_node;
END;