From 379284b0f7b4d0caea465a6f48307a898303af3d Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Mon, 2 Jan 2023 08:20:38 +0100
Subject: [PATCH] =?UTF-8?q?Ausblendung=20von=20alten=20Excellisten=20f?=
 =?UTF-8?q?=C3=BCr=20Gesamtsicherheiten=20->=20wurden=20noch=20auf=20ander?=
 =?UTF-8?q?er=20Stelle=20aufgerufen.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Aviso/My Project/AssemblyInfo.vb |  4 ++--
 Aviso/frmHauptfenster.vb         | 32 +++++++++++++++++++++-----------
 2 files changed, 23 insertions(+), 13 deletions(-)

diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb
index 82b0c8a..c99dd12 100644
--- a/Aviso/My Project/AssemblyInfo.vb	
+++ b/Aviso/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("3.8.4.2")>
-<Assembly: AssemblyFileVersion("3.8.4.2")>
+<Assembly: AssemblyVersion("3.8.4.3")>
+<Assembly: AssemblyFileVersion("3.8.4.3")>
diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb
index eeb1178..601479e 100644
--- a/Aviso/frmHauptfenster.vb
+++ b/Aviso/frmHauptfenster.vb
@@ -2595,21 +2595,31 @@ Public Class frmHauptfenster
             Panel2.Visible = False
             Label4.Visible = False
             cboGrenzstelle.Visible = False
-            BürgschaftenExcelToolStripMenuItem.Visible = True
-            ToolStripMenuItem4.Visible = True
-            ToolStripMenuItem5.Visible = True
+            'BürgschaftenExcelToolStripMenuItem.Visible = True
+            ATGesamtsicherheitVeragCSToolStripMenuItem.Visible = True
+            'ToolStripMenuItem4.Visible = True
+            DEGesamtsicherheitVeragGmbHToolStripMenuItem.Visible = True
+            'ToolStripMenuItem5.Visible = True
+            ATGesamtsicherheitVeragAGToolStripMenuItem.Visible = True
         ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
             'nix
         ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
             'btnGenerelleGestellungen.Visible = False
-            ToolStripMenuItem4.Visible = True
-            ToolStripMenuItem5.Visible = True
-            ToolStripMenuItem6.Visible = True
+            'ToolStripMenuItem4.Visible = True
+            DEGesamtsicherheitVeragGmbHToolStripMenuItem.Visible = True
+            'ToolStripMenuItem5.Visible = True
+            ATGesamtsicherheitVeragAGToolStripMenuItem.Visible = True
+            'ToolStripMenuItem6.Visible = True
+            ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Visible = True
         Else 'VERAG
-            BürgschaftenExcelToolStripMenuItem.Visible = True
-            ToolStripMenuItem4.Visible = True
-            ToolStripMenuItem5.Visible = True
-            ToolStripMenuItem6.Visible = True
+            'BürgschaftenExcelToolStripMenuItem.Visible = True
+            ATGesamtsicherheitVeragCSToolStripMenuItem.Visible = True
+            'ToolStripMenuItem4.Visible = True
+            DEGesamtsicherheitVeragGmbHToolStripMenuItem.Visible = True
+            'ToolStripMenuItem5.Visible = True
+            ATGesamtsicherheitVeragAGToolStripMenuItem.Visible = True
+            'ToolStripMenuItem6.Visible = True
+            ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Visible = True
             If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then
                 Button5.Visible = True
             End If
@@ -2671,7 +2681,7 @@ Public Class frmHauptfenster
         tbcntrAviso.Width = Panel1.Width
         VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
 
-
+        BürgschaftenExcelToolStripMenuItem.Visible = False
 
 
     End Sub