73 lines
3.0 KiB
VB.net
73 lines
3.0 KiB
VB.net
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 |