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

Bonitätsprüfung beim Creditreform -> Fehlerkorrektur

Browse Source
This commit is contained in:
d.breimaier
2023-06-20 14:12:17 +02:00
parent 8621d57df2
commit 24418e9d51
2 changed files with 47 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

64
SDL/kunden/frmBonitaet.vb
View File

@@ -207,67 +207,95 @@ Public Class frmBonitaet
End If
If cboRisikostufe.Text = "" And Not cboTool._value = "creditreform" Then
lblWarning2.Text = "Bitte Risikostufeangegeben!"
lblWarning2.Text = "Bitte Risikostufe angegeben!"
Return False
End If
If txtBonitaetsindex.Text <> "" Then
If Not IsNumeric(txtBonitaetsindex.Text) Then
lblWarning.Text = "eingetragener Bonitätsindex ist kein Zahlenwert!"
Return False
End If
End If
Select Case ADRESSE.LandKz.ToString
Case "AT", "A"
If (CInt(txtBonitaetsindex.Text) < 100 Or CInt(txtBonitaetsindex.Text) > 700) And cboTool._value = "creditsafe AT" Then
lblWarning.Text = "B-Score muss zwischen 100 und 700 liegen"
Return False
If txtBonitaetsindex.Text <> "" Then
If (CInt(txtBonitaetsindex.Text) < 100 Or CInt(txtBonitaetsindex.Text) > 700) And cboTool._value = "creditsafe AT" Then
lblWarning.Text = "B-Score muss zwischen 100 und 700 liegen"
Return False
End If
End If
If cboTool._value = "creditsafe" Then
lblWarning.Text = "falsches Prüfungstool, bitte AT auswählen"
Return False
End If
If CInt(txtBonitaetsindex.Text) < 10 And CInt(txtBonitaetsindex.Text) <> 0 And cboTool._value = "creditreform" Then
If txtBonitaetsindex.Text <> "" Then
If CInt(txtBonitaetsindex.Text) < 10 And CInt(txtBonitaetsindex.Text) <> 0 And cboTool._value = "creditreform" Then
lblWarning.Text = "B-Index muss größer als 10 sein"
Return False
End If
End If
Case "DE", "D"
If (CDbl(txtBonitaetsindex.Text) < 1.0 Or CDbl(txtBonitaetsindex.Text) > 6.0) And cboTool._value = "creditsafe" Then
lblWarning.Text = "B-Index muss zwischen 1.0 und 6.0 liegen"
Return False
If txtBonitaetsindex.Text <> "" Then
If (CDbl(txtBonitaetsindex.Text) < 1.0 Or CDbl(txtBonitaetsindex.Text) > 6.0) And cboTool._value = "creditsafe" Then
lblWarning.Text = "B-Index muss zwischen 1.0 und 6.0 liegen"
Return False
End If
End If
If cboTool._value = "creditsafe AT" Then
lblWarning.Text = "falsches Prüfungstool, bitte Creditsafe auswählen"
Return False
End If
If CInt(txtBonitaetsindex.Text) < 10 And CInt(txtBonitaetsindex.Text) <> 0 And cboTool._value = "creditreform" Then
lblWarning.Text = "B-Index muss größer als 10 sein"
Return False
If txtBonitaetsindex.Text <> "" Then
If CInt(txtBonitaetsindex.Text) < 10 And CInt(txtBonitaetsindex.Text) <> 0 And cboTool._value = "creditreform" Then
lblWarning.Text = "B-Index muss größer als 10 sein"
Return False
End If
End If
Case Else
If (CDbl(txtBonitaetsindex.Text) < 1.0 Or CDbl(txtBonitaetsindex.Text) > 1000.0) And cboTool._value = "creditsafe" Then
lblWarning.Text = "B-Index muss zwischen 1.0 und 1000.0 liegen"
Return False
If txtBonitaetsindex.Text <> "" Then
If (CDbl(txtBonitaetsindex.Text) < 1.0 Or CDbl(txtBonitaetsindex.Text) > 1000.0) And cboTool._value = "creditsafe" Then
lblWarning.Text = "B-Index muss zwischen 1.0 und 1000.0 liegen"
Return False
End If
End If
If cboTool._value = "creditsafe AT" Then
lblWarning.Text = "falsches Prüfungstool, bitte Creditsafe auswählen"
Return False
End If
If CInt(txtBonitaetsindex.Text) < 10 And CInt(txtBonitaetsindex.Text) <> 0 And cboTool._value = "creditreform" Then
lblWarning.Text = "B-Index muss größer als 10 sein"
Return False
If txtBonitaetsindex.Text <> "" Then
If CInt(txtBonitaetsindex.Text) < 10 And CInt(txtBonitaetsindex.Text) <> 0 And cboTool._value = "creditreform" Then
lblWarning.Text = "B-Index muss größer als 10 sein"
Return False
End If
End If
End Select
lblWarning.Text = ""

1
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -2792,6 +2792,7 @@ Public Class usrCntlKundenuebersicht
End If
initCreditsave()
setKD(kdNr)
Cursor = Cursors.Default
End Sub