TABLE FILE CAR SUM SALES COMPUTE SALES_DISC/D12 = SALES - 500; BY RPTDATE NOPRINT BY COUNTRY BY CAR BY MODEL ON COUNTRY SUBTOTAL AS '*TOTAL' HEADING "Car Sales Report</1" ON TABLE SET PAGE-NUM OFF ON TABLE NOTOTAL ON TABLE PCHOLD FORMAT HTML ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * UNITS=IN, LEFTMARGIN=0.000000, RIGHTMARGIN=0.000000, TOPMARGIN=0.000000, BOTTOMMARGIN=0.000000, SQUEEZE=ON, ORIENTATION=PORTRAIT, $ DEFMACRO=COND0001, MACTYPE=RULE, WHEN=N6 LT 0, $ TYPE=REPORT, GRID=OFF, FONT='ARIAL', SIZE=9, COLOR='BLACK', BACKCOLOR='NONE', STYLE=NORMAL, RIGHTGAP=0.125000, TOPGAP=0.013889, BOTTOMGAP=0.027778, $ TYPE=DATA, COLUMN=N1, FOCEXEC=CARPROFIT(COUNTRY=N1), $ TYPE=TITLE, STYLE=BOLD, $ TYPE=HEADING, SIZE=12, COLOR='RED', STYLE=BOLD, $ TYPE=HEADING, LINE=1, JUSTIFY=CENTER, $ TYPE=HEADING, LINE=1, OBJECT=TEXT, ITEM=1, SIZE=14, $ TYPE=SUBTOTAL, BACKCOLOR=RGB(210 210 210), $ TYPE=SUBTOTAL, BY=2, COLUMN=N6, BACKCOLOR='RED', MACRO=COND0001, $ TYPE=GRANDTOTAL, BACKCOLOR=RGB(210 210 210), STYLE=BOLD, $ ENDSTYLE END
Which is exactly what Ginny's code does ....quote:to show the total Amount2 in red when it is less than 0 and let the other totals alone.
In FOCUS since 1986 | WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2 | ||
WebFOCUS App Studio 8.2.06 standalone on Windows 10 |