PROCEDURE Error LPARAMETERS nError, cMethod, nLine LOCAL aErrorInfo[1], nRows WITH This =AERROR(aErrorInfo) nRows = ALEN(aErrorInfo, 2) DIMENSION .aErrorInfo[nRows + 3] ACOPY(aErrorInfo, .aErrorInfo) .aErrorInfo[lnRows + 1] = cMethod .aErrorInfo[lnRows + 2] = nLine .aErrorInfo[lnRows + 3] = DATETIME() .lErrorOccurred = .T. .cErrorMessage = .aErrorInfo[IIF(tnError = 1429, 3, 2)] ENDWITH RETURN ENDPROC