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

Gesamtsicherheiten

Browse Source
This commit is contained in:
d.breimaier
2025-06-13 10:21:34 +02:00
parent cba6e996f2
commit e7b2ec64d3
4 changed files with 187 additions and 177 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Aviso/frmHauptfenster.vb
View File

@@ -3128,6 +3128,7 @@ ELSE_ATILLA:
ATImexCSToolStripMenuItem.Visible = False
DEAmbarToolStripMenuItem.Visible = False
ATUnispedGmbHToolStripMenuItem.Visible = False
ATAtillaToolStripMenuItem.Visible = False
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
@@ -3135,6 +3136,7 @@ ELSE_ATILLA:
DEVeragGmbHToolStripMenuItem.Visible = True
ATVeragAGToolStripMenuItem.Visible = True
ATUnispedGmbHToolStripMenuItem.Visible = True
ATAtillaToolStripMenuItem.Visible = True
ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
'nix
ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
@@ -4792,7 +4794,7 @@ ELSE_ATILLA:
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 ATVeragAGToolStripMenuItem.Click, DEVeragGmbHToolStripMenuItem.Click, ATImexCSToolStripMenuItem.Click, ATVeragCSToolStripMenuItem.Click, ATUnispedGmbHToolStripMenuItem.Click, DEAmbarToolStripMenuItem.Click
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
@@ -4802,6 +4804,7 @@ ELSE_ATILLA:
Case "ATVeragCSToolStripMenuItem" : frm.Standort = "Verag CS"
Case "ATUnispedGmbHToolStripMenuItem" : frm.Standort = "Unisped GmbH"
Case "DEAmbarToolStripMenuItem" : frm.Standort = "AMBAR GmbH"
Case "ATAtillaToolStripMenuItem" : frm.Standort = "Atilla GmbH"
End Select
frm.Show()
@@ -5288,6 +5291,7 @@ ELSE_ATILLA:
detailForm.Show()
End Sub
End Class
Public Class AvisoStatusFunctions