Messenger

VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb

@@ -1,5 +1,6 @@
 Imports System.Diagnostics.Tracing
 Imports System.Net
+Imports System.Runtime.Remoting
 Imports System.Threading
 Imports System.Windows.Forms
 
@@ -421,11 +422,20 @@ Public Class cTimasAPI
             emp.phone1 = json.StringOf("phone1")
             emp.phone2 = json.StringOf("phone2")
 
-            emp.birthdayDate = json.StringOf("birthday")
-            emp.entryDate = json.StringOf("entry")
-            emp.exitDate = json.StringOf("exit")
+            Debug.WriteLine(json.StringOf("birthday"))
 
 
+            If (json.StringOf("birthday") <> "null") Then
+                emp.birthdayDate = CDate(json.StringOf("birthday")).ToString("yyyy-MM-dd")
+            End If
+
+            If (json.StringOf("entry") <> "null") Then
+                emp.entryDate = CDate(json.StringOf("entry")).ToString("yyyy-MM-dd")
+            End If
+
+            If (json.StringOf("exit") <> "null") Then
+                emp.exitDate = CDate(json.StringOf("exit")).ToString("yyyy-MM-dd")
+            End If
 
             Dim groups As Chilkat.JsonArray = json.ArrayOf("groups")
             If (json.LastMethodSuccess = False) Then
@@ -490,9 +500,23 @@ Public Class cTimasAPI
                 success = json.UpdateString("phone1", emp.phone1)
                 success = json.UpdateString("phone2", emp.phone2)
 
-                success = json.UpdateString("birthday", emp.birthdayDate)
-                success = json.UpdateString("entry", emp.entryDate)
-                success = json.UpdateString("exit", emp.exitDate)
+                If IsDate(emp.birthdayDate) Then
+                    success = json.UpdateString("birthday", CDate(emp.birthdayDate).ToString("yyyy-MM-dd"))
+                Else
+                    success = json.UpdateString("birthday", "")
+                End If
+
+                If IsDate(emp.entryDate) Then
+                    success = json.UpdateString("entry", CDate(emp.entryDate).ToString("yyyy-MM-dd"))
+                Else
+                    success = json.UpdateString("entry", "")
+                End If
+
+                If IsDate(emp.exitDate) Then
+                    success = json.UpdateString("exit", CDate(emp.exitDate).ToString("yyyy-MM-dd"))
+                Else
+                    success = json.UpdateString("exit", "")
+                End If
 
 
                 Dim sbRequestBody As New Chilkat.StringBuilder