Public Class frmZollstopp

    Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen
    Dim gestellungsadresse As VERAG_PROG_ALLGEMEIN.cNCTSGestellungsadressen

    Sub New(SND As VERAG_PROG_ALLGEMEIN.cSendungen, Optional gestellungsadresse As VERAG_PROG_ALLGEMEIN.cNCTSGestellungsadressen = Nothing)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
        Me.SND = SND
        Me.gestellungsadresse = gestellungsadresse
    End Sub

    Private Sub frmZollstopp_Load(sender As Object, e As EventArgs) Handles Me.Load
        If SND Is Nothing Then Me.Close()
        rtbAbsender.Text = SND.tblSnd_Absender
        rtbATANr.Text = IIf(gestellungsadresse IsNot Nothing, gestellungsadresse.nga_ATANr, "")
        rtbZollstop.Text = SND.getNCTSAdress()
    End Sub

    Private Sub btnOffnen_Click(sender As Object, e As EventArgs) Handles btnOffnen.Click, Button1.Click
        Me.Cursor = Cursors.WaitCursor

        Try
            Dim path = SDL.FormularManagerNEU.Zollstopp(rtbZollstop.Text, rtbEntladestelle.Text, rtbKommentare.Text, rtbAbsender.Text, rtbATANr.Text)
            If path <> "" Then
                If sender Is btnOffnen Then Process.Start(path)
                If sender Is Button1 Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({path})
            End If

        Catch ex As Exception
            MsgBox(ex.Message & ex.StackTrace)
        End Try
        Me.Cursor = DefaultCursor
    End Sub

    Private Sub lklEmpfangerUbernehmen_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklEmpfangerUbernehmen.LinkClicked
        rtbEntladestelle.Text = SND.getEmpfaengerAdress()
    End Sub
End Class