Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document

Public Class rptAuswertungLandscape

    Property von As String = ""
    Property bis As String = ""
    Property filname As String = ""

    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format


        If frmAuswertung.subrep = "subrptAuswertung" Then
            Dim subrpt_Auswertung As New subrptAuswertung
            Me.subrpt.Report = subrpt_Auswertung
        ElseIf frmAuswertung.subrep = "subrptEinzelauswertung" Then
            txtUeberschrift.Text = "Einzelauswertung"
            Dim subrpt_Einzelauswertung As New subrptEinzelauswertung
            Me.subrpt.Report = subrpt_Einzelauswertung
        ElseIf frmAuswertung.subrep = "subrptEinzelStat" Then
            txtUeberschrift.Text = "Einzelauswertung"
            Dim subrpt_Einzelauswertung As New subrptEinzelStat
            Me.subrpt.Report = subrpt_Einzelauswertung
        ElseIf frmAuswertung.Suchauswertung Then
            txtUeberschrift.Text = "Suchauswertung"
        End If

    End Sub

    Private Sub PageHeader_Format(sender As Object, e As EventArgs) Handles PageHeader.Format
        'If frmAuswertung.Jahresauswertung Then
        '    txtTitel.Text = frmAuswertung.filname & ", von: " & frmAuswertung.von.Substring(6) & " bis: " & frmAuswertung.bis.Substring(6)
        'ElseIf frmAuswertung.Suchauswertung Then
        '    txtTitel.Text = "von: " & usrcntlAuftraege.von.ToString("dd.MM.yyyy") & " bis: " & usrcntlAuftraege.bis.ToString("dd.MM.yyyy")

        'Else
        '    txtTitel.Text = frmAuswertung.filname & ", von: " & frmAuswertung.von & " bis: " & frmAuswertung.bis
        'End If
        txtTitel.Text = filname & ", von: " & von & " bis: " & bis
    End Sub

    Private Sub PageFooter_Format(sender As Object, e As EventArgs) Handles PageFooter.Format
        If frmAuswertung.Info > "" Then
            txtInfo.Text = "Das aktuelle Jahr " & frmAuswertung.Info & " ist NICHT vollständig!"
        Else
            txtInfo.Text = ""
        End If

    End Sub

    Private Sub rptAuswertungLandscape_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
        If frmAuswertung.Jahresauswertung = True Then txtUeberschrift.Text = "Jahresauswertung"
        If frmAuswertung.Einzelauswertung = True Then txtUeberschrift.Text = "Einzelauswertung"

        If frmAuswertung.subrep = "subrptAuswertung" Then
            Dim subrpt_Auswertung As New subrptAuswertung
            Me.subrpt.Report = subrpt_Auswertung
        ElseIf frmAuswertung.subrep = "subrptEinzelauswertung" Then
            txtUeberschrift.Text = "Einzelauswertung"
            Dim subrpt_Einzelauswertung As New subrptEinzelauswertung
            Me.subrpt.Report = subrpt_Einzelauswertung
        ElseIf frmAuswertung.subrep = "subrptEinzelStat" Then
            txtUeberschrift.Text = "Einzelauswertung"
            Dim subrpt_Einzelauswertung As New subrptEinzelStat
            Me.subrpt.Report = subrpt_Einzelauswertung
        ElseIf frmAuswertung.Suchauswertung Then
            txtUeberschrift.Text = "Suchauswertung"
        End If
        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
            Picture1.Image = My.Resources.ambar_simple
        End If

    End Sub
End Class