Gesamtsicherheit 1.0

Aviso/frmHauptfenster.vb

@@ -3665,6 +3665,30 @@ Public Class frmHauptfenster
     Private Sub PBNIrelandFähreToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PBNIrelandFähreToolStripMenuItem.Click
         Process.Start("https://www.ros.ie/customs-roro-control-web/ros/pbn/create")
     End Sub
+
+    Private Sub ATGesamtsicherheitVeragAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATGesamtsicherheitVeragAGToolStripMenuItem.Click
+        Dim frm As New frmGesSichMenu
+        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
+        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
+        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
+        frm.Standort = "Verag CS"
+        frm.Show()
+    End Sub
 End Class
 
 Public Class AvisoStatusFunctions