Index: vhUnitTest/DOM/EC/Winkelkar/impl/MaatwerkLijnProductBerekenaar/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/EC/Winkelkar/impl/MaatwerkLijnProductBerekenaar/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/EC/Winkelkar/impl/MaatwerkLijnProductBerekenaar/Test.cls.xml	(revision 41812)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.EC.Winkelkar.impl.MaatwerkLijnProductBerekenaar.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: voor elke maatwerklijn op een winkelkar maken we een maatwerkproduct en zetten de productID op de maatwerklijn als die nog geen ProductID heeft">
+<Implementation><![CDATA[
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(vhTest.Utils.DOM.EC.Winkelkar.Winkelkar).StandaardWinkelkar()
+	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = ##class(vhTest.Utils.DOM.EC.Winkelkar.MaatwerkLijn).TAORMaatwerkLijn(2, 35.60, 71.20)
+	
+	Set LijnRepositoryMock = ##class(vhTest.Mock.DOM.EC.Winkelkar.LijnRepository).%New()
+	Do LijnRepositoryMock.VerwachtMethodCall("GeefViaID","").DanReturn(MaatwerkLijn)
+	Do LijnRepositoryMock.VerwachtMethodCall("Bewaar", MaatwerkLijn).DanDoeNiks()
+	
+	Set MaatwerkProductMock = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
+	Do MaatwerkProductMock.VerwachtMethodCall("GeefID").DanReturn("ProductID")
+	
+	Set BerekeningServiceMock = ##class(vhTest.Mock.APPS.PM.Maatwerk.impl.BerekeningServiceProduct).%New()
+	Do BerekeningServiceMock.VerwachtMethodCall("MaakProductVanKenmerken" , MaatwerkLijn.GeefIngegevenKenmerken(), Winkelkar.GeefKlantID(), MaatwerkLijn.GeefAantal()).DanReturn(MaatwerkProductMock)
+	
+	Set MaatwerkLijnProductBerekenaar = ##class(DOM.EC.Winkelkar.impl.MaatwerkLijnProductBerekenaar).%New(LijnRepositoryMock, BerekeningServiceMock)
+	Do MaatwerkLijnProductBerekenaar.BerekenProducten(Winkelkar, 0)
+	
+	Do $$$AssertEquals(MaatwerkLijn.GeefProductID(), "ProductID")
+	
+	Do MaatwerkProductMock.Verifieer()
+	Do LijnRepositoryMock.Verifieer()
+	Do BerekeningServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/EC/Winkelkar/impl/MaatwerkLijnProductBerekenaar.cls.xml
===================================================================
diff -u
--- DOM/EC/Winkelkar/impl/MaatwerkLijnProductBerekenaar.cls.xml	(revision 0)
+++ DOM/EC/Winkelkar/impl/MaatwerkLijnProductBerekenaar.cls.xml	(revision 41812)
@@ -0,0 +1,64 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.EC.Winkelkar.impl.MaatwerkLijnProductBerekenaar">
+<Super>DOM.EC.Winkelkar.WinkelkarVisitor</Super>
+
+<Property name="BerekeningService">
+<Type>APPS.PM.Maatwerk.impl.BerekeningServiceProduct</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LijnRepository">
+<Type>DOM.EC.Winkelkar.impl.LijnRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Winkelkar">
+<Type>DOM.EC.Winkelkar.Winkelkar</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Overschrijven">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>LijnRepository:DOM.EC.Winkelkar.impl.LijnRepository,BerekeningService:APPS.PM.Maatwerk.impl.BerekeningServiceProduct</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..LijnRepository = $$$Inject(LijnRepository, ##class(DOM.EC.Winkelkar.impl.LijnRepository).%New())
+	Set ..BerekeningService = $$$Inject(BerekeningService, ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct).%New())
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BerekenProducten">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,Overschrijven:%Boolean</FormalSpec>
+<Implementation><![CDATA[
+	Set ..Overschrijven = Overschrijven
+	Set ..Winkelkar = Winkelkar
+	Do Winkelkar.Accept($this)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkMaatwerkLijn">
+<FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
+<Implementation><![CDATA[
+	#dim Lijn As DOM.EC.Winkelkar.MaatwerkLijn = ..LijnRepository.GeefViaID(MaatwerkLijn.GeefID())
+	If $$$Not(Lijn.IsMaatwerkProductBerekend()) || ..Overschrijven {
+		#dim Product As DOM.PM.MaatwerkProduct
+		Set Product = ..BerekeningService.MaakProductVanKenmerken(MaatwerkLijn.GeefIngegevenKenmerken(), ..Winkelkar.GeefKlantID(), MaatwerkLijn.GeefAantal())
+		Do Lijn.ZetProductID(Product.GeefID())
+		Do ..LijnRepository.Bewaar(Lijn)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>