Index: APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaWinkelkarToepasser.cls.xml
===================================================================
diff -u -r34079 -r34593
--- APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaWinkelkarToepasser.cls.xml	(.../MaatwerkDefaultsViaWinkelkarToepasser.cls.xml)	(revision 34079)
+++ APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaWinkelkarToepasser.cls.xml	(.../MaatwerkDefaultsViaWinkelkarToepasser.cls.xml)	(revision 34593)
@@ -76,6 +76,8 @@
 		Set KenmerkenDefaults.VerpakkingType = LaatstGewijzigdeKenmerken.VerpakkingType
 		Set KenmerkenDefaults.OpvullijstKleur = LaatstGewijzigdeKenmerken.OpvullijstKleur
 		Set KenmerkenDefaults.GeleiderTechnologie = LaatstGewijzigdeKenmerken.GeleiderTechnologie
+		Set KenmerkenDefaults.AfdekkapBovenKleur = LaatstGewijzigdeKenmerken.AfdekkapBovenKleur
+		Set KenmerkenDefaults.FrontEindkapKleur = LaatstGewijzigdeKenmerken.FrontEindkapKleur
 		Set KenmerkenDefaults.NietMeeleveren = ##class(TECH.ListUtils).CopyListOfDataTypes(LaatstGewijzigdeKenmerken.NietMeeleveren)
 		Set:$$$Not(LaatstGewijzigdeKenmerken.IsBinnenlade) KenmerkenDefaults.KoppelingType = LaatstGewijzigdeKenmerken.KoppelingType	
 		Do ..KopieerWaarden(TAORKenmerken, KenmerkenDefaults)
Index: vhUnitTest/APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaWinkelkarToepasser/TAOR/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaWinkelkarToepasser/TAOR/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaWinkelkarToepasser/TAOR/Test.cls.xml	(revision 34593)
@@ -0,0 +1,107 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaWinkelkarToepasser.TAOR.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="WinkelkarID">
+<Type>%String</Type>
+<Default>1</Default>
+</Parameter>
+
+<Property name="Winkelkar">
+<Type>APPS.EC.Winkelkar.dto.Winkelkar</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WinkelkarService">
+<Type>vhTest.Mock.DOM.EC.Winkelkar.WinkelkarService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VorigeKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VorigeWinkelkarLijn">
+<Type>DOM.EC.Winkelkar.MaatwerkLijn</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Test doet niets indien winkelkar onbestaand">
+<Implementation><![CDATA[
+	Do ..MockUitWinkelkarEnWinkelkarService()
+	Do ..WinkelkarService.VerwachtMethodCall("GeefLaatstGewijzigdeMaatwerkLijn", ..#WinkelkarID, "Lade", "TAOR").DanDoeNiks()
+	
+	#Dim DefaultKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..PasToeEnGeefDefaults()
+	Do $$$AssertEquals( DefaultKenmerken.AfdekkapBovenKleur, "" )
+]]></Implementation>
+</Method>
+
+<Method name="Test: Eindkapkleuren ZAL wordt overgenomen">
+<Implementation><![CDATA[	Do ..AssertEindkapkleurenWordenOvergenomen( ##class(DOM.PM.enu.TAORAfdekkapBovenKleur).ZwartAluminiumLook() )
+]]></Implementation>
+</Method>
+
+<Method name="Test: Eindkapkleuren AL wordt overgenomen">
+<Implementation><![CDATA[	Do ..AssertEindkapkleurenWordenOvergenomen( ##class(DOM.PM.enu.TAORAfdekkapBovenKleur).AluminiumLook() )
+]]></Implementation>
+</Method>
+
+<Method name="AssertEindkapkleurenWordenOvergenomen">
+<FormalSpec>VerwachteEindKapKleur:DOM.PM.enu.TAORAfdekkapBovenKleur</FormalSpec>
+<Implementation><![CDATA[
+	Do ..MockUitWinkelkarEnWinkelkarService()
+	Set ..VorigeKenmerken.AfdekkapBovenKleur = VerwachteEindKapKleur
+	Set ..VorigeKenmerken.FrontEindkapKleur = VerwachteEindKapKleur
+	Do ..MockUitVorigeWinkelkarLijnMetVorigeKenmerken()
+	
+	#Dim DefaultKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..PasToeEnGeefDefaults()
+	
+	Do $$$AssertEquals( VerwachteEindKapKleur, DefaultKenmerken.AfdekkapBovenKleur )
+	Do $$$AssertEquals( VerwachteEindKapKleur, DefaultKenmerken.FrontEindkapKleur )
+]]></Implementation>
+</Method>
+
+<Method name="MockUitWinkelkarEnWinkelkarService">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..Winkelkar = ##class(APPS.EC.Winkelkar.dto.Winkelkar).%New()
+	Set ..Winkelkar.WinkelkarID = ..#WinkelkarID
+	
+	Set ..WinkelkarService = ##class(vhTest.Mock.DOM.EC.Winkelkar.WinkelkarService).%New()
+]]></Implementation>
+</Method>
+
+<Method name="MockUitVorigeWinkelkarLijnMetVorigeKenmerken">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..VorigeWinkelkarLijn.ZetIngegevenKenmerken( ..VorigeKenmerken )
+	Do ..WinkelkarService.VerwachtMethodCall("GeefLaatstGewijzigdeMaatwerkLijn", ..#WinkelkarID , "Lade", "TAOR").DanReturn( ..VorigeWinkelkarLijn )
+]]></Implementation>
+</Method>
+
+<Method name="PasToeEnGeefDefaults">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#Dim Defaulter = ##class(APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaWinkelkarToepasser).%New( ..Winkelkar, ..WinkelkarService )
+	#Dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
+	Do TAORKenmerken.Accept(Defaulter)
+	Do ..WinkelkarService.Verifieer()
+	Quit TAORKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super()
+	Set ..VorigeWinkelkarLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
+	Set ..VorigeKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>