pfc_propertybufferchanged

pfcutil.pbl   >   pfc_u_tabpg_dwproperty_buffers   >   pfc_propertybufferchanged

Name	Datatype
li_rc	Integer
ll_deletedcount	long
ll_filteredcount	long

event pfc_PropertyBufferChanged;call super::pfc_PropertyBufferChanged;//////////////////////////////////////////////////////////////////////////////
//
//	Event:  pfc_PropertyBufferChanged
//
//	Arguments:  
//	adwb_buffer	The requested buffer.
//
//	Returns:  none
//	
//	Description:	 
//	Notification that the buffer has been changed or needs refresing.
//
//////////////////////////////////////////////////////////////////////////////
//	
//	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_rc
long		ll_filteredcount
long		ll_deletedcount

//Validate the argument
If adwb_buffer = Primary! or adwb_buffer = Filter! or adwb_buffer = Delete! Then
	// Expected value.
Else
	Return -1
End If

// Initialize
dw_requestorduplicate.Reset()


If adwb_buffer = Primary! Then
	// Set the datawindows.
	dw_requestorduplicate.Visible = False
	dw_requestorview.Visible = True

	// Set the buttons.
	cb_undelete.Enabled = False
	cb_filter.Enabled = True
	cb_sort.Enabled = True

ElseIf adwb_buffer = Filter! Then
	// For Display only.  Copy the Filtered rows to the Duplicate dw.
	ll_filteredcount = dw_requestorview.FilteredCount()
	If ll_filteredcount > 0 Then
		li_rc = dw_requestorview.RowsCopy (1, ll_filteredcount, Filter!, &
					dw_requestorduplicate, 1, Primary!)
		If li_rc <= 0 Then Return -1
	End If
	
	// Set the datawindows.
	dw_requestorduplicate.Visible = True
	dw_requestorview.Visible = False	
	
	// Set the buttons.
	cb_undelete.Enabled = False
	cb_filter.Enabled = True
	cb_sort.Enabled = False	
	
Else // Delete! buffer.
	// For Display only.  Copy the Deleted rows to the Duplicate dw.
	ll_deletedcount = dw_requestorview.DeletedCount()
	If ll_deletedcount > 0 Then
		li_rc = dw_requestorview.RowsCopy (1, dw_requestorview.DeletedCount(), Delete!,  &
					dw_requestorduplicate, 1, Primary!)
		If li_rc <= 0 Then Return -1	
	End If
	
	// Set the datawindows.
	dw_requestorduplicate.Visible = True
	dw_requestorview.Visible = False	
	
	// Set the buttons.
	cb_undelete.Enabled = False	
	cb_filter.Enabled = False
	cb_sort.Enabled = False	
	
End If

Return 1
end event

Name	Owner
pfc_u_tabpg_dwproperty_buffers.rb_primary.clicked	rb_primary
pfc_u_tabpg_dwproperty_buffers.rb_filtered.clicked	rb_filtered
pfc_u_tabpg_dwproperty_buffers.rb_deleted.clicked	rb_deleted

Name	Owner
datawindow.deletedcount	datawindow
datawindow.filteredcount	datawindow
datawindow.reset	datawindow
datawindow.rowscopy	datawindow

Full name
pfc_u_tabpg_dwproperty_buffers
pfc_u_tabpg_dwproperty_buffers.cb_undelete