creditsafe, etc.

VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb

@@ -1,9 +1,6 @@
 
 Imports System.Net
-Imports System.Runtime.InteropServices.ComTypes
 Imports System.Threading
-Imports System.Web.UI
-Imports Microsoft.VisualBasic.ApplicationServices
 
 
 Public Class cCreditSafeAPI
@@ -133,6 +130,7 @@ Public Class cCreditSafeAPI
 
             If isMonitoring Then
 
+
                 Dim json As New Chilkat.JsonObject
                 success = json.UpdateString("id", company.creditSafeId)
                 success = json.UpdateString("personalReference", "VERAG AG")
@@ -358,12 +356,12 @@ Public Class cCreditSafeAPI
     End Function
 
 
-    Shared Function getCompanyEvents(company As Company, ByRef dtEvents As DataTable) As String
+    Shared Function getCompanyEvents(company As Company, ByRef dtEvents As DataTable, Optional checklastChecked As Boolean = False) As String
 
         VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
 
         Dim failureDesc As String
-        Dim myUrl As String = API_STRING & "/v1/monitoring/companies/" & company.creditSafeId & "/events"
+        Dim myUrl As String = API_STRING & "/v1/monitoring/companies/" & company.creditSafeId & "/events" & IIf(checklastChecked, "?startDate=" & company.lastChecked, "")
         Dim jsonRespString = SendGetRequestWithAuthHeader(myUrl, company, "application/json", "GET", token, failureDesc)
 
 
@@ -731,7 +729,6 @@ Public Class cCreditSafeAPI
         rest.AddQueryParam("countries", company.country)
 
 
-
         If company.creditsafeNo <> "" Then 'Eindeutiger Schlüssel
             rest.AddQueryParam("safeNo", company.creditsafeNo)