Imports System
Imports System.Data
Imports System.Configuration
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Imports Microsoft.Samples.ReportingServices
Imports Microsoft.Reporting.WebForms
Imports Microsoft.VisualBasic

Partial Class fattbilla_rep
    Inherits System.Web.UI.Page
    Dim reportServerUrl As String
    Dim reportPath As String
    Dim lg As Logger
    Dim lgs As StringBuilder

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Params As List(Of Microsoft.Reporting.WebForms.ReportParameter) = _
                       New List(Of Microsoft.Reporting.WebForms.ReportParameter)
        'Lista Parametri da passare al report
        Params.Add(New Microsoft.Reporting.WebForms.ReportParameter("Mese", Me.DropDownList1.SelectedValue))
        reportServerUrl = "http://logisp:8080/ReportServer"
        reportPath = "/FatturazioneBilla_rep/Report2"
        Me.vw.ProcessingMode = ProcessingMode.Remote
        Me.vw.ServerReport.ReportServerUrl = New Uri(reportServerUrl)
        Me.vw.ServerReport.ReportPath = reportPath
        Me.vw.ServerReport.SetParameters(Params)
        Me.vw.ShowParameterPrompts = False
        Me.vw.ShowPromptAreaButton = False
        Me.vw.ServerReport.Refresh()
    End Sub

End Class