Server Upgrade

[User (Legacy)]

I recently tried to apply the server patch version 4_5_17_0. The

installation was successful but none of our charts worked correctly anymore.

ChartFX was generating random default charts ( 2 series with five random

points ). Have there been some syntax changes in chart generation in the

patch? Here is a sample of our code to generate a chart..

Set ChartFX1=Server.CreateObject("ChartFX.WebServer")

Set CfxArray = CreateObject("CfxData.Array")

ChartFX1.RgbBk=RGB(255,255,255)

 ChartFX1.Rgb2DBK=RGB(178,176,176)

 ChartFX1.ChartType=LINES

 ChartFX1.Chart3D=false

 ChartFX1.AllowDrag=false

 ChartFX1.AllowEdit=false

 ChartFX1.SerLegBox=true

 ChartFX1.ToolBar=true

 ChartFX1.SerLegBoxObj.Docked=TGFP_BOTTOM

 ChartFX1.MarkerShape=0

 ChartFX1.ToolBarObj.AddItems 1,19

 ChartFX1.ToolBarObj(19).CommandID=CFX_ID_DLGPRINT

 ChartFX1.Commands(CFX_ID_DLGPRINT).Text = "Print Setup"

 ChartFX1.Printer.ForceColors=true

 ChartFX1.Title(CHART_BOTTOMTIT)="Date/Time"

 ChartFX1.OpenDataEx COD_VALUES,4,COD_UNKNOWN

 ChartFX1.OpenDataEx COD_XVALUES,4,COD_UNKNOWN

if not PQ then

 Set myKW=Data.getKW()

 Set myKVAR=Data.theKVAR

 Set myKVA=Data.theKVA

 Set myPF=Data.thePF

 Set myDate=Data.theTIME

else

 Set myKW=Data.theKWSWD

 Set myKVAR=Data.theKVARSWD

 Set myKVA=Data.theKVASWD

 Set myPF=Data.thePF

 Set myDate=Data.theTIME

end if

 CfxArray.AddArray myKW

 CfxArray.AddArray myKVAR

 CfxArray.AddArray myKVA

 CfxArray.AddArray myPF

 CfxArray.AddArray myDate

 ChartFX1.Series(3).YAxis=1

 ChartFX1.CloseData COD_VALUES

 ChartFX1.CloseData COD_XVALUES

 ChartFX1.OpenDataEx COD_COLORS,3,0

 ChartFX1.Series(0).Color=RGB(255,0,0)

 ChartFX1.Series(1).Color=RGB(0,255,0)

 ChartFX1.Series(2).Color=RGB(0,110,255)

 ChartFX1.Series(3).Color=RGB(255,166,0)

 ChartFX1.CloseData COD_COLORS

 ChartFX1.Axis(Axis_Y).AutoScale=true

 ChartFX1.Axis(Axis_Y2).AutoScale=false

 ChartFX1.Axis(Axis_Y).Decimals=2

 ChartFX1.Axis(Axis_Y2).Format=AF_NUMBER

 ChartFX1.Axis(Axis_Y2).Max=1

 ChartFX1.Axis(Axis_Y2).Min=0

 ChartFX1.DateFormat = "Dyyyy/MM/dd"

 ChartFX1.DataType(0)=CDT_VALUE

 ChartFX1.DataType(1)=CDT_VALUE

 ChartFX1.DataType(2)=CDT_VALUE

 ChartFX1.DataType(3)=CDT_VALUE

 ChartFX1.DataType(4)=CDT_XVALUE

 ChartFX1.GetExternalData CfxArray

%>

<%=ChartFX1.GetHtmlTag("95%","90%")

%>

This code does not work with the patch.

Tarik Khan

Manitoba Hydro