TS_ErrorCallBack

 (Available in 00 TS Base(Base) - TS_Base_2_ErrorSysErrorCallBack)

Purpose

This class is passed to the registered callback function.

Description

The registered function will be called whenever a error is translated to text, The function can update the 'TextValue' property to add information to the translated error message.

Example

FUNCTION MyErrorCallBack1( oErrorCallBack AS TS_ErrorCallBack ) AS VOID PASCAL
   IF oErrorCallBack<>NULL_OBJECT
      oErrorCallBack:TextValue:="Read"+CRLF+"the"+CRLF+"manual"
   END
RETURN

FUNCTION MyErrorCallBack2( oErrorCallBack AS TS_ErrorCallBack ) AS VOID PASCAL
   IF oErrorCallBack<>NULL_OBJECT
      oErrorCallBack:TextValue:="Hello"+CRLF+"world"
   END
RETURN

PROCEDURE RegisterExtraErrorInfos( ) AS VOID PASCAL _INIT1
// No trace command should be applied to 'InitX' procedures, No code containing trace ; ...
// ...command(s) should be called!
   IF !glRegisterExtraErrorInfos
      glRegisterExtraErrorInfos:=TRUE
      TS_ErrorSysRegisterFirstEntryInfo( "FTC, Fast Transaction Controler" )
      TS_ErrorSysRegisterFirstEntryInfo( "With error info handle by FDW" )
      TS_ErrorSysRegisterFirstEntryInfo( "With OLE fixes from RvdH" )
      TS_ErrorSysRegisterErrorCallBack( "ErrorCallBack(1)", @MyErrorCallBack1( )  ; ...
     ... )
      TS_ErrorSysRegisterErrorCallBack( "ErrorCallBack(2)", @MyErrorCallBack2( )  ; ...
     ... )
   END
RETURN

Source

CLASS TS_ErrorCallBack
   EXPORT Error AS Error
   EXPORT TextValue AS STRING