ATB

Aviso/frmHauptfenster.vb

@@ -65,6 +65,10 @@ Public Class frmHauptfenster
 
     Public Sub New()
         InitializeComponent()
+        Me.DoubleBuffered = True
+        SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
+        UpdateStyles()
+
         Icon = cMeineFunktionenAVISO.GetProgrammIcon
     End Sub
 
@@ -405,7 +409,8 @@ Public Class frmHauptfenster
 
 
             For Each i In FunktionenToolStripMenuItem.DropDownItems
-                If i.name <> "tool_BRGXLS" Then
+                If i.name <> "tool_BRGXLS" And i.name <> "toolOriginalATR" Then
+
                     i.Visible = False
                 End If
             Next
@@ -4531,9 +4536,12 @@ Public Class frmHauptfenster
         Process.Start("https://verag.ag/de/about-us")
     End Sub
 
-    Private Sub ToolStripMenuItem3_Click_1(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click
-        Dim f As New frmOriginalArchiv_ATR
-        f.Show()
+    Private Sub ToolStripMenuItem3_Click_1(sender As Object, e As EventArgs) Handles toolOriginalATR.Click
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ORIGINAL_ATR", "AVISO") Then
+            Dim f As New frmOriginalArchiv_ATR
+            f.Show()
+        End If
+
     End Sub
 
     Private Sub VERAGWIKIToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VERAGWIKIToolStripMenuItem.Click
@@ -5611,9 +5619,12 @@ Public Class AvisoStatusFunctions
                     Next
                     Aviso.Abgeschlossen = value
                     AvisoDAL.SpeichernAviso(Aviso)
-                    Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-                        Case "IMEX" : createNLC(Aviso)
-                    End Select
+
+                    '--> Nicht mehr benötigt, alte Archiv Software IMEX
+                    'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+                    '    Case "IMEX" : createNLC(Aviso)
+                    'End Select
+
                     AvisoDAL.addAenderung(AvisoID, "AKT abgeschlossen", "auf 'AKT ABGESCHLOSSEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
 
                     'Benachrichtigungen erledigen