Jump to content
Software FX Community

Chart Axis Properties in ColdFusion MX


User (Legacy)

Recommended Posts

I seem to be having a big problem with setting ChartFx axis properties in

ColdFusion MX. Particualrly things like Min,Max and Step are producing

exceptions. Also, the Docked setting for the legend appears to be having

problems. I attached a code sample Excuse the length, but its a

representation of one of the more complex charts I have to do, but I made it

self contained in one templete for testing purposes. So it had to create

its own query data. Running this example on ColdFusion 5.0 produced the

correct chart. Running it on MX produces the exception below:

An exception occurred during method selection process for Method MIN

The cause of this exception was that there are no methods with the the

specified method name and argument types.

Please check your function and try again.

The error occurred in

C:\CFusionMX\wwwroot\Chartfx_test\cmp_chart_test.cfm: line 293

291 : <CFSET Chart1Axis = chart.Axis>

292 : <cfset Chart1AxisX = chart.GetArrayProp("Item",2,Chart1Axis)>

293 : <cfset Chart1AxisX.Min = 1994>

294 : <cfset Chart1AxisX.Max = 2003>

------------------------------------------------------

Sample Code Starts Below

------------------------------------------------------

<!--- Build Data --->

<cfset plotdata =

QueryNew("FDETECT,FTREND,STD_ANAL_UNITS_RPTD,UFDETECT,UFTREND,UNDETECT,YEAR"

)>

<cfset newRow = QueryAddRow(plotdata, 20)>

<cfset temp = QuerySetCell(plotdata, "FDETECT", "51", 1)>

<cfset temp = QuerySetCell(plotdata, "FTREND", "51", 1)>

<cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 1)>

<cfset temp = QuerySetCell(plotdata, "UFDETECT", "1E+308", 1)>

<cfset temp = QuerySetCell(plotdata, "UFTREND", "1E+308", 1)>

<cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 1)>

<cfset temp = QuerySetCell(plotdata, "Year", "1995.17687657", 1)>

<cfset temp = QuerySetCell(plotdata, "FDETECT", "15", 2)>

<cfset temp = QuerySetCell(plotdata, "FTREND", "15", 2)>

<cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 2)>

<cfset temp = QuerySetCell(plotdata, "UFDETECT", "1E+308", 2)>

<cfset temp = QuerySetCell(plotdata, "UFTREND", "1E+308", 2)>

<cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 2)>

<cfset temp = QuerySetCell(plotdata, "Year", "1995.46750703", 2)>

<cfset temp = QuerySetCell(plotdata, "FDETECT", "1E+308", 3)>

<cfset temp = QuerySetCell(plotdata, "FTREND", "1E+308", 3)>

<cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 3)>

<cfset temp = QuerySetCell(plotdata, "UFDETECT", "12.7", 3)>

<cfset temp = QuerySetCell(plotdata, "UFTREND", "12.7", 3)>

<cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 3)>

<cfset temp = QuerySetCell(plotdata, "Year", "1995.48665298", 3)>

<cfset temp = QuerySetCell(plotdata, "FDETECT", "9.2", 4)>

<cfset temp = QuerySetCell(plotdata, "FTREND", "9.2", 4)>

<cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 4)>

<cfset temp = QuerySetCell(plotdata, "UFDETECT", "1E+308", 4)>

<cfset temp = QuerySetCell(plotdata, "UFTREND", "1E+308", 4)>

<cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 4)>

<cfset temp = QuerySetCell(plotdata, "Year", "1995.48665298", 4)>

<cfset temp = QuerySetCell(plotdata, "FDETECT", "1E+308", 5)>

<cfset temp = QuerySetCell(plotdata, "FTREND", "1E+308", 5)>

<cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 5)>

<cfset temp = QuerySetCell(plotdata, "UFDETECT", "15.2", 5)>

<cfset temp = QuerySetCell(plotdata, "UFTREND", "15.2", 5)>

<cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 5)>

<cfset temp = QuerySetCell(plotdata, "Year", "1995.96584341", 5)>

<cfset temp = QuerySetCell(plotdata, "FDETECT", "6.5", 6)>

<cfset temp = QuerySetCell(plotdata, "FTREND", "6.5", 6)>

<cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 6)>

<cfset temp = QuerySetCell(plotdata, "UFDETECT", "1E+308", 6)>

<cfset temp = QuerySetCell(plotdata, "UFTREND", "1E+308", 6)>

<cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 6)>

<cfset temp = QuerySetCell(plotdata, "Year", "1995.96584341", 6)>

<cfset temp = QuerySetCell(plotdata, "FDETECT", "1E+308", 7)>

<cfset temp = QuerySetCell(plotdata, "FTREND", "1E+308", 7)>

<cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 7)>

<cfset temp = QuerySetCell(plotdata, "UFDETECT", "23.1", 7)>

<cfset temp = QuerySetCell(plotdata, "UFTREND", "23.1", 7)>

<cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 7)>

<cfset temp = QuerySetCell(plotdata, "Year", "1996.80362955", 7)>

<cfset temp = QuerySetCell(plotdata, "FDETECT", "23.5", 8)>

<cfset temp = QuerySetCell(plotdata, "FTREND", "23.5", 8)>

<cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 8)>

<cfset temp = QuerySetCell(plotdata, "UFDETECT", "1E+308", 8)>

<cfset temp = QuerySetCell(plotdata, "UFTREND", "1E+308", 8)>

<cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 8)>

<cfset temp = QuerySetCell(plotdata, "Year", "1996.80362955", 8)>

<cfset temp = QuerySetCell(plotdata, "FDETECT", "24.6", 9)>

<cfset temp = QuerySetCell(plotdata, "FTREND", "24.6", 9)>

<cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 9)>

<cfset temp = QuerySetCell(plotdata, "UFDETECT", "1E+308", 9)>

<cfset temp = QuerySetCell(plotdata, "UFTREND", "1E+308", 9)>

<cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 9)>

<cfset temp = QuerySetCell(plotdata, "Year", "1997.83843258", 9)>

<cfset temp = QuerySetCell(plotdata, "FDETECT", "1E+308", 10)>

<cfset temp = QuerySetCell(plotdata, "FTREND", "1E+308", 10)>

<cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 10)>

<cfset temp = QuerySetCell(plotdata, "UFDETECT", "31.8", 10)>

<cfset temp = QuerySetCell(plotdata, "UFTREND", "31.8", 10)>

<cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 10)>

<cfset temp = QuerySetCell(plotdata, "Year", "1997.83843258", 10)>

<cfset temp = QuerySetCell(plotdata, "FDETECT", "22.6", 11)>

<cfset temp = QuerySetCell(plotdata, "FTREND", "22.6", 11)>

<cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 11)>

<cfset temp = QuerySetCell(plotdata, "UFDETECT", "1E+308", 11)>

<cfset temp = QuerySetCell(plotdata, "UFTREND", "1E+308", 11)>

<cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 11)>

<cfset temp = QuerySetCell(plotdata, "Year", "1997.83843258", 11)>

<cfset temp = QuerySetCell(plotdata, "FDETECT", "1E+308", 12)>

<cfset temp = QuerySetCell(plotdata, "FTREND", "1E+308", 12)>

<cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 12)>

<cfset temp = QuerySetCell(plotdata, "UFDETECT", "36.1", 12)>

<cfset temp = QuerySetCell(plotdata, "UFTREND", "36.1", 12)>

<cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 12)>

<cfset temp = QuerySetCell(plotdata, "Year", "1997.83843258", 12)>

<cfset temp = QuerySetCell(plotdata, "FDETECT", "30.1", 13)>

<cfset temp = QuerySetCell(plotdata, "FTREND", "30.1", 13)>

<cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 13)>

<cfset temp = QuerySetCell(plotdata, "UFDETECT", "1E+308", 13)>

<cfset temp = QuerySetCell(plotdata, "UFTREND", "1E+308", 13)>

<cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 13)>

<cfset temp = QuerySetCell(plotdata, "Year", "1998.83493802", 13)>

<cfset temp = QuerySetCell(plotdata, "FDETECT", "1E+308", 14)>

<cfset temp = QuerySetCell(plotdata, "FTREND", "1E+308", 14)>

<cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 14)>

<cfset temp = QuerySetCell(plotdata, "UFDETECT", "30.5", 14)>

<cfset temp = QuerySetCell(plotdata, "UFTREND", "30.5", 14)>

<cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 14)>

<cfset temp = QuerySetCell(plotdata, "Year", "1998.83493802", 14)>

<cfset temp = QuerySetCell(plotdata, "FDETECT", "27.1", 15)>

<cfset temp = QuerySetCell(plotdata, "FTREND", "27.1", 15)>

<cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 15)>

<cfset temp = QuerySetCell(plotdata, "UFDETECT", "1E+308", 15)>

<cfset temp = QuerySetCell(plotdata, "UFTREND", "1E+308", 15)>

<cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 15)>

<cfset temp = QuerySetCell(plotdata, "Year", "1999.83440186", 15)>

<cfset temp = QuerySetCell(plotdata, "FDETECT", "1E+308", 16)>

<cfset temp = QuerySetCell(plotdata, "FTREND", "1E+308", 16)>

<cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 16)>

<cfset temp = QuerySetCell(plotdata, "UFDETECT", "29.1", 16)>

<cfset temp = QuerySetCell(plotdata, "UFTREND", "29.1", 16)>

<cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 16)>

<cfset temp = QuerySetCell(plotdata, "Year", "1999.83440186", 16)>

<cfset temp = QuerySetCell(plotdata, "FDETECT", "18.7", 17)>

<cfset temp = QuerySetCell(plotdata, "FTREND", "18.7", 17)>

<cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 17)>

<cfset temp = QuerySetCell(plotdata, "UFDETECT", "1E+308", 17)>

<cfset temp = QuerySetCell(plotdata, "UFTREND", "1E+308", 17)>

<cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 17)>

<cfset temp = QuerySetCell(plotdata, "Year", "2000.87210244", 17)>

<cfset temp = QuerySetCell(plotdata, "FDETECT", "1E+308", 18)>

<cfset temp = QuerySetCell(plotdata, "FTREND", "1E+308", 18)>

<cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 18)>

<cfset temp = QuerySetCell(plotdata, "UFDETECT", "20.7", 18)>

<cfset temp = QuerySetCell(plotdata, "UFTREND", "20.7", 18)>

<cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 18)>

<cfset temp = QuerySetCell(plotdata, "Year", "2000.87210244", 18)>

<cfset temp = QuerySetCell(plotdata, "FDETECT", "30.7", 19)>

<cfset temp = QuerySetCell(plotdata, "FTREND", "30.7", 19)>

<cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 19)>

<cfset temp = QuerySetCell(plotdata, "UFDETECT", "1E+308", 19)>

<cfset temp = QuerySetCell(plotdata, "UFTREND", "1E+308", 19)>

<cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 19)>

<cfset temp = QuerySetCell(plotdata, "Year", "2001.84389307", 19)>

<cfset temp = QuerySetCell(plotdata, "FDETECT", "1E+308", 20)>

<cfset temp = QuerySetCell(plotdata, "FTREND", "1E+308", 20)>

<cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 20)>

<cfset temp = QuerySetCell(plotdata, "UFDETECT", "36.8", 20)>

<cfset temp = QuerySetCell(plotdata, "UFTREND", "36.8", 20)>

<cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 20)>

<cfset temp = QuerySetCell(plotdata, "Year", "2001.84389307", 20)>

<cfset YminMax = QueryNew("MX")>

<cfset newRow = QueryAddRow(YminMax, 1)>

<cfset temp = QuerySetCell(YminMax, "MX", "51", 1)>

<cfset EM_CurrentLoc = "199-H4-10">

<cfset EM_CurrentCon = "Chromium">

<cfset EM_GraphDate1 = "1/1/1995">

<cfset EM_GraphDate2 = "1/1/2003">

<!--- End Build Data --->

<!---

****************************************************************************

******************** --->

<!---

****************************************************************************

******************** --->

<!---

****************************************************************************

******************** --->

<!--- Chart parameter values set up by chartfx wizard and placed in the

includes directory --->

<cfinclude template="includes/CfxIE.cfi">

<cfinclude template="includes/cfxiecmds.cfi">

<cfinclude template="includes/CfxIEextra.cfi">

<!--- Provide chart When Data is present --->

<cfquery name="plotdataf" dbtype="query">

SELECT *

FROM Plotdata

Where FTREND < 10000000000000000

</cfquery>

<cfquery name="plotdatau" dbtype="query">

SELECT * FROM Plotdata Where UFTREND < 10000000000000000

</cfquery>

<cfsilent>

<CFOBJECT ACTION="Create" NAME="Chart" CLASS="ChartFX.WebServer">

<CFSET chart.UserAgent = #HTTP_USER_AGENT#>

<!--- General Settings Set by ChartFX Wizard --->

<CFSET chart.TypeMask = 109577217>

<CFSET chart.Style = -9438215>

<CFSET chart.MarkerShape = 1>

<!--- Axis Settings --->

<CFSET chart.RGBBk = 16777216>

<!--- Define Chart --->

<cfset chart.ChartType = SCATTER>

