From 3085943897b4f3ea59ea9acc89f339311cc558a1 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 5 Sep 2025 17:45:04 +0200 Subject: [PATCH] api --- .../Creditsafe/cCreditSafeAPI.vb | 23 +++++++++++-------- 1 file changed, 13 insertions(+), 10 deletions(-) diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb index 3e276e57..d9068aa6 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb @@ -1214,8 +1214,8 @@ Public Class cCreditSafeAPI Dim oldValue As Double = defaultOldValue Dim oldRiksClass = IIf(Not kundeErw.kde_CreditSaveBonitaetsklasse Is Nothing, kundeErw.kde_CreditSaveBonitaetsklasse, "") - Dim infoAbxProzentVerschlechertung As Double = -25 - Dim infoAbxProzentVerschlechertungMailInfo As Double = -50 + Dim infoAbxProzentVerschlechertung As Double = 25 + Dim infoAbxProzentVerschlechertungMailInfo As Double = 50 Dim changedInProzent As Double = 0 @@ -1229,20 +1229,20 @@ Public Class cCreditSafeAPI If Not (oldValue = defaultOldValue) Then changedInProzent = calcChange(oldValue, newValue) End If - - If changedInProzent < Math.Abs(infoAbxProzentVerschlechertung) Or risikoklasse = "E" Or newValue >= 5 Then createInfo = True - If changedInProzent < Math.Abs(infoAbxProzentVerschlechertungMailInfo) Or risikoklasse = "E" Or newValue >= 5 Then triggerMail = True + 'Index höher ist schlechter!!! + If changedInProzent > infoAbxProzentVerschlechertung Or risikoklasse = "E" Or newValue >= 5 Then createInfo = True + If changedInProzent > infoAbxProzentVerschlechertungMailInfo Or risikoklasse = "E" Or newValue >= 5 Then triggerMail = True Case "B-SCORE" oldValue = kundeErw.kde_CreditSaveBonitaetsScore 'LIMITs DEFINIEREN - + 'Score höher ist besser If Not (oldValue = defaultOldValue) Then changedInProzent = calcChange(oldValue, newValue) End If - If changedInProzent < infoAbxProzentVerschlechertung Or risikoklasse = "E" Or newValue >= 5 Then createInfo = True - If changedInProzent < infoAbxProzentVerschlechertungMailInfo Or risikoklasse = "E" Or newValue >= 5 Then triggerMail = True + If changedInProzent > infoAbxProzentVerschlechertung AndAlso oldValue > newValue Or risikoklasse = "E" Then createInfo = True + If changedInProzent > infoAbxProzentVerschlechertungMailInfo AndAlso oldValue > newValue Or risikoklasse = "E" Then triggerMail = True Case "KREDITLIMIT" oldValue = kunde.Höchstkredit @@ -1259,9 +1259,12 @@ Public Class cCreditSafeAPI End Select 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 + Dim textVermerk As String = "ACHTUNG, Änderung des " & typ & " von " & oldValue.ToString & " um " & changedInProzent.ToString("F2") & "% " & " auf " & newValue.ToString & Risk mailText &= "

" & textVermerk