72 lines
3.6 KiB
VB.net
72 lines
3.6 KiB
VB.net
Public Class frmBonitaet
|
|
|
|
Public KdNR As Integer
|
|
Dim VSQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
Sub New(KdNR As Integer)
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
Me.KdNR = KdNR
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
|
|
Private Sub btnStandardPreiseLaden_Click(sender As Object, e As EventArgs) Handles btnStandardPreiseLaden.Click
|
|
If txtBonitaetsindex.Text = "" And cboRisikostufe.Text = "" Then Exit Sub
|
|
|
|
If txtBonitaetsindex.Text <> "" Then
|
|
If Not IsNumeric(txtBonitaetsindex.Text) Then Exit Sub
|
|
If CInt(txtBonitaetsindex.Text) < 100 Then Exit Sub
|
|
End If
|
|
Try
|
|
Dim cBonitaetsauskunft As VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrDate(KdNR, Now)
|
|
|
|
|
|
If cBonitaetsauskunft Is Nothing Then
|
|
cBonitaetsauskunft = New VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft
|
|
ElseIf vbYes <> MsgBox("Es wurde heute um '" & cBonitaetsauskunft.ba_Datum.ToShortTimeString & "' bereits eine Bonitätsauskunft für den Kunden eingeholt, möchten Sie diese überschreiben?", vbYesNoCancel) Then
|
|
Exit Sub
|
|
End If
|
|
|
|
cBonitaetsauskunft.ba_KundenNr = (KdNR)
|
|
cBonitaetsauskunft.ba_Datum = cProgramFunctions.isLeerNothing(txtCRDatum._value)
|
|
|
|
cBonitaetsauskunft.ba_BonitaetsIndex = If(IsNumeric(txtBonitaetsindex.Text), txtBonitaetsindex.Text, 0)
|
|
cBonitaetsauskunft.ba_Risikostufe = If(IsNumeric(cboRisikostufe._value), cboRisikostufe._value, Nothing)
|
|
|
|
cBonitaetsauskunft.ba_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
|
cBonitaetsauskunft.ba_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
|
cBonitaetsauskunft.ba_Hoechstkredit = cProgramFunctions.isLeerNothingDbl(txtHoechstkredit._value)
|
|
cBonitaetsauskunft.ba_Bankverbindung = ""
|
|
cBonitaetsauskunft.ba_Zahlungsweise = ""
|
|
cBonitaetsauskunft.ba_GFName = ""
|
|
cBonitaetsauskunft.ba_Sonstiges = ""
|
|
|
|
If cBonitaetsauskunft.SAVE Then
|
|
VSQL.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")
|
|
Dim KDERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KdNR)
|
|
KDERW.kde_BonitaetsStufe = cBonitaetsauskunft.ba_Risikostufe
|
|
KDERW.SAVE()
|
|
Me.Close()
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub frmBonitaet_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
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.changeItem("")
|
|
End Sub
|
|
End Class |