Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -2156,8 +2156,11 @@ Public Class frmMDMDatenverarbetiung
 
             RG.Buchungsjahr = cRKSV.getGJ(RG.RechnungsDatum)
 
-            'RG.LOAD_POSITIONEN()
+            Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, OffertenNr, True)
 
+            RG.LOAD_OFFERT_POSITIONEN() ' --> OFFERTE MIT ANZAHL >0 und Preis >0 
+
+            ' RG.LOAD_POSITIONEN_FROM_OFFERTE(OFFERTE)
 
             Dim sqlstr As String = ""
             sqlstr &= " SELECT [plp_LeistungsNr],sum([plose_NettobetragWaehrungAbbuchung]) as plose_NettobetragWaehrungAbbuchung,sum([plose_MWSTBetragWaehrungAbbuchung]) as [plose_MWSTBetragWaehrungAbbuchung],sum([plose_BruttobetragWaehrungAbbuchung]) as [plose_BruttobetragWaehrungAbbuchung] "
@@ -2183,7 +2186,6 @@ Public Class frmMDMDatenverarbetiung
                 Dim BruttoBetrag As Double = r("plose_BruttobetragWaehrungAbbuchung")
                 Dim LeistungsNr As Integer = r("plp_LeistungsNr")
 
-                Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, OffertenNr, True)
 
                 allPlosePos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag)
 
@@ -2433,6 +2435,12 @@ Public Class frmMDMDatenverarbetiung
             For Each o In OFFERTE.POSITIONEN
                 If o.LeistungsNr = LeistungsNr Then
 
+                    'Dim PARK = RECHNUNG.POSITIONEN.FindAll(Function(x) (x.LeistungsNr = 313 Or x.LeistungsNr = 312))
+                    'If PARK Is Nothing Then
+
+                    'End If
+
+
                     Dim POS As New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen()
                     Dim LEISTUNG As New VERAG_PROG_ALLGEMEIN.cLeistungen(o.LeistungsNr)
                     POS.LeistungsNr = o.LeistungsNr