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