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

merge

Browse Source
This commit is contained in:
d.breimaier
2025-02-17 15:15:39 +01:00
parent 37ec656b8f
commit d5a530f32e
1 changed files with 20 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
Parkzeit/frmMain.vb
View File

@@ -701,8 +701,27 @@ Public Class frmMain
POS.BGebMinBetrag = Nothing POS.BGebMinBetrag = Nothing
'steuerFreierBetrag *= vorzeichen
'steuerPflichtigerBetrag *= vorzeichen
'steuerFreierBetrag *= vorzeichen
'Dim steuerBetrag As Double = 0
'If RECHNUNG.Steuersatz_Proz <> 0 Then
' steuerBetrag = steuerPflichtigerBetrag * RECHNUNG.Steuersatz_Proz
' RECHNUNG.SteuerpflichtigerGesamtbetrag = steuerPflichtigerBetrag + IIf(Not useNettogesatbetrag, steuerBetrag, 0) '+ steuerBetrag
' RECHNUNG.SteuerfreierGesamtbetrag = steuerFreierBetrag
'Else
' RECHNUNG.SteuerpflichtigerGesamtbetrag = 0
' RECHNUNG.SteuerfreierGesamtbetrag = steuerFreierBetrag + steuerPflichtigerBetrag
'End If
'================================================== '==================================================
RG.SteuerpflichtigerGesamtbetrag = POS.SteuerpflichtigerBetrag Dim steuerBetrag As Double = 0
steuerBetrag = POS.SteuerpflichtigerBetrag * RG.Steuersatz_Proz
RG.SteuerpflichtigerGesamtbetrag = CDec(POS.SteuerpflichtigerBetrag + steuerBetrag)
RG.SteuerfreierGesamtbetrag = POS.SteuerfreierBetrag RG.SteuerfreierGesamtbetrag = POS.SteuerfreierBetrag
RG.POSITIONEN.Add(POS) RG.POSITIONEN.Add(POS)