Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document

Public Class rptAuswertung

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

    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
        If frmAuswertung.Jahresauswertung = True Then txtUeberschrift.Text = "Jahresauswertung"

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

    End Sub

    Private Sub PageHeader_Format(sender As Object, e As EventArgs) Handles PageHeader.Format
        'If frmAuswertung.chkJahresauswertung.Checked Then
        '    txtTitel.Text = frmAuswertung.filname & ", von: " & frmAuswertung.von.Substring(6) & " bis: " & frmAuswertung.bis.Substring(6)
        '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 rptAuswertung_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
            Picture1.Image = My.Resources.ambar_simple
        End If
    End Sub
End Class