Error handling
Posted: Thu Jun 17, 2010 8:28 pm
I use following code for error handling.
How can I bring the error message to foreground?
Thanks in advance
Otto
How can I bring the error message to foreground?
Thanks in advance
Otto
Code: Select all | Expand
local bLastHandler := ERRORBLOCK({ |objErr| MyHandler(objErr, .T.)})
*----------------------------------------------------------
BEGIN SEQUENCE
USE ( CurDir() + "\artikel" ) VIA "DBFCDX" NEW
RECOVER
END
ERRORBLOCK( bLastHandler )
function MyHandler(objError,llocalHandler)
msgInfo( STR( objError:GenCode ) )
if llocalHandler
BREAK objError
endif
RETURN NIL
//---------------------------------------------------------------------------//