GRAPH FILE car SUM CAR.BODY.DEALER_COST COMPUTE RefLine/I5=10000 ; NOPRINT BY CAR.ORIGIN.COUNTRY ON GRAPH PCHOLD FORMAT PNG ON GRAPH SET HTMLENCODE ON ON GRAPH SET GRAPHDEFAULT OFF ON GRAPH SET ARGRAPHENGIN JSCHART ON GRAPH SET VZERO OFF ON GRAPH SET GRMERGE ADVANCED ON GRAPH SET GRMULTIGRAPH 0 ON GRAPH SET GRLEGEND 0 ON GRAPH SET GRXAXIS 1 ON GRAPH SET LOOKGRAPH VLINE ON GRAPH SET STYLE * *GRAPH_SCRIPT setPieDepth(0); setPieTilt(0); setDepthRadius(0); setCurveFitEquationDisplay(false); setPlace(true); setUseSeriesShapes(true); setMarkerSizeDefault(50); *END DEFMACRO=Condition_1, MACTYPE=RULE, WHEN=N2 GT RefLine, $ TYPE=REPORT, TITLETEXT=&WF_TITLE.QUOTEDSTRING, ORIENTATION=LANDSCAPE, $ TYPE=DATA, COLUMN=N2, MACRO=Condition_1, COLOR=RGB(0 255 0), $ COLUMN=N3, ITEM=1, GRAPH-COMMAND='setReferenceLineValue(getReferenceLineY1(0),$VALUE)', $ *GRAPH_SCRIPT setReportParsingErrors(false); setSelectionEnableMove(false); setConnectLineMarkers(false); setSeriesType(1,2); setReferenceTextPosition(getReferenceLineTextY1(0),0); setDisplay(getReferenceLineY1(0),true); setBorderColor(getReferenceLineY1(0),new Color(0,0,0)); setFillColor(getReferenceLineTextY1(0),new Color(0,0,0)); setLineWidth(getReferenceLineY1(0),1); setBorderColor(getReferenceLineY1(0),new Color(255,128,64)); setFillColor(getReferenceLineY1(0),new Color(255,128,64)); setFillColor(getReferenceLineTextY1(0),new Color(255,128,64)); setLineWidth(getReferenceLineY1(0),3); setLineBasicStrokeType(getReferenceLineY1(0),0); setTextString(getReferenceLineTextY1(0),""); setFillColor(getSeries(0),new Color(255,0,0)); *END ENDSTYLE END -RUN
GRAPH FILE car SUM COMPUTE RefLine/I5=10000 ; NOPRINT COMPUTE BELOW_RefLine/D12.2=IF CAR.BODY.DEALER_COST GT 10000 THEN 10000 ELSE CAR.BODY.DEALER_COST ; COMPUTE ABOVE_RefLine/D12.2=IF CAR.BODY.DEALER_COST GE 10000 THEN ( CAR.BODY.DEALER_COST -10000) ELSE 0; BY CAR.COMP.CAR ON GRAPH PCHOLD FORMAT PNG ON GRAPH SET HTMLENCODE ON ON GRAPH SET GRAPHDEFAULT OFF ON GRAPH SET ARGRAPHENGIN JSCHART ON GRAPH SET VZERO OFF ON GRAPH SET GRMERGE ADVANCED ON GRAPH SET GRMULTIGRAPH 0 ON GRAPH SET GRLEGEND 0 ON GRAPH SET GRXAXIS 1 ON GRAPH SET LOOKGRAPH VBRSTK1 ON GRAPH SET STYLE * *GRAPH_SCRIPT setPieDepth(0); setPieTilt(0); setDepthRadius(0); setCurveFitEquationDisplay(false); setPlace(true); setUseSeriesShapes(true); setMarkerSizeDefault(50); *END COLUMN=N2, ITEM=1, GRAPH-COMMAND='setReferenceLineValue(getReferenceLineY1(0),$VALUE)', $ *GRAPH_SCRIPT setReportParsingErrors(false); setSelectionEnableMove(false); setReferenceTextPosition(getReferenceLineTextY1(0),0); setDisplay(getReferenceLineY1(0),true); setBorderColor(getReferenceLineY1(0),new Color(255,128,64)); setFillColor(getReferenceLineY1(0),new Color(255,128,64)); setFillColor(getReferenceLineTextY1(0),new Color(255,128,64)); setLineWidth(getReferenceLineY1(0),3); setLineBasicStrokeType(getReferenceLineY1(0),0); setTextString(getReferenceLineTextY1(0),""); setFillColor(getSeries(0),new Color(255,0,0)); setFillColor(getSeries(1),new Color(0,255,0)); *END 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 |
SET HOLDLIST=PRINTONLY -RUN TABLE FILE CAR SUM COMPUTE HIGHCHARTS_DATA/A100 = '["' || CAR || '",' || FPRINT(DEALER_COST, 'D10c', 'A14') || '],'; BY CAR NOPRINT ON TABLE HOLD AS HIGHCHARTS_DATA END -RUN -SET &THRESHOLD = 10000; -HTMLFORM BEGIN <!doctype html> <html lang="en"> <head> <meta charset="utf-8" /> <title>HighCharts</title> <script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.3/jquery.min.js"></script> <script src="https://ajax.googleapis.com/ajax/libs/jqueryui/1.11.4/jquery-ui.min.js"></script> <script src="http://code.highcharts.com/highcharts.js"></script> <script type="text/javascript"> $(document).ready(function() { $('#container').highcharts({ chart: { type: "line" }, title: { text: 'Dealer Cost by Car' }, plotOptions: { line: { threshold: !IBI.AMP.THRESHOLD;, negativeColor: "#ff0000" } }, yAxis: { title: { text: '' }, plotLines: [{ value: !IBI.AMP.THRESHOLD;, width: 2, color: 'orange' }] }, xAxis: { type: "category" }, series: [ { "index": 0, "name": "Dealer Cost", "data": [ !IBI.FIL.HIGHCHARTS_DATA; ] } ] }) }); </script> </head> <body> <div id="container" style="width: 600px; height: 400px"></div> </body> </html> -HTMLFORM END
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:Originally posted by Anton:
Unfortunately the code with java scripts causes the script errors. And i suppose it is caused by your system.