Waitkey question

[George Simon]

Instead of AD="save", try @sk="save"

 
 
Please note that my new email address is
gsimon at americanriverintl.com
Please start using that address in all correspondence immediately.
Thank you!
 
George Simon Sr. Programmer
Information Technologies
American River International

 
-----Original Message-----
From: filepro-list-bounces+george=worldest.com at lists.celestial.com
[mailto:filepro-list-bounces+george=worldest.com at lists.celestial.com] On
Behalf Of Don Coleman
Sent: Friday, December 29, 2006 2:18 PM
To: 'filePro Mailing List'
Subject: Waitkey question

I wrote the following table to monitor another *clerk process which
calls
various forms and prints them.  It alerts the user when the print queue
count gets too high.  That portion works fine.  My final step was to add
lines 5-6 in order to allow the user a graceful exit method and avoid
closing the window via the "X" close method in Windows.  If I un-comment
lines 5-6 and the user presses the ESCAPE key the application does not
exit
as desired but it does "hang" on line #2, awaiting the user to press the
ENTER key.  What do I have wrong in order to press the ESCAPE key (or
any
other key) to allow for a graceful exit?  Thank you and Happy New Year!




Dec 29, 2006  13:58           File Name: CONTROL                   Page
1
                             Processing: Auto_Print_Queue

   1 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
-
         If: 
       Then: end
   2 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
-
@ENTSEL  If: 
       Then: SHOW "Press \r<ESCAPE>\r to exit the Auto Print Queue
Monitor";push
             key "Q"
   3 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
-
@KEYQ    If: 
       Then: AA(2,ALLUP,g)="Y "
   4 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
-
start    If: 
       Then: lookup qs1  k=AA   i=F -ng
   5 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
-
         If: 
       Then: 'AD(4,*)=waitkey
   6 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
-
         If: 'AD eq "SAVE"
       Then: 'exit
   7 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
-
         If: AB ge "30"
       Then: beep;msgbox "\r   ***** WARNING   WARNING   WARNING *****
\r\n\r
              # of labels in the print queue is escalating \r"
   8 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
-
         If: 
       Then: AB="0"
   9 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
-
more     If: not qs1
       Then: AC(47,*)=""{AB<"Labels in Auto Print Queue as
of"<@TM;display;sleep
              "15000";goto start
  10 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
-
         If: qs1(76) eq "Y"
       Then: AC=""{AB<"Labels in Auto Print Queue as
of"<@TM;display;sleep
"1500
             0";goto start
  11 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
-
         If: qs1(112) eq "Y" and qs1(76) ne "Y"
       Then: AB(5,.0,g)=(AB+"1");getnext qs1;goto more
  12 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
-
         If: 
       Then: getnext qs1;goto more

Don Coleman
Donald G. Coleman, Consultant
402 Andrew Circle
Indiana, PA 15701
dcoleman at dgcreact.com
(724) 349-6302



_______________________________________________
Filepro-list mailing list
Filepro-list at lists.celestial.com
http://mailman.celestial.com/mailman/listinfo/filepro-list