Rest-API WIKI, Mitarbeiter kopieren Rechte übernehmen

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -388,18 +388,23 @@ Public Class frmMitarbDetails
     End Sub
 
     Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
-
+        Dim newMid As Integer = 0
         If txtVname.Text = "" And txtNname.Text = "" Then MsgBox("Bitte geben Sie einen Namen ein!") : Exit Sub
         getMitarbeiter()
         If isUpdate Then
             mitarbeiter.mit_id = mid
-            If UID.updateMitarbeiter(mitarbeiter) Then saveBerechtigungen() : Me.Close()
+            If UID.updateMitarbeiter(mitarbeiter) Then saveBerechtigungen(newMid) : Me.Close()
         Else
-            If UID.insertMitarbeiter(mitarbeiter) Then saveBerechtigungen() : Me.Close()
+            If UID.insertMitarbeiter(mitarbeiter, newMid) Then saveBerechtigungen(newMid) : Me.Close()
         End If
 
     End Sub
-    Private Sub saveBerechtigungen()
+    Private Sub saveBerechtigungen(newMitId As Integer)
+
+        If newMitId > 0 Then
+            mid = newMitId
+        End If
+
         Dim ber_admin As String = ""
         Dim ber_dispo As String = ""
         Dim ber_uid As String = ""