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

USTV, MDMDatenverarbeitung

Browse Source
This commit is contained in:
d.breimaier
2024-06-11 08:35:21 +02:00
parent a1d8cdaff5
commit fa04c12562
9 changed files with 939 additions and 331 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -319,12 +319,12 @@ Public Class frmMDM_USTVAntrag
Dim eur As Double = CDbl(r.Item("rmc_euroBrutto"))
Dim frmdw As Double = CDbl(r.Item("rmc_betragBrutto"))
umrechKurs = eur / frmdw
umrechKurs = frmdw / eur
End If
If CDbl(r.Item("rmc_betragMWST")) > 0 Then
USTV_POS.UStVPo_USteuerbetragEUR = Math.Round((r.Item("rmc_betragMWST") * umrechKurs), 2)
USTV_POS.UStVPo_USteuerbetragEUR = Math.Round((r.Item("rmc_betragMWST") / umrechKurs), 2)
USTV_POS.UStVPo_Umrechnungskurs = umrechKurs
USTV_POS.UStVPo_USteuerbetrag = r.Item("rmc_betragMWST")
End If