edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gesamtsicherheiten, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-05-04 11:47:10 +02:00
parent 7c9cc1007a
commit df05d16aa3
5 changed files with 130 additions and 111 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Aviso/frmHauptfenster.vb
View File

@@ -4783,15 +4783,17 @@ ELSE_ATILLA:
Private Sub ATGesamtsicherheitVeragAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATVeragAGToolStripMenuItem.Click, DEVeragGmbHToolStripMenuItem.Click, ATImexCSToolStripMenuItem.Click, ATVeragCSToolStripMenuItem.Click, ATUnispedGmbHToolStripMenuItem.Click, DEAmbarToolStripMenuItem.Click, ATAtillaToolStripMenuItem.Click
Dim frm As New frmGesamtsicherheitenMenuNEU()
Select Case sender.name
Case "ATVeragAGToolStripMenuItem" : frm.Standort = "VERAG AG"
Case "DEVeragGmbHToolStripMenuItem" : frm.Standort = "Verag GmbH"
Case "ATImexCSToolStripMenuItem" : frm.Standort = "IMEX"
Case "ATVeragCSToolStripMenuItem" : frm.Standort = "Verag CS"
Case "ATUnispedGmbHToolStripMenuItem" : frm.Standort = "Unisped GmbH"
Case "DEAmbarToolStripMenuItem" : frm.Standort = "AMBAR GmbH"
Case "ATAtillaToolStripMenuItem" : frm.Standort = "Atilla GmbH"
Case "ATVeragAGToolStripMenuItem" : frm.Standort = Sicherheiten_Standort.VERAG_AG
Case "DEVeragGmbHToolStripMenuItem" : frm.Standort = Sicherheiten_Standort.VERAG_GMBH
Case "ATImexCSToolStripMenuItem" : frm.Standort = Sicherheiten_Standort.IMEX
Case "ATVeragCSToolStripMenuItem" : frm.Standort = Sicherheiten_Standort.VERAG_CS
Case "ATUnispedGmbHToolStripMenuItem" : frm.Standort = Sicherheiten_Standort.UNISPED
Case "DEAmbarToolStripMenuItem" : frm.Standort = Sicherheiten_Standort.AMBAR
Case "ATAtillaToolStripMenuItem" : frm.Standort = Sicherheiten_Standort.ATILLA
End Select
frm.Show()