pfc_propertyapply

pfcutil.pbl   >   pfc_u_tabpg_dwproperty_srvreqcolumn   >   pfc_propertyapply

Name	Datatype
li_cnt	integer
li_index	integer
li_rc	integer
li_upper	integer
ls_column	string

event pfc_propertyapply;call super::pfc_propertyapply;//////////////////////////////////////////////////////////////////////////////
//
//	Function:  		pfc_PropertyApply
//
//	Access:    		Public
//
//	Arguments:  	None
//
//	Returns:   		Integer
//   1 if it succeeds.
//	 -1 if an error occurs.
//
//	Description:  		
//	 Apply the requested changes.
//
//////////////////////////////////////////////////////////////////////////////
//
//	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_upper
integer	li_cnt
integer 	li_rc
integer	li_index
string	ls_column

// Validate references.
If IsNull(idw_requestor) or Not IsValid(idw_requestor) Then
	Return -1
End If
If IsNull(idw_requestor.inv_reqcolumn) or Not IsValid(idw_requestor.inv_reqcolumn) Then
	Return -1
End If

// -- Register or Unregister skip Columns. --
// Get the number of items in the ListBox.
li_upper = lb_registeredskipcolumns.TotalItems()
For li_cnt = 1 to li_upper
	// Get the column name.
	ls_column = lb_registeredskipcolumns.text(li_cnt)
	// Is the column name selected?
	If lb_registeredskipcolumns.State(li_cnt) = 1 THEN  
		// Want this current column to be registered.
		If Not idw_requestor.inv_reqcolumn.of_IsRegistered(ls_column) Then
			li_rc = idw_requestor.inv_reqcolumn.of_RegisterSkipColumn(ls_column)
		End If
	Else
		// Want this current column to Not be registed.
		If idw_requestor.inv_reqcolumn.of_IsRegistered(ls_column) Then
			li_rc = idw_requestor.inv_reqcolumn.of_UnRegister(ls_column)
		End If		
	End If
Next

Return 1

end event

Name	Owner
listbox.state	listbox
listbox.text	listbox
listbox.totalitems	listbox
systemfunctions.isnull	systemfunctions
systemfunctions.isvalid	systemfunctions
pfc_n_cst_dwsrv_reqcolumn.of_registerskipcolumn	pfc_n_cst_dwsrv_reqcolumn
pfc_n_cst_dwsrv_reqcolumn.of_IsRegistered	pfc_n_cst_dwsrv_reqcolumn
pfc_n_cst_dwsrv_reqcolumn.of_Unregister	pfc_n_cst_dwsrv_reqcolumn
pfc_u_tabpg_dwproperty_base.pfc_propertyapply	pfc_u_tabpg_dwproperty_base

Full name
pfc_u_tabpg_dwproperty_srvreqcolumn