RadCharts in ReportViewer

[Santy.e]

Hello..

I have a charts created by code,  i need to export that to Excel and Print,

I opt for to have my Charts inside of a ReportViewer but i dunno how to make that!

Please Help!



This is my code:

#Region "_OFICIO_ "

    Private Function Generar_Item_OF( _
                                        ByVal Oficio As Winsoftware.Oficios, _
                                        ByVal Fecha As DateTime, _
                                        ByVal TipoFecha As Winsoftware.Histograma.TipoFecha _
                                     ) As Telerik.Reporting.Charting.ChartSeriesItem

        Dim Porcentaje_SS As Decimal = 0
        Dim Porcentaje_OT As Decimal = 0
        Dim Porcentaje_Total As Decimal = 0

        Dim pOF As Decimal = 0, pRI As Decimal = 0
        Dim sItem As Telerik.Reporting.Charting.ChartSeriesItem
        sItem = New Telerik.Reporting.Charting.ChartSeriesItem

        Dim ListaDias As List(Of Winsoftware.Series)
        ListaDias = Session("ListaDias")

        _DataTable = Winsoftware.Histograma.HgOfSerieObtener_SS(Oficio.IOF, Fecha)

        ''DATOS DE SOLICITUD DE SERVICIO
        If TipoFecha = Winsoftware.Histograma.TipoFecha.Anterior Then
            ListaDias = Winsoftware.Histograma.valor_serie_dias_anteriores_ss(_DataTable, ListaDias)
        ElseIf TipoFecha = Winsoftware.Histograma.TipoFecha.Actual Then
            ListaDias = Winsoftware.Histograma.valor_serie_dia_actual_ss(_DataTable, ListaDias)
        ElseIf TipoFecha = Winsoftware.Histograma.TipoFecha.Despues Then
            sItem.Appearance.FillStyle.MainColor = Color.DarkBlue
            ListaDias = Winsoftware.Histograma.valor_serie_dias_despues_ss(_DataTable, ListaDias)
        End If

        ''DATOS DE ORDENES DE TRABAJO
        _DataTable = Winsoftware.Histograma.HgOfSerieObtener_OT(Oficio.IOF, Fecha)
        If TipoFecha = Winsoftware.Histograma.TipoFecha.Anterior Then
            Porcentaje_OT = Winsoftware.Histograma.valor_serie_dias_anteriores_ot(_DataTable)
        ElseIf TipoFecha = Winsoftware.Histograma.TipoFecha.Actual Then
            sItem.Appearance.FillStyle.MainColor = Color.DarkBlue
            Porcentaje_OT = Winsoftware.Histograma.valor_serie_dia_actual_ot(_DataTable)
        ElseIf TipoFecha = Winsoftware.Histograma.TipoFecha.Despues Then
            sItem.Appearance.FillStyle.MainColor = Color.DarkBlue
            Porcentaje_OT = Winsoftware.Histograma.valor_serie_dias_despues_ot(_DataTable)
        End If



        For m As Integer = 0 To ListaDias.Count - 1

            If Format(ListaDias(m).Fecha, "dd/MM/yyyy") = Format(Fecha, "dd/MM/yyyy") Then

                Porcentaje_SS = ListaDias(m).Porcetaje
                Porcentaje_Total = Porcentaje_SS + Porcentaje_OT
                'sItem.Label.TextBlock.Text = Format(ListaDias(m).Porcetaje, "0.00").ToString & "%"
                sItem.Label.TextBlock.Text = Format(Porcentaje_Total, "0.00").ToString & "%"
                'sItem.YValue = ListaDias(m).Porcetaje
                sItem.YValue = Porcentaje_Total
                sItem.ActiveRegion.Url = "javascript:ShowPopUpDialog('DetalleOF.aspx?Fecha=" & Fecha & "&OficioID=" & Oficio.IOF & "');" ' MOSTRAR DETALLE
                If sItem.YValue > 100 Then
                    sItem.Appearance.FillStyle.MainColor = Color.Red
                ElseIf (sItem.YValue >= 80) And (sItem.YValue <= 100) Then
                    sItem.Appearance.FillStyle.MainColor = Color.Yellow
                End If

            End If

        Next


        Return sItem
    End Function

    Private Function GenerarSeries_OF(ByVal Oficio As Winsoftware.Oficios, ByVal RadChart As Telerik.Reporting.Chart, ByVal FechaInicio As DateTime, ByVal FechaFin As DateTime) As Telerik.Reporting.Charting.ChartSeries

        Dim chartSeries As New Telerik.Reporting.Charting.ChartSeries()
        chartSeries.Name = "OFICIO"
        chartSeries.Type = Telerik.Reporting.Charting.ChartSeriesType.Bar


        Dim Diff As Integer = DateDiff(DateInterval.Day, FechaInicio, FechaFin)
        Dim Fecha As String = String.Empty
        Dim sItem As Telerik.Reporting.Charting.ChartSeriesItem

        Fecha = FechaInicio.ToShortDateString ' Fecha para serie
        RadChart.PlotArea.XAxis.AddItem(Format(FechaInicio, "yyyy/MM/dd")) 'Crea la serie

        sItem = Generar_Item_OF(Oficio, Fecha, Winsoftware.Histograma.Definit_tipo_Fecha(Fecha)) ' Valor para la serie        
        chartSeries.AddItem(sItem) ' Agrega la serie al grafico

        For i As Integer = 1 To Diff
            Fecha = DateAdd(DateInterval.Day, i, FechaInicio).ToShortDateString
            RadChart.PlotArea.XAxis.AddItem(Format(DateAdd(DateInterval.Day, i, FechaInicio), "yyyy/MM/dd"))

            sItem = Generar_Item_OF(Oficio, Fecha, Winsoftware.Histograma.Definit_tipo_Fecha(Fecha))
            chartSeries.AddItem(sItem)
        Next

        Return chartSeries
    End Function

    Private Sub GenerarGafica_OF(ByVal Oficio As Winsoftware.Oficios, ByVal FechaInicio As DateTime, ByVal FechaFin As DateTime, Optional ByVal index As Integer = 0)

        Dim radChart As New Telerik.Reporting.Chart()
        radChart.ChartTitle.TextBlock.Text = Oficio.NomOF

        Dim ControlID As String = "RadChart_OF_" & index
        radChart.Name = ControlID
        radChart.PlotArea.YAxis.AutoScale = False
        radChart.PlotArea.YAxis.AddRange(0, 200, 10)

        'Color de fondo
        'verda
        Dim zone As New Telerik.Reporting.Charting.ChartMarkedZone
        zone.ValueStartY = 99
        zone.ValueEndY = 101
        zone.Appearance.FillStyle.MainColor = Color.Black
        radChart.PlotArea.MarkedZones.Add(zone)

        'GERENA LOS RANGOS PARA EL EJE Y (LOS PORCENTAJES)
        For j As Integer = 0 To 20
            radChart.PlotArea.YAxis(j).TextBlock.Text = CStr((j * 10)) & "%"
        Next

        'FORMATO PARA EL EJE X
        radChart.PlotArea.XAxis.Clear()
        radChart.PlotArea.XAxis.AutoScale = False
        radChart.PlotArea.XAxis.Appearance.LabelAppearance.RotationAngle = 300
        radChart.PlotArea.XAxis.Appearance.TextAppearance.TextProperties.Color = System.Drawing.Color.Black

        ' CREA LAS SERIES
        Dim chartSeries As New Telerik.Reporting.Charting.ChartSeries()

        Dim ListaDias As List(Of Winsoftware.Series)
        ListaDias = Winsoftware.Series.ListaDias(FechaInicio, FechaFin)
        Session("ListaDias") = ListaDias

        chartSeries = GenerarSeries_OF(Oficio, radChart, FechaInicio, FechaFin)
        ' LIMPIA LAS SERIES QUE HALLA EN LA GRÁFICA
        radChart.Series.Clear()

        ' AGREGA LAS SERIES A LA GRÁFICA
        radChart.Series.Add(chartSeries)


        'radChart.Width = 1010
        'radChart.Height = 600
        'radChart.Skin = "Mac"

        '' add the RadChart to the page.       
        'Me.Page.Controls.Add(radChart)



    End Sub

