Erro ao executar o ReportViewer
Ao executar um relatório que fiz em ReportViewer aparece o seguinte erro:
Report Viewer Configuration Error The Report Viewer Web Control HTTP Handler has not been registered in the application's web.config file. Add <add verb="*" path="Reserved.ReportViewerWebControl.axd" type = "Microsoft.Reporting.WebForms.HttpHandler, Microsoft.ReportViewer.WebForms, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> to the system.web/httpHandlers section of the web.config file, or add <add name="ReportViewerWebControlHandler" preCondition="integratedMode" verb="*" path="Reserved.ReportViewerWebControl.axd" type="Microsoft.Reporting.WebForms.HttpHandler, Microsoft.ReportViewer.WebForms, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> to the system.webServer/handlers section for Internet Information Services 7 or later. Alguém já se deparou com iso?
Report Viewer Configuration Error The Report Viewer Web Control HTTP Handler has not been registered in the application's web.config file. Add <add verb="*" path="Reserved.ReportViewerWebControl.axd" type = "Microsoft.Reporting.WebForms.HttpHandler, Microsoft.ReportViewer.WebForms, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> to the system.web/httpHandlers section of the web.config file, or add <add name="ReportViewerWebControlHandler" preCondition="integratedMode" verb="*" path="Reserved.ReportViewerWebControl.axd" type="Microsoft.Reporting.WebForms.HttpHandler, Microsoft.ReportViewer.WebForms, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> to the system.webServer/handlers section for Internet Information Services 7 or later. Alguém já se deparou com iso?
Marcos Oliveira
Curtidas 0
Respostas
Marcio Silveira
09/06/2011
Marcos,
Este erro está acontecendo na sua máquina de desenvolvimento ou no servidor?Pelo erro está faltando instalar o ReportView (ou então ficou faltando registrar alguma dll).Sugiro uma nova instalação, se for no servidor basta instalar o Report Viewer Redistributable.
Este erro está acontecendo na sua máquina de desenvolvimento ou no servidor?Pelo erro está faltando instalar o ReportView (ou então ficou faltando registrar alguma dll).Sugiro uma nova instalação, se for no servidor basta instalar o Report Viewer Redistributable.
GOSTEI 0
Marcos Oliveira
09/06/2011
Consegui resolver este problema, estava faltando fazer o link do reportviewer ao webform.aspx. Porém não estou conseguindo fazer aparecer o relatório em si.
Problema nesta linha de comando:
ReportViewer.LocalReport.DataSources.Add(New ReportDataSource("Orgao", Relatorio.OrgaoDataTable.Tables(0)))
Não sei se os campos dentro dos parênteses estão corretos.
Problema nesta linha de comando:
ReportViewer.LocalReport.DataSources.Add(New ReportDataSource("Orgao", Relatorio.OrgaoDataTable.Tables(0)))
Não sei se os campos dentro dos parênteses estão corretos.
GOSTEI 0
Marcio Silveira
09/06/2011
Com certeza está errado:
Aonde está "Orgao" deve ser preenchido com o nome do DataSet mais um sinal de underline nome da Tabela. Se o DataSet for Orgao mesmo deve ficar assim: "Orgao_Tabela", Relatorio.OrgaoDataTable.Tables(0)
Aonde está "Orgao" deve ser preenchido com o nome do DataSet mais um sinal de underline nome da Tabela. Se o DataSet for Orgao mesmo deve ficar assim: "Orgao_Tabela", Relatorio.OrgaoDataTable.Tables(0)
GOSTEI 0
Marcos Oliveira
09/06/2011
Foi feito o seguinte:
Private Sub ConfiguraRelatorio()
'Dim ex As New TJRegraDeNegocioException
Dim list As IList(Of Model.AFD)
Dim sCodUsu As String = String.Empty
Dim sGrupo As String = String.Empty
Dim Param(4) As ReportParameter
Dim cls As New Model.MacoService
Dim maco As Maco = cls.consultarMaco(Me.numMaco, Me.codOrg)
If (maco Is Nothing) Then
Throw New TJRegraDeNegocioException("Maço não encontrado")
End If
list = cls.consultarProcessosDoMacoPorNumeroMacoECodOrg(maco.numMaco, Me.codOrg)
Param(0) = New ReportParameter("serventia", maco.orgao.nome)
Param(1) = New ReportParameter("numMaco", maco.numMaco)
Param(2) = New ReportParameter("codOrgao", maco.orgao.codOrgao)
Param(3) = New ReportParameter("observacao", maco.observacao)
Param(4) = New ReportParameter("codUsu", maco.usuario.codUsu)
ReportViewer1.LocalReport.DataSources.Clear()
ReportViewer1.LocalReport.ReportPath = "rptMaco.rdlc"
ReportViewer1.LocalReport.ReportEmbeddedResource = "rptMaco.rdlc"
ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("clsItemRelatorio", From l In parseListAFDToItemRelatorioMaco(list).AsQueryable))
ReportViewer1.LocalReport.SetParameters(Param)
ReportViewer1.DataBind()
End Sub
Private Function parseListAFDToItemRelatorioMaco(ByVal lista1 As IList(Of AFD)) As IList(Of ItemRelatorioMaco)
Dim lista2 As New List(Of ItemRelatorioMaco)
For Each el As AFD In lista1
lista2.Add(New ItemRelatorioMaco(el))
Next
Return lista2
End Function
Private Sub ConfiguraRelatorio()
'Dim ex As New TJRegraDeNegocioException
Dim list As IList(Of Model.AFD)
Dim sCodUsu As String = String.Empty
Dim sGrupo As String = String.Empty
Dim Param(4) As ReportParameter
Dim cls As New Model.MacoService
Dim maco As Maco = cls.consultarMaco(Me.numMaco, Me.codOrg)
If (maco Is Nothing) Then
Throw New TJRegraDeNegocioException("Maço não encontrado")
End If
list = cls.consultarProcessosDoMacoPorNumeroMacoECodOrg(maco.numMaco, Me.codOrg)
Param(0) = New ReportParameter("serventia", maco.orgao.nome)
Param(1) = New ReportParameter("numMaco", maco.numMaco)
Param(2) = New ReportParameter("codOrgao", maco.orgao.codOrgao)
Param(3) = New ReportParameter("observacao", maco.observacao)
Param(4) = New ReportParameter("codUsu", maco.usuario.codUsu)
ReportViewer1.LocalReport.DataSources.Clear()
ReportViewer1.LocalReport.ReportPath = "rptMaco.rdlc"
ReportViewer1.LocalReport.ReportEmbeddedResource = "rptMaco.rdlc"
ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("clsItemRelatorio", From l In parseListAFDToItemRelatorioMaco(list).AsQueryable))
ReportViewer1.LocalReport.SetParameters(Param)
ReportViewer1.DataBind()
End Sub
Private Function parseListAFDToItemRelatorioMaco(ByVal lista1 As IList(Of AFD)) As IList(Of ItemRelatorioMaco)
Dim lista2 As New List(Of ItemRelatorioMaco)
For Each el As AFD In lista1
lista2.Add(New ItemRelatorioMaco(el))
Next
Return lista2
End Function
GOSTEI 0