neu

Aviso/Anhänge/frmSendungAnhang_SendenAnSnd.vb

@@ -0,0 +1,39 @@
+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