Code Snippet
Private Sub Carrega_Report_Interno()
ReportViewer_Interno.ProcessingMode = Microsoft.Reporting.WebForms.ProcessingMode.Remote
ReportViewer_Interno.ServerReport.ReportServerUrl = New Uri(WebConfigurationManager.AppSettings("path_report_service"))
ReportViewer_Interno.ServerReport.ReportPath = "/caminho_de_acesso"
Dim pInfo As Microsoft.Reporting.WebForms.ReportParameterInfoCollection
Dim paramList As New Generic.List(Of Microsoft.Reporting.WebForms.ReportParameter)
paramList.Add(
New Microsoft.Reporting.WebForms.ReportParameter("Parceiro", frmParceiro.SelectedValue, False))
paramList.Add(
New Microsoft.Reporting.WebForms.ReportParameter("Negocio", frmTipoNegocio.SelectedValue, False))
paramList.Add(
New Microsoft.Reporting.WebForms.ReportParameter("Categoria", frmCategoria.SelectedValue, False))
paramList.Add(
New Microsoft.Reporting.WebForms.ReportParameter("Filial", frmFilial.SelectedValue, False))
paramList.Add(
New Microsoft.Reporting.WebForms.ReportParameter("Tipo_Cliente", frmTipo_Cliente.SelectedValue, False))
paramList.Add(
New Microsoft.Reporting.WebForms.ReportParameter("DataInicial", DateRangePicker1.DataInicial, False))
paramList.Add(
New Microsoft.Reporting.WebForms.ReportParameter("DataFinal", DateRangePicker1.DataFinal, False))
ReportViewer_Interno.ServerReport.SetParameters(paramList)
pInfo = ReportViewer_Interno.ServerReport.GetParameters()
ReportViewer_Interno.ServerReport.Refresh()
Panel_Interno.Visible =
True
End Sub