39 lines
1.7 KiB
VB.net
39 lines
1.7 KiB
VB.net
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 |