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