bericht

SchaumKommiCollo/KommiCollo/reportUebergabe.vb

@@ -1,3 +1,41 @@
 Public Class reportUebergabe
+    Private sendungen As Integer = 0
+    Private kolli As Integer = 0
+    Private gewicht As Double = 0.00
 
+    Private Sub labelAnzahlSendungen_SummaryReset(sender As Object, e As EventArgs) Handles labelAnzahlSendungen.SummaryReset
+        sendungen = 0
+        kolli = 0
+        gewicht = 0.00
+    End Sub
+
+    Private Sub labelPosInhalt_BeforePrint(sender As Object, e As Printing.PrintEventArgs)
+        sendungen = sendungen + 1
+    End Sub
+
+    Private Sub labelPalettenanzahl_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles labelPalettenanzahl.BeforePrint
+        kolli = kolli + GetCurrentColumnValue("PALETTENANZAHL")
+    End Sub
+
+    Private Sub labelGewicht_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles labelGewicht.BeforePrint
+        gewicht = gewicht + CDbl(GetCurrentColumnValue("SDG_GEWICHT"))
+    End Sub
+
+    Private Sub labelSummeKolli_SummaryGetResult(sender As Object, e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs) Handles labelSummeKolli.SummaryGetResult
+        e.Result = kolli
+        e.Handled = True
+    End Sub
+
+    Private Sub labelSummeGewicht_SummaryGetResult(sender As Object, e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs) Handles labelSummeGewicht.SummaryGetResult
+        e.Result = gewicht
+        e.Handled = True
+    End Sub
+
+    Private Sub labelAnzahlSendungen_SummaryGetResult(sender As Object, e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs) Handles labelAnzahlSendungen.SummaryGetResult
+        e.Result = sendungen
+        e.Handled = True
+    End Sub
+
+    Private Sub GroupFooter1_BeforePrint(sender As Object, e As Printing.PrintEventArgs)
+    End Sub
 End Class