of_setrecursive

pfcapsrv.pbl   >   pfc_n_cst_tvsrv_levelsource   >   of_setrecursive

Name	Datatype
ls_coltype	string

public function integer of_setrecursive (integer ai_level, boolean ab_switch);//////////////////////////////////////////////////////////////////////////////
//
//	Function:	of_SetRecursive
//
//	Access:		Public
//
//	Arguments:	
//	ai_Level		The level of the treeview to set the recursion for.
//	ab_switch	True to turn on recursion for the tree level
//					false to turn off recursion for the tree level
//
//	Returns:		integer
//					 1 = success
//					-1 = failure
//
//	Description:	Turn on recursion for this level of the tree and all beneath it.
//						You must define the level first and then set recursion on it.
//						Recursion means that the level will be the last level of the tree
//						defined and all children of that level's items will be defined like
//						the level defined as recursive.  Using this you can show the recursive
//						relationship between items in the tree.  visualize it as the tree in
//						Windows Explorer where all that tree shows is directories and 
//						subdirectories... no matter how far down the tree you go.
//
//////////////////////////////////////////////////////////////////////////////
//
//	Revision History
//
//	Version
//	6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
//	Copyright © 1996-1997 Sybase, Inc. and its subsidiaries.  All rights reserved.
//	Any distribution of the PowerBuilder Foundation Classes (PFC)
//	source code by other than Sybase, Inc. and its subsidiaries is prohibited.
//
//////////////////////////////////////////////////////////////////////////////
string	ls_coltype

// Verify that this is a valid level
If ai_Level > UpperBound(inv_attrib) Then
	Return -1
Else
	If Trim(inv_attrib[ai_Level].is_DataObject) = "" Then
		Return -1
	End If
End If

If IsNull(ab_switch) Then
	Return -1
End If


inv_attrib[ai_level].ib_recursive = ab_switch

return 1
end function

Name	Owner
systemfunctions.isnull	systemfunctions
systemfunctions.trim	systemfunctions
systemfunctions.upperbound	systemfunctions