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 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 If company.csFailure <> "" Then
MsgBox(company.csFailure) MsgBox(company.csFailure)
@@ -2908,6 +2908,7 @@ Public Class usrCntlKundenuebersicht
cBonitaetsauskunft.ba_CScounterBeforeRequest = cscounterbefore cBonitaetsauskunft.ba_CScounterBeforeRequest = cscounterbefore
cBonitaetsauskunft.ba_CScounterAfterRequest = cscounterafter cBonitaetsauskunft.ba_CScounterAfterRequest = cscounterafter
cBonitaetsauskunft.ba_CSmax = csmax cBonitaetsauskunft.ba_CSmax = csmax
cBonitaetsauskunft.ba_CScountry = cscountry
' Öster. Unternemen -> Creditscore, sonst Index ' Öster. Unternemen -> Creditscore, sonst Index
If (IsNumeric(company.csIndex)) Then If (IsNumeric(company.csIndex)) Then
@@ -3098,13 +3099,16 @@ Public Class usrCntlKundenuebersicht
If pdfObject Is Nothing Then 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) MsgBox("Fehler beim Erstellen des PDF-Dokuments" & vbNewLine & failureDesc)
Else Else
setCreditSafeEntry(company, pdfObject, kdNr, forecedReqest, beforeRequestCount, afterRequestCount, limit) setCreditSafeEntry(company, pdfObject, kdNr, forecedReqest, beforeRequestCount, afterRequestCount, limit, country)
End If 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 If company.vatNo <> "" AndAlso checkNullStr(ADRESSE.UstIdKz) = "" AndAlso checkNullStr(ADRESSE.UstIdNr) = "" Then
'set and check uid nr 'set and check uid nr
@@ -3126,11 +3130,6 @@ Public Class usrCntlKundenuebersicht
End If End If
If beforeRequestCount = (limit - 100) Or afterRequestCount = (limit - 100) Then 'Benachrichtigung
End If
End Sub End Sub