neu

Aviso/usrCntlSND_Handling.vb

@@ -1,7 +1,61 @@
 Public Class usrCntlSND_Handling
+    Public SendungsID As Integer
 
+    Sub New(SendungsID)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.SendungsID = SendungsID
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
     Public Sub reset()
-        txtATA.Text = ""
+        txtATAold.Text = ""
         txtATCMRNFremd.Text = ""
     End Sub
+
+    Private Sub MyDatagridview1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles MyDatagridview1.CellContentClick
+
+    End Sub
+
+    Private Sub MyDatagridview1_RowsAdded(sender As Object, e As DataGridViewRowsAddedEventArgs) Handles MyDatagridview1.RowsAdded
+        Label2.Text = (MyDatagridview1.Rows.Count - 1) & " Handling"
+    End Sub
+
+    Private Sub MyDatagridview1_RowsRemoved(sender As Object, e As DataGridViewRowsRemovedEventArgs) Handles MyDatagridview1.RowsRemoved
+        Label2.Text = (MyDatagridview1.Rows.Count - 1) & " Handling"
+    End Sub
+
+    Private Sub usrCntlSND_Handling_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Dim SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsID)
+        If SENDUNG IsNot Nothing Then
+            SENDUNG.LOAD_HANDLING()
+            For Each h In SENDUNG.HANDLING
+                MyDatagridview1.Rows.Add(h.sndhdg_abrArt, h.sndhdg_nr)
+            Next
+        End If
+
+    End Sub
+
+    Public Function GET_HANDLING() As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling)
+        Dim LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendHandling)
+        For Each r As DataGridViewRow In MyDatagridview1.Rows
+            If r.Cells(1).Value <> "" Then
+                Dim art = r.Cells(0).Value
+                If art = "" Then art = "ATA"
+                LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(SendungsID, art, r.Cells(1).Value))
+            End If
+        Next
+        Return LIST
+    End Function
+
+    Public Function GET_HANDLING_STRING() As String
+        Dim LIST = GET_HANDLING()
+        GET_HANDLING_STRING = ""
+        Dim demitter = ""
+        For Each l In LIST
+            GET_HANDLING_STRING &= demitter & l.sndhdg_nr
+            demitter = ", "
+        Next
+    End Function
 End Class