#End Region

#Region " _RI_ "

    Private Function Generar_Item_RI( _
                                        ByVal RepInt As Winsoftware.RepresentateInterno, _
                                        ByVal Fecha As String, _
                                        ByVal TipoFecha As Winsoftware.Histograma.TipoFecha _
                                     ) As Telerik.Reporting.Charting.ChartSeriesItem

        Dim Porcentaje_SS As Decimal = 0
        Dim Porcentaje_OT As Decimal = 0
        Dim Porcentaje_Total As Decimal = 0

        Dim sItem As Telerik.Reporting.Charting.ChartSeriesItem
        sItem = New Telerik.Reporting.Charting.ChartSeriesItem

        Dim ListaDias As List(Of Winsoftware.Series)
        ListaDias = Session("ListaDias")

        'DATOS DE SOLICITUD DE SERVICIO
        _DataTable = Winsoftware.Histograma.HgRiSerieObtener_SS(RepInt.RV, Fecha)
        'Winsoftware.Histograma.Alternativa_ss(_DataTable, ListaDias)

        If TipoFecha = Winsoftware.Histograma.TipoFecha.Anterior Then
            ListaDias = Winsoftware.Histograma.valor_serie_dias_anteriores_ss(_DataTable, ListaDias)
        ElseIf TipoFecha = Winsoftware.Histograma.TipoFecha.Actual Then
            ListaDias = Winsoftware.Histograma.valor_serie_dia_actual_ss(_DataTable, ListaDias)
        ElseIf TipoFecha = Winsoftware.Histograma.TipoFecha.Despues Then
            sItem.Appearance.FillStyle.MainColor = Color.DarkBlue
            ListaDias = Winsoftware.Histograma.valor_serie_dias_despues_ss(_DataTable, ListaDias)
        End If

        'DATOS DE ORDENES DE TRABAJO
        _DataTable = Winsoftware.Histograma.HgRiSerieObtener_OT(RepInt.RV, Fecha)
        If TipoFecha = Winsoftware.Histograma.TipoFecha.Anterior Then
            Porcentaje_OT = Winsoftware.Histograma.valor_serie_dias_anteriores_ot(_DataTable)
        ElseIf TipoFecha = Winsoftware.Histograma.TipoFecha.Actual Then
            sItem.Appearance.FillStyle.MainColor = Color.DarkBlue
            Porcentaje_OT = Winsoftware.Histograma.valor_serie_dia_actual_ot(_DataTable)
        ElseIf TipoFecha = Winsoftware.Histograma.TipoFecha.Despues Then
            sItem.Appearance.FillStyle.MainColor = Color.DarkBlue
            Porcentaje_OT = Winsoftware.Histograma.valor_serie_dias_despues_ot(_DataTable)
        End If

        For m As Integer = 0 To ListaDias.Count - 1

            If Format(ListaDias(m).Fecha, "dd/MM/yyyy") = Fecha Then

                Porcentaje_SS = ListaDias(m).Porcetaje
                Porcentaje_Total = Porcentaje_SS + Porcentaje_OT
                sItem.Label.TextBlock.Text = Format(Porcentaje_Total, "0.00").ToString & "%"
                sItem.YValue = Porcentaje_Total
                sItem.ActiveRegion.Url = "javascript:ShowPopUpDialog('DetalleRI.aspx?Fecha=" & Fecha & "&RespintID=" & RepInt.RV & "');" ' MOSTRAR DETALLE
                If sItem.YValue > 100 Then
                    sItem.Appearance.FillStyle.MainColor = Color.Red
                ElseIf (sItem.YValue >= 80) And (sItem.YValue <= 100) Then
                    sItem.Appearance.FillStyle.MainColor = Color.Yellow
                End If

                m = ListaDias.Count + 1
            End If

        Next

        Return sItem
    End Function

    Private Function GenerarSeries_RI(ByVal RepInt As Winsoftware.RepresentateInterno, ByVal RadChart As Telerik.Reporting.Chart, ByVal FechaInicio As DateTime, ByVal FechaFin As DateTime) As Telerik.Reporting.Charting.ChartSeries

        Dim chartSeries As New Telerik.Reporting.Charting.ChartSeries()
        Dim Serie As New Winsoftware.Series
        Dim Fecha As String
        chartSeries.Name = "RESPONSABLE"
        chartSeries.Type = Telerik.Reporting.Charting.ChartSeriesType.Bar

        Dim Diff As Integer = DateDiff(DateInterval.Day, FechaInicio, FechaFin)
        Dim sItem As Telerik.Reporting.Charting.ChartSeriesItem

        Dim ListaDias As List(Of Winsoftware.Series)
        ListaDias = Session("ListaDias")


        For i As Integer = 0 To ListaDias.Count - 1
            Serie = ListaDias(i)
            Fecha = Format(Serie.Fecha, "dd/MM/yyyy")

            ''RadChart.PlotArea.XAxis.AddItem(Format(Fecha, "yyyy/MM/dd"))
            RadChart.PlotArea.XAxis.AddItem(Fecha)

            sItem = Generar_Item_RI(RepInt, Fecha, Winsoftware.Histograma.Definit_tipo_Fecha(Serie.Fecha))
            chartSeries.AddItem(sItem)
        Next

        Return chartSeries
    End Function

    Private Sub GenerarGafica_RI(ByVal RepInt As Winsoftware.RepresentateInterno, ByVal FechaInicio As DateTime, ByVal FechaFin As DateTime, Optional ByVal index As Integer = 0)

        Dim radChart As New Telerik.Reporting.Chart
        'Dim radChart As New RadChart

        radChart.ChartTitle.TextBlock.Text = RepInt.NomRV

        Dim ControlID As String = "RadChart_RI_" & index
        radChart.PlotArea.YAxis.AutoScale = False
        radChart.PlotArea.YAxis.AddRange(0, 200, 10)

        'Color de fondo
        'verda
        Dim zone As New Telerik.Reporting.Charting.ChartMarkedZone
        zone.ValueStartY = 99
        zone.ValueEndY = 101
        zone.Appearance.FillStyle.MainColor = Color.Black
        radChart.PlotArea.MarkedZones.Add(zone)

        'GERENA LOS RANGOS PARA EL EJE Y (LOS PORCENTAJES)
        For j As Integer = 0 To 20
            radChart.PlotArea.YAxis(j).TextBlock.Text = CStr((j * 10)) & "%"
        Next

        'FORMATO PARA EL EJE X
        radChart.PlotArea.XAxis.Clear()
        radChart.PlotArea.XAxis.AutoScale = False
        radChart.PlotArea.XAxis.Appearance.LabelAppearance.RotationAngle = 300
        radChart.PlotArea.XAxis.Appearance.TextAppearance.TextProperties.Color = System.Drawing.Color.Black

        ' CREA LAS SERIES
        Dim chartSeries As New Telerik.Reporting.Charting.ChartSeries()

        Dim ListaDias As List(Of Winsoftware.Series)
        ListaDias = Winsoftware.Series.ListaDias(FechaInicio, FechaFin)
        Session("ListaDias") = ListaDias

        chartSeries = GenerarSeries_RI(RepInt, radChart, FechaInicio, FechaFin)
        ' LIMPIA LAS SERIES QUE HALLA EN LA GRÁFICA
        radChart.Series.Clear()

        ' AGREGA LAS SERIES A LA GRÁFICA
        radChart.Series.Add(chartSeries)


        'radChart.Width = 1010
        'radChart.Height = 600
        'radChart.Skin = "Mac"
        radChart.Name = ControlID
        'radChart.Save("C:\tmp\20080604-ojmc.jpg")

        'ReportViewer1.dat()
        'ReportBookControl1.Reports.Add(radChart)
        'Controls.Add(radChart)
        'Me.Page.Controls.Add(radChart)
        'Dim rep As Telerik.ReportViewer.WebForms.ReportInfo

        'ReportBookControl1.Reports.Add(rep)
        'ReportViewer1.DataBind()




    End Sub

