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

Creditsafe - Doppelte Abfragen mittracken

Browse Source
This commit is contained in:
d.breimaier
2024-02-07 15:57:01 +01:00
parent 341c8a9667
commit 9893830dc0
2 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -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

3
VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb
View File

@@ -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