-SET &empl_count = &LINES; -*****Create Graphs for each employee********************* -SET &graph_int = 1; -REPEAT :CREATE_GRAPHS &empl_count TIMES; ENGINE INT CACHE SET ON GRAPH FILE RAW_DATA SUM EMP_PERC AS 'Company Contribution' EE_PERC AS 'My Contribution' BY _NAMEPERID NOPRINT BY _NAMEPERID WHERE COUNTER EQ &graph_int ON GRAPH HOLD AS TCS_GRAPH1&graph_int FORMAT SVG ON GRAPH SET 3D OFF ON GRAPH SET GRWIDTH 0 ON GRAPH SET UNITS 'INCHES' ON GRAPH SET HAXIS 3 ON GRAPH SET VAXIS 2 ON GRAPH SET LOOKGRAPH VBAR ON GRAPH SET STYLE * *GRAPH_SCRIPT setPlace(true); *END INCLUDE=endeflt.sty,$ TYPE=REPORT, TITLETEXT='WebFOCUS Report', $ *GRAPH_SCRIPT setLegendMarkerPosition(4); setMarkerDisplay(true); setSeriesType(0,1); setSeriesType(1,1); setSeriesDefaultTransparentBorderColor(true); setUseSeriesBorderDefaults(true); setLegendDisplay(true); setDisplay(getO1Label(),false); setDisplay(getY1Label(),false); setDisplay(getDataText(),true); setTextFormatPreset(getDataText(),29); setFontStyle(getTitle(),0); setTextString(getO1Title(),""); setDisplay(getBeveledRiser(),false); setPlaceAlign(getTitle(),1); setFontSizeAbsolute(getTitle(),true); setFontSizeInPoints(getTitle(),10); setPlaceResize(getTitle(),0); setDisplay(getTitle(),true); setTransparentBorderColor(getLegendArea(),true); setLegendMarkersPerRow(0); setLegendSeriesCount(0); setFillType(getChartBackground(),1); setFontSizeAbsolute(getLegendText(),true); setFontSizeInPoints(getLegendText(),7); setPlaceResize(getLegendText(),0); setRiserWidth(65); setRiserBarGroupSpacing(20); setFontSizeAbsolute(getDataText(),true); setPlaceResize(getDataText(),0); setTextRotation(getDataText(),0); setDisplay(getBeveledLegend(),false); setTransparentBorderColor(getSeries(0),false); setTransparentBorderColor(getSeries(1),false); setSeriesType(getSeries(0),1); setCustomDataText(getDataText(0),false); setLegendOrient(2); setDisplay(getO1Label(),false); setDisplay(getDataText(),true); setFontName(getDataText(),"Arial"); setFillColor(getDataText(),new Color(0,0,0)); setBorderColor(getFrame(),new Color(255,255,255)); setTransparentFillColor(getLegendArea(),false); setLegendAutomatic(true); setTransparentBorderColor(getLegendArea(),true); setDisplay(getBeveledLegend(),false); setFillColor(getLegendArea(),new Color(255,255,255,255)); setLegendMarkerPosition(0); setMarkerShape(getLegendLabelMarker(0),10); setDisplay(getY1MajorGrid(),false); setTransparentBorderColor(getChartBackground(),false); setBorderColor(getChartBackground(),new Color(255,255,255)); setDisplay(getO1MajorGrid(),false); setAltFmtFrameNumColors(getO1AltFmtFrame(),5); setDisplay(getO1AltFmtFrame(),false); setDisplay(getO1MajorGridColorBand1(),false); setFillColor(getFrame(),new Color(255,210,27)); setTransparentFillColor(getFrame(),true); setFillColor(getChartBackground(),new Color(255,255,255)); setTransparentFillColor(getFrameSide(),false); setTransparentBorderColor(getFrameSide(),false); setBorderColor(getFrameSide(),new Color(255,255,255)); setTransparentFillColor(getFrameBottom(),false); setTransparentBorderColor(getFrameBottom(),false); setBorderColor(getFrameBottom(),new Color(255,255,255)); setDisplay(getY1AxisLine(),false); setDisplay(getO1AxisLine(),false); setFillColor(getSeries(0),new Color(132,189,0)); setFillColor(getSeries(1),new Color(242,169,0)); setDataTextPosition(1); setDisplay(getLegendArea(),true); setLineStyleLegendMarkers(1); setSquareMarkers(true); setUseSeriesShapes(true); setMarkerShape(getSeries(0),1); setMarkerShape(getSeries(1),1); setNullLegendMarkerShapesAsSquares(false); setLegendPosition(1); setFontStyle(getDataText(),0); setFontSizeInPoints(getDataText(),9); setUseOffScreen(false); *END ENDSTYLE END -*****PULL DATA FOR GRAPH 2***** MATCH FILE RAW_DATA BY PERSON_ID WHERE COUNTER EQ &graph_int RUN FILE PAYROLL_DATA SUM DPAY_PAY_AMT BY DPAY_PER_ID AS PERSON_ID BY SUMGRP_TITLE AFTER MATCH HOLD AS GRAPH2_DATA OLD END -RUN ENGINE INT CACHE SET ON GRAPH FILE GRAPH2_DATA SUM DPAY_PAY_AMT BY PERSON_ID NOPRINT BY TOTAL HIGHEST DPAY_PAY_AMT NOPRINT BY SUMGRP_TITLE WHERE DPAY_PAY_AMT NE 0; ON GRAPH HOLD AS TCS_GRAPH2&graph_int FORMAT SVG ON GRAPH SET VZERO OFF ON GRAPH SET HTMLENCODE ON ON GRAPH SET GRAPHDEFAULT OFF ON GRAPH SET GRWIDTH 1 ON GRAPH SET HAXIS 3.0 ON GRAPH SET VAXIS 2.0 ON GRAPH SET UNITS INCHES ON GRAPH SET GRMERGE ADVANCED ON GRAPH SET GRMULTIGRAPH 1 ON GRAPH SET GRLEGEND 0 ON GRAPH SET GRXAXIS 2 ON GRAPH SET LOOKGRAPH PIE ON GRAPH SET STYLE * *GRAPH_SCRIPT setPieDepth(0); setPlace(true); setPieFeelerTextDisplay(1); *END INCLUDE=endeflt.sty,$ TYPE=REPORT, TITLETEXT='WebFOCUS Report', $ *GRAPH_SCRIPT setReportParsingErrors(false); setSelectionEnableMove(false); setLegendPosition(2); setDisplay(getPieLabel(),false); setPieFeelerTextDisplay(0); setFontName(getLegendText(),"ARIAL"); setFontSizeAbsolute(getLegendText(),true); setAutofit(getLegendText(),false); setFontSizeInPoints(getLegendText(),6); setPlaceResize(getLegendText(),0); setFillColor(getSeries(0),new Color(#81C341)); setFillColor(getSeries(1),new Color(#00ABEB)); setFillColor(getSeries(2),new Color(#F27430)); setFillColor(getSeries(3),new Color(#FDB414)); setFillColor(getSeries(4),new Color(#970E76)); setFillColor(getSeries(5),new Color(#53565F)); setFillColor(getSeries(6),new Color(#E1DDCC)); setFillColor(getSeries(7),new Color(203,182,119)); setPieRotate(90); setLegendPosition(2); setLegendOrient(0); setUseOffScreen(false); *GRAPH_JS "riserBevel": "none", *END ENDSTYLE END -SET &graph_int = &graph_int + 1; -:CREATE_GRAPHSThis message has been edited. Last edited by: FP Mod Chuck,
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 |
-SET &Suff = FPRINT(&graph_int.EVAL, 'I6L', 'A6'); -SET &TIME_&Suff.EVAL = HHMMSS('A8'); -SET &graph_int = &graph_int + 1; -:CREATE_GRAPHS -? &TIME
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 |