From d5a530f32e51d34e16c39e023b94c012a5de1c3e Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 17 Feb 2025 15:15:39 +0100 Subject: [PATCH] merge --- Parkzeit/frmMain.vb | 21 ++++++++++++++++++++- 1 file changed, 20 insertions(+), 1 deletion(-) diff --git a/Parkzeit/frmMain.vb b/Parkzeit/frmMain.vb index 68d2cd4..80a5f5f 100644 --- a/Parkzeit/frmMain.vb +++ b/Parkzeit/frmMain.vb @@ -701,8 +701,27 @@ Public Class frmMain 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.POSITIONEN.Add(POS)