62 lines
2.2 KiB
VB.net
62 lines
2.2 KiB
VB.net
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
|