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:
' <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")>

View File

@@ -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