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

Fiskalkunden -> Creditsafe-API erweitert, Fiskalkunden weitergebaut, etc.

Browse Source
This commit is contained in:
d.breimaier
2023-05-22 17:15:50 +02:00
parent 4b2f9cc948
commit d327133bb4
7 changed files with 805 additions and 249 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
VERAG_PROG_ALLGEMEIN/Schnittstellen/cCreditSafeAPI.vb
View File

@@ -301,6 +301,7 @@ Public Class cCreditSafeAPI
Dim companyAddInformObj As Chilkat.JsonObject = reportObj.ObjectOf("additionalInformation")
If (reportObj.LastMethodSuccess = True) Then
Dim companyMiscObj As Chilkat.JsonObject = companyAddInformObj.ObjectOf("misc")
company.csBusinessPurpose = companyMiscObj.StringOf("businessPurpose")
If (companyAddInformObj.LastMethodSuccess = True) Then
Dim deCurrentRatingObj As Chilkat.JsonObject = companyMiscObj.ObjectOf("deCurrentRating")
If (companyAddInformObj.LastMethodSuccess = True) Then
@@ -330,6 +331,15 @@ Public Class cCreditSafeAPI
company.csDFoundingDate = dateTime.GetAsTimestamp(getAsLocal)
Debug.WriteLine(dateTime)
Dim principalActivityObj As Chilkat.JsonObject = basicInfoObj.ObjectOf("principalActivity")
If (basicInfoObj.LastMethodSuccess = True) And company.csBusinessPurpose = "" Then
company.csBusinessPurpose = principalActivityObj.StringOf("industrySector") & " - " & principalActivityObj.StringOf("description")
Else
Debug.WriteLine("principalActivityObj object not found.")
End If
Else
Debug.WriteLine("basicInfoObj object not found.")
@@ -339,10 +349,28 @@ Public Class cCreditSafeAPI
Debug.WriteLine("companyIDObj object not found.")
End If
Dim otherInformationObject As Chilkat.JsonObject = reportObj.ObjectOf("otherInformation")
Dim creditScoreObj As Chilkat.JsonObject = reportObj.ObjectOf("creditScore")
If (reportObj.LastMethodSuccess = True) Then
Dim employeesInformationsArray As Chilkat.JsonArray = otherInformationObject.ArrayOf("employeesInformation")
If (otherInformationObject.LastMethodSuccess = True) Then
Dim employees As Chilkat.JsonObject = employeesInformationsArray.ObjectAt(0)
company.csSumEmployees = employees.StringOf("numberOfEmployees")
Else
Debug.WriteLine("otherInformationObject object not found.")
End If
Dim bankersArray As Chilkat.JsonArray = otherInformationObject.ArrayOf("bankers")
If (otherInformationObject.LastMethodSuccess = True) Then
Dim bankers As Chilkat.JsonObject = bankersArray.ObjectAt(0)
company.csBank = bankers.StringOf("name") & " - " & bankers.StringOf("bankCode")
Else
Debug.WriteLine("otherInformationObject object not found.")
End If
Dim creditRatingObj As Chilkat.JsonObject = creditScoreObj.ObjectOf("currentCreditRating")
If (creditScoreObj.LastMethodSuccess = True) Then
@@ -503,10 +531,16 @@ Public Class cCreditSafeAPI
Public Property csDFoundingDate As Date
Public Property csPDF As String
Public Property csFailure As String
Public Property csSumEmployees As String
Public Property csBusinessPurpose As String
Public Property csShareholder As String
Public Property csCEO As String
Public Property csBank As String
Public Sub New(_name As String, _vatNo As String, _country As String, _creditsafeNo As String, _creditSafeId As String, _lastChecked As Date, _street As String, _postalCode As String, _city As String)
Public Sub New(_name As String, _vatNo As String, _country As String, _creditsafeNo As String, _creditSafeId As String, _lastChecked As Date, _street As String, _postalCode As String, _city As String, _sumEmployees As String, _businessPurpose As String, _shareholder As String, _ceo As String, _bank As String)
creditSafeId = _creditSafeId
name = _name
vatNo = _vatNo
@@ -516,6 +550,11 @@ Public Class cCreditSafeAPI
Street = _street
Postalcode = _postalCode
City = _city
csSumEmployees = _sumEmployees
csBusinessPurpose = _businessPurpose
csShareholder = _shareholder
csCEO = _ceo
csBank = _bank
End Sub
Public Sub New()