Parkzeitimport

Parkzeit/frmMain.vb

@@ -703,8 +703,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)

Parkzeit/frmParkzeitImport.vb

@@ -112,8 +112,12 @@ Public Class frmParkzeitImport
                                 PARKZEIT.Bereich = SQL.isleernothing(currentRow(1)).ToString
                                 PARKZEIT.Dauer_Minuten = CInt(SQL.isleernothing(currentRow(5)))
 
+                                Dim totalHours = Math.Floor(PARKZEIT.Dauer_Minuten / 60)
+                                Dim minutes = PARKZEIT.Dauer_Minuten Mod 60
+                                PARKZEIT.Dauer = $"{totalHours:D2}:{minutes:D2}"
+
+                                'PARKZEIT.Dauer = Minutes2Time(PARKZEIT.Dauer_Minuten).ToString("hh\:mm")
 
-                                PARKZEIT.Dauer = Minutes2Time(PARKZEIT.Dauer_Minuten).ToString("hh\:mm")
                                 PARKZEIT.TarifArt = "VERAG"
                                 PARKZEIT.KartenNr = SQL.isleernothing(currentRow(0)).ToString