timas. Mitarbeiter, Ueberstunden, Messenger (gelesenAm)

UID/Dienstplan/frmDiestAddMa.vb

@@ -79,7 +79,7 @@ Public Class frmDiestAddMa
     End Sub
     Sub fillCboMA()
         For Each m In ListMA
-            cboMA.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(m.mit_nname & " " & m.mit_vname, m.mit_id))
+            cboMA.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(m.mit_nname & " " & m.mit_vname & " (" & m.mit_id & ")", m.mit_id))
         Next
     End Sub
 

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -1225,8 +1225,8 @@ Public Class frmMitarbDetails
             Return False
         End If
 
-        If txtLohnNr.Text = "" AndAlso txtClientNr.Text = "" Then
+        If txtClientNr.Text = "" Then
-            MsgBox("LohnNr und ClientNr prüfen!")
+            MsgBox("ClientNr prüfen!")
             Return False
         End If
 
@@ -1250,6 +1250,14 @@ Public Class frmMitarbDetails
             Return False
         End If
 
+        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
 
 

UID/cSqlDb.vb

@@ -1544,6 +1544,14 @@ Public Class cMitarbeiter
         Return Nothing
     End Function
 
+    Public Function getMitarbeiterByTimasId(ByVal id As Integer) As VERAG_PROG_ALLGEMEIN.cMitarbeiter
+        Dim m = New VERAG_PROG_ALLGEMEIN.cMitarbeiter
+        If m.LOAD(id, True) Then
+            Return m
+        End If
+        Return Nothing
+    End Function
+
 
     Public Function insertMitarbeiter(ByVal m As VERAG_PROG_ALLGEMEIN.cMitarbeiter, ByRef mid As Integer) As Boolean
         Dim hAuswahl As String = ""