General information
Category:
Reports & Report designer
Here is some code that works for me, found it here on UT. Make sure you call this before you issue the modi report
* turn on the toolbar for reports
LOCAL coalias, lok,ccurrentrfile,lcoldonerror
* retrun if this is the standard or professinal version
* ie this is the development environment so that the
* resource file isn't changes
IF VERSION(2) = 2 OR VERSION(2) = 1
RETURN
ENDIF
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
RETURN
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only