pfc_systemerror

pfcapsrv.pbl   >   pfc_n_cst_appmanager   >   pfc_systemerror

Name	Datatype
ls_message	string
ls_msgparm	string[1]

event pfc_systemerror;//////////////////////////////////////////////////////////////////////////////
//
//	Event:  PFC_systemerror
//
//	Arguments:	None
//
//	Returns:  None
//
//
//	Description:  Triggered whenever the a system level error occurs.
//
//////////////////////////////////////////////////////////////////////////////
//	
//	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_message
string	ls_msgparm[1]

ls_message = 'Error Number '+string(error.number) & 
	+'.~r~nError text = '+Error.text &
	+'.~r~nWindow/Menu/Object = '+error.windowmenu &
	+'.~r~nError Object/Control = '+Error.object &
	+'.~r~nScript = '+Error.objectevent &
	+'.~r~nLine in Script = '+string(Error.line) + '.'

if isvalid(inv_error) then
	ls_msgparm[1] = ls_message
	inv_error.of_message('pfc_systemerror', ls_msgparm)
else
	of_Messagebox('pfc_systemerror','System Error',ls_message, StopSign!, Ok!, 1)
end if

this.event pfc_exit()



end event

Name	Owner
demopfc.systemerror	demopfc

Name	Owner
systemfunctions.isvalid	systemfunctions
systemfunctions.string	systemfunctions
pfc_n_cst_error.of_message	pfc_n_cst_error
pfc_n_base.of_messagebox	pfc_n_base
pfc_n_cst_appmanager.pfc_exit	pfc_n_cst_appmanager

Full name
demopfc