<cfset chart.OpenDataEx(COD_XVALUES,4,#plotdata.recordcount#)>

<CFSET chart.OpenDataEx(COD_VALUES,4,#plotdata.recordcount#)>

<cfset XMin = fix(dateformat(#EM_GraphDate1#,"yyyy"))>

<cfset XMax = Int(dateformat(#EM_GraphDate2#,"yyyy"))+1>

<cfset YMax = 1>

<cfset YMin = 0>

<cfif plotdataf.recordcount gt 0>

<cfoutput query="plotdataf">

<CFSET chart.ThisSerie = 0>

<CFSET

chart.SetArrayProp("XValue",#evaluate(plotdataf.currentrow-1)#,#Year#)>

<CFSET

chart.SetArrayProp("Value",#evaluate(plotdataf.currentrow-1)#,#FTrend#)>

<cfset LY = #Year#>

</cfoutput>

<CFSET chart.SetArrayProp("XValue",#evaluate(plotdataf.recordcount)#,#LY#)>

<CFSET

chart.SetArrayProp("Value",#evaluate(plotdataf.recordcount)#,#CHART_HIDDEN#)

>

</cfif>

<cfif plotdatau.recordcount gt 0>

<cfoutput query="plotdatau">

<CFSET chart.ThisSerie = 1>

<CFSET

chart.SetArrayProp("XValue",#evaluate(plotdatau.currentrow-1)#,#Year#)>

<CFSET

chart.SetArrayProp("Value",#evaluate(plotdatau.currentrow-1)#,#UFTrend#)>

<cfset LY = #Year#>

</cfoutput>

<CFSET chart.SetArrayProp("XValue",#evaluate(plotdatau.recordcount)#,#LY#)>

<CFSET

chart.SetArrayProp("Value",#evaluate(plotdatau.recordcount)#,#CHART_HIDDEN#)

>

</cfif>

<cfoutput query="plotdata">

<CFSET chart.ThisSerie = 2>

<CFSET

chart.SetArrayProp("XValue",#evaluate(plotdata.currentrow-1)#,#Year#)>

<CFSET

chart.SetArrayProp("Value",#evaluate(plotdata.currentrow-1)#,#undetect#)>

<CFSET chart.ThisSerie = 4>

<CFSET

chart.SetArrayProp("XValue",#evaluate(plotdata.currentrow-1)#,#Year#)>

<CFSET

chart.SetArrayProp("Value",#evaluate(plotdata.currentrow-1)#,#Fdetect#)>

<CFSET chart.ThisSerie = 3>

<CFSET

chart.SetArrayProp("XValue",#evaluate(plotdata.currentrow-1)#,#Year#)>

<CFSET

chart.SetArrayProp("Value",#evaluate(plotdata.currentrow-1)#,#ufdetect#)>

</cfoutput>

<CFSET chart.CloseData(COD_VALUES)>

<CFSET chart.CloseData(COD_XVALUES)>

<!--- Per-Series set up chart for series 0 - 5 settings --->

<CFSET Chart1Series = chart.Series>

<CFSET Chart1Series0 = chart.GetArrayProp("Item",0,Chart1Series)>

<CFSET Chart1Series0.TypeMask = 42468353>

<CFSET Chart1Series0.LineStyle = 2>

<CFSET Chart1Series0.MarkerShape = 0>

<CFSET Chart1Series = chart.Series>

<CFSET Chart1Series1 = chart.GetArrayProp("Item",1,Chart1Series)>

<CFSET Chart1Series1.TypeMask = 42468353>

<CFSET Chart1Series1.MarkerShape = 0>

<!---

<CFSET Chart1Series2 = chart.GetArrayProp("Item",2,Chart1Series)>

<CFSET Chart1Series2.Gallery = 4>

<CFSET Chart1Series2.TypeMask = 42468356>

<CFSET Chart1Series2.MarkerShape = 2>

--->

<CFSET Chart1Series = chart.Series>

<CFSET Chart1Series3 = chart.GetArrayProp("Item",2,Chart1Series)>

<CFSET Chart1Series3.Gallery = 4>

<CFSET Chart1Series3.TypeMask = 42468356>

<CFSET Chart1Series3.MarkerShape = 2>

<CFSET Chart1Series = chart.Series>

<CFSET Chart1Series4 = chart.GetArrayProp("Item",3,Chart1Series)>

<CFSET Chart1Series4.Gallery = 4>

<CFSET Chart1Series4.TypeMask = 42468356>

<CFSET Chart1Series4.MarkerShape = 2>

<CFSET Chart1Series = chart.Series>

<CFSET Chart1Series5 = chart.GetArrayProp("Item",4,Chart1Series)>

<CFSET Chart1Series5.Gallery = 4>

<CFSET Chart1Series5.TypeMask = 42468356>

<CFSET Chart1Series5.MarkerShape = 2>

<CFSET Font=Chart.SetArrayProp("Fonts",CHART_TOPFT,CF_Times + CF_BOLD + 14)>

<!---Title--->

<cfset GraphTitle = #EM_CurrentLoc# & " " & chr(10) & #EM_CurrentCon# & "

(" & plotdata.std_anal_units_rptd & ")">

<cfset chart.SetArrayProp("Title",2,#GraphTitle#)>

<!--- Axis Scale --->

<cfoutput>

<CFSET Chart1Axis = chart.Axis>

<cfset Chart1AxisX = chart.GetArrayProp("Item",2,Chart1Axis)>

<cfset Chart1AxisX.Min = 1994>

<cfset Chart1AxisX.Max = 2003>

<cfset Chart1AxisY = chart.GetArrayProp("Item",0,Chart1Axis)>

<cfset Chart1AxisY.Min = 0>

<cfset Chart1AxisY.Max = 60>

<cfset Chart1AxisY.sTEP = 10>

</cfoutput>

<!--- Other Settings --->

<CFSET chart.Border = 6553608>

<cfset chart.SerLegBox = True>

<CFSET SerLegBoxObj = chart.SerLegBoxObj>

<CFSET SerLegBoxObj.Docked = TGFP_BOTTOM>

<CFSET chart.SetArrayProp("SerLeg",0,"Filt. Trend")>

<CFSET chart.SetArrayProp("SerLeg",1,"Unfilt. Trend")>

<CFSET chart.SetArrayProp("SerLeg",2,"Undetect")>

<CFSET chart.SetArrayProp("SerLeg",4,"Filt. Detect")>

<CFSET chart.SetArrayProp("SerLeg",3,"Unfilt. Detect")>

<!--- Color Settings --->

<CFSET chart.OpenDataEx(3,16,0)>

<!--- <CFSET chart.SetArrayProp("Color",2,16777216)> --->

<CFSET chart.SetArrayProp("Color",2,16777216)>

<CFSET chart.SetArrayProp("Color",4,16777228)>

<CFSET chart.SetArrayProp("Color",3,16777264)>

<CFSET chart.CloseData(3)>

<CFSET chart.ImgWidth = 497>

<CFSET chart.ImgHeight = 412>

<cfset chart.ImgQuality = 90>

</cfsilent>

<CFOUTPUT>

<body bottommargin="0" leftmargin="0" marginheight="0" marginwidth="0"

rightmargin="0" topmargin="0">

#chart.GetHtmlTag(497,412,"auto")#

</body>

</CFOUTPUT>

Chart.bmp

Link to comment
Share on other sites

  • 2 weeks later...

Any chance there is going to be any answer to this question at all?  I need

to make a migration reccomendation to a client.

Chris Denslow

"Chris Denslow" <cdenslow@hgl.com> wrote in message

news:$Vcircd3CHA.3068@webserver1.softwarefx.com...

> I seem to be having a big problem with setting ChartFx axis properties in

> ColdFusion MX. Particualrly things like Min,Max and Step are producing

> exceptions. Also, the Docked setting for the legend appears to be having

> problems. I attached a code sample Excuse the length, but its a

> representation of one of the more complex charts I have to do, but I made

it

> self contained in one templete for testing purposes. So it had to create

> its own query data. Running this example on ColdFusion 5.0 produced the

> correct chart. Running it on MX produces the exception below:

>

> An exception occurred during method selection process for Method MIN

> The cause of this exception was that there are no methods with the the

> specified method name and argument types.

> Please check your function and try again.

>

> The error occurred in

> C:\CFusionMX\wwwroot\Chartfx_test\cmp_chart_test.cfm: line 293

>

> 291 : <CFSET Chart1Axis = chart.Axis>

> 292 : <cfset Chart1AxisX = chart.GetArrayProp("Item",2,Chart1Axis)>

> 293 : <cfset Chart1AxisX.Min = 1994>

> 294 : <cfset Chart1AxisX.Max = 2003>

>

>

>

> ------------------------------------------------------

> Sample Code Starts Below

> ------------------------------------------------------

> <!--- Build Data --->

>

> <cfset plotdata =

>

QueryNew("FDETECT,FTREND,STD_ANAL_UNITS_RPTD,UFDETECT,UFTREND,UNDETECT,YEAR"

> )>

> <cfset newRow = QueryAddRow(plotdata, 20)>

> <cfset temp = QuerySetCell(plotdata, "FDETECT", "51", 1)>

> <cfset temp = QuerySetCell(plotdata, "FTREND", "51", 1)>

> <cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 1)>

> <cfset temp = QuerySetCell(plotdata, "UFDETECT", "1E+308", 1)>

> <cfset temp = QuerySetCell(plotdata, "UFTREND", "1E+308", 1)>

> <cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 1)>

> <cfset temp = QuerySetCell(plotdata, "Year", "1995.17687657", 1)>

> <cfset temp = QuerySetCell(plotdata, "FDETECT", "15", 2)>

> <cfset temp = QuerySetCell(plotdata, "FTREND", "15", 2)>

> <cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 2)>

> <cfset temp = QuerySetCell(plotdata, "UFDETECT", "1E+308", 2)>

> <cfset temp = QuerySetCell(plotdata, "UFTREND", "1E+308", 2)>

> <cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 2)>

> <cfset temp = QuerySetCell(plotdata, "Year", "1995.46750703", 2)>

> <cfset temp = QuerySetCell(plotdata, "FDETECT", "1E+308", 3)>

> <cfset temp = QuerySetCell(plotdata, "FTREND", "1E+308", 3)>

> <cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 3)>

> <cfset temp = QuerySetCell(plotdata, "UFDETECT", "12.7", 3)>

> <cfset temp = QuerySetCell(plotdata, "UFTREND", "12.7", 3)>

> <cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 3)>

> <cfset temp = QuerySetCell(plotdata, "Year", "1995.48665298", 3)>

> <cfset temp = QuerySetCell(plotdata, "FDETECT", "9.2", 4)>

> <cfset temp = QuerySetCell(plotdata, "FTREND", "9.2", 4)>

> <cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 4)>

> <cfset temp = QuerySetCell(plotdata, "UFDETECT", "1E+308", 4)>

> <cfset temp = QuerySetCell(plotdata, "UFTREND", "1E+308", 4)>

> <cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 4)>

> <cfset temp = QuerySetCell(plotdata, "Year", "1995.48665298", 4)>

> <cfset temp = QuerySetCell(plotdata, "FDETECT", "1E+308", 5)>

> <cfset temp = QuerySetCell(plotdata, "FTREND", "1E+308", 5)>

> <cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 5)>

> <cfset temp = QuerySetCell(plotdata, "UFDETECT", "15.2", 5)>

> <cfset temp = QuerySetCell(plotdata, "UFTREND", "15.2", 5)>

> <cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 5)>

> <cfset temp = QuerySetCell(plotdata, "Year", "1995.96584341", 5)>

> <cfset temp = QuerySetCell(plotdata, "FDETECT", "6.5", 6)>

> <cfset temp = QuerySetCell(plotdata, "FTREND", "6.5", 6)>

> <cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 6)>

> <cfset temp = QuerySetCell(plotdata, "UFDETECT", "1E+308", 6)>

> <cfset temp = QuerySetCell(plotdata, "UFTREND", "1E+308", 6)>

> <cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 6)>

> <cfset temp = QuerySetCell(plotdata, "Year", "1995.96584341", 6)>

> <cfset temp = QuerySetCell(plotdata, "FDETECT", "1E+308", 7)>

> <cfset temp = QuerySetCell(plotdata, "FTREND", "1E+308", 7)>

> <cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 7)>

> <cfset temp = QuerySetCell(plotdata, "UFDETECT", "23.1", 7)>

> <cfset temp = QuerySetCell(plotdata, "UFTREND", "23.1", 7)>

> <cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 7)>

> <cfset temp = QuerySetCell(plotdata, "Year", "1996.80362955", 7)>

> <cfset temp = QuerySetCell(plotdata, "FDETECT", "23.5", 8)>

> <cfset temp = QuerySetCell(plotdata, "FTREND", "23.5", 8)>

> <cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 8)>

> <cfset temp = QuerySetCell(plotdata, "UFDETECT", "1E+308", 8)>

> <cfset temp = QuerySetCell(plotdata, "UFTREND", "1E+308", 8)>

> <cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 8)>

> <cfset temp = QuerySetCell(plotdata, "Year", "1996.80362955", 8)>

> <cfset temp = QuerySetCell(plotdata, "FDETECT", "24.6", 9)>

> <cfset temp = QuerySetCell(plotdata, "FTREND", "24.6", 9)>

> <cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 9)>

> <cfset temp = QuerySetCell(plotdata, "UFDETECT", "1E+308", 9)>

> <cfset temp = QuerySetCell(plotdata, "UFTREND", "1E+308", 9)>

> <cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 9)>

> <cfset temp = QuerySetCell(plotdata, "Year", "1997.83843258", 9)>

> <cfset temp = QuerySetCell(plotdata, "FDETECT", "1E+308", 10)>

> <cfset temp = QuerySetCell(plotdata, "FTREND", "1E+308", 10)>

> <cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 10)>

> <cfset temp = QuerySetCell(plotdata, "UFDETECT", "31.8", 10)>

> <cfset temp = QuerySetCell(plotdata, "UFTREND", "31.8", 10)>

> <cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 10)>

> <cfset temp = QuerySetCell(plotdata, "Year", "1997.83843258", 10)>

> <cfset temp = QuerySetCell(plotdata, "FDETECT", "22.6", 11)>

> <cfset temp = QuerySetCell(plotdata, "FTREND", "22.6", 11)>

> <cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 11)>

