MDM, USTVA, MDMFunctions,

SDL/USTV/usrCntlUSTV.vb

@@ -278,16 +278,20 @@ Public Class usrCntlUSTV
         cboJahrBis.changeItem(Now.Year)
 
 
-        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then
             'FlatButton1.Enabled = False#
 
-            FlatButton2.Enabled = False
-            Button14.Enabled = False
+            btnUSTVAloeschen.Enabled = False
+            btnNeuerUSTVA.Enabled = False
+            btnPLOSEAlle.Enabled = False
 
         Else
             If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
-                FlatButton2.Enabled = True
-                Button14.Enabled = True
+                btnUSTVAloeschen.Enabled = True
+                btnNeuerUSTVA.Enabled = True
+            Else
+                btnUSTVAloeschen.Enabled = True
+                btnNeuerUSTVA.Enabled = True
             End If
         End If
         '   Panel3.Height = Me.Height / 2 + 300
@@ -658,4 +662,6 @@ Public Class usrCntlUSTV
         End If
         Me.Cursor = Cursors.Default
     End Sub
+
+
 End Class