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

fix ustva, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-08-31 09:18:48 +02:00
parent b3e2bc81a0
commit a912be044a
2 changed files with 47 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
SDL/USTV/ustCntlUSTV_AntragPosition.vb
View File

@@ -26,9 +26,8 @@ Public Class ustCntlUSTV_AntragPosition
txtRgDatum._value = ""
txtRgNr._value = ""
btnLeistenderSave.Visible = False
txtUmrechnungskurs._value = 1
txtUmrechnungskurs._value = ""
txtLeistungsbezeichnung._value = ""
txtUmrechnungskurs._value = 1
txtUSTBetrag._value = 0
txtUSTBetragEUR._value = 0
txtNettobetrag._value = 0
@@ -773,15 +772,11 @@ Public Class ustCntlUSTV_AntragPosition
Return
End If
Dim oldValueChanged As Boolean =
UStV_POS Is Nothing OrElse
UStV_POS.UStVPo_USteuerbetragEUR Is Nothing OrElse
Convert.ToDecimal(UStV_POS.UStVPo_USteuerbetragEUR) <> ustBetragEUR
Dim oldValueChanged As Boolean = UStV_POS Is Nothing OrElse UStV_POS.UStVPo_USteuerbetragEUR Is Nothing OrElse Convert.ToDecimal(UStV_POS.UStVPo_USteuerbetragEUR) <> ustBetragEUR
If Not oldValueChanged Then Return
Dim kurs As Decimal =
RoundCurrency(ustBetrag / ustBetragEUR)
Dim kurs As Decimal = RoundCurrency(ustBetrag / ustBetragEUR)
txtUmrechnungskurs.Text = kurs.ToString()