Berechtigungen kopieren

UID/Programme/frmBenutzerBerGruppenKopieren.vb

@@ -6,9 +6,10 @@ Public Class frmBenutzerBerGruppenKopieren
     Dim copiedmitId = -1
     Dim progId = -1
     Dim codename = ""
+    Dim mitarbeitername As StringBuilder
     Dim sql As VERAG_PROG_ALLGEMEIN.SQL
     'Dim BerechtigungsObjekte As VERAG_PROG_ALLGEMEIN.cBerechtigungsObjekte_List
-    Dim BerechtigungenGruppen As VERAG_PROG_ALLGEMEIN.cBerechtigungenGruppen_List
+    Dim BerechtigungenBenutzerGruppenZuordnungNeuerUser As VERAG_PROG_ALLGEMEIN.cBerechtigungenBenutzerGruppenZuordnung_List
     Dim BerechtigungenBenutzerGruppenZuordnung As VERAG_PROG_ALLGEMEIN.cBerechtigungenBenutzerGruppenZuordnung_List
 
     Sub New(copiedmitId)
@@ -38,7 +39,7 @@ Public Class frmBenutzerBerGruppenKopieren
 
         Dim currentMA As New VERAG_PROG_ALLGEMEIN.cMitarbeiter
         currentMA.LOAD(copiedmitId)
-        Dim mitarbeitername = New StringBuilder()
+        mitarbeitername = New StringBuilder()
         mitarbeitername.Append(currentMA.mit_vname)
         mitarbeitername.Append("")
         mitarbeitername.Append(currentMA.mit_nname)
@@ -53,19 +54,25 @@ Public Class frmBenutzerBerGruppenKopieren
         cboSelectedEmployee.fillWithSQL("SELECT [mit_id],[mit_username] + ' (' + mit_vname + ' ' + mit_nname + ') ' + mit_firma FROM [ADMIN].[dbo].[tblMitarbeiter] /*INNER JOIN [ADMIN].[dbo].[tblBerProg] ON mit_id=[bepr_userId] INNER JOIN [ADMIN].[dbo].[tblBerechtigungen] ON  [ber_id]=[bepr_berId] " &
                                 " WHERE ber_progId=" & progId & " AND [ber_allowed]=1*/ ORDER BY mit_username", False, "ADMIN", True)
 
+        initBerechitungslist()
+
+
         dgvGruppen.ClearSelection()
 
     End Sub
 
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
         If cboSelectedEmployee._value = String.Empty Then Exit Sub
-        For Each b In BerechtigungenBenutzerGruppenZuordnung.LIST
-            If cboSelectedEmployee._value = b.berbgz_mitId And b.berbgz_progId = progId Then
 
-            Else
+        If dgvGruppen.RowCount = 0 Then
+            MsgBox("Keine Berechtigungen gefunden!")
+            Exit Sub
+        End If
 
-            End If
-        Next
+        If BerechtigungenBenutzerGruppenZuordnungNeuerUser.LIST.Count > 0 Then
+            MsgBox("Für Mitarbeiter " & mitarbeitername.ToString & vbNewLine & " wurden bereits Berechtigungen gesetzt, Berechtigungen vorher löschen!")
+            Exit Sub
+        End If
 
 
         For Each row As DataGridViewRow In dgvGruppen.Rows
@@ -109,7 +116,6 @@ Public Class frmBenutzerBerGruppenKopieren
         BerechtigungenBenutzerGruppenZuordnung = New VERAG_PROG_ALLGEMEIN.cBerechtigungenBenutzerGruppenZuordnung_List(cboSelectedEmployee._value)
 
 
-
         For Each b In BerechtigungenBenutzerGruppenZuordnung.LIST
             dgvGruppen.Rows.Add(b.berbgz_id, b.berbgz_progId, b.berbgz_bergrId, b.Gruppenbezeichnung)
         Next
@@ -126,4 +132,27 @@ Public Class frmBenutzerBerGruppenKopieren
         'Next
 
     End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim a As MsgBoxResult = MsgBox("Sollen die Berechtigungen für Mitarbeiter " & mitarbeitername.ToString & "zurückgsetzt/gelöscht werden?", vbYesNo)
+        If a = vbYes Then
+            For Each b In BerechtigungenBenutzerGruppenZuordnungNeuerUser.LIST
+                b.DELETE()
+            Next
+            initBerechitungslist()
+        End If
+
+
+    End Sub
+
+    Private Sub initBerechitungslist()
+        BerechtigungenBenutzerGruppenZuordnungNeuerUser = New VERAG_PROG_ALLGEMEIN.cBerechtigungenBenutzerGruppenZuordnung_List(copiedmitId)
+
+        If BerechtigungenBenutzerGruppenZuordnungNeuerUser.LIST.Count > 0 Then
+            Button1.Enabled = True
+        Else
+            Button1.Enabled = False
+        End If
+
+    End Sub
 End Class