Fiskalkunden und Creditsafe-API

VERAG_PROG_ALLGEMEIN/Schnittstellen/cCreditSafeAPI.vb

@@ -451,9 +451,22 @@ Public Class cCreditSafeAPI
                     Debug.WriteLine("currentCreditRating object not found.")
                 End If
 
+                Dim directorsObj As Chilkat.JsonObject = reportObj.ObjectOf("directors")
+                Dim currentDirectorsArray As Chilkat.JsonArray = directorsObj.ArrayOf("currentDirectors")
+                If (directorsObj.LastMethodSuccess = True) And currentDirectorsArray IsNot Nothing Then
+                    Dim i = 0
+                    Dim count_i = json.SizeOfArray("report.directors.currentDirectors")
+                    While i < count_i
+                        json.I = i
+                        company.csCEO = json.StringOf("report.directors.currentDirectors[i].name")
+                        company.csCEO &= "( " & json.StringOf("report.directors.currentDirectors[i].directorType") & ") "
+                        i = i + 1
+                    End While
+                End If
+
 
             Else
-                Debug.WriteLine("creditScore object not found.")
+                    Debug.WriteLine("creditScore object not found.")
                 Return "creditScore object not found"
             End If