-* p150g

-INCLUDE app/p150data.fex
-INCLUDE commondm/app/copyright.fex

SET CENT-ZERO = ON, NODATA = .00

-DEFAULT &FINL_SHOW='Y';
-SET &DESCR_Q=STRREP(&SUBTITLE2.LENGTH, &SUBTITLE2, &SUBTITLE2.LENGTH, '''''', 40, '''', 40, 'A40');
-SET &SRC_DESCR_LOC=TRUNCATE(&DESCR_Q);
-*-SET &BEGINMONTH= DECODE &BEGINM(01 'Jan' 02 'Feb' 03 'Mar' 04 'Apr' 05 'May' 06 'Jun' 07 'Jul' 08 'Aug' 09 'Sep' 10 'Oct' 11 'Nov' 12 'Dec');
-*-SET &ENDMONTH= DECODE &ENDM(01 'Jan' 02 'Feb' 03 'Mar' 04 'Apr' 05 'May' 06 'Jun' 07 'Jul' 08 'Aug' 09 'Sep' 10 'Oct' 11 'Nov' 12 'Dec');
-*
-*
-SET &SUBTITLE1 = &SUBTITLE.QUOTEDSTRING | ' \n' | &SRC_DESCR_LOC.QUOTEDSTRING | ' \n Date Range: ' | &BEGINDATE | ' - ' | &ENDDATE;
-*-SET &SUBTITLE1 = &SUBTITLE.QUOTEDSTRING | ' \n' | &SRC_DESCR_LOC.QUOTEDSTRING | ' \n Date Range: ' | &BEGINMONTH | ' ' | &BEGINY | ' - ' | &ENDMONTH | ' ' | &ENDY;

DEFINE FILE REPT_FULL
DESCR/A26='Cash';
DESCR1/A26='Cash';
Quantity/I11C=CASH_ORD_APPLIED_QTY;
Amount/P11.2=CASH_ORD_VAL_AMT;
END

TABLE FILE REPT_FULL
SUM
	Quantity
	Amount
BY DESCR
BY DESCR1
WHERE REC_CODE EQ 'Y';
ON TABLE HOLD AS P150G_CASH FORMAT FOCUS
END


DEFINE FILE REPT_FULL
DESCR/A26='Credit';
DESCR1/A26='Credit';
Quantity/I11C=CREDIT_ORD_APPLIED_QTY;
Amount/P11.2=CREDIT_ORD_VAL_AMT;
END

TABLE FILE REPT_FULL
SUM
	Quantity
	Amount
BY DESCR
BY DESCR1
WHERE REC_CODE EQ 'Y';
ON TABLE HOLD AS P150G_CRED FORMAT FOCUS
END


DEFINE FILE REPT_FULL
DESCR/A26='Credit Card';
DESCR1/A26='Credit Card';
Quantity/I11C=CC_ORD_APPLIED_QTY;
Amount/P11.2=CC_ORD_VAL_AMT;
END

TABLE FILE REPT_FULL
SUM
	Quantity
	Amount
BY DESCR
BY DESCR1
WHERE REC_CODE EQ 'Y';
ON TABLE HOLD AS P150G_CC FORMAT FOCUS
END


DEFINE FILE REPT_FULL
DESCR/A26='Adjustment';
DESCR1/A26='Adjustment';
Quantity/I11C=ADJ_ORD_APPLIED_QTY;
Amount/P11.2=ADJ_ORD_VAL_AMT;
END

TABLE FILE REPT_FULL
SUM
	Quantity
	Amount
BY DESCR
BY DESCR1
WHERE REC_CODE EQ 'Y';
ON TABLE HOLD AS P150G_ADJ FORMAT FOCUS
END

USE
P150G_CASH AS P150G_CASH
P150G_CRED AS P150G_CASH
P150G_CC AS P150G_CASH
P150G_ADJ AS P150G_CASH
END

DEFINE FILE P150G_CASH
QUANT/I11C=Quantity;
VALUE/P11.2=Amount;
END

GRAPH FILE P150G_CASH
SUM
	QUANT AS ' '
BY DESCR AS 'Orders Applied'
ON GRAPH HOLD AS GRAPH1 FORMAT HTMTABLE
ON GRAPH SET GRAPHDEFAULT OFF
ON GRAPH SET VZERO OFF
ON GRAPH SET HTMLENCODE ON
ON GRAPH SET HAXIS 475
ON GRAPH SET VAXIS 400
ON GRAPH SET UNITS PIXELS
ON GRAPH SET LOOKGRAPH PIESINGL
ON GRAPH SET GRMERGE ADVANCED
ON GRAPH SET GRMERGE ON
ON GRAPH SET GRMULTIGRAPH 0
ON GRAPH SET GRLEGEND 0
ON GRAPH SET GRXAXIS 1
-*ON GRAPH SET 3D OFF
ON GRAPH SET GRAPHSTYLE *
setTemplateFile("/images/tdg/template/IBICylinderOnGrey.txt");
setReportParsingErrors(false);
setSelectionEnableMove(false);
setFillType(getSeries(2),2);
setTextString(getSubtitle(),"&SUBTITLE1");
setDisplay(getSubtitle(),true);
setDepthRadius(0);
setTransparentFillColor(getLegendArea(),false);
setTransparentBorderColor(getLegendArea(),false);
setDisplay(getBeveledLegend(),false);
setFontSizeAbsolute(getO1Label(), true);
setFontSizeInPoints(getO1Label(), 9);
setTextRotation(getO1Label(),1);

setPlaceResize(getO1Label(), 0);

setUseSeriesShapes(true);
setTextString(getTitle(),"P150 Orders Applied");
setDisplay(getTitle(),true);
setShadowDisplay(getTitle(),false);
setMarkerSizeDefault(50);
setTransparentBorderColor(getChartBackground(),false);
setPlace(true);
setGridStyle(getY1MajorGrid(),0);
setDisplay(getDataText(0),true);
setFontStyle(getTitle(),2);
setFontSizeInPoints(getTitle(),12);
setPlaceResize(getTitle(),0);
setFontSizeAbsolute(getTitle(),true);
setTextUnderlineType(getTitle(),2);
setTextString(getFootnote(),"&CPY");
setDisplay(getFootnote(),true);
setFontStyle(getFootnote(),0);
setPlaceAlign(getFootnote(),0);
setTextJustHoriz(getFootnote(),0);
setFontSizeAbsolute(getFootnote(),true);
setFontSizeInPoints(getFootnote(),6);
setPlaceResize(getFootnote(),0);
setAxisSide(getO1Axis(),0);
setDisplay(getReferenceLineO1(0),false);
setDisplay(getY1Label(),true);
setTextFormatPreset(getY1Label(),0);
setDisplay(getReferenceLineY1(0),false);
setDisplay(getAnnotation(0),true);
setTextString(getAnnotation(0),"");
setFillColor(getTitle(),new Color(0,0,0));
setAxisSide(getY1Axis(),2);
setY1TitleString("Orders");
setSeriesType(getSeries(1),0;
setDisplay(getDataText(1),false);
setDisplay(getDataText(),false);
setDisplay(getY1Title(),true);

setLegendPosition(1);
setTextFormatPreset(getPieSliceLabel(),4);
setPieLabelDisplay(3);
setPiesPerRow(1);
setDisplay(getPieLabel(),true);
setPieTilt(10);
setPieDepth(45);
setFillColor(getSeries(0),new Color(122,184,0));
setFillColor(getSeries(1),new Color(252,212,80));
setFillColor(getSeries(2),new Color(0,56,166));
setFillColor(getSeries(3),new Color(220,72,20));
setFillColor(getSeries(4),new Color(128,128,255));
ENDSTYLE
END
-RUN

DEFINE FILE P150G_CASH
QUANT/I11C=Quantity;
VALUE/P11.2=Amount;
END

GRAPH FILE P150G_CASH
SUM
	VALUE AS ' '
BY DESCR1 AS 'Orders Applied'
ON GRAPH HOLD AS GRAPH2 FORMAT HTMTABLE
ON GRAPH SET GRAPHDEFAULT OFF
ON GRAPH SET VZERO OFF
ON GRAPH SET HTMLENCODE ON
ON GRAPH SET HAXIS 475
ON GRAPH SET VAXIS 400
ON GRAPH SET UNITS PIXELS
ON GRAPH SET LOOKGRAPH PIESINGL
ON GRAPH SET GRMERGE ADVANCED
ON GRAPH SET GRMERGE ON
ON GRAPH SET GRMULTIGRAPH 0
ON GRAPH SET GRLEGEND 0
ON GRAPH SET GRXAXIS 1
-*ON GRAPH SET 3D OFF
ON GRAPH SET GRAPHSTYLE *
setTemplateFile("/images/tdg/template/IBICylinderOnGrey.txt");
setReportParsingErrors(false);
setSelectionEnableMove(false);
setTextString(getSubtitle(),"&SUBTITLE1");
setDisplay(getSubtitle(),true);
setDepthRadius(0);
setTransparentFillColor(getLegendArea(),false);
setTransparentBorderColor(getLegendArea(),false);
setDisplay(getBeveledLegend(),false);
setFontSizeAbsolute(getO1Label(), true);
setFontSizeInPoints(getO1Label(), 9);
setTextRotation(getO1Label(),1);

setPlaceResize(getO1Label(), 0);

setUseSeriesShapes(true);
setTextString(getTitle(),"P150 Orders Applied Revenue");
setDisplay(getTitle(),true);
setShadowDisplay(getTitle(),false);
setMarkerSizeDefault(50);
setTransparentBorderColor(getChartBackground(),false);
setPlace(true);
setGridStyle(getY1MajorGrid(),0);
setDisplay(getDataText(0),true);
setFontStyle(getTitle(),2);
setFontSizeInPoints(getTitle(),12);
setPlaceResize(getTitle(),0);
setFontSizeAbsolute(getTitle(),true);
setTextUnderlineType(getTitle(),2);
setTextString(getFootnote(),"&CPY");
setDisplay(getFootnote(),true);
setFontStyle(getFootnote(),0);
setPlaceAlign(getFootnote(),0);
setTextJustHoriz(getFootnote(),0);
setFontSizeAbsolute(getFootnote(),true);
setFontSizeInPoints(getFootnote(),6);
setPlaceResize(getFootnote(),0);
setAxisSide(getO1Axis(),0);
setDisplay(getReferenceLineO1(0),false);
setDisplay(getY1Label(),true);
setTextFormatPreset(getY1Label(),0);
setDisplay(getReferenceLineY1(0),false);
setDisplay(getAnnotation(0),true);
setTextString(getAnnotation(0),"");
setFillColor(getTitle(),new Color(0,0,0));
setAxisSide(getY1Axis(),2);
setY1TitleString("Orders");
setDisplay(getDataText(1),false);
setDisplay(getDataText(),false);
setDisplay(getY1Title(),true);

setLegendPosition(1);
setTextFormatPreset(getPieSliceLabel(),4);
setPieLabelDisplay(3);
setPiesPerRow(1);
setTextFormatPattern(getDataText(),"$###,###,###.##");
setDisplay(getPieLabel(),true);
setPieTilt(10);
setPieDepth(45);
setFillColor(getSeries(0),new Color(122,184,0));
setFillColor(getSeries(1),new Color(252,212,80));
setFillColor(getSeries(2),new Color(0,56,166));
setFillColor(getSeries(3),new Color(220,72,20));
setFillColor(getSeries(4),new Color(128,128,255));
ENDSTYLE
END
-RUN

-HTMLFORM BEGIN
<HTML>
<BODY>
<FORM>
  <table width="100%">
    <tr>
      <td width="50%">!IBI.FIL.GRAPH1;</td>
      <td width="50%">!IBI.FIL.GRAPH2;</td>
    </tr>
  </table>
</FORM>
</BODY>
</HTML>
-HTMLFORM END