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-03 18:03:09 +02:00
parent 404a8c6c32
commit fb55916a21
1 changed files with 20 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb
View File

@@ -469,8 +469,11 @@ Public Class cCreditSafeAPI
Dim numCompanies As Integer = companieData.Size
Dim CL As Double = -1
Dim CR As Integer = -1
Dim defaultCL As Double = -10000000
Dim defaultCR As Integer = -10000000
Dim CL As Double = defaultCL
Dim CR As Integer = defaultCR
Dim CL_Datum As Date = company.lastChecked
Dim CR_Datum As Date = company.lastChecked
@@ -597,7 +600,7 @@ Public Class cCreditSafeAPI
'viewEvents = New DataView(dtEvents, "localEventCode IN ('CL','CR') or e.globalEventCode IN ('CL','CR')", "", DataViewRowState.CurrentRows)
End If
If company.kdNr > 0 AndAlso updateKunden Then
If company.kdNr > 0 AndAlso updateKunden AndAlso (CR <> -1000000 Or CL <> -1000000) Then
Dim KUNDE As New cKunde(company.kdNr)
If KUNDE.Bonitätsdatum <= CL_Datum Or KUNDE.Bonitätsdatum <= CR_Datum Then
@@ -608,9 +611,9 @@ Public Class cCreditSafeAPI
Dim riskClassChanged As Boolean = False
If Not (ADR.LandKz = "AT" Or ADR.LandKz = "A") Then 'bei nicht österr. den Index nehmen, sonst den Score
Index = calculatedBonIndexFromBonScore(CR, riskClass)
Index = IIf(CR = defaultCL, -1, calculatedBonIndexFromBonScore(CR, riskClass))
Else
calculatedBonIndexFromBonScore(CR, riskClass)
If CR <> defaultCL Then calculatedBonIndexFromBonScore(CR, riskClass)
End If
If Index <> -1 Then
@@ -620,22 +623,22 @@ Public Class cCreditSafeAPI
KUNDE.Bonitätsdatum = CDate(CR_Datum)
End If
Else
If KUNDE.Bonität <> CR AndAlso CR <> 0 Then
If KUNDE.Bonität <> CR AndAlso CR <> defaultCR Then
KUNDE.Bonität = CR
riskClassChanged = True
KUNDE.Bonitätsdatum = CDate(CR_Datum)
End If
If KUNDE.Höchstkredit <> CL AndAlso CL <> -1 Then
KUNDE.Höchstkredit = CL
riskClassChanged = True
If KUNDE.Bonitätsdatum <= CDate(CL_Datum) Then
KUNDE.Bonitätsdatum = CDate(CL_Datum)
End If
End If
End If
If KUNDE.Höchstkredit <> CL AndAlso CL <> defaultCL Then
KUNDE.Höchstkredit = CL
If KUNDE.Bonitätsdatum <= CDate(CL_Datum) Then
KUNDE.Bonitätsdatum = CDate(CL_Datum)
End If
End If
If riskClassChanged Then
Dim KUNDE_ERW As New cKundenErweitert(KUNDE.KundenNr)
KUNDE_ERW.kde_CreditSaveBonitaetsklasse = riskClass
@@ -1260,6 +1263,8 @@ Public Class cCreditSafeAPI
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kundenNr", kundenNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("newValueCRIndex", newValueCRIndex))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("oldValueCRIndex", oldValueCRIndex))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("oldRiskClass", oldRiskClass))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("newRiskClass", newRiskClass))
Return list