jj: fix calc of anzahl sendungen, gewicht

SchaumKommiCollo/KommiCollo/reportUebergabe.vb

@@ -13,16 +13,22 @@ Public Class reportUebergabe
     Private sendungen As Integer = 0
     Private kolli As Integer = 0
     Private gewicht As Double = 0.00
-
+    Private letzteSendung As Integer = 0
 
     Private Sub labelAnzahlSendungen_SummaryReset(sender As Object, e As EventArgs) Handles labelAnzahlSendungen.SummaryReset
         sendungen = 0
         kolli = 0
         gewicht = 0.00
+
+        letzteSendung = 0
     End Sub
 
     Private Sub labelSendungNr_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles labelSendungNr.BeforePrint
-        sendungen = sendungen + 1
+        Dim sendungsNr As Integer = GetCurrentColumnValue("SENDUNGNR")
+
+        If sendungsNr <> letzteSendung Then
+            sendungen = sendungen + 1
+        End If
     End Sub
 
     Private Sub labelPalettenanzahl_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles labelPalettenanzahl.BeforePrint
@@ -30,7 +36,12 @@ Public Class reportUebergabe
     End Sub
 
     Private Sub labelGewicht_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles labelGewicht.BeforePrint
-        gewicht = gewicht + CDbl(GetCurrentColumnValue("SDG_GEWICHT"))
+        Dim sendungsNr As Integer = GetCurrentColumnValue("SENDUNGNR")
+
+        If sendungsNr <> letzteSendung Then
+            gewicht = gewicht + CDbl(GetCurrentColumnValue("SDG_GEWICHT"))
+            letzteSendung = sendungsNr
+        End If
     End Sub
 
     Private Sub labelSummeKolli_SummaryGetResult(sender As Object, e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs) Handles labelSummeKolli.SummaryGetResult