Ausblendung von alten Excellisten für Gesamtsicherheiten -> wurden noch auf anderer Stelle aufgerufen.

This commit is contained in:
2023-01-02 08:20:38 +01:00
parent 23635a2101
commit 379284b0f7
2 changed files with 23 additions and 13 deletions

View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.8.4.2")> <Assembly: AssemblyVersion("3.8.4.3")>
<Assembly: AssemblyFileVersion("3.8.4.2")> <Assembly: AssemblyFileVersion("3.8.4.3")>

View File

@@ -2595,21 +2595,31 @@ Public Class frmHauptfenster
Panel2.Visible = False Panel2.Visible = False
Label4.Visible = False Label4.Visible = False
cboGrenzstelle.Visible = False cboGrenzstelle.Visible = False
BürgschaftenExcelToolStripMenuItem.Visible = True 'BürgschaftenExcelToolStripMenuItem.Visible = True
ToolStripMenuItem4.Visible = True ATGesamtsicherheitVeragCSToolStripMenuItem.Visible = True
ToolStripMenuItem5.Visible = True 'ToolStripMenuItem4.Visible = True
DEGesamtsicherheitVeragGmbHToolStripMenuItem.Visible = True
'ToolStripMenuItem5.Visible = True
ATGesamtsicherheitVeragAGToolStripMenuItem.Visible = True
ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
'nix 'nix
ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
'btnGenerelleGestellungen.Visible = False 'btnGenerelleGestellungen.Visible = False
ToolStripMenuItem4.Visible = True 'ToolStripMenuItem4.Visible = True
ToolStripMenuItem5.Visible = True DEGesamtsicherheitVeragGmbHToolStripMenuItem.Visible = True
ToolStripMenuItem6.Visible = True 'ToolStripMenuItem5.Visible = True
ATGesamtsicherheitVeragAGToolStripMenuItem.Visible = True
'ToolStripMenuItem6.Visible = True
ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Visible = True
Else 'VERAG Else 'VERAG
BürgschaftenExcelToolStripMenuItem.Visible = True 'BürgschaftenExcelToolStripMenuItem.Visible = True
ToolStripMenuItem4.Visible = True ATGesamtsicherheitVeragCSToolStripMenuItem.Visible = True
ToolStripMenuItem5.Visible = True 'ToolStripMenuItem4.Visible = True
ToolStripMenuItem6.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 If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then
Button5.Visible = True Button5.Visible = True
End If End If
@@ -2671,7 +2681,7 @@ Public Class frmHauptfenster
tbcntrAviso.Width = Panel1.Width tbcntrAviso.Width = Panel1.Width
VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me) VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
BürgschaftenExcelToolStripMenuItem.Visible = False
End Sub End Sub