ustv, etc.

This commit is contained in:
2025-06-02 10:06:23 +02:00
parent 93b180bbfc
commit 4c309ff58e
4 changed files with 362 additions and 268 deletions

View File

@@ -174,12 +174,17 @@ Public Class ustCntlUSTV_ErstattungPosition
If IsNumeric(txtUSTBetragEUR.Text) AndAlso IsNumeric(txtUSTBetrag.Text) Then
txtUmrechnungskurs.Text = txtUSTBetrag.Text / txtUSTBetragEUR.Text
If txtUSTBetrag.Text = 0 AndAlso txtUSTBetragEUR.Text = 0 Then
txtUmrechnungskurs.Text = 1
Else
txtUmrechnungskurs.Text = txtUSTBetrag.Text / txtUSTBetragEUR.Text
End If
txtChanged = True
End If
End If
ElseIf sender Is txtBelegDatum Then
ElseIf sender Is txtBelegDatum Then
If txtBelegDatum.Text <> "" Then
txtBelegDatum.Text = txtBelegDatum.Text.Replace("-", ".")