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

Creditlimit

Browse Source
This commit is contained in:
d.breimaier
2024-09-12 09:55:40 +02:00
parent b119671fb4
commit 8021e5a30d
1 changed files with 7 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -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