Typo ausgebessert, Sendungsvermerke limit Anzahl Zeichen.

Aviso/frmSendungsdetailsNEU.vb

@@ -1877,7 +1877,7 @@ Public Class frmSendungsdetailsNEU
 
     Function CheckAusfuellen() As Boolean
         If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenbezeichnung = "" Or SENDUNG_LIST(CURRENT_INDEX).tblSnd_Colli = "" Or SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht = "" Then
-            Return (MsgBox("Möhten Sie den Aktendeckel wirklich ohne Warenbezeichnung, Colli bzw. Gewicht drucken?", vbYesNoCancel) = vbYes)
+            Return (MsgBox("Möchten Sie den Aktendeckel wirklich ohne Warenbezeichnung, Colli bzw. Gewicht drucken?", vbYesNoCancel) = vbYes)
         End If
         Return True
     End Function
@@ -6264,6 +6264,9 @@ Public Class frmSendungsdetailsNEU
 
     Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
 
+        MsgBox("Funktion noch nicht implementiert!")
+        Exit Sub
+
         Dim failreDesc As String = ""
 
         If dgvAnhang.SelectedRows.Count = 0 Then
@@ -6308,7 +6311,18 @@ Public Class frmSendungsdetailsNEU
 
     End Sub
 
-    Private Sub AntragQualitätskontrolleToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AntragQualitätskontrolleToolStripMenuItem.Click
+    Private Sub ToolStripMenuItem31_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem31.Click
+        'MsgBox("Funktion noch nicht implementiert!")
+        'Exit Sub
 
+        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.frmZollanmeldung("T1", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy"), "MODALTRANS")
+        frMZA.Show()
+        AddHandler frMZA.FormClosed, Sub()
+                                         initdgvZollAnmeldungen()
+                                     End Sub
     End Sub
+
+
 End Class