Index: vhUnitTest/APPS/EC/Winkelkar/impl/TotaalEnPrijsBerekenaar/BerekenTest.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Winkelkar/impl/TotaalEnPrijsBerekenaar/BerekenTest.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/TotaalEnPrijsBerekenaar/BerekenTest.cls.xml	(revision 63259)
@@ -0,0 +1,78 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekenaar.BerekenTest">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test winkelkar zonder lijnen">
+<Implementation><![CDATA[
+	#dim Winkelkar as DOM.EC.Winkelkar.Winkelkar = ##class(vhTest.Utils.DOM.EC.Winkelkar.Winkelkar).LegeWinkelkar()
+	Do Winkelkar.ZetPersonalityID(1)
+	Set Berekenaar = ##class(APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekenaar).%New()
+	#dim Resultaat as APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekendResultaat = Berekenaar.Bereken(Winkelkar)
+	Do $$$AssertEquals(Resultaat.GeefEindklantTotaalPrijs(),0)
+	Do $$$AssertEquals(Resultaat.GeefTotaalAantalProducten(),0)
+	Do $$$AssertEquals(Resultaat.GeefVHKlantTotaalPrijs(),0)
+]]></Implementation>
+</Method>
+
+<Method name="Test winkelkar met Maatwerklijn">
+<Implementation><![CDATA[
+	#dim Winkelkar as DOM.EC.Winkelkar.Winkelkar = ##class(vhTest.Utils.DOM.EC.Winkelkar.Winkelkar).MaatwerkWinkelkar()
+	Do Winkelkar.ZetPersonalityID(1)
+	Set Berekenaar = ##class(APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekenaar).%New()
+	#dim Resultaat as APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekendResultaat = Berekenaar.Bereken(Winkelkar)
+	Do $$$AssertEquals(Resultaat.GeefEindklantTotaalPrijs(),135)
+	Do $$$AssertEquals(Resultaat.GeefTotaalAantalProducten(),2)
+	Do $$$AssertEquals(Resultaat.GeefVHKlantTotaalPrijs(),13.5)
+]]></Implementation>
+</Method>
+
+<Method name="Test winkelkar met ProductLijn">
+<Implementation><![CDATA[
+	#dim Winkelkar as DOM.EC.Winkelkar.Winkelkar = ##class(vhTest.Utils.DOM.EC.Winkelkar.Winkelkar).ProductWinkelkar()
+	Do Winkelkar.ZetPersonalityID(1)
+	Set Berekenaar = ##class(APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekenaar).%New()
+	#dim Resultaat as APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekendResultaat = Berekenaar.Bereken(Winkelkar)
+	Do $$$AssertEquals(Resultaat.GeefEindklantTotaalPrijs(),15.5)
+	Do $$$AssertEquals(Resultaat.GeefTotaalAantalProducten(),2)
+	Do $$$AssertEquals(Resultaat.GeefVHKlantTotaalPrijs(),9.765)
+]]></Implementation>
+</Method>
+
+<Method name="Test winkelkar met Maatwerklijn en ProductLijn">
+<Implementation><![CDATA[
+	#dim Winkelkar as DOM.EC.Winkelkar.Winkelkar = ##class(vhTest.Utils.DOM.EC.Winkelkar.Winkelkar).StandaardWinkelkar()
+	Do Winkelkar.ZetPersonalityID(1)
+	Set Berekenaar = ##class(APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekenaar).%New()
+	#dim Resultaat as APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekendResultaat = Berekenaar.Bereken(Winkelkar)
+	Do $$$AssertEquals(Resultaat.GeefEindklantTotaalPrijs(),150.5)
+	Do $$$AssertEquals(Resultaat.GeefTotaalAantalProducten(),4)
+	Do $$$AssertEquals(Resultaat.GeefVHKlantTotaalPrijs(),23.265)
+]]></Implementation>
+</Method>
+
+<Method name="Test munt voor VH winkelkar">
+<Implementation><![CDATA[
+	#dim Winkelkar as DOM.EC.Winkelkar.Winkelkar = ##class(vhTest.Utils.DOM.EC.Winkelkar.Winkelkar).StandaardWinkelkar()
+	Do Winkelkar.ZetPersonalityID(1)
+	Set Berekenaar = ##class(APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekenaar).%New()
+	#dim Resultaat as APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekendResultaat = Berekenaar.Bereken(Winkelkar)
+	Do $$$AssertEquals(Resultaat.GeefMuntVoorAankoopPrijs(),"EUR")
+	Do $$$AssertEquals(Resultaat.GeefMuntVoorVerkoopPrijs(),"EUR")
+]]></Implementation>
+</Method>
+
+<Method name="Test munt voor SFS winkelkar">
+<Implementation><![CDATA[
+	#dim Winkelkar as DOM.EC.Winkelkar.Winkelkar = ##class(vhTest.Utils.DOM.EC.Winkelkar.Winkelkar).StandaardWinkelkar()
+	Do Winkelkar.ZetPersonalityID(3)
+	Set Berekenaar = ##class(APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekenaar).%New()
+	#dim Resultaat as APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekendResultaat = Berekenaar.Bereken(Winkelkar)
+	Do $$$AssertEquals(Resultaat.GeefMuntVoorAankoopPrijs(),"EUR")
+	Do $$$AssertEquals(Resultaat.GeefMuntVoorVerkoopPrijs(),"CHF")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/DOM/EC/Winkelkar/Winkelkar.cls.xml
===================================================================
diff -u -r52676 -r63259
--- vhTest/Utils/DOM/EC/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 52676)
+++ vhTest/Utils/DOM/EC/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 63259)
@@ -23,6 +23,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaatwerkWinkelkar">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.EC.Winkelkar.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	Set StandaardWinkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New($$$DummyInteger)
+	Set StandaardWinkelkar.Root = ##class(DOM.EC.Winkelkar.GroepLijn).%New("Root")
+	Do StandaardWinkelkar.ZetKlantID($$$DummyInteger)
+	Do StandaardWinkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
+	
+	Set GroepLijn = ##class(DOM.EC.Winkelkar.GroepLijn).%New("GroepLijn")
+	Do GroepLijn.Sublijnen.Insert(..GeefMaatwerkLijn(2, 6.75, 13.5))
+	
+	Do StandaardWinkelkar.Root.Sublijnen.Insert(GroepLijn)
+	
+	Quit StandaardWinkelkar
+]]></Implementation>
+</Method>
+
 <Method name="ProductWinkelkar">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.EC.Winkelkar.Winkelkar</ReturnType>
@@ -88,6 +106,8 @@
 	Set ProductLijn = ##class(DOM.EC.Winkelkar.ProductLijn).%New("ProductId", Aantal)
 	Set ProductLijn.Product = ##class(Prod.Product).%New()
 	Set ProductLijn.Product.KortTekst = "ProductKortTekst"
+	Do ProductLijn.ZetEenheidPrijsNettoExclBTW(EenheidPrijs * 0.63)
+	Do ProductLijn.ZetTotaalPrijs(TotaalPrijs * 0.63)
 	Do ProductLijn.ZetEindklantEenheidPrijsNettoExclBTW(EenheidPrijs)
 	Do ProductLijn.ZetEindklantTotaalPrijs(TotaalPrijs)
 	Quit ProductLijn