Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.IO
Public Class ReportView
Inherits System.Web.UI.Page
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents CrystalReportViewer1 As CrystalDecisions.Web.CrystalReportViewer
Dim crReportDocument As New ReportDocument
'+-----------+
'| FOR LOGIN |
'+-----------+
Dim crDatabase As Database
Dim crTables As Tables
Dim crTable As Table
Dim crTableLogOnInfo As TableLogOnInfo
Dim crConnectionInfo As ConnectionInfo
'+-------------------+
'| FOR THE PARAMETER |
'+-------------------+
Dim crParameterFields As ParameterFields
Dim crParameterField As ParameterField
Dim crParameterValues As ParameterValues
Dim crParameterDiscreteValue As ParameterDiscreteValue
'NOTE: The following placeholder declaration is required by the Web Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Response.Write("<DIV><TD><B>Please wait...</B></TD></DIV>")
'Response.Write(Space(256))
'Response.Flush()
'Response.Flush()
'+----------------------+
'| CHOOSE REPORT TO RUN |
'+----------------------+
If Session("isCanine") = 0 Then
crReportDocument.Load("C:\inetpub\wwwroot\APPLE\Reports\PurchaseOrder.RPT")
Else
crReportDocument.Load("C:\inetpub\wwwroot\APPLE\Reports\PurchaseOrderCanine.RPT")
End If
'+-----------------+
'| SQL SERVER INFO |
'+-----------------+
crConnectionInfo = New ConnectionInfo
With crConnectionInfo
.ServerName = "XXX"
.DatabaseName = "XXX"
.UserID = "XXX"
.Password = "XXX"
End With
'+--------------------------------------------------+
'| GET THE TABLES COLLECTION FROM THE REPORT OBJECT |
'+--------------------------------------------------+
crDatabase = crReportDocument.Database
crTables = crDatabase.Tables
'+-------------------------+
'| APPLY LOGIN INFORMATION |
'+-------------------------+
For Each crTable In crTables
crTableLogOnInfo = crTable.LogOnInfo
crTableLogOnInfo.ConnectionInfo = crConnectionInfo
crTable.ApplyLogOnInfo(crTableLogOnInfo)
Next
'+-------------+
'| VIEW REPORT |
'+-------------+
CrystalReportViewer1.ReportSource = crReportDocument
'+-----------------+
'| APPLY PARAMETER |
'+-----------------+
crParameterFields = CrystalReportViewer1.ParameterFieldInfo
crParameterField = crParameterFields.Item("@PONumber")
crParameterValues = crParameterField.CurrentValues
crParameterDiscreteValue = New ParameterDiscreteValue
crParameterDiscreteValue.Value = Session("PONumber")
crParameterValues.Add(crParameterDiscreteValue)
CrystalReportViewer1.ParameterFieldInfo = crParameterFields
End Sub
End Class