timas. Mitarbeiter, Ueberstunden, Messenger (gelesenAm)

2024-03-18 16:56:33 +01:00
parent 26139088ca
commit 94fd87fecf
4 changed files with 33 additions and 5 deletions
--- 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 = ""