Public Class RptErgebnisbericht
    Private Sub GroupHeaderBand1_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles GroupHeaderBand1.BeforePrint
        Dim oGroupType As String = GetCurrentColumnValue("GroupType")
        Dim oGroupTypeID As Integer = GetCurrentColumnValue("GroupTypeID")
        If oGroupType = "HEAD" Then
            e.Cancel = True
        ElseIf oGroupType.Contains("Freigabe") Then
            XrTableCell5.Text = "Ja/Nein"
            XrTableCell2.Text = oGroupType
        ElseIf oGroupType.Contains("Abgelehnt") Then
            XrTableCell5.Text = "Ja/Nein"
            XrTableCell2.Text = oGroupType
        ElseIf oGroupType.Contains("Weiterleitung") Then
            XrTableCell5.Text = ""
            XrTableCell2.Text = "Weiterleitung/Weiterleitung durch:            An:"
        Else
            XrTableCell2.Text = "none"
        End If
    End Sub
    Private Sub Detail_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles Detail.BeforePrint
        Dim oGroupType As String = GetCurrentColumnValue("GroupType")
        Dim oGroupTypeID As Integer = GetCurrentColumnValue("GroupTypeID")
        If oGroupType = "HEAD" Then
            e.Cancel = True
        End If
    End Sub
    Private Sub GroupHeader1_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles GroupHeader1.BeforePrint

    End Sub

    Private Sub DetailReport_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles DetailReport.BeforePrint
        Dim oGroupType As String = GetCurrentColumnValue("GroupType")
        Dim oGroupTypeID As Integer = GetCurrentColumnValue("GroupTypeID")
        'XrLabel24.Text = oGroupType
        If oGroupType.Contains("Abgelehnt") Then
            Detail.Visible = False
        End If
    End Sub

    Private Sub GroupHeaderBand2_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles GroupHeaderBand2.BeforePrint
        e.Cancel = True
    End Sub

    Private Sub GroupHeaderBand3_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles GroupHeaderBand3.BeforePrint
        e.Cancel = True
    End Sub

    Private Sub Detail1_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles Detail1.BeforePrint
        Dim oGroupType As String = GetCurrentColumnValue("GroupType")
        'XrLabel25.Text = oGroupType
        If oGroupType = "HEAD" Then
            Detail1.Visible = False
        ElseIf oGroupType.Contains("Abgelehnt") Then
            Detail1.Visible = False
        End If
        If oGroupType.Contains("Weiterleitung") Then
            Detail1.Visible = True
            'XrLabel25.Text = oGroupType
            ' e.Cancel = True
        End If

    End Sub

    Private Sub GroupHeaderBand1_AfterPrint(sender As Object, e As EventArgs) Handles GroupHeaderBand1.AfterPrint
        Dim oGroupType As String = GetCurrentColumnValue("GroupType")

        If oGroupType.Contains("Weiterleitung") Then
            XrTableCell5.Text = ""
            XrTableCell2.Text = "Weiterleitung/Weiterleitung durch:            An:"

        End If
    End Sub
End Class