Bugfix

Aviso/frmHauptfenster.vb

@@ -6601,27 +6601,35 @@ Public Class AvisoStatusFunctions
 
 
     Public Function openSnd(sendId, AvisoID) As Form
-        If sendId Is Nothing Then Return Nothing
-        If AvisoID Is Nothing Then Return Nothing
-        If sendId <= 0 Then Return Nothing
-        If AvisoID <= 0 Then Return Nothing
+        Try
 
-        For Each openForm In Application.OpenForms()
-            If TypeOf (openForm) Is frmSendungsdetailsNEU Then
-                'MsgBox("Sendungsfenster bereits geöffnet!")
-                'CType(openForm, frmSendungsdetailsNEU).BringToFront()
-                'Return Nothing
-                CType(openForm, frmSendungsdetailsNEU).WindowState = FormWindowState.Minimized
-                CType(openForm, frmSendungsdetailsNEU).Close()
-                Exit For
-            End If
-        Next
 
-        ' Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
-        Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId)
-        frmSendungsdetails.Show() 'Dialog() '     frmSendungsdetails.ShowDialog(frmGrayOut)
-        ' frmGrayOut.Close()
-        Return frmSendungsdetails
+            If sendId Is Nothing Then Return Nothing
+            If AvisoID Is Nothing Then Return Nothing
+            If sendId <= 0 Then Return Nothing
+            If AvisoID <= 0 Then Return Nothing
+
+            For Each openForm In Application.OpenForms()
+                If TypeOf (openForm) Is frmSendungsdetailsNEU Then
+                    'MsgBox("Sendungsfenster bereits geöffnet!")
+                    'CType(openForm, frmSendungsdetailsNEU).BringToFront()
+                    'Return Nothing
+                    CType(openForm, frmSendungsdetailsNEU).WindowState = FormWindowState.Minimized
+                    CType(openForm, frmSendungsdetailsNEU).Close()
+                    Exit For
+                End If
+            Next
+
+            ' Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
+            Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId)
+            frmSendungsdetails.Show() 'Dialog() '     frmSendungsdetails.ShowDialog(frmGrayOut)
+            ' frmGrayOut.Close()
+            Return frmSendungsdetails
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
     End Function