> <cfset temp = QuerySetCell(plotdata, "UFDETECT", "1E+308", 11)>

> <cfset temp = QuerySetCell(plotdata, "UFTREND", "1E+308", 11)>

> <cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 11)>

> <cfset temp = QuerySetCell(plotdata, "Year", "1997.83843258", 11)>

> <cfset temp = QuerySetCell(plotdata, "FDETECT", "1E+308", 12)>

> <cfset temp = QuerySetCell(plotdata, "FTREND", "1E+308", 12)>

> <cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 12)>

> <cfset temp = QuerySetCell(plotdata, "UFDETECT", "36.1", 12)>

> <cfset temp = QuerySetCell(plotdata, "UFTREND", "36.1", 12)>

> <cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 12)>

> <cfset temp = QuerySetCell(plotdata, "Year", "1997.83843258", 12)>

> <cfset temp = QuerySetCell(plotdata, "FDETECT", "30.1", 13)>

> <cfset temp = QuerySetCell(plotdata, "FTREND", "30.1", 13)>

> <cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 13)>

> <cfset temp = QuerySetCell(plotdata, "UFDETECT", "1E+308", 13)>

> <cfset temp = QuerySetCell(plotdata, "UFTREND", "1E+308", 13)>

> <cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 13)>

> <cfset temp = QuerySetCell(plotdata, "Year", "1998.83493802", 13)>

