ATEZ +Procedure

Aviso/frmSendungsdetailsNEU.vb

@@ -3777,7 +3777,7 @@ Public Class frmSendungsdetailsNEU
 
 
 
-    Private Sub ToolStripMenuItem12_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem12.Click
+    Private Sub ToolStripMenuItem12_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem32.Click
         If dgvZollAnmeldungen.SelectedRows.Count > 0 Then
             Dim log As New SDL.frmDY_LogBuch(dgvZollAnmeldungen.SelectedRows(0).Cells("dy_id").Value)
             '   log.Parent = Me.FindForm
@@ -6269,17 +6269,13 @@ Public Class frmSendungsdetailsNEU
         Me.Cursor = Cursors.Default
     End Sub
 
-    Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
+    Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click, ToolStripMenuItem12.Click
 
         Try
-
-
             If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
                 Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
-
                 Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy"))
                 frmAttilaATEZNCTS.Show(Me)
-
             End If
 
         Catch ex As Exception
@@ -6291,9 +6287,9 @@ Public Class frmSendungsdetailsNEU
 
 
 
-        MsgBox("Funktion noch nicht implementiert!")
-        Exit Sub
 
+        Exit Sub
+        MsgBox("Funktion noch nicht implementiert!")
         Dim failreDesc As String = ""
 
         If dgvAnhang.SelectedRows.Count = 0 Then