Public Class frmSendungAnhang_SendenAnSnd
    Public SendungsId = -1
    Dim SENDUNG_LIST As List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

    Sub New(SENDUNG_LIST As List(Of VERAG_PROG_ALLGEMEIN.cSendungen))

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
        Me.SENDUNG_LIST = SENDUNG_LIST
    End Sub

    Private Sub frmSendungAnhang_SendenAnSnd_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim cnt = 1
        For Each S In SENDUNG_LIST
            Dim abfertigungsArt = SQL.getValueTxtBySql("SELECT isnull([Abfertigungsbezeichnung],'') FROM [Abfertigungsarten] WHERE Abfertigungsart='" & S.tblSnd_Abfertigungsart_ID & "'", "FMZOLL")
            Dim empfTmp = ""
            If S.tblSnd_Empfaenger IsNot Nothing Then
                empfTmp = If(S.tblSnd_Empfaenger.Length > 15, S.tblSnd_Empfaenger.Substring(0, 15), S.tblSnd_Empfaenger)
            End If

            MyDatagridview1.Rows.Add({S.tblSnd_SendungID, (cnt & ". " & empfTmp & " (" & abfertigungsArt & ")")})
            cnt += 1
        Next
        MyDatagridview1.ClearSelection()
    End Sub

    Private Sub MyDatagridview1_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles MyDatagridview1.CellDoubleClick, MyDatagridview1.CellContentDoubleClick
        If e.RowIndex >= 0 Then
            SendungsId = MyDatagridview1.Rows(e.RowIndex).Cells(0).Value
            Me.DialogResult = DialogResult.OK
            Me.Close()
        Else
            Me.DialogResult = DialogResult.None
        End If
    End Sub
End Class