Bugfix

Aviso/usrcntlAktDetails.vb

@@ -1860,12 +1860,18 @@ Public Class usrcntlAktDetails
     End Sub
 
     Sub openSnd(sndId)
-        Dim f = FUNC.openSnd(sndId, AvisoID)
-        If f IsNot Nothing Then
-            AddHandler f.FormClosed, Sub()
-                                         initDgvSendungen()
-                                     End Sub
-        End If
+        Try
+
+
+            Dim f = FUNC.openSnd(sndId, AvisoID)
+            If f IsNot Nothing Then
+                AddHandler f.FormClosed, Sub()
+                                             initDgvSendungen()
+                                         End Sub
+            End If
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
     End Sub
 
     Private Sub gridVermerke_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles gridVermerke.CellDoubleClick
@@ -3413,6 +3419,7 @@ Public Class usrcntlAktDetails
         If (dgvSendungen.SelectedRows.Count > 0) Then index = dgvSendungen.SelectedRows(0).Index
         VermerkeDAL.toggleHervorheben(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value))
         Vermerke_anzeigen(index)
+        initDgvSendungen()
     End Sub
 
     Private Sub Button12_Click(sender As Object, e As EventArgs) Handles btnAlleSteuerbescheide.Click