>Hi everyone.
>
>I am trying to write an on shutdown routine that will work just like my file - exit routine. It goes something like this:
>
>FUNCTION OnShutdown()
>IF goapp.glOK2Quit THEN
> goapp.glOK2Quit = .F.
> IF goApp.CleanUp()
> RELEASE goApp
> ELSE
> goapp.glOK2Quit = .F.
> ENDIF
>ENDIF
>
>The code works fine when executed from the menu. On different occasions, I get the error "A stored Procedure is executing" on CLOSE DATA ALL after I have release my application aobjecvt and reset the environment. Why is this happening and what can I do about it?

Hi Marcia,

Does this code also work fine if you try to exit during a transaction?

The "on shutdown" routine I use is a little more complicated in order to avoid these situations (user cannot quit if there's still some code running...). It can be done by checking the "program chain" being executed using a loop and the PROGRAM()command.

Renato