44 lines
1.7 KiB
VB.net
44 lines
1.7 KiB
VB.net
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
|
|
Try
|
|
|
|
Sendung = New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SQL.getValueTxtBySql("SELECT Count(*)+1 FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & "", "AVISO"),,,, 0)
|
|
Sendung.tblSnd_Abfertigungsart_ID = If(cboAbfertigungsart._value <> "", cboAbfertigungsart._value, -1)
|
|
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
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & ex.StackTrace)
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
End Class |