of_retrieve


pfcdwsrv.pbl   >   pfc_n_cst_dwsrv_linkage   >   of_retrieve   

Full name pfc_n_cst_dwsrv_linkage.of_retrieve
Access public
Extend of integer
Return value integer
Prototype public function integer of_retrieve()

Name Datatype
No Data

Name Datatype
lb_rowpriortoretrieveisone Boolean
li_i Integer
li_numdetails Integer
li_rc Integer

public function integer of_retrieve ();//////////////////////////////////////////////////////////////////////////////
//
//	Function:  		of_Retrieve
//
//	Access:    		Public
//
//	Arguments: 		None
//
//	Returns:   		Integer
//   					1 if it succeeds and -1 if an error occurs.
//
//	Description:  Retrieves (using 'pfc_retrieve' event) the datawindows in the
//					  linked chain, starting with the requesting datawindow.
//
//	  *Note: Typically called from the root datawindow to affect all datawindows in
//	   		the chain, but may be started anywhere in the chain.
//
//////////////////////////////////////////////////////////////////////////////
//
//	Revision History
//
//	Version
//	5.0   Initial version
// 5.0.02 When appropriate, notify the requestor that row focus has changed.
// 5.0.04 If applicable when using the scroll style, scroll to the appropriate row.
// 6.0 	Instead of notifying the requestor of the rowfocus just notify the service.
//
//////////////////////////////////////////////////////////////////////////////
//
//	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_numdetails
Integer	li_i
Integer	li_rc=1
Boolean 	lb_rowpriortoretrieveisone

// Determine the current row prior to retrieval.
lb_rowpriortoretrieveisone = (idw_requestor.GetRow() = 1)

// Retrieve the requesting datawindow.
If idw_requestor.Event pfc_retrieve () = -1 Then Return FAILURE

// If appropriate, notify the service of the row focus change.
If lb_rowpriortoretrieveisone and (idw_requestor.GetRow() = 1) Then
	this.Event pfc_RowFocusChanged(1)
End If

Choose Case ii_collinkuse
	Case FILTER
		// The retrieve should be filtered.
		If IsValid(idw_master) Then
			If IsValid(idw_master.inv_linkage) Then
				of_FilterDetails(idw_master.GetRow())
			End If
		End If
	Case SCROLL
		// The retrive should be scrolled.
		If IsValid(idw_master) Then
			If IsValid(idw_master.inv_linkage) Then
				of_ScrollDetails(idw_master.GetRow())
			End If
		End If
End Choose	

// Loop through the valid details and call this function on the each detail.
li_numdetails = UpperBound ( idw_details ) 
For li_i = 1 to li_numdetails 
	If IsValid ( idw_details[li_i]) Then
 		If IsNull(idw_details[li_i].inv_Linkage) Or &
		 	Not IsValid ( idw_details[li_i].inv_Linkage) Then Return FAILURE
		li_rc = idw_details[li_i].inv_Linkage.of_Retrieve ( )
		// If error, then get out now.
		If li_rc <> 1 Then Exit
	End If 
Next 

Return li_rc
end function

     
Name Owner
pfc_n_cst_dwsrv_linkage.of_retrieve pfc_n_cst_dwsrv_linkage
pfc_u_dw.of_Retrieve pfc_u_dw
w_sheet_sales_order.pfc_postopen w_sheet_sales_order
w_sheet_employee.pfc_postopen w_sheet_employee

     
Name Owner
datawindow.getrow datawindow
systemfunctions.isnull systemfunctions
systemfunctions.isvalid systemfunctions
systemfunctions.upperbound systemfunctions
pfc_n_cst_dwsrv_linkage.of_retrieve pfc_n_cst_dwsrv_linkage
pfc_n_cst_dwsrv_linkage.of_scrolldetails pfc_n_cst_dwsrv_linkage
pfc_n_cst_dwsrv_linkage.of_filterdetails pfc_n_cst_dwsrv_linkage
pfc_n_cst_dwsrv_linkage.pfc_rowfocuschanged pfc_n_cst_dwsrv_linkage
pfc_u_dw.pfc_retrieve pfc_u_dw

     
Full name
No Data

     
Name Scope
No Data