of_button

pfcapsrv.pbl   >   pfc_n_cst_conversion   >   of_button

public function integer of_button (string as_source, ref button ae_button);//////////////////////////////////////////////////////////////////////////////
//
//	Function:  		of_button
//
//	Access:  		public
//
//	Arguments:
//	as_source			The string value to be converted to button	datatype value.
//	a_sqlpreviewtype	A button variable passed by reference which will
//							hold the button value that the string value was
//							converted to.
//
//	Returns: 		integer	 
//						1 if a successful conversion was made.
//						If as_source value is NULL, function returns -1
//						If as_source value is Invalid, function returns -1
//
//	Description:  Converts a string value to a button data type value.
//
//////////////////////////////////////////////////////////////////////////////
//
//	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.
//
//////////////////////////////////////////////////////////////////////////////

//Check parameters
If IsNull(as_source) Then
	Return -1
End If

//Convert to lowercase
as_source = Lower (as_source)

Choose Case as_source
	Case "ok", "ok!"
		ae_button = OK!

	Case "okcancel", "okcancel!"
		ae_button = OKCancel!

	Case "yesno", "yesno!"
		ae_button = YesNo!

	Case "yesnocancel", "yesnocancel!"
		ae_button = YesNoCancel!

	Case "retrycancel", "retrycancel!"
		ae_button = RetryCancel!

	Case "abortretryignore", "abortretryignore!"
		ae_button = AbortRetryIgnore!
		
	Case Else
		Return -1
End Choose

Return 1

end function

Name	Owner
systemfunctions.isnull	systemfunctions
systemfunctions.lower	systemfunctions