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-04 08:39:12 +02:00
parent fb55916a21
commit 138a39e567
1 changed files with 11 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -590,10 +590,6 @@ Public Class cCreditSafeAPI
'Next 'Next
If dtEvents.Rows.Count > 1 Then If dtEvents.Rows.Count > 1 Then
dtEvents.DefaultView.Sort = "eventDate ASC" dtEvents.DefaultView.Sort = "eventDate ASC"
dtEvents = dtEvents.DefaultView.ToTable dtEvents = dtEvents.DefaultView.ToTable
@@ -609,6 +605,7 @@ Public Class cCreditSafeAPI
Dim ADR As New cAdressen(KUNDE.KundenNr) Dim ADR As New cAdressen(KUNDE.KundenNr)
Dim riskClass As String = "" Dim riskClass As String = ""
Dim riskClassChanged As Boolean = False Dim riskClassChanged As Boolean = False
Dim KUNDE_ERW As New cKundenErweitert(KUNDE.KundenNr)
If Not (ADR.LandKz = "AT" Or ADR.LandKz = "A") Then 'bei nicht österr. den Index nehmen, sonst den Score If Not (ADR.LandKz = "AT" Or ADR.LandKz = "A") Then 'bei nicht österr. den Index nehmen, sonst den Score
Index = IIf(CR = defaultCL, -1, calculatedBonIndexFromBonScore(CR, riskClass)) Index = IIf(CR = defaultCL, -1, calculatedBonIndexFromBonScore(CR, riskClass))
@@ -617,15 +614,15 @@ Public Class cCreditSafeAPI
End If End If
If Index <> -1 Then If Index <> -1 Then
If KUNDE.Bonität <> Index Then If KUNDE_ERW.kde_CreditSaveBonitaetsIndex <> Index Then
KUNDE.Bonität = Index KUNDE_ERW.kde_CreditSaveBonitaetsIndex = Index
riskClassChanged = True KUNDE_ERW.kde_CreditSaveBonitaetsklasse = riskClass
KUNDE.Bonitätsdatum = CDate(CR_Datum) KUNDE.Bonitätsdatum = CDate(CR_Datum)
End If End If
Else Else
If KUNDE.Bonität <> CR AndAlso CR <> defaultCR Then If KUNDE_ERW.kde_CreditSaveBonitaetsScore <> CR AndAlso CR <> defaultCR Then
KUNDE.Bonität = CR KUNDE_ERW.kde_CreditSaveBonitaetsScore = CR
riskClassChanged = True KUNDE_ERW.kde_CreditSaveBonitaetsklasse = riskClass
KUNDE.Bonitätsdatum = CDate(CR_Datum) KUNDE.Bonitätsdatum = CDate(CR_Datum)
End If End If
End If End If
@@ -637,21 +634,13 @@ Public Class cCreditSafeAPI
End If End If
End If End If
KUNDE_ERW.SAVE()
If riskClassChanged Then
Dim KUNDE_ERW As New cKundenErweitert(KUNDE.KundenNr)
KUNDE_ERW.kde_CreditSaveBonitaetsklasse = riskClass
KUNDE_ERW.SAVE()
End If End If
KUNDE.SAVE() KUNDE.SAVE()
End If End If
End If
Return "Anzahl gefundener Datensätze: " & numCompanies Return "Anzahl gefundener Datensätze: " & numCompanies
@@ -1019,7 +1008,9 @@ Public Class cCreditSafeAPI
End Function End Function
Shared Function calculatedBonIndexFromBonScore(score As Integer, ByRef riskClass As String) As Double Shared Function calculatedBonIndexFromBonScore(score As Object, ByRef riskClass As String) As Double
If score Is Nothing OrElse score = "" OrElse Not IsNumeric(score) Then Return -1
Select Case score Select Case score
Case 91 To 100 Case 91 To 100