DEFINE FILE REFUNDS NEWMDY/A10=EDIT(DATE, '99/99/9999'); TYPE/A10=DECODE REFUNDTYPE( 98 'Override' 97 'Bank Error' ELSE 'Other' ); END TABLE FILE REFUNDS PRINT REFUNDAMT/D10.2M AS 'Refund Amount' BY FULLNAME AS 'Name' BY NEWMDY AS 'Date Posted' BY ACCTNUMBER AS 'Accnt No.' ON FULLNAME SUBTOTAL SUM. REFUNDAMT AS '*TOTAL' HEADING "&TEAM<+0>'S<+0> <+0>&TYPE<+0> Refund Report" "From <+0>&dte<+0> through <+0>&edte" FOOTING "" WHERE MARKETTEAM EQ '&TEAM'; WHERE TYPE EQ '&TYPE'; WHERE NEWMDY GE '&dte' AND NEWMDY LE '&edte'; ON TABLE SET PAGE-NUM OFF ON TABLE SUMMARIZE REFUNDS.REFUNDS.REFUNDAMT AS 'TOTAL' ON TABLE PCHOLD FORMAT HTML ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * UNITS=IN, PAGESIZE='Letter', LEFTMARGIN=0.500000, RIGHTMARGIN=0.500000, TOPMARGIN=0.500000, BOTTOMMARGIN=0.500000, SQUEEZE=ON, ORIENTATION=PORTRAIT, $ TYPE=REPORT, FONT='ARIAL', SIZE=10, COLOR='BLACK', BACKCOLOR='NONE', STYLE=ITALIC, RIGHTGAP=0.125000, TOPGAP=0.013889, BOTTOMGAP=0.027778, $ TYPE=DATA, BORDER-LEFT=MEDIUM, BORDER-RIGHT=MEDIUM, BACKCOLOR='WHITE', $ TYPE=DATA, COLUMN=ROWTOTAL(1), STYLE=BOLD+ITALIC, $ TYPE=TITLE, BORDER-TOP=MEDIUM, BORDER-BOTTOM=MEDIUM, BORDER-LEFT=MEDIUM, BORDER-RIGHT=MEDIUM, COLOR='WHITE', BACKCOLOR='BLACK', STYLE=BOLD+ITALIC, $ TYPE=TITLE, COLUMN=ROWTOTAL(1), BORDER-TOP=MEDIUM, BORDER-BOTTOM=MEDIUM, BORDER-LEFT=MEDIUM, BORDER-RIGHT=MEDIUM, COLOR='WHITE', STYLE=BOLD+ITALIC, $ TYPE=TABHEADING, SIZE=16, STYLE=BOLD+ITALIC, $ TYPE=TABFOOTING, SIZE=12, STYLE=BOLD+ITALIC, $ TYPE=HEADING, SIZE=16, STYLE=BOLD+ITALIC, $ TYPE=HEADING, LINE=1, OBJECT=TEXT, ITEM=1, FONT='PHOTINA CASUAL BLACK', COLOR=RGB(51 102 255), $ TYPE=HEADING, LINE=1, OBJECT=TEXT, ITEM=2, FONT='PHOTINA CASUAL BLACK', COLOR=RGB(51 102 255), $ TYPE=HEADING, LINE=1, OBJECT=TEXT, ITEM=3, FONT='PHOTINA CASUAL BLACK', $ TYPE=HEADING, LINE=1, OBJECT=TEXT, ITEM=4, FONT='PHOTINA CASUAL BLACK', COLOR='RED', $ TYPE=HEADING, LINE=1, OBJECT=TEXT, ITEM=5, FONT='PHOTINA CASUAL BLACK', $ TYPE=HEADING, LINE=2, OBJECT=TEXT, ITEM=1, FONT='PHOTINA CASUAL BLACK', SIZE=12, $ TYPE=HEADING, LINE=2, OBJECT=TEXT, ITEM=2, FONT='PHOTINA CASUAL BLACK', SIZE=12, COLOR='RED', $ TYPE=HEADING, LINE=2, OBJECT=TEXT, ITEM=3, FONT='PHOTINA CASUAL BLACK', SIZE=12, $ TYPE=HEADING, LINE=2, OBJECT=TEXT, ITEM=4, FONT='PHOTINA CASUAL BLACK', SIZE=12, COLOR='RED', $ TYPE=FOOTING, SIZE=12, STYLE=BOLD+ITALIC, $ TYPE=SUBTOTAL, STYLE=BOLD+ITALIC, $ TYPE=ACROSSVALUE, ACROSS=1, BORDER-TOP=MEDIUM, BORDER-BOTTOM=MEDIUM, BORDER-LEFT=MEDIUM, BORDER-RIGHT=MEDIUM, COLOR='WHITE', BACKCOLOR='BLACK', STYLE=ITALIC, TOPGAP=0.013889, BOTTOMGAP=0.027778, $ TYPE=ACROSSVALUE, COLUMN=ROWTOTAL(1), BACKCOLOR='WHITE', STYLE=BOLD+ITALIC, $ TYPE=ACROSSTITLE, COLOR='WHITE', BACKCOLOR='BLACK', STYLE=BOLD+ITALIC, TOPGAP=0.013889, BOTTOMGAP=0.027778, $ TYPE=ACROSSTITLE, ACROSS=1, BORDER-TOP=MEDIUM, BORDER-BOTTOM=MEDIUM, BORDER-LEFT=MEDIUM, BORDER-RIGHT=MEDIUM, STYLE=BOLD+ITALIC, TOPGAP=0.013889, BOTTOMGAP=0.027778, $ TYPE=GRANDTOTAL, COLOR='WHITE', BACKCOLOR='BLACK', STYLE=BOLD+ITALIC, TOPGAP=0.013889, BOTTOMGAP=0.027778, $ ENDSTYLE END
quote:
REFUNDAMT/D10.2M AS 'Refund Amount'
BY FULLNAME AS 'Name'
BY NEWMDY AS 'Date Posted'
-* File Joe.fex TABLE FILE CAR PRINT SALES COMPUTE CC/I3=1; NOPRINT BY COUNTRY BY BODYTYPE BY MODEL ON COUNTRY RECAP Count/I3=CC; ON COUNTRY SUBTOTAL END
TABLE FILE CAR SUM CNT.CAR NOPRINT BY COUNTRY PRINT SALES BY COUNTRY BY BODYTYPE BY CAR ON COUNTRY RECAP Count/I3=CNT.CAR; ON COUNTRY SUBTOTAL ON TABLE NOTOTAL END
APP PREPENDPATH IBISAMP IBINCCEN TABLE FILE CAR WRITE CNT.MODEL BY COUNTRY WRITE CNT.MODEL BY COUNTRY BY CAR SUM CNT.MODEL RCOST DCOST BY COUNTRY BY CAR BY MODEL ON TABLE SUMMARIZE ON TABLE SET HTMLCSS ON ON TABLE SET PAGE NOLEAD ON TABLE SET STYLE * GRID=OFF, SIZE=9, $ ENDSTYLE END -RUN
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 |