neu

Aviso/frmZollstopp.vb

@@ -0,0 +1,34 @@
+Public Class frmZollstopp
+
+    Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen
+
+    Sub New(SND As VERAG_PROG_ALLGEMEIN.cSendungen)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        Me.SND = SND
+    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
+        rtbEntladestelle.Text = SND.getEmpfaengerAdress()
+        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)
+            If path <> "" Then
+                    Process.Start(path)
+                End If
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Me.Cursor = DefaultCursor
+    End Sub
+End Class