of_setsavesound

pfcdwsrv.pbl   >   pfc_n_cst_dwsrv_linkage   >   of_setsavesound

public function integer of_setsavesound (string as_soundfile);//////////////////////////////////////////////////////////////////////////////
//
//	Function:  	of_SetSaveSound
//
//	Access:    	Public
//
//	Arguments:
//  as_soundfile:	The complete filename and path of the file play.
//
//	Returns:   	Integer
// 			  	1 if it succeeds and -1 if an error occurs.
//
//	Description:
//	Used to establish the file that is to be played on a successful save.
//
//	Note:
//	This functionality is only used by the Retrival style.
//	Set to an empty string to have no sound.
//
//////////////////////////////////////////////////////////////////////////////
//
//	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 passed arguments.
If IsNull(as_soundfile) Then 
	Return -1
End If

// Trim spaces.
as_soundfile = Trim(as_soundfile)

If Len(as_soundfile) > 0 Then
	If Not FileExists(as_soundfile) Then
		Return -1
	End If
End If

is_savesound = as_soundfile
Return 1
end function

Name	Owner
pfc_u_tabpg_dwproperty_srvlinkage2.pfc_propertyapply	pfc_u_tabpg_dwproperty_srvlinkage2

Name	Owner
systemfunctions.fileexists	systemfunctions
systemfunctions.isnull	systemfunctions
systemfunctions.len	systemfunctions
systemfunctions.trim	systemfunctions