SDL MDM-Datenverarbeitung

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -593,7 +593,10 @@ Public Class frmMDMDatenverarbetiung
             Case "ASFINAG"
                 cbxASFINAGAbgerechnet.Visible = True
                 cbxBelegeerstellt.Visible = True
-                cbxTestdaten.Visible = True
+                If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me.FindForm) Then
+                    'cbxTestdaten.Visible = True
+                End If
+
                 Panel4.Visible = False
                 pnlAsfinag.Visible = True
                 Exit Sub
@@ -2881,17 +2884,25 @@ Public Class frmMDMDatenverarbetiung
     End Sub
 
     Private Sub cbxBelegeerstellt_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBelegeerstellt.CheckedChanged
+        If Me.LIEFERANT = "ASFINAG" Then
+
+
+            If cbxBelegeerstellt.Checked Then
+                Panel2.Enabled = False
+                bntDatumsetzen.Enabled = False
+                bntDatumzuruecksetzen.Enabled = False
+            Else
+                Panel2.Enabled = True
+                bntDatumsetzen.Enabled = True
+                bntDatumzuruecksetzen.Enabled = True
+            End If
 
-        If cbxBelegeerstellt.Checked Then
-            btnREerstellen.Enabled = False
-            bntDatumsetzen.Enabled = False
-            bntDatumzuruecksetzen.Enabled = False
-        Else
-            btnREerstellen.Enabled = True
-            bntDatumsetzen.Enabled = True
-            bntDatumzuruecksetzen.Enabled = True
         End If
-
-
     End Sub
+
+    Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
+        Dim webAddress As String = "https://wiki.verag.ag/de/software/sdl/funktionen"
+        Process.Start(webAddress)
+    End Sub
+
 End Class