98 lines
4.2 KiB
VB.net
98 lines
4.2 KiB
VB.net
Imports System.ComponentModel
|
|
|
|
Public Class usrCntlSND_Handling
|
|
Public SendungsID As Integer
|
|
Public Event HandlingWerte(colli, gewicht, AnzahlSendungen)
|
|
Public AnzahlSendungen 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"
|
|
AnzahlSendungen = MyDatagridview1.Rows.Count - 1
|
|
End Sub
|
|
|
|
Private Sub MyDatagridview1_RowsRemoved(sender As Object, e As DataGridViewRowsRemovedEventArgs) Handles MyDatagridview1.RowsRemoved
|
|
Label2.Text = (MyDatagridview1.Rows.Count - 1) & " Handling"
|
|
AnzahlSendungen = MyDatagridview1.Rows.Count - 1
|
|
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, h.sndhdg_colli, h.sndhdg_gewicht)
|
|
Next
|
|
|
|
If SENDUNG.HANDLING.Count = 0 And txtATAold.Text <> "" Then
|
|
MyDatagridview1.Rows.Add("ATA", txtATAold.Text, 0, 0)
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
|
|
'Private Sub MyDatagridview1_Validating(sender As Object, e As CancelEventArgs) Handles MyDatagridview1.Validating
|
|
' Try
|
|
' If MyDatagridview1.CurrentRow.Cells("clmnATA").Value <> "" Then
|
|
' If MyDatagridview1.CurrentRow.Cells("clmnColli").Value IsNot Nothing AndAlso IsNumeric(MyDatagridview1.CurrentRow.Cells("clmnColli").Value) Then MsgBox("Daten unvollständig") : e.Cancel = True : Exit Sub
|
|
' If MyDatagridview1.CurrentRow.Cells("clmnGewicht").Value IsNot Nothing AndAlso IsNumeric(MyDatagridview1.CurrentRow.Cells("clmnGewicht").Value) Then MsgBox("Daten unvollständig") : e.Cancel = True : Exit Sub
|
|
' End If
|
|
' Catch ex As Exception
|
|
' MsgBox(ex.Message & ex.StackTrace)
|
|
' End Try
|
|
'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
|
|
Dim Colli = CDbl(If(IsNumeric(r.Cells("clmnColli").Value), r.Cells("clmnColli").Value, 0))
|
|
Dim Gewicht = CDbl(If(IsNumeric(r.Cells("clmnGewicht").Value), r.Cells("clmnGewicht").Value, 0))
|
|
If art = "" Then art = "ATA"
|
|
LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(SendungsID, art, r.Cells("clmnATA").Value, Colli, Gewicht))
|
|
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
|
|
|
|
|
|
Private Sub lkl_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lkl.LinkClicked
|
|
Dim Colli As Double = 0
|
|
Dim Gewicht As Double = 0
|
|
For Each r As DataGridViewRow In MyDatagridview1.Rows
|
|
If r.Cells(1).Value <> "" Then
|
|
Colli += CDbl(If(IsNumeric(r.Cells("clmnColli").Value), r.Cells("clmnColli").Value, 0))
|
|
Gewicht += CDbl(If(IsNumeric(r.Cells("clmnGewicht").Value), r.Cells("clmnGewicht").Value, 0))
|
|
End If
|
|
Next
|
|
RaiseEvent HandlingWerte(Colli, Gewicht, AnzahlSendungen)
|
|
End Sub
|
|
End Class
|