frmHauotfensterNew

Aviso/frmHauptfenster.vb

@@ -255,6 +255,7 @@ Public Class frmHauptfenster
             If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN" Then
                 StartPipeListener()
             End If
+            Button9.Visible = True 'CBAM..
         End If
 
         'MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
@@ -5296,4 +5297,26 @@ ELSE_ATILLA:
         Dim f As New SDL.frmNewsletter
         f.Show(Me)
     End Sub
+
+    Private Sub Button9_Click_1(sender As Object, e As EventArgs) Handles Button9.Click
+        Try
+
+            Me.Cursor = Cursors.WaitCursor
+            gridAviso.ClearSelection()
+            gridMyAviso.ClearSelection()
+            Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
+            Dim f As New frmEintragSammelakt
+
+            VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 0
+            If Not f.IsDisposed And f IsNot Nothing And Not frmGrayOut.IsDisposed And frmGrayOut IsNot Nothing Then
+                f.ShowDialog(frmGrayOut)
+            End If
+            frmGrayOut.Close()
+            btnRefresh.PerformClick() 'Aviso_anzeigen("")
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG")
+        End Try
+        Me.Cursor = Cursors.Default
+    End Sub
 End Class