Error handling

[Otto]

I use following code for error handling.
How can I bring the error message to foreground?

Thanks in advance
Otto

Code: Select all  Expand view

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