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

Creditsafe

Browse Source
This commit is contained in:
d.breimaier
2025-09-05 10:32:14 +02:00
parent 116a2c0ff0
commit 78908fbc7d
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -3352,7 +3352,11 @@ Public Class usrCntlKundenuebersicht
Dim checklastDate As Boolean = True Dim checklastDate As Boolean = True
If cs.authenticate() = "200" Then If cs.authenticate() = "200" Then
Dim company As New cCreditSafeAPI.Company("", "", "", "", KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing, "", "", "", "", "", "", "", "", "", KUNDE.KundenNr) Dim company As New cCreditSafeAPI.Company("", "", "", "", KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing, "", "", "", "", "", "", "", "", "", KUNDE.KundenNr)
cs.AddCompanyToPortfolio(company)
company.lastChecked = IIf(IsDate(lastChecked), lastChecked, Today().AddDays(-30)) company.lastChecked = IIf(IsDate(lastChecked), lastChecked, Today().AddDays(-30))
Dim currentBonID As Integer = SQL.getValueTxtBySql("Select Top(1) isnull(ba_id, -1) FROM [tblBonitaetsauskunft] where ba_KundenNr = " & KUNDE.KundenNr & " AND [ba_Pruefungstool] = 'creditsafe API' ORDER BY ba_Datum DESC", "FMZOLL") Dim currentBonID As Integer = SQL.getValueTxtBySql("Select Top(1) isnull(ba_id, -1) FROM [tblBonitaetsauskunft] where ba_KundenNr = " & KUNDE.KundenNr & " AND [ba_Pruefungstool] = 'creditsafe API' ORDER BY ba_Datum DESC", "FMZOLL")
@@ -3403,7 +3407,7 @@ Public Class usrCntlKundenuebersicht
MsgBox("Creditsafe-Daten wurden aktualisiert!") MsgBox("Creditsafe-Daten wurden aktualisiert!")
Else Else
MsgBox("Keine Creditsafe-Änderungen seit " & lastChecked.ToShortDateString) MsgBox("Keine Creditsafe-Änderungen seit " & lastChecked.ToShortDateString)
End If End If
End If End If