From 9893830dc0b035c830af8bd19ff29eb77ec29cc8 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Wed, 7 Feb 2024 15:57:01 +0100
Subject: [PATCH] Creditsafe - Doppelte Abfragen mittracken

---
 SDL/kunden/usrCntlKundenuebersicht.vb              | 10 +++++-----
 VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb |  3 +++
 2 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb
index 2b551e1d..038b5a4e 100644
--- a/SDL/kunden/usrCntlKundenuebersicht.vb
+++ b/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
diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb b/VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb
index 72881bd5..2efe07de 100644
--- a/VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb
+++ b/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