Merge branch 'master' of https://verag.visualstudio.com/AVISO/_git/AVISO

Aviso/usrcntlAktDetails.vb

@@ -43,6 +43,7 @@ Public Class usrcntlAktDetails
     '  Dim WithEvents timerDetails As New Timer
     Dim AVISO As cAviso = Nothing
     Dim WithEvents timerSendRows As New Timer
+    Dim isFailureShown As Boolean = False
 
     Dim painted As Boolean = False ' Damit gridVermerke Formattierung nicht dauernd anspringt..
 
@@ -839,9 +840,13 @@ Public Class usrcntlAktDetails
 
                     .RowTemplate.MinimumHeight = 20
                     .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
+
                     .Columns("anh_id").Visible = False     'VermerkID nicht anzeigen
-                    .Columns("anh_docId").Visible = False     'AvisoID nicht anzeigen
-                    .Columns("anh_markiert").Visible = False     'AvisoID nicht anzeigen
+                    .Columns("anh_docId").Visible = False
+                    .Columns("anh_markiert").Visible = False
+                    .Columns("anh_LaufzettelDruck").Visible = False
+                    .Columns("anh_GestellungslisteAnfuegen").Visible = False
+                    .Columns("anh_cmrId").Visible = False
 
                     .Columns("anh_Name").MinimumWidth = 150
                     .Columns("anh_Name").HeaderText = "Name"
@@ -1523,11 +1528,12 @@ Public Class usrcntlAktDetails
             ' ArrowDown_ShowHide() 'Anzeigeproblem, wenn Aviso minimiert wird! --> Jetzt bei Timer!
 
         Catch ex As Exception
-            MsgBox(ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
     End Sub
 
     Sub ArrowDown_ShowHide()
+        If isFailureShown Then Exit Sub
         picArrowDown.Visible = False
         If dgvSendungen.RowCount = 0 Then Exit Sub
         Select Case tbcntlVermerke.SelectedIndex
@@ -1543,7 +1549,8 @@ Public Class usrcntlAktDetails
                         End If
                     Next
                 Catch ex As Exception
-                    MsgBox("ERR")
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                    isFailureShown = True
                 End Try
         End Select
     End Sub