Monday, December 3, 2012

Actuate Chart Report

Dynamically changing the chart value by using the CustomizeCategoriesAndSeries event

Sub CustomizeCategoriesAndSeries( baseLayer As AcChartLayer, overlayLayer As AcChartLayer, studyLayers() As AcChartLayer )

Super::CustomizeCategoriesAndSeries( baseLayer, overlayLayer, studyLayers )

Dim checkMonth as integer

checkMonth=month(now)

if(checkMonth<>1) then

Dim numberOfSeries As Integer

numberOfSeries = baseLayer.GetNumberOfSeries( )

Dim seriesIndex As Integer

For seriesIndex =checkMonth To numberOfSeries

Dim series As AcChartSeries

Set series = baseLayer.GetSeries( seriesIndex )

Dim point As AcChartPoint

Dim pointIndex As Integer

Set point = series.GetPoint( 1 )

point.SetYValue(0)

Next seriesIndex

end if

End Sub