timas. Mitarbeiter, Ueberstunden, Messenger (gelesenAm)

UID/Mitarbeiter/frmMitarbTimas.vb

@@ -147,7 +147,19 @@ Public Class frmMitarbTimas
 
         'mitarbeiter.mit_TESTonly = cbxTestaccount.Checked
         If checkMandatoryFields() Then
-            timas.updateEmployee(emp, dgvData)
+            If timas.updateEmployee(emp, dgvData) Then
+                Dim UID As New cMitarbeiter()
+                Dim mitarbeiter
+                mitarbeiter = UID.getMitarbeiterByTimasId(emp.ID)
+                If mitarbeiter IsNot Nothing Then
+                    mitarbeiter.mit_PersonalNr = emp.pnr1
+                    UID.updateMitarbeiter(mitarbeiter)
+                End If
+
+            End If
+        Else
+            MsgBox("Mitarbeiter konnte nicht upgedeated werden!")
+
         End If