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

Fix Creditfix-API

Browse Source
This commit is contained in:
d.breimaier
2023-05-08 15:15:43 +02:00
parent 887c64c2d1
commit 54d60a6492
1 changed files with 13 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -2824,12 +2824,23 @@ Public Class usrCntlKundenuebersicht
cBonitaetsauskunft.ba_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
cBonitaetsauskunft.ba_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
cBonitaetsauskunft.ba_Hoechstkredit = IIf(company.csMaxCreditAmount <> "", CDbl(company.csMaxCreditAmount), 0) 'cProgramFunctions.isLeerNothingDbl(CDbl(company.csMaxCreditAmount), 0)
If company.csMaxCreditAmount <> "" And IsNumeric(company.csMaxCreditAmount) Then
cBonitaetsauskunft.ba_Hoechstkredit = CDbl(company.csMaxCreditAmount)
Else
cBonitaetsauskunft.ba_Hoechstkredit = 0
End If
cBonitaetsauskunft.ba_Bankverbindung = ""
cBonitaetsauskunft.ba_Zahlungsweise = ""
cBonitaetsauskunft.ba_GFName = ""
cBonitaetsauskunft.ba_Sonstiges = ""
cBonitaetsauskunft.ba_GruendundsDatum = IIf(company.csDFoundingDate > New Date("01.01.1900"), company.csDFoundingDate, "")
If IsDate(company.csDFoundingDate) Then
cBonitaetsauskunft.ba_GruendundsDatum = IIf(company.csDFoundingDate > New Date("01.01.1900"), company.csDFoundingDate, "")
Else
cBonitaetsauskunft.ba_GruendundsDatum = ""
End If
If cBonitaetsauskunft.SAVE Then
SQL.doSQL("UPDATE Kunden SET Bonität='" & cBonitaetsauskunft.ba_BonitaetsIndex & "', Bonitätsdatum='" & cBonitaetsauskunft.ba_Datum & "', Höchstkredit=" & If(cBonitaetsauskunft.ba_Hoechstkredit Is Nothing, "null", "'" & cBonitaetsauskunft.ba_Hoechstkredit & "'") & " WHERE KundenNr='" & cBonitaetsauskunft.ba_KundenNr & "'", "FMZOLL")