Error Method
Class: _DBC
Expand/Collapse source code of procedure Error Source Code
      LPARAMETERS nError,cMethod,nLine
      * nError  - Error number
      * cMethod - Name of Method
      * nLine   - Number in method


      IF ISNULL(m.This.Catch)
         This.nErr=nError
         This.cErrMSG=MESSAGE() 
         ERROR nError
         RETURN
      ENDIF
      IF This.Catch && Catch
         This.nErr=nError
         This.cErrMSG=MESSAGE()
      ELSE
         ERROR nError
      ENDIF