<I><FONT COLOR="#663300"><I><FONT COLOR="#663300">In the Error method of cBaseForm (cForms.vcx)
Wouldn't this better service error handling?
*!* DO CASE
*!* CASE ADIR(laDir, DEBUGMODEFILE) = 0
*!* LOCAL lcError
*!* lcError = ON("ERROR")
*!* &lcError
*!* CASE This.lErrorVFP
*!* ERROR (nError)
*!*EGL: 05/06/1999 - This CASE was for a bizobj sitting on a form. A form cannot have a Parent.
*!*CASE This.lErrorParent AND TYPE("This.Parent.Name")=="C"
*!*This.Parent.Error(nError, cMethod, nLine)
*!* OTHERWISE
*!* DODEFAULT(nError, cMethod, nLine)
*!* ENDCASE
*!*
this.SetError(nError, cMethod, nLine)
this.HandleError()
</FONT></I>
Hmmm... I see what you're saying. However, I think that we still need to have the <b>DEBUGMODEFILE</b> and <b>lErrorVFP</b> options available. So I think that the best strategy would be to replace the DODEFAULT line with the SetError() / HandleError() calls, and leave the rest as is.
Does that make sense?
</FONT></I>
What reason exists for <b>DEBUGMODEFILE</b> option?
Jano
KoreËko J·n
janko at coopexsoft D.O.T sk
©2001 KoreËko J·n |
