diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb
index 732383b1..1601b3f1 100644
--- a/SDL/kunden/usrCntlKundenuebersicht.vb
+++ b/SDL/kunden/usrCntlKundenuebersicht.vb
@@ -2847,7 +2847,7 @@ Public Class usrCntlKundenuebersicht
         cBonitaetsauskunft.ba_GSName = company.csShareholder
         cBonitaetsauskunft.ba_Geschaeftszweck = company.csBusinessPurpose
         cBonitaetsauskunft.ba_Umsatz = company.csTurnover
-
+        cBonitaetsauskunft.ba_GFName = company.csCEO
         If company.csSumEmployees <> "" And IsNumeric(company.csSumEmployees) Then
             cBonitaetsauskunft.ba_Mitarbeiter = CInt(company.csSumEmployees)
         Else
diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cCreditSafeAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cCreditSafeAPI.vb
index f61656a5..a06930b3 100644
--- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cCreditSafeAPI.vb
+++ b/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