zinsbachbererchnung, etc.

This commit is contained in:
2025-10-13 08:15:06 +02:00
parent 7352833aa0
commit efa761d74d
9 changed files with 905 additions and 40 deletions

View File

@@ -2217,6 +2217,7 @@ Public Class frmKundenblatt
Private Sub btnFirmendatenFormularSpeichern_Click(sender As Object, e As EventArgs) Handles btnFirmendatenFormularSpeichern.Click
KUNDE_ERW.kde_BezFIBU = checkNullStr(txtFIBUKuerzel.Text)
KUNDE_ERW.kde_zinssatz = checkNullStr(txtZinsbelastung.Text)
KUNDE_ERW.SAVE()
If KUNDE.Gesprächsbericht <> "" AndAlso checkNullStr(rtbGespreachsbericht.Text) = "" OrElse KUNDE.Gesprächsbericht = "" AndAlso checkNullStr(rtbGespreachsbericht.Text) <> "" Then