General information
Category:
Reports & Report designer
Hi Doru,
Just to let you know that it worked! The code contains some UDFs, but here's the jist:
if ! f_open('OFF',MIS_PRG+'\TSK\TSK_TYPE.FRX alias REPORT')
return
endif
cTempRpt=TmpFile()
copy to &cTempRpt..FRX
use &cTempRpt..FRX alias REPORT
locate for UNIQUEID='_HUESHP001'
if ! eof()
scatter memvar memo
select TSK_TYPE
go top
scan
m.UNIQUEID='_HUESHP'+StrZero(recn(),3,0)
m.FILLRED =GetRGB(TSK_TYPE.TSK_HUE,'R',.F.)
m.FILLGREEN=GetRGB(TSK_TYPE.TSK_HUE,'G',.F.)
m.FILLBLUE =GetRGB(TSK_TYPE.TSK_HUE,'B',.F.)
m.SUPEXPR ='TSK_TYPE.TSK_HUE='+allt(str(TSK_TYPE.TSK_HUE))
select REPORT
append blank
gather memvar memo
select TSK_TYPE
endscan
use in REPORT
select TSK_TYPE
go top
do ViewPrint with cTempRpt
else
use in REPORT
endif
delete file &cTempRpt..FRX
delete file &cTempRpt..FRT
Thanks again for the suggestion!
>>>Hi Ashley,
>>>It looks like a tedious thing, but overlapping objects could be feasible, I think... I'm thinking about programatically adding records to the .frx for each object that has a distinct RGB and have the color condition in the "print when" field (supexpr in .frx).
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