From 8021e5a30dfe6855cd1bb696950e9f3df870de38 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 12 Sep 2024 09:55:40 +0200 Subject: [PATCH] Creditlimit --- SDL/kunden/usrCntlKundenuebersicht.vb | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb index 9e4db67c..751146a1 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.vb +++ b/SDL/kunden/usrCntlKundenuebersicht.vb @@ -2874,7 +2874,7 @@ Public Class usrCntlKundenuebersicht End Sub - Private Sub setCreditSafeEntry(company As cCreditSafeAPI.Company, PDF As Byte(), krn As Integer, Optional forcedRequest As Boolean = False, Optional cscounterbefore As Integer = 0, Optional cscounterafter As Integer = 0, Optional csmax As Integer = 0) + Private Sub setCreditSafeEntry(company As cCreditSafeAPI.Company, PDF As Byte(), krn As Integer, Optional forcedRequest As Boolean = False, Optional cscounterbefore As Integer = 0, Optional cscounterafter As Integer = 0, Optional csmax As Integer = 0, Optional cscountry As String = "") If company.csFailure <> "" Then MsgBox(company.csFailure) @@ -2908,6 +2908,7 @@ Public Class usrCntlKundenuebersicht cBonitaetsauskunft.ba_CScounterBeforeRequest = cscounterbefore cBonitaetsauskunft.ba_CScounterAfterRequest = cscounterafter cBonitaetsauskunft.ba_CSmax = csmax + cBonitaetsauskunft.ba_CScountry = cscountry ' Öster. Unternemen -> Creditscore, sonst Index If (IsNumeric(company.csIndex)) Then @@ -3098,13 +3099,16 @@ Public Class usrCntlKundenuebersicht If pdfObject Is Nothing Then - setCreditSafeEntry(company, Nothing, kdNr, beforeRequestCount, afterRequestCount, limit) + setCreditSafeEntry(company, Nothing, kdNr, beforeRequestCount, afterRequestCount, limit, country) MsgBox("Fehler beim Erstellen des PDF-Dokuments" & vbNewLine & failureDesc) Else - setCreditSafeEntry(company, pdfObject, kdNr, forecedReqest, beforeRequestCount, afterRequestCount, limit) + setCreditSafeEntry(company, pdfObject, kdNr, forecedReqest, beforeRequestCount, afterRequestCount, limit, country) End If + If beforeRequestCount = (limit - 100) Or afterRequestCount = (limit - 100) Then 'Benachrichtigung + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag; d.breimaier@verag.ag", "Creditsafe-Limit", "ACHTUNG, das Creditsafe-Limit für " & country & " ist fast erreicht!" & vbNewLine & vbNewLine & "Limit: " & limit & " , aktuelle Stand: " & afterRequestCount & vbNewLine & vbNewLine & "*Automatic generated e-mail*",,,,,) + End If If company.vatNo <> "" AndAlso checkNullStr(ADRESSE.UstIdKz) = "" AndAlso checkNullStr(ADRESSE.UstIdNr) = "" Then 'set and check uid nr @@ -3126,11 +3130,6 @@ Public Class usrCntlKundenuebersicht End If - If beforeRequestCount = (limit - 100) Or afterRequestCount = (limit - 100) Then 'Benachrichtigung - - End If - - End Sub