Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports



Public Class rpt_sendDoc
  Inherits System.Web.UI.Page

  Dim WithEvents CrViewer As CrystalDecisions.Web.CrystalReportViewer

#Region " Web Form Designer Generated Code "

  'This call is required by the Web Form Designer.
  <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

  End Sub

  '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
    Dim crReportDocument As New ReportDocument
    Dim paramfields As New ParameterFields
    Dim cninfo As New ConnectionInfo
    Dim logOnInfo As New TableLogOnInfo
    Dim strRepName As String


    logOnInfo = crReportDocument.Database.Tables.Item(0).LogOnInfo
    With logOnInfo.ConnectionInfo
      .Password = ""
      .ServerName = "Master" 'ConfigurationSettings.AppSettings("ServerName").ToString
      .DatabaseName = "TEST" 
      .UserID = "INT\VASYA"
    End With
    crReportDocument.Database.Tables( 0 ).ApplyLogOnInfo(logOnInfo)
    With CrViewer
      .BestFitPage = True
      .HasZoomFactorList = True
      .HasRefreshButton = True
      .DisplayGroupTree = False
      .HasSearchButton = False
      .HasDrillUpButton = False
      .HasRefreshButton = False
      .HasGotoPageButton = False
      .HasPageNavigationButtons = False

      .ReportSource = crReportDocument
      .DataBind()
      .Visible = True
    End With
  End Sub
End Class