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

api

Browse Source
This commit is contained in:
d.breimaier
2025-09-05 17:45:04 +02:00
parent e4e8f1e46c
commit 3085943897
1 changed files with 13 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1214,8 +1214,8 @@ Public Class cCreditSafeAPI
Dim oldValue As Double = defaultOldValue Dim oldValue As Double = defaultOldValue
Dim oldRiksClass = IIf(Not kundeErw.kde_CreditSaveBonitaetsklasse Is Nothing, kundeErw.kde_CreditSaveBonitaetsklasse, "") Dim oldRiksClass = IIf(Not kundeErw.kde_CreditSaveBonitaetsklasse Is Nothing, kundeErw.kde_CreditSaveBonitaetsklasse, "")
Dim infoAbxProzentVerschlechertung As Double = -25 Dim infoAbxProzentVerschlechertung As Double = 25
Dim infoAbxProzentVerschlechertungMailInfo As Double = -50 Dim infoAbxProzentVerschlechertungMailInfo As Double = 50
Dim changedInProzent As Double = 0 Dim changedInProzent As Double = 0
@@ -1229,20 +1229,20 @@ Public Class cCreditSafeAPI
If Not (oldValue = defaultOldValue) Then If Not (oldValue = defaultOldValue) Then
changedInProzent = calcChange(oldValue, newValue) changedInProzent = calcChange(oldValue, newValue)
End If End If
'Index höher ist schlechter!!!
If changedInProzent < Math.Abs(infoAbxProzentVerschlechertung) Or risikoklasse = "E" Or newValue >= 5 Then createInfo = True If changedInProzent > infoAbxProzentVerschlechertung Or risikoklasse = "E" Or newValue >= 5 Then createInfo = True
If changedInProzent < Math.Abs(infoAbxProzentVerschlechertungMailInfo) Or risikoklasse = "E" Or newValue >= 5 Then triggerMail = True If changedInProzent > infoAbxProzentVerschlechertungMailInfo Or risikoklasse = "E" Or newValue >= 5 Then triggerMail = True
Case "B-SCORE" Case "B-SCORE"
oldValue = kundeErw.kde_CreditSaveBonitaetsScore oldValue = kundeErw.kde_CreditSaveBonitaetsScore
'LIMITs DEFINIEREN 'LIMITs DEFINIEREN
'Score höher ist besser
If Not (oldValue = defaultOldValue) Then If Not (oldValue = defaultOldValue) Then
changedInProzent = calcChange(oldValue, newValue) changedInProzent = calcChange(oldValue, newValue)
End If End If
If changedInProzent < infoAbxProzentVerschlechertung Or risikoklasse = "E" Or newValue >= 5 Then createInfo = True If changedInProzent > infoAbxProzentVerschlechertung AndAlso oldValue > newValue Or risikoklasse = "E" Then createInfo = True
If changedInProzent < infoAbxProzentVerschlechertungMailInfo Or risikoklasse = "E" Or newValue >= 5 Then triggerMail = True If changedInProzent > infoAbxProzentVerschlechertungMailInfo AndAlso oldValue > newValue Or risikoklasse = "E" Then triggerMail = True
Case "KREDITLIMIT" Case "KREDITLIMIT"
oldValue = kunde.Höchstkredit oldValue = kunde.Höchstkredit
@@ -1259,9 +1259,12 @@ Public Class cCreditSafeAPI
End Select End Select
If Not createInfo Then Exit Sub If Not createInfo Then Exit Sub
Dim Risk As String = ""
If oldRiksClass <> "" Then
Risk = " Risikoklasse: " & oldRiksClass & " -> " & risikoklasse
End If
Dim textVermerk As String = "ACHTUNG, Änderung des " & typ & " von " & oldValue.ToString & " um " & changedInProzent.ToString("F2") & "% " & " auf " & newValue.ToString & Risk
Dim textVermerk As String = "ACHTUNG, Änderung des " & typ & " von " & oldValue.ToString & " um " & changedInProzent.ToString("F2") & "% " & " auf " & newValue.ToString
mailText &= "<br><br>" & textVermerk mailText &= "<br><br>" & textVermerk