> <cfset temp = QuerySetCell(plotdata, "FDETECT", "1E+308", 14)>

> <cfset temp = QuerySetCell(plotdata, "FTREND", "1E+308", 14)>

> <cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 14)>

> <cfset temp = QuerySetCell(plotdata, "UFDETECT", "30.5", 14)>

> <cfset temp = QuerySetCell(plotdata, "UFTREND", "30.5", 14)>

> <cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 14)>

> <cfset temp = QuerySetCell(plotdata, "Year", "1998.83493802", 14)>

> <cfset temp = QuerySetCell(plotdata, "FDETECT", "27.1", 15)>

> <cfset temp = QuerySetCell(plotdata, "FTREND", "27.1", 15)>

> <cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 15)>

> <cfset temp = QuerySetCell(plotdata, "UFDETECT", "1E+308", 15)>

> <cfset temp = QuerySetCell(plotdata, "UFTREND", "1E+308", 15)>

> <cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 15)>

> <cfset temp = QuerySetCell(plotdata, "Year", "1999.83440186", 15)>

> <cfset temp = QuerySetCell(plotdata, "FDETECT", "1E+308", 16)>

> <cfset temp = QuerySetCell(plotdata, "FTREND", "1E+308", 16)>

> <cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 16)>

> <cfset temp = QuerySetCell(plotdata, "UFDETECT", "29.1", 16)>

> <cfset temp = QuerySetCell(plotdata, "UFTREND", "29.1", 16)>

> <cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 16)>

> <cfset temp = QuerySetCell(plotdata, "Year", "1999.83440186", 16)>

> <cfset temp = QuerySetCell(plotdata, "FDETECT", "18.7", 17)>

> <cfset temp = QuerySetCell(plotdata, "FTREND", "18.7", 17)>

> <cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 17)>

> <cfset temp = QuerySetCell(plotdata, "UFDETECT", "1E+308", 17)>

> <cfset temp = QuerySetCell(plotdata, "UFTREND", "1E+308", 17)>

> <cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 17)>

> <cfset temp = QuerySetCell(plotdata, "Year", "2000.87210244", 17)>

> <cfset temp = QuerySetCell(plotdata, "FDETECT", "1E+308", 18)>

> <cfset temp = QuerySetCell(plotdata, "FTREND", "1E+308", 18)>

> <cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 18)>

> <cfset temp = QuerySetCell(plotdata, "UFDETECT", "20.7", 18)>

> <cfset temp = QuerySetCell(plotdata, "UFTREND", "20.7", 18)>

> <cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 18)>

> <cfset temp = QuerySetCell(plotdata, "Year", "2000.87210244", 18)>

> <cfset temp = QuerySetCell(plotdata, "FDETECT", "30.7", 19)>

> <cfset temp = QuerySetCell(plotdata, "FTREND", "30.7", 19)>

> <cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 19)>

> <cfset temp = QuerySetCell(plotdata, "UFDETECT", "1E+308", 19)>

