Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Report controls toolbar
Message
From
04/08/1999 13:25:11
Charlie Davies
McIntire School of Commerce
Virginia, United States
 
 
To
27/07/1999 18:09:05
Scott Butts
Ims Specialty Services
Twin Falls, Idaho, United States
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Miscellaneous
Thread ID:
00246877
Message ID:
00249846
Views:
13
Scott,

Thanks for the help. I don't understand how I should use this code. Is this a one-time fix or does it need to be run everytime I want to programmatically launch the reports control toolbar?

Thanks


>Here is some code I got here a few months back, don't know the origianl author. Hope this helps.
>
>coalias=ALIAS()
>ccurrentrfile = SYS(2005)
>SET RESOURCE OFF
>lok = .T.
>lcoldonerror = ON("error")
>ON ERROR lok = .F.
>USE &ccurrentrfile EXCLUSIVE IN 0
>
>IF lok
> SELECT foxuser
> GO TOP
> LOCATE FOR TYPE = "PREFW" AND ID = "REPORTTOOLS"
> IF FOUND()
> REPLACE ckval WITH 60721,UPDATED WITH DATE()
> ELSE
> INSERT INTO foxuser (TYPE,ID,NAME,READONLY,ckval,DATA,UPDATED) ;
> VALUES ("PREFW","REPORTTOOLS","",.F.,60721,"",DATE())
> ENDIF
> USE IN foxuser
>ENDIF
>
>SET RESOURCE ON
>SET RESOURCE TO &ccurrentrfile
>IF NOT EMPTY(coalias)
> SELECT (coalias)
>ENDIF
>ON ERROR &lcoldonerror
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform