Guru
| Curtis, here it is:
-DEFAULT &REDNEGS = 'Y' UNITS=IN, PAGESIZE='SCREEN', LEFTMARGIN=0.000000, RIGHTMARGIN=0.000000, TOPMARGIN=0.000000, BOTTOMMARGIN=0.000000, ORIENTATION=LANDSCAPE, $ DEFMACRO=COND0001, MACTYPE=RULE, WHEN=N6 LT 10000, $ TYPE=REPORT, BORDER=LIGHT, BORDER-COLOR='SILVER', FONT='ARIAL', SIZE=8, COLOR='BLACK', BACKCOLOR='NONE', STYLE=NORMAL, TOPGAP=0.013889, BOTTOMGAP=0.027778, JUSTIFY=LEFT, SQUEEZE=ON, $ TYPE=DATA, SIZE=8, BACKCOLOR=( RGB(235 235 235) RGB(255 255 255) ), $ BACKCOLOR=( RGB(250 250 250) RGB(255 255 255) ), $ BACKCOLOR=( RGB(255 255 210) RGB(255 255 255) ), $ TYPE=DATA, COLUMN=C*, JUSTIFY=RIGHT,STYLE=NORMAL, $ TYPE=DATA, COLUMN=B*, STYLE=NORMAL, $ TYPE=SUBTOTAL, COLUMN=C*, JUSTIFY=RIGHT, $ TYPE=GRANDTOTAL, COLUMN=C*, JUSTIFY=RIGHT, $ TYPE=TITLE, BORDER-COLOR=RGB(127 127 127), COLOR=RGB(0 0 0), $ BACKCOLOR=RGB(255 203 105), $ BACKCOLOR=RGB(201 218 232), BACKCOLOR=RGB(255 255 255), STYLE=BOLD, $ TYPE=TABHEADING, SIZE=10, COLOR='NAVY', STYLE=BOLD, $ TYPE=TABFOOTING, SIZE=10, COLOR='NAVY', STYLE=BOLD, $ TYPE=HEADING, BORDER=LIGHT, BORDER-COLOR=RGB(127 127 127), SIZE=10, COLOR=RGB(64 128 128), BACKCOLOR=RGB(255 255 255), STYLE=BOLD, $ TYPE=HEADING, LINE=1, SIZE=12, $ TYPE=FOOTING, -* LINE=1, BORDER=LIGHT, BORDER-COLOR=RGB(127 127 127), SIZE=8, -* COLOR=RGB(170 0 0), COLOR=RGB(64 128 128), BACKCOLOR=RGB(250 250 250), STYLE=BOLD, $ TYPE=TABFOOTING, LINE=1, COLOR=RED, FOCEXEC=app/agusend.fex(OUTPUT='&SEL_OUTPUT..' EFILE='&AG_APPEXEC..' DOMAIN='&AG_DOMAIN..' T='&TOD..'), $ $ FOCEXEC=app/agusend.fex(OUTPUT='&SEL_OUTPUT..' EFILE='&AG_APPEXEC..' T='&TOD..'), TYPE=SUBHEAD, SIZE=10, STYLE=BOLD, $ TYPE=SUBFOOT, SIZE=8, STYLE=BOLD, $ TYPE=SUBTOTAL, BACKCOLOR=RGB(232 232 232), $ TYPE=ACROSSVALUE, SIZE=9, $ TYPE=ACROSSTITLE, STYLE=BOLD, $ TYPE=GRANDTOTAL, BACKCOLOR=RGB(210 210 210), STYLE=BOLD, $ TYPE=DATA,COLUMN=ROWTOTAL,JUSTIFY=RIGHT,$ TYPE=SUBTOTAL,COLUMN=ROWTOTAL,JUSTIFY=RIGHT,$ TYPE=GRANDTOTAL,COLUMN=ROWTOTAL,JUSTIFY=RIGHT,$
-IF &REDNEGS NE 'Y' GOTO :negsdone; -INCLUDE AGU_REDNEGS -:negsdone
The agu_rednegs is for viewing negative values in red, which is not applicable for the entire organisation. It basically contains this:
TYPE=DATA, COLUMN=C01, WHEN=C01 LT 0, JUSTIFY=RIGHT, COLOR=RED, $ |