40 lines
1.6 KiB
VB.net
40 lines
1.6 KiB
VB.net
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
|
|
Me.Cursor = Cursors.WaitCursor
|
|
|
|
Try
|
|
Dim path = SDL.FormularManagerNEU.Zollstopp(rtbZollstop.Text, rtbEntladestelle.Text, rtbKommentare.Text, rtbAbsender.Text, rtbATANr.Text)
|
|
If path <> "" Then
|
|
Process.Start(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 |