#End Region

[Steve]

Hello Santy,

Telerik Reporting cannot host external win/web controls. You have two options for your scenario:

• either switch RadChart and use our report chart item, which uses the same engine as RadChart. Note however that there are some differences and limitations. For example the interactivity features are not supported (drill-down/through, maps, tooltips, active regions etc.) Also if you want to databind the chart, you would need to use the NeedDataSource event for this purpose.
• I see that you use RadChart's Save() method to save it to an image file. If you have the chart saved as an image, then you can use the picturebox report item to show it in the report.

Hope this helps.
Greetings,
Steve
the Telerik team

Check out Telerik Trainer , the state of the art learning tool for Telerik products.

[Santy.e]

Thanks! im gonna use the report chart item, but i dont want to change all code....   cant u show me a example of report chart item working inside of a ReportViewer??

Thanx!!

[Santy.e]

can*

[Steve]

Hello Santy.e,

You can see the chart in use in our demo reports:

• Product Line Sales
• Sales DashBoard

As you can see from the code tabs below the reports, the charts are bound in the NeedDataSource event as explained in my previous post.
All the best,
Steve
the Telerik team

Instantly find answers to your questions on the new Telerik Support Portal.
Check out the tips for optimizing your support resource searches.

[Santy.e]

Please I need help to show these reports, this is the code:

    Private Sub GenerarGafica_RI(ByVal RepInt As Winsoftware.RepresentateInterno, ByVal FechaInicio As DateTime, ByVal FechaFin As DateTime, Optional ByVal index As Integer = 0)

        Dim radChart As New Telerik.Reporting.Chart
        radChart.ChartTitle.TextBlock.Text = RepInt.NomRV

        Dim ControlID As String = "RadChart_RI_" & index
        radChart.PlotArea.YAxis.AutoScale = False
        radChart.PlotArea.YAxis.AddRange(0, 200, 10)

        'Color de fondo
        'verda
        Dim zone As New Telerik.Reporting.Charting.ChartMarkedZone
        zone.ValueStartY = 99
        zone.ValueEndY = 101
        zone.Appearance.FillStyle.MainColor = Color.Black
        radChart.PlotArea.MarkedZones.Add(zone)

        'GERENA LOS RANGOS PARA EL EJE Y (LOS PORCENTAJES)
        For j As Integer = 0 To 20
            radChart.PlotArea.YAxis(j).TextBlock.Text = CStr((j * 10)) & "%"
        Next

        'FORMATO PARA EL EJE X
        radChart.PlotArea.XAxis.Clear()
        radChart.PlotArea.XAxis.AutoScale = False
        radChart.PlotArea.XAxis.Appearance.LabelAppearance.RotationAngle = 300
        radChart.PlotArea.XAxis.Appearance.TextAppearance.TextProperties.Color = System.Drawing.Color.Black

        ' CREA LAS SERIES
        Dim chartSeries As New Telerik.Reporting.Charting.ChartSeries()

        Dim ListaDias As List(Of Winsoftware.Series)
        ListaDias = Winsoftware.Series.ListaDias(FechaInicio, FechaFin)
        Session("ListaDias") = ListaDias

        chartSeries = GenerarSeries_RI(RepInt, radChart, FechaInicio, FechaFin)
        ' LIMPIA LAS SERIES QUE HALLA EN LA GRÁFICA
        radChart.Series.Clear()

        ' AGREGA LAS SERIES A LA GRÁFICA
        radChart.Series.Add(chartSeries)


        radChart.Width = Telerik.Reporting.Drawing.Unit.Pixel(1010.0)
        radChart.Height = Telerik.Reporting.Drawing.Unit.Pixel(600.0)
        'radChart.Skin = "Mac"
        radChart.Name = ControlID
        'radChart.Save("C:\tmp\20080604-ojmc.jpg")


        ReportViewer1.Report = radChart.Report


    End Sub

