|
of_gettransobject
|
|
Full name
|
pfc_n_cst_tvsrv_levelsource.of_gettransobject
|
Access
|
public
|
Extend of
|
integer
|
Return value
|
integer
|
Prototype
|
public function integer of_gettransobject(integer,ref n_tr)
|
Name
|
Datatype
|
li_limit
|
integer
|
public function integer of_gettransobject (integer ai_level, ref n_tr atr_obj);//////////////////////////////////////////////////////////////////////////////
//
// Function: of_GetTransObject
//
// Access: public
//
// Arguments:
// ai_level The level of the treeview to get the transaction object from
// atr_obj The transaction object (of type n_tr) the treeview level uses.
// Passed by reference.
//
// Returns: Integer
// 1 - the transaction object was valid,
// -1 - it was not.
//
// Description: Get the transaction object used for the treeview level.
//
//////////////////////////////////////////////////////////////////////////////
//
// 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.
//
//////////////////////////////////////////////////////////////////////////////
integer li_limit
// check arguments
If isNull(ai_level) or (ai_level < 1) Then Return -1
// Verify that this is a valid level
li_Limit = UpperBound(inv_attrib)
If ai_Level > li_Limit Then
// Allow for recursion
If Not inv_attrib[li_Limit].ib_Recursive Then Return -1
ai_Level = li_Limit
End If
If IsNull(inv_attrib[ai_level].itr_obj) Or Not IsValid(inv_attrib[ai_level].itr_obj) Then
Return -1
End if
atr_obj = inv_attrib[ai_level].itr_obj
Return 1
end function
Name
|
Owner
|
systemfunctions.isnull |
systemfunctions
|
systemfunctions.isvalid |
systemfunctions
|
systemfunctions.upperbound |
systemfunctions
|