201020

Aviso/Auswertung/frmAuswertung.vb

@@ -8,9 +8,18 @@ Public Class frmAuswertung
 
     Private Sub frmAuswertung_Load(sender As Object, e As EventArgs) Handles Me.Load
         clrPnlMain()
-        Dim usrCntl As New usrctlAuswertung
-        usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
-        pnlMain.Controls.Add(usrCntl)
+
+
+
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_Gesamt", Me) Then
+            Button2.Enabled = True
+            Dim usrCntl As New usrctlAuswertung
+            usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
+            pnlMain.Controls.Add(usrCntl)
+        End If
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_Kunden", Me) Then Button1.Enabled = True
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_Mitarbeiter", Me) Then Button3.Enabled = True
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_VERIMEX", Me) Then Button5.Enabled = True
 
     End Sub
 
@@ -681,6 +690,15 @@ Public Class frmAuswertung
         admin.doSQL("delete FROM [tblEmailBenachrichtigung] WHERE [eb_EMail] = '' ", "FMZOLL")
 
     End Sub
+
+    Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles Button5.Click
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_VERIMEX", Me) Then
+            clrPnlMain()
+            Dim usrCntl As New usrctlStatVERIMEX
+            usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
+            pnlMain.Controls.Add(usrCntl)
+        End If
+    End Sub
 End Class
 
 Public Class listMAZusammenf