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

div. Änderungen, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-10-15 17:03:35 +02:00
parent c0f864af2a
commit e52332ccd8
6 changed files with 127 additions and 84 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -121,13 +121,15 @@ Public Class cTimasAPI
rest.AddQueryParam("format", datetimeformat)
If timeStamp_deadline <> "" AndAlso IsDate(timeStamp_deadline) Then
rest.AddQueryParam("stamp", CDate(timeStamp_deadline).ToString("yyyy-MM-dd"))
rest.IdleTimeoutMs = 300000
rest.AddQueryParam("stamp", CDate(timeStamp_deadline).ToString("dd.MM.yyyy"))
rest.IdleTimeoutMs = 60000
Else
rest.IdleTimeoutMs = 30000 'defualt
End If
Dim sw = Stopwatch.StartNew()
Dim responseJson As String = rest.FullRequestNoBody("GET", "/rest/web-api/employees/" & maid & "/balance")
If (rest.LastMethodSuccess <> True) Then
Debug.WriteLine(rest.LastErrorText)
@@ -135,6 +137,10 @@ Public Class cTimasAPI
Return timesaldo
End If
sw.Stop()
Debug.WriteLine($"Request dauerte {sw.ElapsedMilliseconds} ms")
Debug.WriteLine(rest.LastErrorText)
If (rest.ResponseStatusCode <> 200) Then
Debug.WriteLine(rest.ResponseHeader)
@@ -1059,7 +1065,7 @@ Public Class cTimasAPI
dt.Columns.Add("Geschlecht", GetType(String))
dt.Columns.Add("Ausweis-Nr", GetType(Integer))
dt.Columns.Add("Info", GetType(String))
dt.Columns.Add("Mandant", GetType(String))
'dt.Columns.Add("Mandant", GetType(String))
End If
dt.Clear()

2
VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb
View File

@@ -180,7 +180,7 @@ Public Class cSyska_Interface
getPersonenKto_MDM &= FormatStringSYS(row("Ort"), 50) & vbTab
getPersonenKto_MDM &= cProgramFunctions.getISO2Land(FormatStringSYS(LandKz, 5)) & vbTab
getPersonenKto_MDM &= CDate(row("EingegebenAm")).ToShortDateString & vbTab 'Eröffnungsdatum
'getPersonenKto_MDM &= Gegenkontonummer & vbTab
getPersonenKto_MDM &= "2000" & vbTab
getPersonenKto_MDM &= vbTab 'Bankname
getPersonenKto_MDM &= If(Lastschrift, row("BLZ"), "") & vbTab
getPersonenKto_MDM &= If(Lastschrift, row("KTO"), "") & vbTab