Private Function GenerarSeries_RI(ByVal RepInt As Winsoftware.RepresentateInterno, ByVal RadChart As Telerik.Reporting.Chart, ByVal FechaInicio As DateTime, ByVal FechaFin As DateTime) As ChartSeries

        Dim chartSeries As New Telerik.Reporting.Charting.ChartSeries()
        Dim Serie As New Winsoftware.Series
        Dim Fecha As String
        chartSeries.Name = "RESPONSABLE"
        chartSeries.Type = ChartSeriesType.Bar

        Dim Diff As Integer = DateDiff(DateInterval.Day, FechaInicio, FechaFin)
        Dim sItem As ChartSeriesItem

        Dim ListaDias As List(Of Winsoftware.Series)
        ListaDias = Session("ListaDias")


        For i As Integer = 0 To ListaDias.Count - 1
            Serie = ListaDias(i)
            Fecha = Format(Serie.Fecha, "dd/MM/yyyy")

            ''RadChart.PlotArea.XAxis.AddItem(Format(Fecha, "yyyy/MM/dd"))
            RadChart.PlotArea.XAxis.AddItem(Fecha)

            sItem = Generar_Item_RI(RepInt, Fecha, Winsoftware.Histograma.Definit_tipo_Fecha(Serie.Fecha))
            chartSeries.AddItem(sItem)
        Next

        Return chartSeries
 End Function



