Ed and George,
I know this is got to be simple but I can't get those nightly reports automated
...You want to make sure that you're using my API_APPRUN class ...download it ..., and then start up an instance of Quest using launchApp - which runs the program and immediately returns control to VFP. You can periodically check the progress of the application using the object's CheckProcessExitCode() method; if returns a value other than 259, the other instance is done.
Paste Edgar's code here:
DO WHILE .NOT. EOF()
. nCNTER= nCNTER+1
. cCmdLineOut= Alltrim(REPORTS)
. oQuest=CREATEOBJECT('API_APPRUN',cCmdLineOut, "C:\Gupta\", "HIDE")
. =LaunchAppAndWait(cCmdLineOut, "C:\Gupta\","HIDE")
. Do While .T.
.. Wait Window NoWait "Running Quest Report Number "+ str(nCNTER)
.. IF oQuest.CheckProcessExitCode() != 259 && 259=ProcessRunning
... RELEASE oQuest
... EXIT
.. ENDIF
. EndDo
. SKIP
ENDDO
This code miserably fails (loop forever)
also if I do not loop while the first Quest is active
then an GPF occurs because two Quest are requested?!?
What's next? (Thanx for help)
Edgar L. Bolton, B.S. B.B.A.