Creditsafe - UIDNr Übernahme, Ausertungen SDL, Nettobetrag in Belegsebene bei ASFINAG

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -2122,10 +2122,6 @@ Public Class frmMDMDatenverarbetiung
 
                 allPlosePos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag) 'kann generisch verwendet werden
 
-                'Rückvergütung Consortio !!
-                'If r("plp_LeistungsNr") = "190" Then '(PRODUCTCODE=301; VERAG-LEISTUNGSNR=190!!
-                '    rabattPlosePos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag)
-                'End If
             Next
 
 
@@ -2133,8 +2129,8 @@ Public Class frmMDMDatenverarbetiung
             If dtSt IsNot Nothing AndAlso dtSt.Rows.Count > 0 Then
                 RG.Steuersatz_Proz = dtSt.Rows(0)(0)
             End If
-
-            cFakturierung.setGesamtBetraege(RG)
+            Dim useNettogesamtbetrag As Boolean = True
+            cFakturierung.setGesamtBetraege(RG,, useNettogesamtbetrag)
 
             RG.Text = (cFakturierung.przRechnungstextTXT(RG, SPEDBUCH) & vbNewLine & cFakturierung.przRechnungstextZZ(RG)).Trim
 
@@ -2238,7 +2234,6 @@ Public Class frmMDMDatenverarbetiung
 
                     If POS.Steuerpflichtig Then
                         POS.SteuerpflichtigerBetrag = NettoBetrag
-
                         POS.Preis = NettoBetrag
                     Else
                         POS.SteuerfreierBetrag = BruttoBetrag