ustva, Kundenblatt, ncts, etc.

SDL/kunden/frmKundenblatt.vb

@@ -2213,8 +2213,11 @@ Public Class frmKundenblatt
         KUNDE_ERW.kde_BezFIBU = checkNullStr(txtFIBUKuerzel.Text)
         KUNDE_ERW.SAVE()
 
-        KUNDE.Gesprächsbericht = checkNullStr(rtbGespreachsbericht.Text)
-        KUNDE.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()
+        End If
+
     End Sub
 
     Private Sub ToolStripMenuItem10_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem10.Click