View
(Available in 00 TS Base(Base) - TS_Base_2_ErrorSysError)
Purpose
Short
Syntax
Syntax
Arguments
Description
Long
Returns
Return
Example
Example
Source
METHOD View( udwSeverity, udwLevel, ucError, ucBlockDescription ) CLASS TS_Error
LOCAL cBlockDescription AS STRING
LOCAL oGlobalData AS _TS_GlobalData
LOCAL dwSeverity AS DWORD
LOCAL dwLevel AS DWORD
LOCAL cError AS STRING
oGlobalData:=_TS_ModuleGetGlobalData( )
dwLevel:=TS_SafeDWORD( udwLevel, NULL_PTR )+1U
IF IsNumeric( udwSeverity )
dwSeverity:=udwSeverity
IF _TS_ErrorSysItemSeverity( SELF, NIL )<dwSeverity
_TS_ErrorSysItemSeverity( SELF, dwSeverity )
END
END
_TS_ErrorSysItemViewed( SELF, TRUE, FALSE )
DO CASE
CASE IsString( ucError ) .AND. !Empty( ucError )
cError:=ucError
CASE TS_ErrorSysInErrorHandler(