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

Bonität: ABC Schema bei CreditSave

Browse Source
This commit is contained in:
d.breimaier
2022-11-14 15:54:13 +01:00
parent 672859b648
commit ddd6682105
2 changed files with 48 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
SDL/kunden/frmBonitaet.Designer.vb generated
View File

@@ -32,12 +32,12 @@ Partial Class frmBonitaet
Me.Label12 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.cboTool = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtGruendungsdatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtHoechstkredit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboRisikostufe = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtBonitaetsindex = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtCRDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboTool = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.SuspendLayout()
'
'Label3
@@ -126,6 +126,17 @@ Partial Class frmBonitaet
Me.Label5.TabIndex = 13
Me.Label5.Text = "Prüfungstool:"
'
'cboTool
'
Me.cboTool._allowedValuesFreiText = Nothing
Me.cboTool._allowFreiText = False
Me.cboTool._value = ""
Me.cboTool.FormattingEnabled = True
Me.cboTool.Location = New System.Drawing.Point(107, 7)
Me.cboTool.Name = "cboTool"
Me.cboTool.Size = New System.Drawing.Size(129, 21)
Me.cboTool.TabIndex = 15
'
'txtGruendungsdatum
'
Me.txtGruendungsdatum._DateTimeOnly = False
@@ -238,17 +249,6 @@ Partial Class frmBonitaet
Me.txtCRDatum.TabIndex = 1
Me.txtCRDatum.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'cboTool
'
Me.cboTool._allowedValuesFreiText = Nothing
Me.cboTool._allowFreiText = False
Me.cboTool._value = ""
Me.cboTool.FormattingEnabled = True
Me.cboTool.Location = New System.Drawing.Point(107, 7)
Me.cboTool.Name = "cboTool"
Me.cboTool.Size = New System.Drawing.Size(129, 21)
Me.cboTool.TabIndex = 15
'
'frmBonitaet
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

43
SDL/kunden/frmBonitaet.vb
View File

@@ -1,4 +1,6 @@
Public Class frmBonitaet
Imports com.sun.xml.internal.ws.client
Public Class frmBonitaet
Public KdNR As Integer
Dim VSQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -68,15 +70,42 @@
txtCRDatum._value = Now
cboRisikostufe.Items.Clear()
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1", 1))
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2", 2))
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3", 3))
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4", 4))
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5", 5))
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("6", 6))
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("A", 1))
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("B", 2))
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("C", 3))
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("D", 4))
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("E", 5))
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("F", 6))
cboRisikostufe.changeItem("")
End Sub
Private Sub cboTool_SelectedValueChanged(sender As Object, e As EventArgs) Handles cboTool.SelectedValueChanged
If (cboTool._value = "creditsafe") Then
cboRisikostufe.Items.Clear()
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("A", 1))
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("B", 2))
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("C", 3))
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("D", 4))
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("E", 5))
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("F", 6))
cboRisikostufe.changeItem("")
Else
cboRisikostufe.Items.Clear()
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1", 1))
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2", 2))
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3", 3))
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4", 4))
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5", 5))
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("6", 6))
cboRisikostufe.changeItem("")
End If
End Sub
End Class