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

Kassenbuch, ustva, Erstattungsschreiben

Browse Source
This commit is contained in:
d.breimaier
2025-01-08 14:42:54 +01:00
parent fc538afc19
commit be6487d129
8 changed files with 14 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
SDL/USTV/ustCntlUSTV_AntragPosition.vb
View File

@@ -115,14 +115,14 @@ Public Class ustCntlUSTV_AntragPosition
save = False
End If
If txtUmrechnungskurs._value <> "" Then
UStV_POS.UStVPo_Umrechnungskurs = txtUmrechnungskurs._value
UStV_POS.UStVPo_Umrechnungskurs = txtUmrechnungskurs._value.Replace(",", ".")
Else
save = False
End If
UStV_POS.UStVPo_Schnittstelle = cbxAPI.Checked
UStV_POS.UStVPo_SchnittstellenNr = IIf(cboSchnittstellennr.SelectedItem Is Nothing, cboSchnittstellennr.SelectedItem, -1)
UStV_POS.UStVPo_SchnittstellenNr = IIf(cboSchnittstellennr.SelectedItem IsNot Nothing, cboSchnittstellennr._value, -1)
End Sub
@@ -141,7 +141,8 @@ Public Class ustCntlUSTV_AntragPosition
gridAktiv = False
txtUSTBetragEUR._value = ""
If IsNumeric(txtUSTBetrag._value) AndAlso IsNumeric(txtUmrechnungskurs._value) Then
txtUSTBetragEUR._value = txtUSTBetrag._value * txtUmrechnungskurs._value
txtUSTBetragEUR.Text = Math.Floor((txtUSTBetrag._value / txtUmrechnungskurs._value) * 100 + 0.5) / 100
'txtUSTBetragEUR._value = txtUSTBetrag._value * txtUmrechnungskurs._value
End If
gridAktiv = gridAktivTMP
End Sub