Gesamtsicherheiten AMBAR; Berechtigungssteuerung geändert.

Aviso/frmHauptfenster.vb

@@ -2,21 +2,13 @@
 Imports System.IO
 Imports VERAG_PROG_ALLGEMEIN
 Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
-
 Imports VERAG_PROG_ALLGEMEIN.cGlobal
-'Imports Gemeinsames.cDatenbank
-Imports System.Drawing
-'Imports SDL
-Imports Hardcodet.Wpf.TaskbarNotification
 Imports com.esendex.sdk.messaging
 Imports Newtonsoft.Json
 Imports System.Reflection
-Imports System.Runtime.InteropServices
-Imports GrapeCity.Viewer.Common.Model
 Imports System.Drawing.Drawing2D
 Imports SDL
 Imports Microsoft.Office.Interop
-Imports Spire.Pdf.Print
 Imports Spire.Pdf.Texts
 
 
@@ -652,6 +644,8 @@ Public Class frmHauptfenster
             Label22.BringToFront()
         End If
     End Sub
+
+
     Public Sub setAktDetails(id, showSendungsdetails)
         Details_anzeigen(id) ', showSendungsdetails)
     End Sub
@@ -2779,33 +2773,13 @@ Public Class frmHauptfenster
 
             btnWichtigeStandort.Visible = False
             Panel2.Visible = False
-            ' Label4.Visible = False '- -> NICHT MEHR
-            ' cboGrenzstelle.Visible = Falsee '- -> NICHT MEHR
-            'BürgschaftenExcelToolStripMenuItem.Visible = True
-            ATVeragCSToolStripMenuItem.Visible = True
-            'ToolStripMenuItem4.Visible = True
-            DEVeragGmbHToolStripMenuItem.Visible = True
-            'ToolStripMenuItem5.Visible = True
-            ATVeragAGToolStripMenuItem.Visible = True
+
         ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
             'nix
         ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
-            'btnGenerelleGestellungen.Visible = False
-            'ToolStripMenuItem4.Visible = True
-            DEVeragGmbHToolStripMenuItem.Visible = True
-            'ToolStripMenuItem5.Visible = True
-            'ATVeragAGToolStripMenuItem.Visible = True
-            'ToolStripMenuItem6.Visible = True
-            ATImexCSToolStripMenuItem.Visible = True
+            'nix
         Else 'VERAG
-            'BürgschaftenExcelToolStripMenuItem.Visible = True
-            ATVeragCSToolStripMenuItem.Visible = True
-            'ToolStripMenuItem4.Visible = True
-            DEVeragGmbHToolStripMenuItem.Visible = True
-            'ToolStripMenuItem5.Visible = True
-            ATVeragAGToolStripMenuItem.Visible = True
-            'ToolStripMenuItem6.Visible = True
-            ATImexCSToolStripMenuItem.Visible = True
+
             If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then
                 Button5.Visible = True
             End If
@@ -2869,6 +2843,8 @@ Public Class frmHauptfenster
 
         BürgschaftenExcelToolStripMenuItem.Visible = False
 
+        setGesamtsicherheitenBerechtigung()
+
 
         If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA IsNot "VERIMEX" And VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG = False Then
 
@@ -2895,6 +2871,48 @@ Public Class frmHauptfenster
         timerStart.Enabled = False
     End Sub
 
+    Private Sub setGesamtsicherheitenBerechtigung()
+
+        ATVeragCSToolStripMenuItem.Visible = False
+        DEVeragGmbHToolStripMenuItem.Visible = False
+        ATVeragAGToolStripMenuItem.Visible = False
+        ATImexCSToolStripMenuItem.Visible = False
+        DEAmbarToolStripMenuItem.Visible = False
+        ATUnispedGmbHToolStripMenuItem.Visible = False
+
+
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
+            ATVeragCSToolStripMenuItem.Visible = True
+            DEVeragGmbHToolStripMenuItem.Visible = True
+            ATVeragAGToolStripMenuItem.Visible = True
+            ATUnispedGmbHToolStripMenuItem.Visible = True
+        ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
+            'nix
+        ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
+            DEVeragGmbHToolStripMenuItem.Visible = True
+            ATVeragCSToolStripMenuItem.Visible = True
+            ATVeragAGToolStripMenuItem.Visible = True
+            ATImexCSToolStripMenuItem.Visible = True
+        ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
+            DEAmbarToolStripMenuItem.Visible = True
+        ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then
+            ATUnispedGmbHToolStripMenuItem.Visible = True
+
+        ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then
+            ATVeragCSToolStripMenuItem.Visible = True
+            ATVeragAGToolStripMenuItem.Visible = True
+            ATImexCSToolStripMenuItem.Visible = True
+        Else
+            'VERAG
+            ATVeragCSToolStripMenuItem.Visible = True
+            DEVeragGmbHToolStripMenuItem.Visible = True
+            ATVeragAGToolStripMenuItem.Visible = True
+            ATImexCSToolStripMenuItem.Visible = True
+
+        End If
+
+
+    End Sub
 
     Private Sub frmMain_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
         If Me.WindowState = FormWindowState.Minimized Then Exit Sub
@@ -4357,7 +4375,7 @@ Public Class frmHauptfenster
         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
+    Private Sub ATGesamtsicherheitVeragAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATVeragAGToolStripMenuItem.Click, DEVeragGmbHToolStripMenuItem.Click, ATImexCSToolStripMenuItem.Click, ATVeragCSToolStripMenuItem.Click, ATUnispedGmbHToolStripMenuItem.Click, DEAmbarToolStripMenuItem.Click
 
         Dim frm As New frmGesamtsicherheitenMenuNEU()
         Select Case sender.name
@@ -4366,6 +4384,7 @@ Public Class frmHauptfenster
             Case "ATImexCSToolStripMenuItem" : frm.Standort = "IMEX"
             Case "ATVeragCSToolStripMenuItem" : frm.Standort = "Verag CS"
             Case "ATUnispedGmbHToolStripMenuItem" : frm.Standort = "Unisped GmbH"
+            Case "DEAmbarToolStripMenuItem" : frm.Standort = "AMBAR GmbH"
         End Select
 
         frm.Show()
@@ -4719,6 +4738,8 @@ Public Class frmHauptfenster
         End If
 
     End Sub
+
+
 End Class
 
 Public Class AvisoStatusFunctions