Public Class frmAddSendnung

    Public Sendung As VERAG_PROG_ALLGEMEIN.cSendungen
    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
    Dim AvisoId As Integer
    Public SendungsId As Integer = -1
    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
                SendungsId = Sendung.tblSnd_SendungID
                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