This is urgent thxxx

 End Function



Private Function GenerarSeries_RI(ByVal RepInt As Winsoftware.RepresentateInterno, ByVal RadChart As Telerik.Reporting.Chart, ByVal FechaInicio As DateTime, ByVal FechaFin As DateTime) As ChartSeries

        Dim chartSeries As New Telerik.Reporting.Charting.ChartSeries()
        Dim Serie As New Winsoftware.Series
        Dim Fecha As String
        chartSeries.Name = "RESPONSABLE"
        chartSeries.Type = ChartSeriesType.Bar

        Dim Diff As Integer = DateDiff(DateInterval.Day, FechaInicio, FechaFin)
        Dim sItem As ChartSeriesItem

        Dim ListaDias As List(Of Winsoftware.Series)
        ListaDias = Session("ListaDias")


        For i As Integer = 0 To ListaDias.Count - 1
            Serie = ListaDias(i)
            Fecha = Format(Serie.Fecha, "dd/MM/yyyy")

            ''RadChart.PlotArea.XAxis.AddItem(Format(Fecha, "yyyy/MM/dd"))
            RadChart.PlotArea.XAxis.AddItem(Fecha)

            sItem = Generar_Item_RI(RepInt, Fecha, Winsoftware.Histograma.Definit_tipo_Fecha(Serie.Fecha))
            chartSeries.AddItem(sItem)
        Next

        Return chartSeries

