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

timas-verbesserungen

Browse Source
This commit is contained in:
d.breimaier
2023-09-04 08:32:07 +02:00
parent 8414fb80bf
commit eaaa59fef6
1 changed files with 18 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -267,6 +267,7 @@ Public Class cTimasAPI
success = rest.FullRequestSb("POST", "/rest/web-api/employees", sbRequestBody, sbResponseBody) success = rest.FullRequestSb("POST", "/rest/web-api/employees", sbRequestBody, sbResponseBody)
If (success <> True) Then If (success <> True) Then
Debug.WriteLine(rest.LastErrorText) Debug.WriteLine(rest.LastErrorText)
info = rest.LastErrorText
Return timasEmployeeCreated Return timasEmployeeCreated
End If End If
@@ -556,15 +557,15 @@ Public Class cTimasAPI
Return "Array Failure" Return "Array Failure"
End If End If
If dt IsNot Nothing And Not dt.Columns.Contains("id") Then If dt IsNot Nothing And Not dt.Columns.Contains("Id") Then
dt.Columns.Add("id", GetType(Integer)) dt.Columns.Add("Id", GetType(Integer))
dt.Columns.Add("externid", GetType(String)) 'dt.Columns.Add("externid", GetType(String))
dt.Columns.Add("pnr1", GetType(String)) dt.Columns.Add("Personal-Nr (Lohn)", GetType(String))
dt.Columns.Add("firstname", GetType(String)) dt.Columns.Add("Vorname", GetType(String))
dt.Columns.Add("lastname", GetType(String)) dt.Columns.Add("Nachname", GetType(String))
dt.Columns.Add("gender", GetType(String)) dt.Columns.Add("Geschlecht", GetType(String))
dt.Columns.Add("card", GetType(Integer)) dt.Columns.Add("Ausweis-Nr", GetType(Integer))
dt.Columns.Add("info", GetType(String)) dt.Columns.Add("Info", GetType(String))
@@ -574,14 +575,14 @@ Public Class cTimasAPI
Dim employee As Chilkat.JsonObject = jsonArray.ObjectAt(j) Dim employee As Chilkat.JsonObject = jsonArray.ObjectAt(j)
Dim R As DataRow = dt.NewRow Dim R As DataRow = dt.NewRow
R("id") = employee.IntOf("id") R("Id") = employee.IntOf("id")
R("externid") = employee.StringOf("externid") '("externid") = employee.StringOf("externid")
R("pnr1") = employee.StringOf("pnr1") R("Personal-Nr (Lohn)") = employee.StringOf("pnr1")
R("firstname") = employee.StringOf("firstname") R("Vorname") = employee.StringOf("firstname")
R("lastname") = employee.StringOf("lastname") R("Nachname") = employee.StringOf("lastname")
R("gender") = employee.StringOf("gender") R("Geschlecht") = employee.StringOf("gender")
R("card") = employee.IntOf("card") R("Ausweis-Nr") = employee.IntOf("card")
R("info") = employee.StringOf("info") R("Info") = employee.StringOf("info")
dt.Rows.Add(R) dt.Rows.Add(R)
j = j + 1 j = j + 1
End While End While