neu

Aviso/frmSendungsdetailsNEU.vb

@@ -1158,6 +1158,9 @@ Public Class frmSendungsdetailsNEU
             cboSachbearbeiter.changeItem("")
             cbxNCTST.Checked = False
 
+            pnlEAviso.Visible = (SENDUNG_LIST(CURRENT_INDEX).VORSYSTEM IsNot Nothing)
+            lblVorsystem.Text = If(SENDUNG_LIST(CURRENT_INDEX).VORSYSTEM, "")
+
             initRbtn()
             cboAbfertigungsart.Focus()
             setQS()
@@ -2523,7 +2526,6 @@ Public Class frmSendungsdetailsNEU
             If txtAbfertigungsnummer.Text <> "" And txtAbfertigungsnummer.Text <> "0" Then btnNeueAbfertigungNrVergeben.Visible = False
         End If
 
-
         Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
             Case "UNISPED"
             Case Else
@@ -3776,4 +3778,19 @@ Public Class frmSendungsdetailsNEU
     Private Sub VERAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VERAGToolStripMenuItem.Click
         open_Mail_NeuerLKW("VERAG")
     End Sub
+
+    Private Sub ToolStripMenuItem18_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem18.Click
+
+    End Sub
+
+    Private Sub ToolStripMenuItem20_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem20.Click
+        ' Me.loadDataInLIST()
+        SAVE_ME()
+        If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
+        Dim frMZA As New SDL.frmTCZollanmeldung("EZA", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy"))
+        frMZA.Show()
+        AddHandler frMZA.FormClosed, Sub()
+                                         initdgvZollAnmeldungen()
+                                     End Sub
+    End Sub
 End Class