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

merge

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-06-18 08:48:00 +02:00
parent 6c26d1bafa e7b2ec64d3
commit 1ca12d2c38
3 changed files with 29 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Aviso/frmHauptfenster.vb
View File

@@ -3132,6 +3132,7 @@ ELSE_ATILLA:
ATImexCSToolStripMenuItem.Visible = False
DEAmbarToolStripMenuItem.Visible = False
ATUnispedGmbHToolStripMenuItem.Visible = False
ATAtillaToolStripMenuItem.Visible = False
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
@@ -3139,6 +3140,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
@@ -4821,7 +4823,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
@@ -4831,6 +4833,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()
@@ -5319,4 +5322,5 @@ ELSE_ATILLA:
detailForm.Show()
End Sub
End Class