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

kundenuebers

Browse Source
This commit is contained in:
d.breimaier
2025-09-05 10:41:14 +02:00
parent 78908fbc7d
commit 5559437593
3 changed files with 30 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -3355,7 +3355,12 @@ Public Class usrCntlKundenuebersicht
Dim company As New cCreditSafeAPI.Company("", "", "", "", KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing, "", "", "", "", "", "", "", "", "", KUNDE.KundenNr)
cs.AddCompanyToPortfolio(company)
If Not KUNDE_ERW.kde_CSPortfolioAdded Then
cs.AddCompanyToPortfolio(company)
KUNDE_ERW.kde_CSPortfolioAdded = True
KUNDE_ERW.SAVE()
End If
company.lastChecked = IIf(IsDate(lastChecked), lastChecked, Today().AddDays(-30))