edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Homeoffice

Browse Source
This commit is contained in:
d.breimaier
2023-10-23 14:41:35 +02:00
parent 511fb02a8d
commit 791c4fb31e
3 changed files with 19 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb
View File

@@ -774,7 +774,7 @@ Public Class cTimasAPI
Public Function setTimeEntry(ByVal mitarbeiter As cMitarbeiter, ByVal timeEntry As DateTime, ByRef info As String, ByRef inout As String)
Public Function setTimeEntry(ByVal mitarbeiter As cMitarbeiter, ByVal timeEntry As DateTime, ByRef info As String, ByRef inout As String, Optional ByRef art As Integer = 0)
Dim failureText As String = ""
Dim timeEntryCreated As Boolean = False
@@ -805,7 +805,7 @@ Public Class cTimasAPI
Dim json As New Chilkat.JsonObject
json.UpdateString("stamp", timeEntry.ToString("yyyy-MM-ddTHH:mm:ss"))
json.UpdateInt("statusnumber", 0) '
json.UpdateInt("statusnumber", art) '0 Standardanwesenheit, 3 Homeoffice
json.UpdateString("type", inout)
json.UpdateString("employeeid", mitarbeiter.mit_timasId)