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

Spedi-Suche, timas-Aktengang, Bugfix Prüfung ZE-Eintrag

Browse Source
This commit is contained in:
d.breimaier
2023-11-22 13:52:17 +01:00
parent 0e2de41544
commit 792521238e
13 changed files with 266 additions and 104 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -49,7 +49,7 @@ Public Class cTimasAPI
End Function
Public Sub getTimeSaldo(maid As Integer, ByRef info As String, Optional isEndpointRunning As Boolean = True)
Public Sub getTimeSaldo(maid As Integer, ByRef info As String, ByRef Optional isEndpointRunning As Boolean = True)
Try
Dim returnText As String = ""
Dim failureText As String = ""
@@ -119,7 +119,7 @@ Public Class cTimasAPI
End Sub
Public Function getTimeEntries(ByVal maid As Integer, ByRef dtZeiten As DataTable, Optional ByRef entryExistingToday As Boolean = True, Optional ByRef requestDone As Boolean = False, Optional isEndpointRunning As Boolean = True) As Boolean
Public Function getTimeEntries(ByVal maid As Integer, ByRef dtZeiten As DataTable, Optional ByRef entryExistingToday As Boolean = True, Optional ByRef requestDone As Boolean = False, Optional ByRef isEndpointRunning As Boolean = True) As Boolean
Try
Dim isPresent = False
@@ -156,7 +156,7 @@ Public Class cTimasAPI
If (rest.ResponseStatusCode <> 200) Then
Debug.WriteLine(rest.ResponseHeader)
'rest.ResponseStatusCode & " " & rest.ResponseStatusText
Debug.WriteLine(rest.ResponseStatusCode & " " & rest.ResponseStatusText)
Return isPresent
End If