General information
Category:
Reports & Report designer
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
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