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

creditsafe

Browse Source
This commit is contained in:
d.breimaier
2025-09-29 16:19:35 +02:00
parent 71a846fc3d
commit 76f020a09b
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb
View File

@@ -487,7 +487,7 @@ Public Class cCreditSafeAPI
Dim failureDesc As String Dim failureDesc As String
Dim myUrl As String = API_STRING & "/v1/monitoring/companies/" & company.creditSafeId & "/events" & IIf(checklastChecked, "?startDate=" & checkDate, "") Dim myUrl As String = API_STRING & "/v1/monitoring/companies/" & company.creditSafeId & "/events" & IIf(checklastChecked, "?startDate=" & checkDate, "")
Dim jsonRespString = SendGetRequestWithAuthHeader(myUrl, company, "application/json", "GET", token, failureDesc) Dim jsonRespString = SendGetRequestWithAuthHeader(myUrl, company, "application/json", "GET", token, failureDesc, True)
If failureDesc <> "" Then If failureDesc <> "" Then
If showError Then MsgBox(failureDesc) If showError Then MsgBox(failureDesc)
@@ -679,7 +679,7 @@ Public Class cCreditSafeAPI
Dim myUrl As String = API_STRING & "/v1/monitoring/portfolios/1662419/notificationEvents" Dim myUrl As String = API_STRING & "/v1/monitoring/portfolios/1662419/notificationEvents"
Dim jsonRespString = SendGetRequestWithAuthHeader(myUrl, company, "application/json", "GET", token, failureDesc, Not companyDetailEvents,,, Not companyDetailEvents, page) Dim jsonRespString = SendGetRequestWithAuthHeader(myUrl, company, "application/json", "GET", token, failureDesc, True,,, True, page)
If failureDesc <> "" Then If failureDesc <> "" Then
If showError Then MsgBox(failureDesc) If showError Then MsgBox(failureDesc)