Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Report Form not using Cursor
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Titre:
Report Form not using Cursor
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Database:
Visual FoxPro
Divers
Thread ID:
01247634
Message ID:
01247634
Vues:
70
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
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform