Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.Security
'Imports CrystalDecisions.CrystalReports.Engine
'Imports CrystalDecisions.Shared


Partial Class Buyer_reporttest
    Inherits System.Web.UI.Page
    Dim strBNo As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        strBNo = Request.QueryString("No")
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Try
        '    'Dim myReport As ReportDocument
        '    'myReport = New CrystalReport()
        '    'myReport.RecordSelectionFormula = "{BillDetails.UserId}=" & Session("Buy") & "and {BillDetails.BillNo}=" & strBNo.Trim & ""

        '    'CrystalDecisions.CrystalReports.Engine.ReportDocument myReport = New CrystalDecisions.CrystalReports.Engine.ReportDocument)

        '    Dim myreport As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        '    myreport.Load(Server.MapPath("../Buyer/BillBuyer.rpt"))
        '    '*****************************************************************************
        '    'Dim myReport1 As ReportDocument
        '    'myReport1 = New BillBuyer
        '    'myReport.RecordSelectionFormula = "{BillDetails.UserId}=" & Session("DBUserID") & "and {BillDetails.BillNo}=" & strBNo.Trim & ""
        '    '*************************************************************
        '    Dim objConInfo As New ConnectionInfo()
        '    Dim objTabLogOnInfo As New TableLogOnInfo()
        '    Dim objDatabase As Database
        '    Dim objTables As Tables
        '    Dim objTable As Table
        '    objConInfo.ServerName = ConfigurationManager.AppSettings("myServer")
        '    objConInfo.UserID = ConfigurationManager.AppSettings("myUser")
        '    objConInfo.Password = ConfigurationManager.AppSettings("myPassword")
        '    objDatabase = myReport.Database
        '    objTables = objDatabase.Tables
        '    For Each objTable In objTables
        '        objTabLogOnInfo = objTable.LogOnInfo
        '        objTabLogOnInfo.ConnectionInfo = objConInfo
        '        objTable.ApplyLogOnInfo(objTabLogOnInfo)
        '    Next
        '    'CrystalReportViewer1.ReportSource = myreport
        '    Dim crParameterFielddefinitions As ParameterFieldDefinitions
        '    Dim crParameterFielddefinition As ParameterFieldDefinition
        '    Dim crParameterValues As ParameterValues
        '    Dim crParameterDiscreteValue As ParameterDiscreteValue
        '    Dim exportOpts As New ExportOptions()
        '    Dim diskOpts As New DiskFileDestinationOptions()
        '    Dim FileName As String = "C:\Reports\" & Session.SessionID.ToString & ".pdf"
        '    'Dim FileName As String = "D:\web sites\ActomartIn\Reports\" & Session.SessionID.ToString & ".pdf"
        '    exportOpts = myReport.ExportOptions
        '    exportOpts.ExportFormatType = ExportFormatType.PortableDocFormat
        '    exportOpts.ExportDestinationType = ExportDestinationType.DiskFile
        '    diskOpts.DiskFileName = FileName
        '    exportOpts.DestinationOptions = diskOpts
        '    myReport.Export()
        '    Response.Buffer = True
        '    Response.Clear()
        '    Response.ClearContent()
        '    Response.ClearHeaders()
        '    Response.ContentType = "application/pdf"
        '    Response.WriteFile(FileName)
        '    Response.Flush()
        '    System.IO.File.Delete(FileName)
        '    Response.End()
        'Catch ex As Exception
        '    ex.Message.ToString()
        'End Try
        ' LoadCrystalReport()
    End Sub

    'Private Sub LoadCrystalReport()
    '    Try
    '        Dim myreport As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    '        myreport.Load(Server.MapPath("../Buyer/BillBuyer.rpt"))
    '        ' myreport.RecordSelectionFormula = "{BillDetails.BillDetails_BuyerID}='" & Session("BuyId") & "' and {BillDetails.BillDetails_BillNo}= '" & strBNo.Trim & "' "
    '        Dim objConInfo As New ConnectionInfo()
    '        Dim objTabLogOnInfo As New TableLogOnInfo()
    '        Dim objDatabase As Database
    '        Dim objTables As Tables
    '        Dim objTable As Table
    '        objConInfo.ServerName = ConfigurationManager.AppSettings("myServer")
    '        objConInfo.UserID = ConfigurationManager.AppSettings("myUser")
    '        objConInfo.Password = ConfigurationManager.AppSettings("myPassword")
    '        objDatabase = myReport.Database
    '        objTables = objDatabase.Tables
    '        For Each objTable In objTables
    '            objTabLogOnInfo = objTable.LogOnInfo
    '            objTabLogOnInfo.ConnectionInfo = objConInfo
    '            objTable.ApplyLogOnInfo(objTabLogOnInfo)
    '        Next
    '        Dim crParameterFielddefinitions As ParameterFieldDefinitions
    '        Dim crParameterFielddefinition As ParameterFieldDefinition
    '        Dim crParameterValues As ParameterValues
    '        Dim crParameterDiscreteValue As ParameterDiscreteValue


    '        crParameterFielddefinitions = myreport.DataDefinition.ParameterFields
    '        crParameterFielddefinition = crParameterFielddefinitions.Item("BillDetails_BuyerID")
    '        crParameterValues = crParameterFielddefinition.CurrentValues
    '        crParameterDiscreteValue = New ParameterDiscreteValue()
    '        crParameterDiscreteValue.Value = Session("BuyId")
    '        'crParameterDiscreteValue.Value = Session("BuyId")
    '        crParameterValues.Add(crParameterDiscreteValue)
    '        crParameterFielddefinition.ApplyCurrentValues(crParameterValues)
    '        ''filter on billno

    '        crParameterFielddefinitions = myreport.DataDefinition.ParameterFields
    '        crParameterFielddefinition = crParameterFielddefinitions.Item("BillingHeader_BillNo")
    '        crParameterValues = crParameterFielddefinition.CurrentValues
    '        crParameterDiscreteValue = New ParameterDiscreteValue()
    '        crParameterDiscreteValue.Value = strBNo.Trim
    '        crParameterValues.Add(crParameterDiscreteValue)
    '        crParameterFielddefinition.ApplyCurrentValues(crParameterValues)
    '        '********************************************************************************
    '        Dim exportOpts As New ExportOptions()
    '        Dim diskOpts As New DiskFileDestinationOptions()
    '        Dim FileName As String = "C:\Reports\" & Session.SessionID.ToString & ".pdf"
    '        exportOpts = myreport.ExportOptions
    '        exportOpts.ExportFormatType = ExportFormatType.PortableDocFormat
    '        exportOpts.ExportDestinationType = ExportDestinationType.DiskFile
    '        diskOpts.DiskFileName = FileName
    '        exportOpts.DestinationOptions = diskOpts
    '        myReport.Export()
    '        Response.Buffer = True
    '        Response.Clear()
    '        Response.ClearContent()
    '        Response.ClearHeaders()
    '        Response.ContentType = "application/pdf"
    '        Response.WriteFile(FileName)
    '        Response.Flush()
    '        Response.End()
    '    Catch ex As Exception
    '        ex.Message.ToString()
    '    End Try
    'End Sub

End Class