timas. Mitarbeiter, Ueberstunden, Messenger (gelesenAm)

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -1225,8 +1225,8 @@ Public Class frmMitarbDetails
             Return False
         End If
 
-        If txtLohnNr.Text = "" AndAlso txtClientNr.Text = "" Then
-            MsgBox("LohnNr und ClientNr prüfen!")
+        If txtClientNr.Text = "" Then
+            MsgBox("ClientNr prüfen!")
             Return False
         End If
 
@@ -1250,7 +1250,15 @@ Public Class frmMitarbDetails
             Return False
         End If
 
-        Return True
+        If txtLohnNr.Text = "" Then
+
+            If Not vbYes = MsgBox("Möchten Sie den Mitarbeiter ohne Lohnnummer anlegen?" & vbNewLine & "Ohne Lohnnummer kann kein Ableich ins Lohnsystem erfolgen!", vbYesNoCancel) Then
+                Return False
+            End If
+
+        End If
+
+            Return True
 
     End Function
 

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