MS

WISAG_PM_REPORT/RptErgebnisbericht.vb

@@ -0,0 +1,73 @@
+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