Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Report Form not using Cursor
Message
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Environment versions
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01247634
Message ID:
01247639
Views:
17
This message has been marked as the solution to the initial question of the thread.
Have you checked that there are no files in the data environment of the report.

Right click on the report and select data environment.


>Have a form that is used to print labels. Been using this form since FP 2.6. Used it successfullt in vfp7 and vfp 9. You can print the labels either in Name sequence or in Zip code sequence. In the current project it has a bad habit. It only prints in Zip code sequence regardless of which option you choose. After creating a temporary cursor called Dummy, the code performs a case statement to print to a file, preview, or printer. After coming back from CreateDummy() I Select Dummy. I checked and Dummy (at this point) contains the label data correctly. However a few statements later, the Report Form commands which follow are ignoring Dummy and printing or previewing data in Zip code sequence. Following is code from the OK button in the Labels Form.
>There is no Grid on the form and I removed the table from the DE, to no avail.
>What has me stumped is that this labels form works perfectly in another project using vfp 9.1.
>In both instances the inputs are vfp9 free tables, they are however different tables. They both also have a canidate key.
>All help appreciated.
>Bill Wright
>
> =thisform.createdummy()
> SELECT dummy
> GO TOP
>
> DO CASE
> CASE m.output = "To File"
> to = m.filename
> WAIT WINDOW "Processing Labels..." NOWAIT
> LABEL FORM &labe ;
> TO FILE &to ASCII NOCONSOLE
> CASE m.output = "Preview"
> thisform.setarrows()
> REPORT FORM &labe ;
> PREVIEW in screen
> on key label leftarrow
> on key label rightarrow
> on key label uparrow
> on key label dnarrow
> CASE m.output = "To Print"
> SET ESCAPE ON
> ON ESCAPE DO thisform.stop_prt()
> WAIT WINDOW "Printing Labels..." NOWAIT
> IF glPrtSetup
> REPORT FORM &labe ;
> TO PRINTER PROMPT NOCONSOLE
> ELSE
> REPORT FORM &labe ;
> TO PRINTER NOCONSOLE
> ENDIF
>
> SET ESCAPE ON
> CLEAR TYPEAHEAD
> ENDCASE
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform