Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.IO
Public Class ARCustRptView
Inherits System.Web.UI.Page
Dim crpt As New ReportDocument
Dim crExportOptions As ExportOptions
Dim crDiskFileDestinationOptions As DiskFileDestinationOptions
Dim myTable As CrystalDecisions.CrystalReports.Engine.Table
Dim myLogin As CrystalDecisions.Shared.TableLogOnInfo
Dim strFileName As String
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strPriveledge As String
Try
If (Request.Cookies("Priveledge") Is Nothing) Or Request.Cookies("Priveledge").Value = String.Empty Then
Response.Redirect("Login.aspx")
End If
Catch
Response.Redirect("Login.aspx")
End Try
strPriveledge = Request.Cookies("Priveledge").Value
If strPriveledge = "" Or strPriveledge = Nothing Then
Response.Redirect("Login.aspx")
Else
strPriveledge = Request.Cookies("Priveledge").Value
End If
crpt.Load("C:\InetPub\wwwroot\McClure\ARCustRpt.rpt")
For Each myTable In crpt.Database.Tables
myLogin = myTable.LogOnInfo
With myLogin.ConnectionInfo
.ServerName = "202.101.8.107"
.UserID = "UID"
.Password = "PWD"
.DatabaseName = "PDI_1"
End With
myTable.ApplyLogOnInfo(myLogin)
Next
crpt.RecordSelectionFormula = Session("strFormula").ToString
CrystalReportViewer1.ReportSource = crpt
CrystalReportViewer1.RefreshReport()
CrystalReportViewer1.DataBind()
strFileName = "ARCust" & Request.Cookies("EmpID").Value & ".Pdf"
ExportReport()
Response.ClearContent()
Response.ClearHeaders()
Response.ContentType = "application/pdf"
Response.WriteFile("C:\exported\" & strFileName)
Response.Flush()
Response.Close()
System.IO.File.Delete("C:\exported\" & strFileName)
If Not IsPostBack Then
End If
End Sub
Sub ExportReport()
Dim ExportPath As String
ExportPath = "C:\exported\"
If Directory.Exists(ExportPath) = False Then
Directory.CreateDirectory("C:\exported\")
End If
crDiskFileDestinationOptions = New DiskFileDestinationOptions
crExportOptions = crpt.ExportOptions
crDiskFileDestinationOptions.DiskFileName = ExportPath + strFileName
With crExportOptions
.DestinationOptions = crDiskFileDestinationOptions
.ExportDestinationType = ExportDestinationType.DiskFile
.ExportFormatType = ExportFormatType.PortableDocFormat
End With
Try
' Export the report
crpt.Export()
Catch err As Exception
Response.Write("<BR>")
Response.Write(err.Message.ToString)
End Try
End Sub
End Class
