NEU

Aviso/Anhänge/frmAddSendnung.vb

@@ -0,0 +1,38 @@
+Public Class frmAddSendnung
+
+    Public Sendung As VERAG_PROG_ALLGEMEIN.cSendungen
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+    Dim AvisoId As Integer
+    Sub New(AvisoId)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.AvisoId = AvisoId
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+    Private Sub frmAddSendnung_Load(sender As Object, e As EventArgs) Handles Me.Load
+        cboAbfertigungsart.fillWithSQL("SELECT [Abfertigungsart],[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ", True, "FMZOLL", True)
+        txtEmpfaenger.initKdBox(Me)
+        txtEmpfaenger.usrcntlWIDTH = 360
+        txtEmpfaenger.usrcntlHEIGHT = 100
+    End Sub
+
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+
+        Sendung = New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SQL.getValueTxtBySql("SELECT Count(*)+1 FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & "", "AVISO"),,,, 0)
+        Sendung.tblSnd_Abfertigungsart_ID = cboAbfertigungsart._value
+        Sendung.tblSnd_Empfaenger = txtEmpfaenger.Text
+        Sendung.tblSnd_EmpfaengerKdNr = txtEmpfaenger.KdNr
+        Sendung.tblSnd_Colli = txtColli.Text
+        Sendung.tblSnd_Gewicht = txtGewicht.Text
+        Sendung.tblSnd_Warenbezeichnung = rtbWarenbezeichnung.Text
+
+        If Sendung.SAVE Then
+            Me.DialogResult = DialogResult.OK
+        Else
+            Me.DialogResult = DialogResult.None
+        End If
+    End Sub
+
+End Class