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

IDS, USTVA

Browse Source
This commit is contained in:
d.breimaier
2025-01-02 15:48:41 +01:00
parent e9d0c1ae57
commit 874ca62560
6 changed files with 17 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SDL/USTV/ustCntlUSTV_AntragPosition.vb
View File

@@ -99,13 +99,13 @@ Public Class ustCntlUSTV_AntragPosition
save = False
End If
If txtUSTBetrag._value <> "" Then
UStV_POS.UStVPo_USteuerbetrag = txtUSTBetrag._value
UStV_POS.UStVPo_USteuerbetrag = txtUSTBetrag._value.Replace(",", ".")
Else
save = False
End If
If txtUSTBetragEUR._value <> "" Then
UStV_POS.UStVPo_USteuerbetragEUR = txtUSTBetragEUR._value
UStV_POS.UStVPo_USteuerbetragEUR = txtUSTBetragEUR._value.Replace(",", ".")
Else
save = False
End If
@@ -192,7 +192,7 @@ Public Class ustCntlUSTV_AntragPosition
ElseIf sender Is txtUSTBetragEUR Then
If IsNumeric(txtUSTBetragEUR._value) AndAlso IsNumeric(txtUmrechnungskurs._value) AndAlso txtUmrechnungskurs._value <> 1 Then
If IsNumeric(txtUSTBetragEUR._value) AndAlso IsNumeric(txtUmrechnungskurs._value) Then
txtUSTBetrag.Text = Math.Floor((txtUSTBetragEUR._value * txtUmrechnungskurs._value) * 100 + 0.5) / 100
'values_changed()
End If