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

UTA, RMC Bugfix im Umrechnung Währungskurs

Browse Source
This commit is contained in:
d.breimaier
2024-06-06 11:58:47 +02:00
parent 2ac6eed7ae
commit 2766308a94
11 changed files with 474 additions and 165 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -313,13 +313,18 @@ Public Class frmMDM_USTVAntrag
USTV_POS.UStVPo_Zeitstempel = Now()
' Berechnungen
Dim umrechKurs = 1
Dim umrechKurs As Double = 1
If (CDbl(r.Item("rmc_betragBrutto")) > 0 AndAlso CDbl(r.Item("rmc_euroBrutto")) > 0) Then
umrechKurs = CDbl(r.Item("rmc_betragBrutto") / r.Item("rmc_euroBrutto"))
Dim eur As Double = CDbl(r.Item("rmc_euroBrutto"))
Dim frmdw As Double = CDbl(r.Item("rmc_betragBrutto"))
umrechKurs = eur / frmdw
End If
If CDbl(r.Item("rmc_betragMWST")) > 0 Then
USTV_POS.UStVPo_USteuerbetragEUR = CDbl(r.Item("rmc_betragMWST") * umrechKurs)
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