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

credtisafe -> korrekter bericht wird nun als pdf angefügt

Browse Source
This commit is contained in:
d.breimaier
2023-04-28 12:32:27 +02:00
parent b4bb2a04a6
commit 527fd1c115
2 changed files with 78 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -2795,18 +2795,21 @@ Public Class usrCntlKundenuebersicht
If cs.checkDateOfLastRequest(company) < lastChecked Then
Dim a As MsgBoxResult = MsgBox("Seit der letzen Abfrage (" & lastChecked.ToShortDateString & ") wurde bei Creditsafe keine Änderung gemacht!" & vbNewLine & "Trotzdem Creditreport-Daten aktualisieren?", vbYesNo)
If a = vbYes Then
cs.getReport(company, True, pdfObject)
cs.getReport(company, True)
pdfObject = cs.getPDF(company)
setCreditSafeEntry(company, pdfObject, kdNr)
End If
Else
cs.getReport(company, True, pdfObject)
cs.getReport(company, True)
pdfObject = cs.getPDF(company)
setCreditSafeEntry(company, pdfObject, kdNr)
End If
Else
cs.getReport(company, True, pdfObject)
cs.getReport(company, True)
pdfObject = cs.getPDF(company)
setCreditSafeEntry(company, pdfObject, kdNr)
End If