Index: APPS/EC/Winkelkar/impl/TotaalEnPrijsBerekenaar.cls.xml
===================================================================
diff -u -r39216 -r63226
--- APPS/EC/Winkelkar/impl/TotaalEnPrijsBerekenaar.cls.xml	(.../TotaalEnPrijsBerekenaar.cls.xml)	(revision 39216)
+++ APPS/EC/Winkelkar/impl/TotaalEnPrijsBerekenaar.cls.xml	(.../TotaalEnPrijsBerekenaar.cls.xml)	(revision 63226)
@@ -7,21 +7,29 @@
 <FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
 <ReturnType>APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekendResultaat</ReturnType>
 <Implementation><![CDATA[
-	#dim Resultaat As APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekendResultaat = ##class(APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekendResultaat).%New()
-	#dim MaatwerkLijnIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..GeefMaatwerkLijnenVanWinkelkar(Winkelkar))
-	
 	#dim SomAankoopPrijs As %Decimal = 0
 	#dim SomVerkoopPrijs As %Decimal = 0
 	#dim SomAantalProducten As %Integer = 0
 	
+	#dim MaatwerkLijnIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..GeefMaatwerkLijnenVanWinkelkar(Winkelkar))
 	While (MaatwerkLijnIterator.HasNext()) {
 		#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = MaatwerkLijnIterator.Next()
 
 		Set SomAankoopPrijs = SomAankoopPrijs + MaatwerkLijn.GeefTotaalPrijs()
 		Set SomVerkoopPrijs = SomVerkoopPrijs + MaatwerkLijn.GeefEindklantTotaalPrijs()
 		Set SomAantalProducten = SomAantalProducten + MaatwerkLijn.GeefAantal()
 	}
-	
+
+	#dim ProductLijnIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..GeefProductLijnenVanWinkelkar(Winkelkar))
+	While (ProductLijnIterator.HasNext()) {
+		#dim ProductLijn As DOM.EC.Winkelkar.ProductLijn = ProductLijnIterator.Next()
+
+		Set SomAankoopPrijs = SomAankoopPrijs + ProductLijn.GeefTotaalPrijs()
+		Set SomVerkoopPrijs = SomVerkoopPrijs + ProductLijn.GeefEindklantTotaalPrijs()
+		Set SomAantalProducten = SomAantalProducten + ProductLijn.GeefAantal()
+	}
+
+	#dim Resultaat As APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekendResultaat = ##class(APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekendResultaat).%New()
 	Do Resultaat.ZetVHKlantTotaalPrijs(SomAankoopPrijs)
 	Do Resultaat.ZetEindklantTotaalPrijs(SomVerkoopPrijs)
 	Do Resultaat.ZetTotaalAantalProducten(SomAantalProducten)
@@ -32,15 +40,21 @@
 </Method>
 
 <Method name="GeefMaatwerkLijnenVanWinkelkar">
-<Description><![CDATA[
-Deze moet EXACT dezelfde lijst teruggeven als deze in de klasse (...)APPS.EC.impl.OfferteDtoGenerator --> To be refactored. ]]></Description>
 <FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[	Quit ##class(DOM.EC.Winkelkar.impl.WinkelkarUtils).%New().GeefMaatwerkLijnen(Winkelkar)
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductLijnenVanWinkelkar">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.EC.Winkelkar.impl.WinkelkarUtils).%New().GeefProductLijnen(Winkelkar)
+]]></Implementation>
+</Method>
+
 <Method name="GeefMuntVoorVerkoopPrijs">
 <FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
 <Private>1</Private>