From 76f020a09b74c15478e483349f414efe5ae2284a Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 29 Sep 2025 16:19:35 +0200 Subject: [PATCH] creditsafe --- .../Schnittstellen/Creditsafe/cCreditSafeAPI.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb index c6c424e6..ced129dc 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb @@ -487,7 +487,7 @@ Public Class cCreditSafeAPI Dim failureDesc As String 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 showError Then MsgBox(failureDesc) @@ -679,7 +679,7 @@ Public Class cCreditSafeAPI 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 showError Then MsgBox(failureDesc)