Feature Gesamtsicherheiten: Refactorting und Einbau der neuen Funktionen

This commit is contained in:
2022-10-14 16:20:30 +02:00
parent 5961aa77b3
commit 8f213f0789
10 changed files with 364 additions and 293 deletions

View File

@@ -3992,25 +3992,25 @@ Public Class frmHauptfenster
End Sub
Private Sub ATGesamtsicherheitVeragAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATGesamtsicherheitVeragAGToolStripMenuItem.Click
Dim frm As New frmGesSichMenu
Dim frm As New frmGesamtsicherheitenMenu
frm.Standort = "VERAG AG"
frm.Show()
End Sub
Private Sub DEGesamtsicherheitVeragGmbHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DEGesamtsicherheitVeragGmbHToolStripMenuItem.Click
Dim frm As New frmGesSichMenu
Dim frm As New frmGesamtsicherheitenMenu
frm.Standort = "Verag GmbH"
frm.Show()
End Sub
Private Sub ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Click
Dim frm As New frmGesSichMenu
Dim frm As New frmGesamtsicherheitenMenu
frm.Standort = "IMEX"
frm.Show()
End Sub
Private Sub ATGesamtsicherheitVeragCSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATGesamtsicherheitVeragCSToolStripMenuItem.Click
Dim frm As New frmGesSichMenu
Dim frm As New frmGesamtsicherheitenMenu
frm.Standort = "Verag CS"
frm.Show()
End Sub