Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Visual Report Wiz??
Message
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Miscellaneous
Thread ID:
00516374
Message ID:
00517764
Views:
25
I guess it's possible but you will have to dig thru VFP Report Wizard source code to figure out how to do it.

BTW, the source code is located in C:\Program Files\Microsoft Visual Studio\Vfp98\Tools\XSource\XSource.zip file.

>Hello everybody
>
>dumb question
>
>in FoxPro 2.6x (Dos) for a report wizard I ran:
>
>
>PROCEDURE printrec
>PRIVATE solderror,wizfname,saverec,savearea,tmpcurs,tmpstr
>PRIVATE prnt_btn,p_recs,p_output,pr_out,pr_record
>STORE 1 TO p_recs,p_output
>STORE 0 TO prnt_btn
>STORE RECNO() TO saverec
>m.solderror=ON('error')
>DO pdialog
>IF m.prnt_btn = 2
>   RETURN
>ENDIF
>IF !FILE(ALIAS()+'.FRX')
>   m.wizfname=SYS(2004)+'WIZARDS\'+'WIZARD.APP'
>   IF !FILE(m.wizfname)
>      ON ERROR *
>      m.wizfname=LOCFILE('WIZARD.APP','APP',C_LOCWIZ)
>      ON ERROR &solderror
>      IF !'WIZARD.APP'$UPPER(m.wizfname)
>         WAIT WINDOW C_NOWIZ
>         RETURN
>      ENDIF
>   ENDIF
>   WAIT WINDOW C_MAKEREPO NOWAIT
>   m.savearea=SELECT()
>   m.tmpcurs='_'+LEFT(SYS(3),7)
>   CREATE CURSOR (m.tmpcurs) (comment m)
>   m.tmpstr = '* LAYOUT = COLUMNAR'+CHR(13)+CHR(10)
>   INSERT INTO (m.tmpcurs) VALUES(m.tmpstr)
>   SELECT (m.savearea)
>   DO (m.wizfname) WITH '','WZ_QREPO','NOSCRN/CREATE',ALIAS(),m.tmpcurs
>   USE IN (m.tmpcurs)
>   WAIT CLEAR
>   IF !FILE(ALIAS()+'.FRX')  &&wizard could not create report
>      WAIT WINDOW C_NOREPO
>      RETURN
>   ENDIF
>ENDIF
>
>m.pr_out=IIF(m.p_output=1,'TO PRINT NOCONSOLE','PREVIEW')
>m.pr_record=IIF(m.p_recs=1,'NEXT 1','ALL')
>REPORT FORM (ALIAS()) &pr_out &pr_record
>GO m.saverec
>RETURN
>
>PROCEDURE pdialog
>DEFINE WINDOW _qjn12zbvh ;
>   FROM INT((SROW()-12)/2),INT((SCOL()-52)/2) ;
>   TO INT((SROW()-12)/2)+12,INT((SCOL()-52)/2)+51 ;
>   FLOAT NOCLOSE NOMINIMIZE SHADOW ;
>   COLOR SCHEME 5 TITLE WTITLE()
>MOVE WINDOW _qjn12zbvh CENTER
>ACTIVATE WINDOW _qjn12zbvh NOSHOW
>@ 2,5 SAY "Print:"
>@ 2,34 SAY "Output:"
>@ 4,5 GET m.p_recs ;
>   PICTURE "@*RVN \<Current Record;\<All Records" ;
>   DEFAULT 1
>@ 4,34 GET m.p_output ;
>   PICTURE "@*RVN \<Printer;Pre\<view" ;
>   DEFAULT 1
>@ 10,13 GET m.prnt_btn ;
>   PICTURE "@*HT P\!\<rint;Ca\?\<ncel" ;
>   SIZE 1,10,4 ;
>   DEFAULT 1
>ACTIVATE WINDOW _qjn12zbvh
>READ CYCLE MODAL
>RELEASE WINDOW _qjn12zbvh
>RETURN
>
>
>Is there a visual report wizard?? and if so can you select what fields to output cause my table has about 50 fields
>
>Just wondering
>
>Stephen McLaughlin
--sb--
Previous
Reply
Map
View

Click here to load this message in the networking platform