neu

Aviso/frmHauptfenster.vb

@@ -35,6 +35,7 @@ Public Class frmHauptfenster
     Private GridZeichnen As Integer = 0
     Dim lkwbackcolor As Color = Color.FromArgb(220, 220, 220)
     Dim lkwbackcolorSel As Color = Color.FromArgb(200, 200, 200)
+    Dim FIMRA_COLOR As Color = Color.FromArgb(0, 54, 128)
     Dim VermerkeAktuelleAvisoId As Integer = -1
     Private infotxt As String = ""
     Dim gridFont As New Font(Me.Font.FontFamily, 8)
@@ -125,6 +126,19 @@ Public Class frmHauptfenster
         Me.AutoScaleMode = Windows.Forms.AutoScaleMode.Dpi
         hideErr.Interval = 3000
 
+        'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+        '    Case "IMEX"
+        '        FIMRA_COLOR = Color.FromArgb(250, 200, 0)
+        '    Case "ATILLA"
+        '        FIMRA_COLOR = Color.FromArgb(0, 54, 128)
+        '        ' FIMRA_COLOR = Color.Red
+        '    Case Else
+        '        FIMRA_COLOR = Color.FromArgb(0, 54, 128)
+        'End Select
+        'Panel1.BackColor = FIMRA_COLOR
+        'Panel6.BackColor = FIMRA_COLOR
+        'pnlSearch.BackColor = FIMRA_COLOR
+
         UpdateUpdater.Interval = 5000
         UpdateUpdater.Enabled = True
 
@@ -1859,7 +1873,7 @@ Public Class frmHauptfenster
 
     Private Sub StatistikADMINToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StatistikADMINToolStripMenuItem.Click
         'MsgBox(cGlobal.AktiverMitarbeiter.Mitarbeiter)
-        If VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter.StartsWith("ADMIN") Then
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik", Me) Then
             frmAuswertung.Show()
         Else : MsgBox("Sie sind für diese Funktion nicht freigeschaltet.")
         End If
@@ -2440,18 +2454,24 @@ Public Class frmHauptfenster
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Verwaltung", "SDL") Then
             Dim f As New SDL.frmKundenSucheUebersicht
             f.Show(Me)
+        Else
+            MsgBox("Keine Berechtigung!")
         End If
     End Sub
 
     Private Sub ATILLAToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATILLAToolStripMenuItem.Click
         If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "ATILLA")) Then
             showMeNew()
+        Else
+            MsgBox("Keine Berechtigung!")
         End If
     End Sub
 
     Private Sub IMEXToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IMEXToolStripMenuItem.Click
         If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "IMEX")) Then
             showMeNew()
+        Else
+            MsgBox("Keine Berechtigung!")
         End If
     End Sub
 
@@ -2638,6 +2658,9 @@ Public Class frmHauptfenster
 
         SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VerzollungsunterlagenBAR)
     End Sub
+
+
+
 End Class
 
 Public Class AvisoStatusFunctions