Messenger, Ueberstunden

VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb

@@ -385,7 +385,7 @@ Public Class cTimasAPI
         End Try
     End Sub
 
-    Public Function getEmployee(mitarbeiterID As String) As cTimasEmployee
+    Public Function getEmployee(mitarbeiterID As String, ByRef datatableTimas As DataTable) As cTimasEmployee
 
         Try
 
@@ -469,6 +469,33 @@ Public Class cTimasAPI
                 i = i + 1
             End While
 
+            Dim customFields As Chilkat.JsonArray = json.ArrayOf("customFields")
+            If (json.LastMethodSuccess = False) Then
+                Debug.WriteLine("customFields member not found.")
+            Else
+
+
+                Dim dt As New DataTable
+                dt.Columns.Add("value", GetType(String))
+                dt.Columns.Add("name", GetType(String))
+                dt.Columns.Add("type", GetType(String))
+
+                Dim numcustomFields As Integer = customFields.Size
+                Dim j As Integer = 0
+                While j < numcustomFields
+                    Dim customField As Chilkat.JsonObject = customFields.ObjectAt(j)
+                    Dim R As DataRow = dt.NewRow
+                    R("value") = customField.StringOf("value")
+                    R("name") = customField.StringOf("name")
+                    R("type") = customField.StringOf("type")
+                    dt.Rows.Add(R)
+                    j = j + 1
+                End While
+                If datatableTimas IsNot Nothing Then datatableTimas = dt
+            End If
+
+
+
 
             Debug.WriteLine(json)
 
@@ -1237,6 +1264,7 @@ Public Class cTimasEmployee
     Public exitDate As String
 
     Public Gruppen As List(Of cTimasGruppe)
+    Public customFields As List(Of cTimascustomFields)
 
     Sub New()
 
@@ -1256,4 +1284,18 @@ Public Class cTimasGruppe
         Me.empID = empId
     End Sub
 
+End Class
+
+Public Class cTimascustomFields
+
+    Public empID As Integer
+    Public Id As Integer
+    Public name As String
+    Public type As String
+    Public value As String
+
+    Sub New(empId)
+        Me.empID = empId
+    End Sub
+
 End Class