fiskaluebersicht

This commit is contained in:
2023-05-16 09:36:40 +02:00
parent 0544a5aeb3
commit 9f39fed031
12 changed files with 961 additions and 95 deletions

View File

@@ -15,10 +15,8 @@ Public Class cCreditSafeAPI
'Test
'Shared API_STRING As String = "https://connect.sandbox.creditsafe.com"
'PROD
Shared API_STRING As String = "https://connect.creditsafe.com"
Shared token As String = ""
Public dataTable As New DataTable()
@@ -424,9 +422,9 @@ Public Class cCreditSafeAPI
rest.AddQueryParam("vatNo", company.vatNo)
Else
If company.name <> "" Then rest.AddQueryParam("name", company.name)
If company.csStreet <> "" Then rest.AddQueryParam("street", company.csStreet)
If company.csPostalcode <> "" Then rest.AddQueryParam("postCode", company.csPostalcode)
If company.csCity <> "" Then rest.AddQueryParam("city", company.csCity)
If company.Street <> "" Then rest.AddQueryParam("street", company.Street)
If company.Postalcode <> "" Then rest.AddQueryParam("postCode", company.Postalcode)
If company.City <> "" Then rest.AddQueryParam("city", company.City)
End If
@@ -495,6 +493,9 @@ Public Class cCreditSafeAPI
Public Property country As String
Public Property creditsafeNo As String
Public Property lastChecked As Date
Public Property City As String
Public Property Postalcode As String
Public Property Street As String
Public Property csIndex As String
Public Property csScore As String
Public Property csRiskclass As String
@@ -502,9 +503,7 @@ Public Class cCreditSafeAPI
Public Property csDFoundingDate As Date
Public Property csPDF As String
Public Property csFailure As String
Public Property csCity As String
Public Property csPostalcode As String
Public Property csStreet 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)
@@ -514,9 +513,9 @@ Public Class cCreditSafeAPI
country = _country
creditsafeNo = _creditsafeNo
lastChecked = _lastChecked
csStreet = _street
csPostalcode = _postalCode
csCity = _city
Street = _street
Postalcode = _postalCode
City = _city
End Sub
Public Sub New()