neu

2019-09-10 13:51:31 +02:00
parent 8f8b0f4252
commit 021cce6f04
48 changed files with 6001 additions and 727 deletions
--- a/SDL/kunden/frmBonitaet.vb
+++ b/SDL/kunden/frmBonitaet.vb
@@ -0,0 +1,72 @@
+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