Albert and Larry, Thanks for the input. I will add this code tonight.
James Belisle -----Original Message----- From: [email protected] [mailto:[email protected]] On Behalf Of Albert Berry Sent: Wednesday, May 11, 2011 11:01 AM To: RBASE-L Mailing List Subject: [RBASE-L] - Re: cancel button within WHILE Jim, the BREAK command sends the focus to the line immediately following ENDWHILE. Albert On 11/05/2011 9:19 AM, Jim Belisle wrote: > Albert, > > If I understand your comment, during each loop, it will look at this > code and if the esc key has been used, it will break the while loop, > correct? > > Will the rest of the code outside of the while loop then continue, or do > I need more code? > > James Belisle > -----Original Message----- > From: [email protected] [mailto:[email protected]] On Behalf Of Albert > Berry > Sent: Wednesday, May 11, 2011 10:11 AM > To: RBASE-L Mailing List > Subject: [RBASE-L] - Re: cancel button within WHILE > > Jim, you need to use the command BREAK to exit the while loop. > > PAUSE FOR 8 USING '[Esc] to Cancel Printing' > SET VAR vLastKey = (LASTKEY(0)) > IF vLastKey = '[Esc]' THEN > BREAK > ENDIF > > Albert > On 11/05/2011 9:07 AM, Jim Belisle wrote: >> I have a process that after creating temp tables I use the cursor code >> to run a series of PDF files. >> >> Sometimes things happen during the WHILE loop (printer jam, out of >> paper, or code interruption) where the user needs to cancel the rest >> of the print job. >> >> What code would I use to give this option? >> >> Here is the Cursor w/ WHILE loop code I use: >> >> SET ERROR MESSAGE 705 OFF >> >> DROP CURSOR c2 >> >> SET ERROR MESSAGE 705 ON >> >> DECLARE c2 CURSOR FOR SELECT partnum FROM tpartpdf ORDER BY partnum >> >> OPEN c2 >> >> FETCH c2 INTO vpdfnum INDICATOR ivpdfnum >> >> WHILE SQLCODE<> 100 THEN >> >> PAUSE FOR 8 >> >> PRINT partsheetpdf WHERE partnum = .vpdfnum AND + >> >> procused IN (y,f) ORDER BY partnum orderdone + >> >> OPTION PRINTER >> >> CLS >> >> FETCH c2 INTO vpdfnum INDICATOR ivpdfnum >> >> ENDWHILE >> >> DROP CURSOR c2 >> >> We use 7.6. >> >> James Belisle >> > >
