Bugfix Sendungdetails, autom Ermittlung von Anzahl der ATA/ATC/CRN/MRN Rows

Aviso/usrCntlSND_Handling.vb

@@ -2,7 +2,8 @@
 
 Public Class usrCntlSND_Handling
     Public SendungsID As Integer
-    Public Event HandlingWerte(colli, gewicht)
+    Public Event HandlingWerte(colli, gewicht, AnzahlSendungen)
+    Public AnzahlSendungen As Integer
 
     Sub New(SendungsID)
 
@@ -23,10 +24,12 @@ Public Class usrCntlSND_Handling
 
     Private Sub MyDatagridview1_RowsAdded(sender As Object, e As DataGridViewRowsAddedEventArgs) Handles MyDatagridview1.RowsAdded
         Label2.Text = (MyDatagridview1.Rows.Count - 1) & " Handling"
+        AnzahlSendungen = MyDatagridview1.Rows.Count - 1
     End Sub
 
     Private Sub MyDatagridview1_RowsRemoved(sender As Object, e As DataGridViewRowsRemovedEventArgs) Handles MyDatagridview1.RowsRemoved
         Label2.Text = (MyDatagridview1.Rows.Count - 1) & " Handling"
+        AnzahlSendungen = MyDatagridview1.Rows.Count - 1
     End Sub
 
     Private Sub usrCntlSND_Handling_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -89,6 +92,6 @@ Public Class usrCntlSND_Handling
                 Gewicht += CDbl(If(IsNumeric(r.Cells("clmnGewicht").Value), r.Cells("clmnGewicht").Value, 0))
             End If
         Next
-        RaiseEvent HandlingWerte(Colli, Gewicht)
+        RaiseEvent HandlingWerte(Colli, Gewicht, AnzahlSendungen)
     End Sub
 End Class