Imports System.Windows.Forms
Imports FastReport

Public Class frmcrreporting

    Dim ds As DataSet
    Dim auswertungnr As Integer
    Dim dms As New Utils.MyDocMgmt
    Dim auswertung As New TKB.Auswertung.clsAuswertung
    Dim rptfilename As String
    Dim printparam As Boolean = True
    Dim StandardAuswertung As Boolean = True
    Dim Design As Boolean = False

    Sub New(ByRef ds As DataSet, ByVal Auswertungnr As Integer, ByRef auswertung As TKB.Auswertung.clsAuswertung, ByVal printparam As Boolean, ByVal Design As Boolean)
        InitializeComponent()
        Me.ds = ds
        Me.auswertungnr = Auswertungnr
        Me.auswertung = auswertung
        Me.printparam = printparam
        Me.StandardAuswertung = True
        Me.Design = Design
    End Sub
    Sub New(ByRef ds As DataSet, ByVal Auswertungnr As Integer)
        InitializeComponent()
        Me.ds = ds
        Me.auswertungnr = Auswertungnr
        Me.StandardAuswertung = False
    End Sub
    Private Sub frmcrreporting_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    End Sub

    Public Sub DesignReport()
        Me.Cursor = Cursors.WaitCursor
        Application.DoEvents()
        rptfilename = dms.Get_RptDatei(Me.auswertungnr)

        Dim i As Integer
        ds.Tables(0).TableName = "Daten"
        For i = 1 To ds.Tables.Count - 1
            ds.Tables(i).TableName = "Daten_" + Trim(Str(i))
        Next

        Dim report As New Report
        Try
            If rptfilename <> "" Then report.Load(rptfilename)
            report.RegisterData(ds)
            report.GetDataSource("Daten").Enabled = True
            report.SetParameterValue("Titel1", auswertung.TitelZeile1)
            report.SetParameterValue("Titel2", auswertung.TitelZeile2)
            If Me.printparam Then
                i = 0
                Dim s As String = ""

                For i = 1 To Me.auswertung.ParamCollection.Count
                    If s <> "" Then s = s + "|"
                    s = s + Me.auswertung.ParamCollection.Item(i).ToString
                Next
                report.SetParameterValue("Parameters", s)
            End If
            Cursor = Cursors.Default
            report.Preview = Me.PreviewControl1
            report.Design()
            report.Dispose()
            Me.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

    Public Sub DisplayReport()
        Me.Cursor = Cursors.WaitCursor
        Application.DoEvents()
        rptfilename = dms.Get_RptDatei(Me.auswertungnr)

        Dim i As Integer
        ds.Tables(0).TableName = "Daten"
        For i = 1 To ds.Tables.Count - 1
            ds.Tables(i).TableName = "Daten_" + Trim(Str(i))
        Next

        Dim report As New Report
        Try
            If rptfilename <> "" Then report.Load(rptfilename)
            report.RegisterData(ds)
            report.GetDataSource("Daten").Enabled = True
            report.SetParameterValue("Titel1", auswertung.TitelZeile1)
            report.SetParameterValue("Titel2", auswertung.TitelZeile2)
            If Me.printparam Then
                i = 0
                Dim s As String = ""

                For i = 1 To Me.auswertung.ParamCollection.Count
                    If s <> "" Then s = s + "|"
                    s = s + Me.auswertung.ParamCollection.Item(i).ToString
                Next
                report.SetParameterValue("Parameters", s)
            End If
            Cursor = Cursors.Default
            report.Preview = Me.PreviewControl1
            report.Show()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

    Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
        Me.Close()
    End Sub




End Class