of_restorepositivenumber


pfcwnsrv.pbl   >   pfc_n_cst_winsrv_preference   >   of_restorepositivenumber   

Full name pfc_n_cst_winsrv_preference.of_restorepositivenumber
Access protected
Extend of boolean
Return value boolean
Prototype protected function boolean of_restorepositivenumber(boolean,string,string,string,ref integer)

Name Datatype
No Data

Name Datatype
ls_retvalue string

protected function boolean of_restorepositivenumber (boolean ab_useregistry, string as_keyorini, string as_inisection, string as_key, ref integer ai_value);//////////////////////////////////////////////////////////////////////////////
//
//	Function:  		of_RestorePositiveNumber
//
//	Access:  		protected
//
//	Arguments:
//	ab_UseRegistry	Function behavior. - use the registry or an .ini file.
//	as_KeyOrIni		The KeyName for use with the Registry or the IniFile name
//						for use with an .Ini file.
//	as_IniSection	The name of the .Ini section. 
//	as_key			The key value to be used on either the Registry or .Ini file.
//	ai_value			The value to be restored from either the Registry or .Ini file.
//							Passed by reference.
//
//	Returns:  		boolean
//						True if it got a positive number.
//						False if it did not get a positive number.
//
//	Description:  	Performs a get to the Registry or .Ini file. It then checks
//						and reports if it got a valid positive number.
//
//////////////////////////////////////////////////////////////////////////////
//
//	Revision History
//
//	Version
//	5.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.
//
//////////////////////////////////////////////////////////////////////////////

string	ls_retvalue

//Initialize return value
ai_value = 1

If of_Restore (ab_UseRegistry, as_KeyOrIni, as_IniSection, &
		as_key, ls_retvalue, '') = -1 Then 
	Return False
End If
	
If IsNumber(ls_retvalue) Then 
	ai_value = Integer(ls_retvalue)
Else
	Return False
End If
	
If ai_value <= 0 Then
	Return False
End If

Return True


end function

     
Name Owner
pfc_n_cst_winsrv_preference.of_restore pfc_n_cst_winsrv_preference

     
Name Owner
systemfunctions.integer systemfunctions
systemfunctions.isnumber systemfunctions
pfc_n_cst_winsrv_preference.of_restore pfc_n_cst_winsrv_preference

     
Full name
No Data

     
Name Scope
No Data