edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

kundeblatt, ustv.

Browse Source
This commit is contained in:
d.breimaier
2025-10-17 13:12:40 +02:00
parent 7431d6d6f0
commit bf9973ab06
3 changed files with 77 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
SDL/kunden/frmKundenblatt.vb
View File

@@ -2611,13 +2611,16 @@ 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 <> "" AndAlso txtZinsbelastung.Text.Contains(",") Then
txtZinsbelastung.Text = txtZinsbelastung.ToString.Replace(",", ".")
If txtZinsbelastung.Text <> "" Then
If txtZinsbelastung.Text.Contains(",") Then
txtZinsbelastung.Text = txtZinsbelastung.ToString.Replace(",", ".")
Else
KUNDE_ERW.kde_zinssatz = checkNullStr(txtZinsbelastung.Text)
End If
Else
KUNDE_ERW.kde_zinssatz = Nothing
End If
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