> <cfset temp = QuerySetCell(plotdata, "UFTREND", "1E+308", 19)>

> <cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 19)>

> <cfset temp = QuerySetCell(plotdata, "Year", "2001.84389307", 19)>

> <cfset temp = QuerySetCell(plotdata, "FDETECT", "1E+308", 20)>

> <cfset temp = QuerySetCell(plotdata, "FTREND", "1E+308", 20)>

> <cfset temp = QuerySetCell(plotdata, "STD_ANAL_UNITS_RPTD", "ug/L", 20)>

> <cfset temp = QuerySetCell(plotdata, "UFDETECT", "36.8", 20)>

> <cfset temp = QuerySetCell(plotdata, "UFTREND", "36.8", 20)>

> <cfset temp = QuerySetCell(plotdata, "Undetect", "1E+308", 20)>

> <cfset temp = QuerySetCell(plotdata, "Year", "2001.84389307", 20)>

>

> <cfset YminMax = QueryNew("MX")>

> <cfset newRow = QueryAddRow(YminMax, 1)>

> <cfset temp = QuerySetCell(YminMax, "MX", "51", 1)>

>

>

> <cfset EM_CurrentLoc = "199-H4-10">

> <cfset EM_CurrentCon = "Chromium">

> <cfset EM_GraphDate1 = "1/1/1995">

> <cfset EM_GraphDate2 = "1/1/2003">

> <!--- End Build Data --->

>

> <!---

>

****************************************************************************

> ******************** --->

> <!---

>

****************************************************************************

> ******************** --->

> <!---

>

****************************************************************************

> ******************** --->

>

> <!--- Chart parameter values set up by chartfx wizard and placed in the

> includes directory --->

>

> <cfinclude template="includes/CfxIE.cfi">

> <cfinclude template="includes/cfxiecmds.cfi">

> <cfinclude template="includes/CfxIEextra.cfi">

>

> <!--- Provide chart When Data is present --->

>

> <cfquery name="plotdataf" dbtype="query">

> SELECT *

> FROM Plotdata

> Where FTREND < 10000000000000000

> </cfquery>

>

> <cfquery name="plotdatau" dbtype="query">

> SELECT * FROM Plotdata Where UFTREND < 10000000000000000

> </cfquery>

>

>

> <cfsilent>

> <CFOBJECT ACTION="Create" NAME="Chart" CLASS="ChartFX.WebServer">

> <CFSET chart.UserAgent = #HTTP_USER_AGENT#>

>

> <!--- General Settings Set by ChartFX Wizard --->

> <CFSET chart.TypeMask = 109577217>

> <CFSET chart.Style = -9438215>

> <CFSET chart.MarkerShape = 1>

>

> <!--- Axis Settings --->

> <CFSET chart.RGBBk = 16777216>

>

>

> <!--- Define Chart --->

> <cfset chart.ChartType = SCATTER>

