Imports System
Imports System.IO
Imports Microsoft.Reporting.WebForms
Partial Class Reports_TemporaryReports
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim ReportViewer1 As New ReportViewer()
ReportViewer1.ProcessingMode = ProcessingMode.Local
ReportViewer1.LocalReport.ReportPath = Request.PhysicalApplicationPath & "Reports\ArrestWorkSheet.rdlc"
Dim myDataSource As New ObjectDataSource("MCCJISSERVICE.MCCJISWebService", "GetArrestWorkSheet")
Dim parameter As New QueryStringParameter("ArrestNumber", "ArrestNumber")
myDataSource.SelectParameters.Add(parameter)
Dim myReportDataSource As New ReportDataSource("DataSet1_Usp_MCCJISWEB_Select_ArrestWorkSheetReport_NEW", myDataSource)
ReportViewer1.LocalReport.DataSources.Add(myReportDataSource)
Dim warnings As Warning() = Nothing
Dim streamids As String() = Nothing
Dim mimeType As String = Nothing
Dim encoding As String = Nothing
Dim extension As String = Nothing
Dim bytes As Byte()
bytes = ReportViewer1.LocalReport.Render("PDF", Nothing, mimeType, encoding, extension, streamids, warnings)
Dim fs As New FileStream(Request.PhysicalApplicationPath & "Reports\TemporaryReports\NewFile.pdf", FileMode.Create)
fs.Write(bytes, 0, bytes.Length)
fs.Close()
End Sub
End Class