How to terminate Loop 1

[abbasaif]

Hi,

Is it possible to terminate the loop, i.e.,

Select ViewDo
Set Order To Dono
Go Top
Do While ! Eof()
   mDono = Dono
   Seek mDono In ViewDo
   Do While Dono = mDono And ! Eof()
      Scatter Memvar
      Select DoDisp
      Append Blank
      Gather Memvar
      Select ViewDo
      Skip
   Enddo
   Select DoDisp
   Set Order To DoCode
   Go Top
   mstatus = 'Customer Copy'
   Report Form Locfile('\reports\NtDoPrn.frx') Preview
   Select DoDisp
   Zap In DoDisp
   Select ViewDo
Enddo

If the user wants to exit from displaying the report which contains 50+ pages, how he/she can do so after display few pages.

Please advise

Thanks

Abbasaif

 

[bborissov]

Put ALL records in the cursor and make a group in the report where the group starts in new page
that way the user can print the report at once and if S/He wants to exit then S/He will just hit ESC.

Borislav Borissov
VFP9 SP2, SQL Server

 

[abbasaif]

Yes,

Thanks for the idea sharing!

I will check it.

Regards

Abbasaif

 

[abbasaif]

It is done!

Thanks

Abbasaif

 

[rubinov]

You may use variations of the following:

push key
on escape wait wind nowa ""
Do While ! Eof() and lastkey()#27
...
enddo
pop key

Best Wishes

 

[Olaf Doschke]

Besides all that, the command to exit a loop is... EXIT.

But since you never know whether a user canceled or printed from Report Form Locfile('\reports\NtDoPrn.frx') Preview
you never know when to exit.

Indeed putting all output into one single report is much better then, as it only means one exit.

Bye, Olaf.

Olaf Doschke Software Engineering

https://www.doschke.name

 

[abbasaif]

You may use variations of the following:

push key
on escape wait wind nowa ""
Do While ! Eof() and lastkey()#27
...
enddo
pop key

Thanks Robinov, it is also the best

Regards

Abbasaif