PROCEDURE Error(nError, cMethod, nLine) cErrStr = CRLF +"Error #: "+ TRANS(nError) + CRLF + ; "Method Name: "+ cMethod + CRLF + ; "On Line: "+ TRANS(nLine) + CRLF + ; "Message: "+ MESSAGE() + CRLF + ; "DateTime: "+ TTOC(DATETIME()) + CRLF + CRLF =STrTofile(cErrStr, "ERRORS.TXT", 1) ComReturnError(cMethod, cErrStr) ENDPROCHTH