of_initialretrieve

pfcmain.pbl   >   pfc_u_tv   >   of_initialretrieve

Name	Datatype
li_rc	Integer
ll_Rows	Long

public function long of_initialretrieve (any aa_args[20]);//////////////////////////////////////////////////////////////////////////////
//
//	Function:  of_InitialRetrieve
//
//	Access:  public
//
//	Arguments:
//	aa_Args[20]				An array of type Any which contains the retrieval arguments
//									the first level's DataStore.
//
//	Returns:		Long
//					The number of rows retrieved
//
//	Description:	Retrieve the data and populate the first level of the TreeView.
//
//////////////////////////////////////////////////////////////////////////////
//
//	Revision History
//
//	Version
//	5.0   Initial version
//	6.0.01	Call of_settransobject on datastore rather than settransobject
//	6.0.01	Add error checking on settransobject, dw existing and successful population
//
//////////////////////////////////////////////////////////////////////////////
//
//	Copyright © 1996-1999 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_rc
Long	ll_Rows

// check datawindow object for existence.  This is set to ""
// in of_setdatasource() when the datawindow is not updateable
if inv_ds[1].s_DataWindow = "" then
	return -2
end if

ids_Buffer.DataObject = inv_ds[1].s_DataWindow

// Need to connect ok before we do a retrieve
If ids_Buffer.of_SetTransObject(inv_ds[1].tr_obj) <> 1 Then Return -5

ll_Rows = ids_Buffer.Retrieve(aa_Args[1], aa_Args[2], aa_Args[3], aa_Args[4], aa_Args[5], &
											aa_Args[6], aa_Args[7], aa_Args[8], aa_Args[9], aa_Args[10], &
											aa_Args[11], aa_Args[12], aa_Args[13], aa_Args[14], aa_Args[15], &
											aa_Args[16], aa_Args[17], aa_Args[18], aa_Args[19], aa_Args[20])

If ll_Rows > 0 Then 
	li_rc = of_PopulateLevel(1, 0)
	If li_rc < 0 Then Return li_rc
End if

Return ll_Rows

end function

Name	Owner
pfc_u_tv.of_initialretrieve	pfc_u_tv

Name	Owner
pfc_u_tv.of_populatelevel	pfc_u_tv
pfc_n_ds.of_settransobject	pfc_n_ds