div. Änderungen

SDL/kunden/frmKundenblatt.vb

@@ -465,7 +465,7 @@ Public Class frmKundenblatt
             If kdNr > 0 Then
                 rtbGespreachsbericht.Text = checkNullStr(KUNDE.Gesprächsbericht)
                 txtFIBUKuerzel.Text = checkNullStr(KUNDE_ERW.kde_BezFIBU)
-                txtZinsbelastung.Text = checkNullStr(KUNDE_ERW.kde_zinssatz)
+                txtZinsbelastungNew.Text = checkNullStr(KUNDE_ERW.kde_zinssatz)
 
                 initZNB()
 
@@ -2607,11 +2607,15 @@ Public Class frmKundenblatt
     Private Sub btn_FIBU_speichern_Click(sender As Object, e As EventArgs) Handles btn_FIBU_speichern.Click
         KUNDE_ERW.kde_BezFIBU = checkNullStr(txtFIBUKuerzel.Text)
 
-        If txtZinsbelastung.Text <> "" Then
-            If txtZinsbelastung.Text.Contains(",") Then
-                txtZinsbelastung.Text = txtZinsbelastung.ToString.Replace(",", ".")
-            Else
-                KUNDE_ERW.kde_zinssatz = checkNullStr(txtZinsbelastung.Text)
+        If Not String.IsNullOrWhiteSpace(txtZinsbelastungNew.Text) Then
+            Dim zinssatzText As String = txtZinsbelastungNew.Text.Replace(",", ".")
+            Dim zinssatzValue As Decimal
+
+            If Decimal.TryParse(zinssatzText, System.Globalization.NumberStyles.Any, System.Globalization.CultureInfo.InvariantCulture, zinssatzValue) Then
+                If zinssatzValue <= 999.99D AndAlso zinssatzValue >= -999.99D Then
+                    KUNDE_ERW.kde_zinssatz = zinssatzValue
+                End If
+
             End If
         Else
             KUNDE_ERW.kde_zinssatz = Nothing
@@ -2619,10 +2623,15 @@ Public Class frmKundenblatt
 
         KUNDE_ERW.SAVE()
 
-        If KUNDE.Gesprächsbericht <> "" AndAlso checkNullStr(rtbGespreachsbericht.Text) = "" OrElse KUNDE.Gesprächsbericht = "" AndAlso checkNullStr(rtbGespreachsbericht.Text) <> "" Then
-            KUNDE.Gesprächsbericht = checkNullStr(rtbGespreachsbericht.Text)
-            KUNDE.SAVE()
+        If Not (KUNDE.Gesprächsbericht <> "" AndAlso checkNullStr(rtbGespreachsbericht.Text) = "") Then
+            If KUNDE.Gesprächsbericht = "" AndAlso checkNullStr(rtbGespreachsbericht.Text) <> "" Or KUNDE.Gesprächsbericht <> checkNullStr(rtbGespreachsbericht.Text) Then
+                KUNDE.Gesprächsbericht = checkNullStr(rtbGespreachsbericht.Text)
+                KUNDE.SAVE()
+            End If
+        Else
+            MsgBox("Feld Gesprächstbericht darf nicht leer sein")
         End If
+
     End Sub
 
     Private Sub dgvZinsnachberechnung_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvZinsnachberechnung.CellDoubleClick