Projektdateien hinzufügen.

UID/Reports/Auswertung/rptAuswertungLandscape.vb

@@ -0,0 +1,70 @@
+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
+    End Sub
+End Class