pfc_propertyapply

pfcutil.pbl   >   pfc_u_tabpg_dwproperty_srvlinkage2   >   pfc_propertyapply

Name	Datatype
lb_current	boolean
lb_desired	boolean
li_rc	integer
li_stylecurrent	integer
li_styledesired	integer
ls_current	string
ls_desired	string

event pfc_propertyapply;call super::pfc_propertyapply;//////////////////////////////////////////////////////////////////////////////
//
//	Event:  		pfc_PropertyApply
//
//	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_rc
integer	li_stylecurrent, li_styledesired
boolean	lb_current, lb_desired
string	ls_current, ls_desired

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

// -- Sync On Key Change. --
lb_current = idw_requestor.inv_linkage.of_isSyncOnKeyChange()
lb_desired = cbx_synconkeychange.Checked
// If the desired value differs from the current value.
If  lb_current<> lb_desired Then
	li_rc = idw_requestor.inv_linkage.of_SetSyncOnKeyChange(lb_desired)
End If

// -- Delete Style. --
li_stylecurrent = idw_requestor.inv_linkage.of_GetDeleteStyle()
li_styledesired = ii_deletestyle - 1
// If the desired value differs from the current value.
If li_styledesired >= 0 And li_stylecurrent <> li_styledesired Then
	li_rc = idw_requestor.inv_linkage.of_SetDeleteStyle(li_styledesired)
End If

// -- Update Style. --
li_stylecurrent = idw_requestor.inv_linkage.of_GetUpdateStyle()
// The update styles are (1 through 4) and then the Custom (101).
If ii_updatestyle >= 5 Then 
	li_styledesired = 101
Else
	li_styledesired = ii_updatestyle
End If
// If the desired value differs from the current value.
If li_styledesired >= 0 And li_stylecurrent <> li_styledesired Then
	li_rc = idw_requestor.inv_linkage.of_SetUpdateStyle(li_styledesired)
End If

If ii_updatestyle > 100 Then
	// -- Custom Update. --
	li_stylecurrent = idw_requestor.inv_linkage.of_GetCustomUpdate()
	li_styledesired = ii_customupdate
	// If the desired value differs from the current value.
	If li_styledesired >= 0 And li_stylecurrent <> li_styledesired Then
		li_rc = idw_requestor.inv_linkage.of_SetCustomUpdate(li_styledesired)
	End If
End If

// Retrieve Style only options.
If idw_requestor.inv_linkage.of_GetStyle() = idw_requestor.inv_linkage.RETRIEVE Then
	// -- Update On Row Change. --
	lb_current = idw_requestor.inv_linkage.of_isUpdateOnRowChange()
	lb_desired = cbx_updateonrowchange.Checked
	// If the desired value differs from the current value.
	If  lb_current<> lb_desired Then
		li_rc = idw_requestor.inv_linkage.of_SetUpdateOnRowChange(lb_desired)
	End If

	// Update On Row Change only options.
	If cbx_updateonrowchange.Checked Then
		// -- Confirm On Row Change. --
		lb_current = idw_requestor.inv_linkage.of_isConfirmOnRowChange()
		lb_desired = cbx_confirmonrowchange.Checked
		// If the desired value differs from the current value.
		If  lb_current<> lb_desired Then
			li_rc = idw_requestor.inv_linkage.of_SetConfirmOnRowChange(lb_desired)
		End If

		// -- Confirm On Delete. --
		lb_current = idw_requestor.inv_linkage.of_isConfirmOnDelete()
		lb_desired = cbx_confirmondelete.Checked
		// If the desired value differs from the current value.
		If lb_current<> lb_desired Then
			li_rc = idw_requestor.inv_linkage.of_SetConfirmOnDelete(lb_desired)
		End If

		// -- Sound File. --
		ls_current = Upper(Trim(idw_requestor.inv_linkage.of_GetSaveSound()))
		ls_desired = Upper(Trim(sle_savesound.Text))
		// If the desired value differs from the current value.
		If ls_current<> ls_desired Then
			li_rc = idw_requestor.inv_linkage.of_SetSaveSound(ls_desired)
		End If

	End If
End If

Return 1

end event

Name	Owner
systemfunctions.isnull	systemfunctions
systemfunctions.isvalid	systemfunctions
systemfunctions.trim	systemfunctions
systemfunctions.upper	systemfunctions
pfc_n_cst_dwsrv_linkage.of_setupdatestyle	pfc_n_cst_dwsrv_linkage
pfc_n_cst_dwsrv_linkage.of_getupdatestyle	pfc_n_cst_dwsrv_linkage
pfc_n_cst_dwsrv_linkage.of_setdeletestyle	pfc_n_cst_dwsrv_linkage
pfc_n_cst_dwsrv_linkage.of_getstyle	pfc_n_cst_dwsrv_linkage
pfc_n_cst_dwsrv_linkage.of_setsavesound	pfc_n_cst_dwsrv_linkage
pfc_n_cst_dwsrv_linkage.of_GetSaveSound	pfc_n_cst_dwsrv_linkage
pfc_n_cst_dwsrv_linkage.of_setconfirmondelete	pfc_n_cst_dwsrv_linkage
pfc_n_cst_dwsrv_linkage.of_setconfirmonrowchange	pfc_n_cst_dwsrv_linkage
pfc_n_cst_dwsrv_linkage.of_isconfirmonrowchange	pfc_n_cst_dwsrv_linkage
pfc_n_cst_dwsrv_linkage.of_isconfirmondelete	pfc_n_cst_dwsrv_linkage
pfc_n_cst_dwsrv_linkage.of_GetDeleteStyle	pfc_n_cst_dwsrv_linkage
pfc_n_cst_dwsrv_linkage.of_setcustomupdate	pfc_n_cst_dwsrv_linkage
pfc_n_cst_dwsrv_linkage.of_GetCustomUpdate	pfc_n_cst_dwsrv_linkage
pfc_n_cst_dwsrv_linkage.of_IsUpdateOnRowChange	pfc_n_cst_dwsrv_linkage
pfc_n_cst_dwsrv_linkage.of_setupdateonrowchange	pfc_n_cst_dwsrv_linkage
pfc_n_cst_dwsrv_linkage.of_setsynconkeychange	pfc_n_cst_dwsrv_linkage
pfc_n_cst_dwsrv_linkage.of_issynconkeychange	pfc_n_cst_dwsrv_linkage
pfc_u_tabpg_dwproperty_base.pfc_propertyapply	pfc_u_tabpg_dwproperty_base

Full name
pfc_u_tabpg_dwproperty_srvlinkage2