From 94fd87fecf88ebb4e5a7d8903b5075378986f78d Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Mon, 18 Mar 2024 16:56:33 +0100
Subject: [PATCH] timas. Mitarbeiter, Ueberstunden, Messenger (gelesenAm)

---
 UID/Dienstplan/frmDiestAddMa.vb     |  2 +-
 UID/Mitarbeiter/frmMitarbDetails.vb | 14 +++++++++++---
 UID/Mitarbeiter/frmMitarbTimas.vb   | 14 +++++++++++++-
 UID/cSqlDb.vb                       |  8 ++++++++
 4 files changed, 33 insertions(+), 5 deletions(-)

diff --git a/UID/Dienstplan/frmDiestAddMa.vb b/UID/Dienstplan/frmDiestAddMa.vb
index 64bf778..575c64b 100644
--- a/UID/Dienstplan/frmDiestAddMa.vb
+++ b/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
 
diff --git a/UID/Mitarbeiter/frmMitarbDetails.vb b/UID/Mitarbeiter/frmMitarbDetails.vb
index 30e364b..29cdc9f 100644
--- a/UID/Mitarbeiter/frmMitarbDetails.vb
+++ b/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
 
diff --git a/UID/Mitarbeiter/frmMitarbTimas.vb b/UID/Mitarbeiter/frmMitarbTimas.vb
index fde66b6..12f80a6 100644
--- a/UID/Mitarbeiter/frmMitarbTimas.vb
+++ b/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
 
 
diff --git a/UID/cSqlDb.vb b/UID/cSqlDb.vb
index 5148689..6791c01 100644
--- a/UID/cSqlDb.vb
+++ b/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 = ""