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

kundenblatt

Browse Source
This commit is contained in:
d.breimaier
2025-10-15 16:03:17 +02:00
parent f4fd461db0
commit acbbbd7754
2 changed files with 103 additions and 109 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
SDL/kunden/frmKundenblatt.vb
View File

@@ -2225,25 +2225,6 @@ Public Class frmKundenblatt
changeTab(4, sender)
End Sub
Private Sub btnFirmendatenFormularSpeichern_Click(sender As Object, e As EventArgs) Handles btnFirmendatenFormularSpeichern.Click
KUNDE_ERW.kde_BezFIBU = checkNullStr(txtFIBUKuerzel.Text)
If txtZinsbelastung.Text <> "" AndAlso txtZinsbelastung.Text.Contains(",") Then
txtZinsbelastung.Text = txtZinsbelastung.ToString.Replace(",", ".")
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
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
changeTab(7, sender)
End Sub
@@ -2624,7 +2605,22 @@ Public Class frmKundenblatt
End Try
End Sub
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(",", ".")
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
KUNDE.Gesprächsbericht = checkNullStr(rtbGespreachsbericht.Text)
KUNDE.SAVE()
End If
End Sub
End Class