open sendungsdetails from speditionsbuch

Aviso/frmHauptfenster.vb

@@ -2573,20 +2573,28 @@ ELSE_ATILLA:
         End Try
     End Sub
 
-    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnSpedBuch.Click
-        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then
-
-            For Each ft As Form In Application.OpenForms
-                If ft.GetType.ToString = "SDL.frmSpeditionsbuchSuche" Then
-                    ft.BringToFront()
-                    Exit Sub
-                End If
-            Next
-            Me.Cursor = Cursors.WaitCursor
-            Dim sped As New SDL.frmSpeditionsbuchSuche
-            sped.Show()
-            Me.Cursor = Cursors.Default
+    Private Sub btnSpedBuch_Click(sender As Object, e As EventArgs) Handles btnSpedBuch.Click
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then
+            Return
         End If
+
+        For Each ft As Form In Application.OpenForms
+            If TypeOf ft Is SDL.frmSpeditionsbuchSuche Then
+                ft.BringToFront()
+                Return
+            End If
+        Next
+
+        Me.Cursor = Cursors.WaitCursor
+
+        Dim spedForm As New SDL.frmSpeditionsbuchSuche()
+
+        AddHandler spedForm.SendungsdetailsRequested, AddressOf OnSendungsdetailsRequested
+
+
+        spedForm.Show()
+
+        Me.Cursor = Cursors.Default
     End Sub
 
     Private Declare Function ShowWindow Lib "user32" _
@@ -5274,6 +5282,12 @@ ELSE_ATILLA:
     Private Sub ATILLASENDUNGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATILLASENDUNGToolStripMenuItem.Click
         VERAG_PROG_ALLGEMEIN.cAllgemein.ATILLA_SND = True
     End Sub
+
+    Private Sub OnSendungsdetailsRequested(ByVal AvisoId As Integer, ByVal SendungId As Integer)
+        Dim detailForm As New frmSendungsdetailsNEU(AvisoId, SendungId)
+        detailForm.Show()
+    End Sub
+
 End Class
 
 Public Class AvisoStatusFunctions