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 endifRETURN NIL//---------------------------------------------------------------------------//