> <cfset chart.OpenDataEx(COD_XVALUES,4,#plotdata.recordcount#)>

> <CFSET chart.OpenDataEx(COD_VALUES,4,#plotdata.recordcount#)>

>

> <cfset XMin = fix(dateformat(#EM_GraphDate1#,"yyyy"))>

> <cfset XMax = Int(dateformat(#EM_GraphDate2#,"yyyy"))+1>

> <cfset YMax = 1>

> <cfset YMin = 0>

>

>

> <cfif plotdataf.recordcount gt 0>

> <cfoutput query="plotdataf">

> <CFSET chart.ThisSerie = 0>

> <CFSET

> chart.SetArrayProp("XValue",#evaluate(plotdataf.currentrow-1)#,#Year#)>

> <CFSET

> chart.SetArrayProp("Value",#evaluate(plotdataf.currentrow-1)#,#FTrend#)>

> <cfset LY = #Year#>

> </cfoutput>

>

> <CFSET

chart.SetArrayProp("XValue",#evaluate(plotdataf.recordcount)#,#LY#)>

> <CFSET

>

chart.SetArrayProp("Value",#evaluate(plotdataf.recordcount)#,#CHART_HIDDEN#)

> >

> </cfif>

>

> <cfif plotdatau.recordcount gt 0>

> <cfoutput query="plotdatau">

> <CFSET chart.ThisSerie = 1>

> <CFSET

> chart.SetArrayProp("XValue",#evaluate(plotdatau.currentrow-1)#,#Year#)>

> <CFSET

> chart.SetArrayProp("Value",#evaluate(plotdatau.currentrow-1)#,#UFTrend#)>

> <cfset LY = #Year#>

> </cfoutput>

>

> <CFSET

chart.SetArrayProp("XValue",#evaluate(plotdatau.recordcount)#,#LY#)>

> <CFSET

>

chart.SetArrayProp("Value",#evaluate(plotdatau.recordcount)#,#CHART_HIDDEN#)

> >

> </cfif>

>

> <cfoutput query="plotdata">

> <CFSET chart.ThisSerie = 2>

> <CFSET

> chart.SetArrayProp("XValue",#evaluate(plotdata.currentrow-1)#,#Year#)>

> <CFSET

> chart.SetArrayProp("Value",#evaluate(plotdata.currentrow-1)#,#undetect#)>

> <CFSET chart.ThisSerie = 4>

> <CFSET

> chart.SetArrayProp("XValue",#evaluate(plotdata.currentrow-1)#,#Year#)>

> <CFSET

> chart.SetArrayProp("Value",#evaluate(plotdata.currentrow-1)#,#Fdetect#)>

> <CFSET chart.ThisSerie = 3>

> <CFSET

> chart.SetArrayProp("XValue",#evaluate(plotdata.currentrow-1)#,#Year#)>

> <CFSET

> chart.SetArrayProp("Value",#evaluate(plotdata.currentrow-1)#,#ufdetect#)>

> </cfoutput>

>

>

>

> <CFSET chart.CloseData(COD_VALUES)>

> <CFSET chart.CloseData(COD_XVALUES)>

>

>

> <!--- Per-Series set up chart for series 0 - 5 settings --->

> <CFSET Chart1Series = chart.Series>

> <CFSET Chart1Series0 = chart.GetArrayProp("Item",0,Chart1Series)>

> <CFSET Chart1Series0.TypeMask = 42468353>

> <CFSET Chart1Series0.LineStyle = 2>

> <CFSET Chart1Series0.MarkerShape = 0>

> <CFSET Chart1Series = chart.Series>

> <CFSET Chart1Series1 = chart.GetArrayProp("Item",1,Chart1Series)>

> <CFSET Chart1Series1.TypeMask = 42468353>

> <CFSET Chart1Series1.MarkerShape = 0>

> <!---

> <CFSET Chart1Series2 = chart.GetArrayProp("Item",2,Chart1Series)>

> <CFSET Chart1Series2.Gallery = 4>

> <CFSET Chart1Series2.TypeMask = 42468356>

> <CFSET Chart1Series2.MarkerShape = 2>

>

> --->

> <CFSET Chart1Series = chart.Series>

> <CFSET Chart1Series3 = chart.GetArrayProp("Item",2,Chart1Series)>

> <CFSET Chart1Series3.Gallery = 4>

> <CFSET Chart1Series3.TypeMask = 42468356>

> <CFSET Chart1Series3.MarkerShape = 2>

> <CFSET Chart1Series = chart.Series>

> <CFSET Chart1Series4 = chart.GetArrayProp("Item",3,Chart1Series)>

> <CFSET Chart1Series4.Gallery = 4>

> <CFSET Chart1Series4.TypeMask = 42468356>

> <CFSET Chart1Series4.MarkerShape = 2>

> <CFSET Chart1Series = chart.Series>

> <CFSET Chart1Series5 = chart.GetArrayProp("Item",4,Chart1Series)>

> <CFSET Chart1Series5.Gallery = 4>

> <CFSET Chart1Series5.TypeMask = 42468356>

> <CFSET Chart1Series5.MarkerShape = 2>

>

>

>

> <CFSET Font=Chart.SetArrayProp("Fonts",CHART_TOPFT,CF_Times + CF_BOLD +

14)>

>

> <!---Title--->

> <cfset GraphTitle = #EM_CurrentLoc# & " " & chr(10) & #EM_CurrentCon# &

"

> (" & plotdata.std_anal_units_rptd & ")">

> <cfset chart.SetArrayProp("Title",2,#GraphTitle#)>

>

>

> <!--- Axis Scale --->

>

> <cfoutput>

> <CFSET Chart1Axis = chart.Axis>

> <cfset Chart1AxisX = chart.GetArrayProp("Item",2,Chart1Axis)>

> <cfset Chart1AxisX.Min = 1994>

> <cfset Chart1AxisX.Max = 2003>

>

> <cfset Chart1AxisY = chart.GetArrayProp("Item",0,Chart1Axis)>

> <cfset Chart1AxisY.Min = 0>

> <cfset Chart1AxisY.Max = 60>

> <cfset Chart1AxisY.sTEP = 10>

> </cfoutput>

>

>

>

>

> <!--- Other Settings --->

> <CFSET chart.Border = 6553608>

> <cfset chart.SerLegBox = True>

> <CFSET SerLegBoxObj = chart.SerLegBoxObj>

> <CFSET SerLegBoxObj.Docked = TGFP_BOTTOM>

> <CFSET chart.SetArrayProp("SerLeg",0,"Filt. Trend")>

> <CFSET chart.SetArrayProp("SerLeg",1,"Unfilt. Trend")>

> <CFSET chart.SetArrayProp("SerLeg",2,"Undetect")>

> <CFSET chart.SetArrayProp("SerLeg",4,"Filt. Detect")>

> <CFSET chart.SetArrayProp("SerLeg",3,"Unfilt. Detect")>

>

> <!--- Color Settings --->

> <CFSET chart.OpenDataEx(3,16,0)>

> <!--- <CFSET chart.SetArrayProp("Color",2,16777216)> --->

> <CFSET chart.SetArrayProp("Color",2,16777216)>

> <CFSET chart.SetArrayProp("Color",4,16777228)>

> <CFSET chart.SetArrayProp("Color",3,16777264)>

> <CFSET chart.CloseData(3)>

>

>

> <CFSET chart.ImgWidth = 497>

> <CFSET chart.ImgHeight = 412>

> <cfset chart.ImgQuality = 90>

> </cfsilent>

>

> <CFOUTPUT>

> <body bottommargin="0" leftmargin="0" marginheight="0" marginwidth="0"

> rightmargin="0" topmargin="0">

> #chart.GetHtmlTag(497,412,"auto")#

> </body>

> </CFOUTPUT>

>

>

>

>

>

>

>

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...