#INCLUDE "c:\msz\asol\stonefield\sferrormgr.h" * DEFINE CLASS sferrormgr AS sfcustom *-- The former ON ERROR handler. PROTECTED ccurrerror ccurrerror = "" *-- If .T., an error message isn't displayed when an error occurs. PROTECTED lsuppresserrors lsuppresserrors = .F. *-- Set to .T. when an error occurs. PROTECTED lerroroccurred lerroroccurred = .F. *-- The default title for the error message dialog. ctitle = "Error" *-- .T. to set ON ERROR to point to the ErrorHandler method. lsetonerror = .F. *-- The name of the file to log errors to. cerrorlogfile = "ERRORLOG.DBF" *-- .T. if we're logging errors to a file llogerrors = .T. *-- The name of the class to use to display messages. cmessageclass = "SFErrorMessage" *-- The name of the user. cuser = "" *-- .T. if "debug" should be an option lshowdebug = .F. *-- .T. if the error should be logged to a table (otherwise, it's logged to a text file) llogtotable = .T. *-- .T. if we're supposed to display errors and get the user's choice ldisplayerrors = .T. *-- .T. if we're quitting (public so other objects can check on the way out) lquit = .F. *-- The name of the program to return to if the user chooses Cancel creturntooncancel = "MASTER" *-- The library the class to display messages is in cmessageclasslibrary = "SFMgrs.vcx" *-- .T. if the error information has been saved in aErrorInfo PROTECTED lerrorinfosaved lerrorinfosaved = .F. builder = .F. Name = "sferrormgr" *-- An array containing error information; see the GetErrorInfo method documentation for the structure of this array. DIMENSION aerrorinfo[1]****************************************************************************************************************
#INCLUDE "c:\msz\asol\stonefield\sferrormgr.h" * DEFINE CLASS sferrormgr AS sfcustom *-- The former ON ERROR handler. PROTECTED ccurrerror ccurrerror = "" *-- If .T., an error message isn't displayed when an error occurs. PROTECTED lsuppresserrors lsuppresserrors = .F. *-- The default title for the error message dialog. ctitle = "Error" *-- .T. to set ON ERROR to point to the ErrorHandler method. lsetonerror = .F. *-- The name of the file to log errors to. cerrorlogfile = "ERRORLOG.DBF" *-- .T. if we're logging errors to a file llogerrors = .T. *-- The name of the class to use to display messages. cmessageclass = "SFErrorMessage" *-- The name of the user. cuser = "" *-- .T. if "debug" should be an option lshowdebug = .F. *-- .T. if the error should be logged to a table (otherwise, it's logged to a text file) llogtotable = .T. *-- .T. if we're supposed to display errors and get the user's choice ldisplayerrors = .T. *-- .T. if we're quitting (public so other objects can check on the way out) lquit = .F. *-- The name of the program to return to if the user chooses Cancel creturntooncancel = "MASTER" *-- The library the class to display messages is in cmessageclasslibrary = "SFMgrs.vcx" *-- .T. if the error information has been saved in aErrorInfo PROTECTED lerrorinfosaved lerrorinfosaved = .F. lerroroccurred = .F. builder = .F. Name = "sferrormgr" *-- An array containing error information; see the GetErrorInfo method documentation for the structure of this array. DIMENSION aerrorinfo[1] PROTECTED lerroroccurred**************************************************************************************************************