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

Fiskalkunden und Creditsafe-API

Browse Source
This commit is contained in:
d.breimaier
2023-07-18 16:36:32 +02:00
parent 07fd73fb69
commit 7265766491
2 changed files with 15 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -2847,7 +2847,7 @@ Public Class usrCntlKundenuebersicht
cBonitaetsauskunft.ba_GSName = company.csShareholder cBonitaetsauskunft.ba_GSName = company.csShareholder
cBonitaetsauskunft.ba_Geschaeftszweck = company.csBusinessPurpose cBonitaetsauskunft.ba_Geschaeftszweck = company.csBusinessPurpose
cBonitaetsauskunft.ba_Umsatz = company.csTurnover cBonitaetsauskunft.ba_Umsatz = company.csTurnover
cBonitaetsauskunft.ba_GFName = company.csCEO
If company.csSumEmployees <> "" And IsNumeric(company.csSumEmployees) Then If company.csSumEmployees <> "" And IsNumeric(company.csSumEmployees) Then
cBonitaetsauskunft.ba_Mitarbeiter = CInt(company.csSumEmployees) cBonitaetsauskunft.ba_Mitarbeiter = CInt(company.csSumEmployees)
Else Else

15
VERAG_PROG_ALLGEMEIN/Schnittstellen/cCreditSafeAPI.vb
View File

@@ -451,9 +451,22 @@ Public Class cCreditSafeAPI
Debug.WriteLine("currentCreditRating object not found.") Debug.WriteLine("currentCreditRating object not found.")
End If 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 Else
Debug.WriteLine("creditScore object not found.") Debug.WriteLine("creditScore object not found.")
Return "creditScore object not found" Return "creditScore object not found"
End If End If