Mitarbeiter kopieren

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -20,7 +20,7 @@ Public Class frmMitarbDetails
     Private UID As New cMitarbeiter
     Private berechtigungen As New List(Of cBerechtigungen)
     Public mid As Integer = -1
-    Private isUpdate As Boolean = False
+    Public isUpdate As Boolean = False
     Private mitarbeiter As New VERAG_PROG_ALLGEMEIN.cMitarbeiter
     Private usrBerechtigung As New List(Of cUserBerechtigungen)
     Private usrBerechtigungNEU As New List(Of cUserBerechtigungen)
@@ -47,6 +47,15 @@ Public Class frmMitarbDetails
 
     End Sub
 
+    Sub New(mitarbeiter As cMitarbeiter)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
     Private Sub frmMitarbDetails_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
         cboFirmaFMZOLL.fillWithSQL("SELECT[Firma_ID],[Firma_Bez]  FROM [tblFirma] ", True, "FMZOLL", True)
@@ -235,8 +244,9 @@ Public Class frmMitarbDetails
         Next
 
     End Sub
-    Private Sub initMitarbeiter()
-        isUpdate = True
+    Private Sub initMitarbeiter(Optional _isUpdate As Boolean = True)
+        isUpdate = _isUpdate
+        'isUpdate = True
         ' mit_id.Text = mitarbeiter.mit_id
         Label48.Text = mitarbeiter.mit_id
         txtUsername.Text = mitarbeiter.mit_username