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

Wenn Daten von Creditsafe nicht ausreichend für einen Creditreport, wird im Aviso abgebrochen und darauf hingewiesen (um unnötige Abfragen abzufangen)! Weitere Hinweise bei NonActive/Pending/Other-Kunden.

Browse Source
This commit is contained in:
d.breimaier
2023-05-03 14:53:10 +02:00
parent 1949d67f54
commit d17485be1a
5 changed files with 193 additions and 111 deletions
Download Patch File Download Diff File Expand all files Collapse all files

138
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -569,64 +569,7 @@ Public Class usrCntlKundenuebersicht
' End If
' End If
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
' select case backgrounndcolor
Select Case lblBonitaetRisikostufe.Text
Case "A", "1"
lblBonitaetRisikostufe.BackColor = Color.Green
lblBonitaetRisikostufe.ForeColor = Color.White
Case "B", "2"
lblBonitaetRisikostufe.BackColor = Color.LightGreen
lblBonitaetRisikostufe.ForeColor = Color.Black
Case "C", "3"
lblBonitaetRisikostufe.BackColor = Color.Yellow
lblBonitaetRisikostufe.ForeColor = Color.Black
Case "D", "4"
lblBonitaetRisikostufe.BackColor = Color.Orange
lblBonitaetRisikostufe.ForeColor = Color.Black
Case "E", "5"
lblBonitaetRisikostufe.BackColor = Color.Red
lblBonitaetRisikostufe.ForeColor = Color.White
Case "F", "6"
lblBonitaetRisikostufe.BackColor = Color.Red
lblBonitaetRisikostufe.ForeColor = Color.White
Case Else
lblBonitaetRisikostufe.BackColor = Color.WhiteSmoke
lblBonitaetRisikostufe.ForeColor = Color.Black
End Select
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
lblHoechstkredit._value = If(IsNumeric(If(KUNDE.Höchstkredit, "")), KUNDE.Höchstkredit, "")
initCreditsave()
'txtKundenbetreuer.Text = If(KUNDE_ERW.kde_qsTeamMAName, "")
@@ -2757,6 +2700,7 @@ Public Class usrCntlKundenuebersicht
KUNDE_ERW.kde_CreditSaveId = UserControl1.comp.credissafeId
KUNDE_ERW.kde_CreditSaveNo = UserControl1.comp.safeNo
KUNDE_ERW.SAVE()
End If
@@ -2857,13 +2801,24 @@ Public Class usrCntlKundenuebersicht
cBonitaetsauskunft.ba_Datum = Now()
If company.country = "AT" Then
cBonitaetsauskunft.ba_CreditSaveBonitaetsScore = If(IsNumeric(company.csIndex), CInt(company.csIndex), 0)
cBonitaetsauskunft.ba_Pruefungstool = "creditsafe AT"
Else
cBonitaetsauskunft.ba_CreditSaveBonitaetsIndex = If(IsNumeric(company.csIndex), CDbl(company.csIndex), 0)
cBonitaetsauskunft.ba_Pruefungstool = "creditsafe"
End If
If (IsNumeric(company.csIndex)) Then
company.csIndex = company.csIndex.Replace(".", ",")
cBonitaetsauskunft.ba_CreditSaveBonitaetsIndex = CDbl(company.csIndex)
Else
cBonitaetsauskunft.ba_CreditSaveBonitaetsIndex = 0
End If
If (IsNumeric(company.csScore)) Then
cBonitaetsauskunft.ba_CreditSaveBonitaetsScore = CInt(company.csScore)
Else
cBonitaetsauskunft.ba_CreditSaveBonitaetsScore = 0
End If
cBonitaetsauskunft.ba_CreditSaveRisikoklasse = cProgramFunctions.isLeerNothing(company.csRiskclass)
@@ -2887,7 +2842,7 @@ Public Class usrCntlKundenuebersicht
KDERW.SAVE()
updateDatenarchivId()
End If
initCreditsave()
End Sub
Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click
@@ -2906,4 +2861,65 @@ Public Class usrCntlKundenuebersicht
Button2.BackgroundImage = SDL.My.Resources.Resources.pdf_gray
End If
End Sub
Private Sub initCreditsave()
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
' select case backgrounndcolor
Select Case lblBonitaetRisikostufe.Text
Case "A", "1"
lblBonitaetRisikostufe.BackColor = Color.Green
lblBonitaetRisikostufe.ForeColor = Color.White
Case "B", "2"
lblBonitaetRisikostufe.BackColor = Color.LightGreen
lblBonitaetRisikostufe.ForeColor = Color.Black
Case "C", "3"
lblBonitaetRisikostufe.BackColor = Color.Yellow
lblBonitaetRisikostufe.ForeColor = Color.Black
Case "D", "4"
lblBonitaetRisikostufe.BackColor = Color.Orange
lblBonitaetRisikostufe.ForeColor = Color.Black
Case "E", "5"
lblBonitaetRisikostufe.BackColor = Color.Red
lblBonitaetRisikostufe.ForeColor = Color.White
Case "F", "6"
lblBonitaetRisikostufe.BackColor = Color.Red
lblBonitaetRisikostufe.ForeColor = Color.White
Case Else
lblBonitaetRisikostufe.BackColor = Color.WhiteSmoke
lblBonitaetRisikostufe.ForeColor = Color.Black
End Select
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
lblHoechstkredit._value = If(IsNumeric(If(KUNDE.Höchstkredit, "")), KUNDE.Höchstkredit, "")
End Sub
End Class