Creditsafe - Doppelte Abfragen mittracken

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -2767,7 +2767,7 @@ Public Class usrCntlKundenuebersicht
                         Dim a As MsgBoxResult = MsgBox("Seit der letzen Abfrage (" & lastChecked.ToShortDateString & ") wurde bei Creditsafe keine Änderung gemacht!" & vbNewLine & "Trotzdem Creditreport-Daten aktualisieren?", vbYesNo)
                         If a = vbYes Then
 
-                            setCreditsafereportEntry(cs, company)
+                            setCreditsafereportEntry(cs, company, True) 'doppelte Abfragen mitprotokollieren
 
                         End If
 
@@ -2795,7 +2795,7 @@ Public Class usrCntlKundenuebersicht
 
     End Sub
 
-    Private Sub setCreditSafeEntry(company As cCreditSafeAPI.Company, PDF As Byte(), krn As Integer)
+    Private Sub setCreditSafeEntry(company As cCreditSafeAPI.Company, PDF As Byte(), krn As Integer, Optional forcedRequest As Boolean = False)
 
         If company.csFailure <> "" Then
             MsgBox(company.csFailure)
@@ -2819,7 +2819,7 @@ Public Class usrCntlKundenuebersicht
         cBonitaetsauskunft.ba_CreditSaveBonitaetsScore = Nothing
         cBonitaetsauskunft.ba_CreditSaveBonitaetsIndex = Nothing
         cBonitaetsauskunft.ba_CreditSaveRisikoklasse = Nothing
-
+        cBonitaetsauskunft.ba_forcedRequest = forcedRequest
 
         cBonitaetsauskunft.ba_KundenNr = (kdNr)
         cBonitaetsauskunft.ba_Datum = Now()
@@ -2978,7 +2978,7 @@ Public Class usrCntlKundenuebersicht
         genUIDEORIList(kdNr, "EORI")
     End Sub
 
-    Private Sub setCreditsafereportEntry(cs As cCreditSafeAPI, company As cCreditSafeAPI.Company)
+    Private Sub setCreditsafereportEntry(cs As cCreditSafeAPI, company As cCreditSafeAPI.Company, Optional forecedReqest As Boolean = False)
 
         Dim pdfObject As Byte() = Nothing
 
@@ -2994,7 +2994,7 @@ Public Class usrCntlKundenuebersicht
             setCreditSafeEntry(company, Nothing, kdNr)
             MsgBox("Fehler beim Erstellen des PDF-Dokuments" & vbNewLine & failureDesc)
         Else
-            setCreditSafeEntry(company, pdfObject, kdNr)
+            setCreditSafeEntry(company, pdfObject, kdNr, forecedReqest)
         End If
 
         If company.vatNo <> "" AndAlso checkNullStr(ADRESSE.UstIdKz) = "" AndAlso checkNullStr(ADRESSE.UstIdNr) = "" Then

VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb

@@ -34,6 +34,8 @@ Public Class cBonitaetsauskunft
     Property ba_GSName As Object = Nothing
     Property ba_UID As String = ""
 
+    Property ba_forcedRequest As Boolean = False
+
 
     Dim SQL As New SQL
 
@@ -77,6 +79,7 @@ Public Class cBonitaetsauskunft
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Geschaeftszweck", ba_Geschaeftszweck))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_GSName", ba_GSName))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_UID", ba_UID))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_forcedRequest", ba_forcedRequest))
 
         Return list
     End Function