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()
        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