IF VARTYPE(_screen.Forms) = [O]to
IF VARTYPE(_screen.Forms(i)) = [O]>I'm having a minor issue with the following routine to close any open windows when my application does an auto shutdown due in inactivity. I'm not sure why this is, but I keep gettings FORMS is not an object in my error log. The application does close any open dialogs, but with 50 users, the log is getting filled up with this error message.
>local lnForms, i >lnForms = _screen.formcount >SET MESSAGE TO [Closing Dialogs...] >IF lnForms > 0 > FOR i = lnForms to 1 STEP -1 > IF VARTYPE(_screen.Forms)=[O] << FORMS is not an object > SET MESSAGE TO [Closing Dialog: ]+_screen.Forms(i).Name << FORMS is not an object > _screen.Forms(i).Release << FORMS is not an object > ENDIF > ENDFOR >ENDIF >