if empty(lnSave) or !.set_currentNode()
		With .pgFrame.oPage1.oleTreeView
			.SetFocus ()
			.Click ()
			.LabelEdit =  0 
		endwith
	endif

* становимся на нужную страницу и нужный узел
with this
	Select (.cSetupAlias)
	local lnPage, lcKey, loPage, loNode
	lnPage = nPage
	lcKey  = alltrim(cKey)
 	if !empty(lnPage)
		try 
			loPage = .pgFrame.Pages(lnPage)
		catch
		endtry
		if vartype(loPage)='O'
			if lnPage<> 1 
				this.pgFrame.ActivePage = lnPage
				thisform.ChangeGroupPage(loPage)
				loPage.Fontbold = .t.
			endif
			if !empty(lcKey)
				try
					loNode = loPage.oleTreeView.nodes(lcKey)
				catch
				endtry
				if vartype(loNode)='O'
					store .t. to loNode.Expanded, loNode.Selected
				else
					return .f.
				endif
			endif
			with loPage.oleTreeView
				.SetFocus ()
				.Click ()
				.LabelEdit =  0 
			endwith 
		else
			return .f.
		endif
	else
		return .f.
	endif
endwith
return .t.