[Santy.e]

and the error is that radChart.Report  is Nothing

[Steve]

Hi Santy.e,

It would be best to have the chart report item created through the report designer and just editing its setting later on. Creating report items outside of the report class library is not recommended. Looking at your code, we see that you create a new chart report item, which however is never added to the report i.e. it does not have a parent report, thus radchart.report would be Nothing. Please review my first reply describing the two possible approaches and implement one of them. You can use the demo reports from my last post as starting point.

Best wishes,
Steve
the Telerik team

Instantly find answers to your questions on the new Telerik Support Portal.
Check out the tips for optimizing your support resource searches.

[BB Agrawal]

Hi There,
I have licensed telerik controls (Telerik.Web.UI version 2009.1.527.20). I have parepare StackedBar100 chart using telerik. Now through a button click I want to print/save/export that chart on MS Word / MS ExcelSheet / PDF, but all the other control (label, text box etc) is easlity exportable in the mentioned format but its unable to portray the chart on that. Can you throw some light on that?

Just to let you know that we are working on web application on MS Visual Studio 2008 with dotnet framework 3.5 and language C#.net with asp.net using MS SQL SERVER 2008.
 
Please let me know in case of any issue/concern. I will appreicate if you will reply ASAP.
 
Thanks!

[Steve]

Hi BB Agrawal,

The ASP.NET chart control cannot be exported to word/excel/pdf out of the box. Reading your inquiry, it seems like you're looking for a 3rd party software that generates word/excel/pdf files directly from a web page.
Another possible solution would be to use the chart report item (part of Telerik Reporting), which shares the same chart engine with the asp.net chart and like all report items can be exported or printed as part of the report.

Greetings,
Steve
the Telerik team

Instantly find answers to your questions on the new Telerik Support Portal.
Watch a video on how to optimize your support resource searches and check out more tips on the blogs.