> If there any way in VFP 5.0 to have an error trapped in an Error Event
> abort the procedure that was interrupted. For example, I have a long
> procedure running that processes a phone call. If the caller hangs up, an
> Error event is triggered. I would like the IncomingCall method to abort at
> that point (but not the whole app/form). My only other option is to check
> on every 5 lines if an error was triggered, and RETURN if so.
> Any suggestions? Thanks!
Use this to find the name of the routine which called the caller.
In the last line, i is the WhoCalls routine, i-1 denotes the error
routine itself, i-2 the phantom "on..." routine, i-3 the caller, and i-4
the caller's caller.
Proc WhoCalls
Local i
For i=1 To 32
if prog()=Prog(i)
exit
Endif
Endf
retu iif(i>1,sys(16,i-4),"! command window")
In the error routine you use something like this:
_whocalled=whocalls()
return to (_whocalled)