Projektdateien hinzufügen.

UID/Reports/Auswertung/rptAuswertung.vb

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