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

Bonität Neu

Browse Source
This commit is contained in:
d.breimaier
2022-12-07 11:52:29 +01:00
parent f985548787
commit d6da1f2865
5 changed files with 103 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -544,14 +544,34 @@ Public Class usrCntlKundenuebersicht
' Catch ex As Exception : End Try
' End If
' End If
lblBonitaet.Text = If(KUNDE.Bonität, "")
If ADRESSE.LandKz = "AT" Or ADRESSE.LandKz = "A" Then
lblBonitaet.Text = If(KUNDE_ERW.kde_CreditSaveBonitaetsScore, "")
Else
lblBonitaet.Text = If(KUNDE_ERW.kde_CreditSaveBonitaetsIndex, "")
End If
If lblBonitaet.Text = "" Then
lblBonitaet.Text = If(KUNDE.Bonität, "")
End If
lblBonitaetRisikostufe.Text = If(KUNDE_ERW.kde_CreditSaveBonitaetsklasse, "")
If lblBonitaetRisikostufe.Text = "" Then
lblBonitaetRisikostufe.Text = If(KUNDE_ERW.kde_BonitaetsStufe, "")
End If
If lblBonitaet.Text = "0" Then lblBonitaet.Text = ""
If KUNDE.Bonitätsdatum IsNot Nothing AndAlso IsDate(KUNDE.Bonitätsdatum) Then
lblBonitaetsdatum.Text = CDate(KUNDE.Bonitätsdatum).ToShortDateString
Else
lblBonitaetsdatum.Text = ""
End If
lblBonitaetRisikostufe.Text = If(KUNDE_ERW.kde_BonitaetsStufe, "")
lblHoechstkredit._value = If(IsNumeric(If(KUNDE.Höchstkredit, "")), KUNDE.Höchstkredit, "")