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