of_setvalueonrequestor

pfcmain.pbl   >   pfc_u_calculator   >   of_setvalueonrequestor

protected function integer of_setvalueonrequestor (string as_value);//////////////////////////////////////////////////////////////////////////////
//
//	Function:  of_SetValueOnRequestor
//
//	Access:    Public
//
//	Arguments:
//   adbl_value	The value to set.
//
//	Returns:  Integer
//		1 if it succeeds and -1 if an error occurs.
//
//	Description:  Sets the value on the requestor.
//
//	*Note: This function's argument is a string in order to not loose the decimal
//		point in numbers that have no decimal values. (i.e. 6.)
//////////////////////////////////////////////////////////////////////////////
//
//	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.
//
//////////////////////////////////////////////////////////////////////////////

// Validate Reference.
If IsValid(idw_requestor) Or IsValid(iem_requestor) Then
	// Good reference.
Else
	Return -1
End If

// Validate the value.
If Not IsNumber(as_value) Then
	Return -1
End If

// Set the requestor with the new value.
If IsValid(idw_requestor) Then
	idw_requestor.SetText(as_value)
ElseIf IsValid(iem_requestor) Then
	iem_requestor.Text = as_value	
Else
	Return -1
End If

Return 1
end function

Name	Owner
pfc_u_calculator.of_setvalue	pfc_u_calculator
pfc_u_calculator.of_buttonclicked	pfc_u_calculator

Name	Owner
datawindow.settext	datawindow
systemfunctions.isnumber	systemfunctions
systemfunctions.isvalid	systemfunctions