jj: fix similar addresses not being printed, fix consecutive collis not being printed

SchaumKommiCollo/KommiCollo/reportUebergabe.vb

@@ -13,9 +13,11 @@ 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 letzteNve As String = String.Empty
-    Private letzerCode As String = String.Empty
+    Private letzterCode As String = String.Empty
+    Private letzterEmpfänger As String = String.Empty
 
     Private Sub labelAnzahlSendungen_SummaryReset(sender As Object, e As EventArgs) Handles labelAnzahlSendungen.SummaryReset
         sendungen = 0
@@ -23,38 +25,53 @@ Public Class reportUebergabe
         gewicht = 0.00
 
         letzteSendung = 0
-
     End Sub
 
+    ''' <summary>
+    ''' Pro Sendungsnummer die Anzahl der Sendungen sowie die Anzahl der Stellplätze hochzählen
+    ''' </summary>
     Private Sub labelSendungNr_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles labelSendungNr.BeforePrint
         Dim sendungsNr As Integer = GetCurrentColumnValue("SENDUNGNR")
         Dim sdgStellplaetze As Integer = GetCurrentColumnValue("SDG_STELLPLAETZE")
 
+        ' Wenn sich die Sendungsnummer geändert hat
         If sendungsNr <> letzteSendung Then
             sendungen = sendungen + 1
             kolli = kolli + sdgStellplaetze
         End If
     End Sub
 
+    ''' <summary>
+    ''' Pro Sendungsnummer das Gewicht aufaddieren
+    ''' </summary>
     Private Sub labelGewicht_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles labelGewicht.BeforePrint
         Dim sendungsNr As Integer = GetCurrentColumnValue("SENDUNGNR")
 
+        ' Wenn sich die Sendungsnummer geändert hat
         If sendungsNr <> letzteSendung Then
             gewicht = gewicht + CDbl(GetCurrentColumnValue("SDG_GEWICHT"))
-            letzteSendung = sendungsNr
         End If
     End Sub
 
+    ''' <summary>
+    ''' Summe der Colli ausgeben
+    ''' </summary>
     Private Sub labelSummeKolli_SummaryGetResult(sender As Object, e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs) Handles labelSummeKolli.SummaryGetResult
         e.Result = kolli
         e.Handled = True
     End Sub
 
+    ''' <summary>
+    ''' Gesamtgewicht ausgeben
+    ''' </summary>
     Private Sub labelSummeGewicht_SummaryGetResult(sender As Object, e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs) Handles labelSummeGewicht.SummaryGetResult
         e.Result = gewicht
         e.Handled = True
     End Sub
 
+    ''' <summary>
+    ''' Gesamtanzahl der Sendungen ausgeben
+    ''' </summary>
     Private Sub labelAnzahlSendungen_SummaryGetResult(sender As Object, e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs) Handles labelAnzahlSendungen.SummaryGetResult
         e.Result = sendungen
         e.Handled = True
@@ -64,34 +81,41 @@ Public Class reportUebergabe
         Dim sendungsNr As Integer = GetCurrentColumnValue("SENDUNGNR")
         Dim nve As String = GetCurrentColumnValue("NVE")
         Dim code As String = GetCurrentColumnValue("CODE")
+        Dim empfänger As String = GetCurrentColumnValue("EMP")
 
+        ' Wenn Sich die Sendung nicht geändert hat
         If sendungsNr = letzteSendung Then
-
-            If Not (nve <> letzteNve And code <> letzerCode) Then
+            ' Wenn NVE oder Colli gleich sind
+            If nve = letzteNve Or code = letzterCode Then
+                ' Druck abbrechen
                 e.Cancel = True
             End If
-
-            letzteNve = nve
-            letzerCode = code
-
-
-            'gewicht = gewicht + CDbl(GetCurrentColumnValue("SDG_GEWICHT"))
-            'letzteSendung = sendungsNr
-
+        Else
+            ' Aktuelle Sendungsnummer speichern
+            letzteSendung = sendungsNr
         End If
+
+        letzteNve = nve
+        letzterCode = code
     End Sub
 
-    Private Sub XrLabel42_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles XrLabel42.BeforePrint
+    Private Sub labelColliCode_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles labelColliCode.BeforePrint
         Dim sendungsNr As Integer = GetCurrentColumnValue("SENDUNGNR")
         Dim nve As String = GetCurrentColumnValue("NVE")
         Dim code As String = GetCurrentColumnValue("CODE")
 
         If sendungsNr = letzteSendung Then
 
-            If Not (nve <> letzteNve And code <> letzerCode) Then
+            If Not (nve <> letzteNve And code <> letzterCode) Then
                 e.Cancel = True
             End If
 
         End If
     End Sub
+
+    Private Sub labelEmpfaenger_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles labelEmpfaenger.BeforePrint
+        Dim empfänger As String = GetCurrentColumnValue("EMP")
+
+        letzterEmpfänger = empfänger
+    End Sub
 End Class