SET ACROSSPRT = COMPRESS DEFINE FILE CAR CRLF/A1 = HEXBYT(126,CRLF) ; SORTLINE/A132 = COUNTRY || CRLF || CAR || CRLF || MODEL ; CNTR/I1 WITH MODEL = CNTR + 1 ; END -RUN GRAPH FILE CAR SUM CAR.BODY.DEALER_COST AS '' BY HIGHEST CAR.BODY.DEALER_COST NOPRINT BY CAR.CARREC.SORTLINE AS '' WHERE RECORDLIMIT EQ 6 ON GRAPH SET LOOKGRAPH VBAR ON GRAPH SET GRAPHEDIT SERVER ON GRAPH SET BARNUMB OFF ON GRAPH SET 3D OFF ON GRAPH SET VZERO ON ON GRAPH SET GRID ON ON GRAPH SET VAXIS 250 ON GRAPH SET HAXIS 750 ON GRAPH SET GRMERGE ON ON GRAPH PCHOLD FORMAT PNG ON GRAPH SET GRAPHSTYLE * setMarkerDisplay(true); setConnectLineMarkers(false); setConnectScatterMarkers(false); setO1LabelDisplay(true); setO1AxisSide(0); setO1MajorGridDisplay(true); setO1MajorGridStyle(0); setO1MinorGridDisplay(false); setAxisAssignment(0,0); setY1LabelDisplay(true); setY1AxisSide(0); setY1MajorGridDisplay(true); setY1MajorGridStyle(0); setY1MinorGridDisplay(false); setTextFormatPreset(getY1Label(),-1); setTextFormatPattern(getY1Label(),"#.##"); setPieFeelerTextDisplay(1); setPieLabelDisplay(3); setTextFormatPreset(getPieSliceLabel(),2); setRiserBorderMode(1); setSeriesDefaultTransparentBorderColor(true); setUseSeriesBorderDefaults(true); setLegendDisplay(true); setFontSizeAbsolute(getY1Title(),true); setFontSizeAbsolute(getY1Label(),true); setFontSizeAbsolute(getY2Title(),true); setFontSizeAbsolute(getY2Label(),true); setTextJustHoriz(getO1Title(),1); setFontSizeAbsolute(getO1Title(),true); setFontSize(getO1Title(),12); setTextRotation(getO1Title(),0); setTextWrap(getO1Title(),false); setTextJustHoriz(getO1Label(),0); setFontSizeAbsolute(getO1Label(),true); setFontSize(getO1Label(),8); setTextRotation(getO1Label(),0); setTextWrap(getO1Label(),false); setPlaceResize(getO1Title(),0); setPlaceRotate(getO1Title(),0); setPlaceAlign(getO1Title(),0); setPlaceWordWrap(getO1Title(),0); setPlaceResize(getO1Label(),0); setPlaceRotate(getO1Label(),0); setPlaceAlign(getO1Label(),0); setPlaceWordWrap(getO1Label(),0); setPlace(true); ENDSTYLE ON GRAPH SET STYLE * SQUEEZE=ON, ORIENTATION=PORTRAIT,$ TYPE=REPORT, GRID=OFF, FONT='TIMES NEW ROMAN', SIZE=10, COLOR=RGB(224 224 224), BACKCOLOR='NONE',$ ENDSTYLE END -RUN TABLE FILE CAR PRINT COUNTRY AS '' OVER CAR AS '' OVER MODEL AS '' BY CRLF AS '' ACROSS CNTR NOPRINT WHERE RECORDLIMIT EQ 6 FOOTING "NOTE: This simulates the way that I want the values of SORTLINE" "to appear,one set of items under each bar." ON TABLE SET PAGE OFF ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * GRID=OFF, JUSTIFY=CENTER,$ TYPE=DATA, FONT=ARIAL, SIZE=9, JUSTIFY=CENTER,$ TYPE=FOOTING, FONT=ARIAL, SIZE=9, JUSTIFY=LEFT,$ ENDSTYLE END
In FOCUS Since 1983 ~ from FOCUS to WebFOCUS. Current: WebFOCUS Administrator at FIS Worldpay | 8204, 8206 |
DEFINE FILE CAR CRLF/A2 = '\n'; SORTLINE/A160 = COUNTRY || CRLF || CAR || CRLF || MODEL ;
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 |
quote:CRLF/A2 = '\n';
DEFINE FILE CAR SORTLINE/A132 = COUNTRY || '\n' || MODEL || '\n' || CAR || '\n' || EDIT(MODEL,'99999999999999') || '\n' || CAR ; END -RUN GRAPH FILE CAR SUM CAR.BODY.DEALER_COST AS '' BY HIGHEST CAR.BODY.DEALER_COST NOPRINT BY CAR.CARREC.SORTLINE AS '' WHERE RECORDLIMIT EQ 10 ON GRAPH SET LOOKGRAPH VBAR ON GRAPH SET GRAPHEDIT SERVER ON GRAPH SET BARNUMB OFF ON GRAPH SET 3D OFF ON GRAPH SET VZERO ON ON GRAPH SET GRID ON ON GRAPH SET VAXIS 300.000 ON GRAPH SET HAXIS 960.000 ON GRAPH SET UNITS PIXELS ON GRAPH SET GRMERGE ON ON GRAPH PCHOLD FORMAT PNG ON GRAPH SET GRAPHSTYLE * setLabelStagger(getO1Label(),true); setReportParsingErrors(false); setSelectionEnableMove(false); setDepthRadius(0); setPlaceWordWrap(getO1Label(),1); setMarkerDisplay(true); setConnectLineMarkers(false); setConnectScatterMarkers(false); setO1LabelDisplay(true); setO1AxisSide(0); setO1MajorGridDisplay(true); setO1MajorGridStyle(0); setO1MinorGridDisplay(false); setAxisAssignment(0,0); setY1LabelDisplay(true); setY1AxisSide(0); setY1MajorGridDisplay(true); setY1MajorGridStyle(0); setY1MinorGridDisplay(false); setTextFormatPreset(getY1Label(),6); setPieFeelerTextDisplay(1); setPieLabelDisplay(3); setTextFormatPreset(getPieSliceLabel(),2); setLegendDisplay(true); setFontSizeAbsolute(getY1Title(),true); setFontSizeAbsolute(getY1Label(),true); setFontSizeAbsolute(getY2Title(),true); setFontSizeAbsolute(getY2Label(),true); setTextJustHoriz(getO1Title(),1); setFontSizeAbsolute(getO1Title(),true); setFontSize(getO1Title(),12); setTextRotation(getO1Title(),0); setTextWrap(getO1Title(),false); setTextJustHoriz(getO1Label(),1); setFontSizeAbsolute(getO1Label(),true); setFontSize(getO1Label(),8); setFillColor(getO1Label(),new Color(0,0,0)); setTextRotation(getO1Label(),0); setTextWrap(getO1Label(),false); setPlaceResize(getO1Title(),0); setPlaceRotate(getO1Title(),0); setPlaceAlign(getO1Title(),0); setPlaceWordWrap(getO1Title(),0); setPlaceResize(getO1Label(),0); setPlaceRotate(getO1Label(),0); setPlaceAlign(getO1Label(),0); setPlaceWordWrap(getO1Label(),0); setPlace(true); ENDSTYLE ON GRAPH SET STYLE * SQUEEZE=ON, ORIENTATION=PORTRAIT,$ TYPE=REPORT, GRID=OFF, FONT='ARIAL', SIZE=10, COLOR=RGB(224 224 224),$ TYPE=DATA, COLUMN=N3, COLOR='SILVER',$ ENDSTYLE END -* Copy and run this code to see what I mean. -* With and without the staggerSo, what next? ( I don't want to open a case )
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 |
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 |
Left Brain / Right Brain... It's good to please them all and often required... I'm perfecting it based on all this great input...quote:...as some prefer to look at graphics, others at numbers.
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 |
APP PREPENDPATH IBISAMP DEFINE FILE GGSALES YRMONTH/I6MYY = DATE END GRAPH FILE GGSALES SUM DOLLARS BY YRMONTH WHERE DATE GE '19970101' ON TABLE HOLD AS GRAPH01 FORMAT GIF ON GRAPH SET GRAPHEDIT SERVER ON GRAPH SET BARNUMB OFF ON GRAPH SET 3D OFF ON GRAPH SET VZERO OFF ON GRAPH SET GRID OFF -*ON GRAPH SET VAXIS 6 -*ON GRAPH SET HAXIS 12 ON GRAPH SET GRAPHSTYLE * setGraphType(18); setMarkerDisplay(true); setConnectLineMarkers(false); setConnectScatterMarkers(false); setO1LabelDisplay(false); setO1AxisSide(0); setO1MajorGridDisplay(true); setO1MajorGridStyle(0); setO1MinorGridDisplay(false); setAxisAssignment(0,0); setY1LabelDisplay(true); setY1AxisSide(0); setY1MajorGridDisplay(true); setY1MajorGridStyle(0); setY1MinorGridDisplay(false); setTextFormatPreset(getY1Label(),-1); setTextFormatPattern(getY1Label(),"#.##"); setRiserBorderMode(1); setSeriesDefaultTransparentBorderColor(true); setUseSeriesBorderDefaults(true); setLegendDisplay(false); setFontSizeAbsolute(getY1Title(),true); setFontSizeAbsolute(getY1Label(),true); setFontSizeAbsolute(getY2Title(),true); setFontSizeAbsolute(getY2Label(),true); setFontSizeAbsolute(getO1Title(),true); setPlace(true); setFillType(getSeries(0),1); setSeriesFillColor(0,new Color(255,255,120)); setFillType(getSeries(1),1); setSeriesFillColor(1,new Color(255,120,255)); setFillType(getSeries(2),1); setSeriesFillColor(2,new Color(120,255,255)); setFillType(getSeries(3),1); setSeriesFillColor(3,new Color(080,080,255)); ENDSTYLE END -RUN SET HTMLARCHIVE=ON COMPOUND LAYOUT PCHOLD FORMAT PDF UNITS=IN, $ SECTION=section1, LAYOUT=ON, METADATA='0.5^0.5^0.5^0.5', MERGE=OFF, ORIENTATION=LANDSCAPE, PAGESIZE=A4, $ -* Section - Area Dashboard PAGELAYOUT=1, NAME='Layout page 1', text='Form', BOTTOMMARGIN=0.5, TOPMARGIN=0.5, METADATA='0^0.5^0^0.5', $ OBJECT=IMAGE, NAME='Graph1', IMAGE=graph01.gif, POSITION=(0.630 0.467), DIMENSION=(11.337 3.275), $ COMPONENT='Report1', TEXT='Report', POSITION=(1.380 3.400), DIMENSION=(10.167 2.085), $ END SET COMPONENT='Report1' TABLE FILE GGSALES SUM DOLLARS BY REGION AS '' ACROSS YRMONTH AS '' WHERE DATE GE '19970101' ON TABLE SUBFOOT "Colouring <+0> should <+0> be <+0> simple enough" ON TABLE SET HTMLCSS ON ON TABLE SET PAGE OFF ON TABLE SET STYLE * UNITS=IN, PAGESIZE='A4', LEFTMARGIN=0.19, RIGHTMARGIN=0.19, TOPMARGIN=0.00, BOTTOMMARGIN=0.00, SQUEEZE=ON, ORIENTATION=LANDSCAPE, SIZE=8, GRID=ON, $ TYPE=REPORT, FONT='ARIAL', SIZE=8, COLOR=BLACK, BACKCOLOR='NONE', STYLE=NORMAL, WRAP=OFF, $ TYPE=REPORT, COLUMN=DOLLARS(*), WIDTH=0.455, WRAP=0.455, $ TYPE=TABFOOTING, ITEM=1, COLOR=RED, $ TYPE=TABFOOTING, ITEM=2, COLOR=GREEN, $ TYPE=TABFOOTING, ITEM=3, COLOR=BLUE, $ TYPE=TABFOOTING, ITEM=4, COLOR=ORANGE, $ ENDSTYLE END -* COMPOUND 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 |
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 |