type("m.oError")Why don't you process error in the CATCH clause? Also in
catch to oError &&& when .t. isn't necessary>I am trying to use try/catch block, but I must be doing something wrong, because I am getting unhandled errors instead. Here is my new code:
>*---- Summarizing should be here > for i=1 to m.lCount > lnSum = evaluate('curtemp.' + sumfields[m.i,1]) + evaluate('m.'+sumfields[m.i,1]) > try > replace ('curtemp.' + sumfields[m.i,1]) with m.lnSum in curtemp > llReplace = .t. > catch to oError when .t. > =messagebox("Error replacing!" + chr(13) + ; > oError.Message + chr(13) + ; > "Error #:"+Transform(oError.ErrorNo)+chr(13)+; > "Line #:"+Transform(oError.LineNo)+chr(13)+; > "Error #:"+Transform(oError.LineContents),48,"Error") > llReplace = .f. > finally > if type(m.oError)="O" and m.oError.ErrorNo = 39 && Numeric overflow >* we need to find maximum allowed for the field and use it instead of a sum > messagebox("lnSum = " + transform(m.lnSum) + " for field " + sumfields[m.i,1]) > endif > endtry > endfor >>