Merge

Aviso/usrCntlSND_ATBGestellung.vb

@@ -1,4 +1,7 @@
-Imports VERAG_PROG_ALLGEMEIN
+Imports DAKOSY_Worker
+Imports SDL
+
+Imports VERAG_PROG_ALLGEMEIN
 
 
 Public Class usrCntlSND_ATBGestellung
@@ -8,17 +11,43 @@ Public Class usrCntlSND_ATBGestellung
 
     'Public NCTS_GA As VERAG_PROG_ALLGEMEIN.cNCTSGestellungsadressen
 
-    Sub New(SendungsId)
-        _SendungsId = SendungsId
+    Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
+    Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
+
+    Sub New(AVISO, SND)
 
 
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
 
+        Me.AVISO = AVISO
+        Me.SND = SND
+
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
 
     End Sub
 
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+
+        Me.Refresh()
+        Me.Cursor = Cursors.WaitCursor
+
+        Dim f As frmSendungsdetailsNEU = Me.FindForm
+        If f.SAVE_ME() Then
+            SND = f.SENDUNG_LIST(f.CURRENT_INDEX)
+
+            If Not IsNumeric(SND.AbfertigungsNr) OrElse CInt(SND.AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
+            If If(SND.tblSnd_ATB_T1, "") = "" Then MsgBox("MRN (Gestellung) angeben!") : Exit Sub
+            Dim frMZA As New SDL.frmZollanmeldung("AA", Nothing, AVISO, SND, Now.ToString("yy"))
+            frMZA.Show()
+            AddHandler frMZA.FormClosed, Sub()
+                                             '     initdgvZollAnmeldungen()
+                                         End Sub
+        Else
+            MsgBox("Fehler beim Speichern. Ankunftsanzeige abgebrochen.")
+        End If
+        Me.Cursor = Cursors.Default
+
     Private Sub btnGesSicherheit_Click(sender As Object, e As EventArgs) Handles btnGesSicherheit.Click
 
         If txtATBT1.Text <> "" Then