Index: vhTest/Mock/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/KantenbandKleurBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/KantenbandKleurBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/KantenbandKleurBepaler.cls.xml	(revision 57422)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.KantenbandKleurBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.KantenbandKleurBepaler,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="%OnNew">
+<FormalSpec>ProjectSettingsApi:DOM.common.ProjectSettingsAPI=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Bepaal">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,KantenbandRol:DOM.PM.Maatwerk.Lade.enu.KantenbandRol</FormalSpec>
+<ReturnType>DOM.PM.enu.TAORKantenbandKleur</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Bepaal",IngegevenKenmerken,KantenbandRol)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/KantenbandKleurBepaler.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/KantenbandKleurBepaler.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/KantenbandKleurBepaler.cls.xml	(revision 57422)
@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Calc.HF.impl.TAOR.KantenbandKleurBepaler">
+<Super>TECH.Mockable</Super>
+
+<Property name="KantenbandRolEnum">
+<Type>DOM.PM.Maatwerk.Lade.enu.KantenbandRol.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProjectSettingsApi">
+<Type>DOM.common.ProjectSettingsAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProjectSettingsApi:DOM.common.ProjectSettingsAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProjectSettingsApi = $$$Inject(ProjectSettingsApi, ##class(DOM.common.impl.ProjectSettingsAPI).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Bepaal">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,KantenbandRol:DOM.PM.Maatwerk.Lade.enu.KantenbandRol</FormalSpec>
+<ReturnType>DOM.PM.enu.TAORKantenbandKleur</ReturnType>
+<Implementation><![CDATA[
+	#dim KantenbandKleur As DOM.PM.enu.TAORKantenbandKleur = IngegevenKenmerken.KantenbandKleur
+	
+	If (..ProjectSettingsApi.IsActiefKantenbandKleurVolgtLadeKleur()) {
+		If (KantenbandRol = ..KantenbandRolEnum.Onder) {
+			Set KantenbandKleur = IngegevenKenmerken.LadeKleur
+		} ElseIf (KantenbandRol = ..KantenbandRolEnum.Boven) {
+			Set KantenbandKleur = IngegevenKenmerken.KantenbandKleur
+		} Else {
+			#dim Omschrijving As %String = "Ongekende KantenbandRol '" _ KantenbandRol _ "'."
+			#dim Exceptie As TECH.Exceptions.InvalidInputException = ##class(TECH.Exceptions.InvalidInputException).%New(Omschrijving)
+		
+			Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+		}
+	}
+	
+	Quit KantenbandKleur
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/KantenbandKleurBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/KantenbandKleurBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/KantenbandKleurBepaler/Test.cls.xml	(revision 57422)
@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.KantenbandKleurBepaler.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
+
+<Property name="KantenbandRolEnum">
+<Type>DOM.PM.Maatwerk.Lade.enu.KantenbandRol.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Test: Bepaal KantenbandKleur met gekende KantenbandRol">
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	
+	Set IngegevenKenmerken.LadeKleur = ..Enum.LadeKleur.Wit
+	Set IngegevenKenmerken.KantenbandKleur = ..Enum.KantenbandKleur.Zwart
+	
+	Do ..AssertKantenbandKleur(IngegevenKenmerken, ..KantenbandRolEnum.Boven, $$$False, ..Enum.KantenbandKleur.Zwart, "KantenbandKleur bovenkant is gelijk aan KantenbandKleur van IngegevenKenmerken indien projectsetting niet actief")
+	Do ..AssertKantenbandKleur(IngegevenKenmerken, ..KantenbandRolEnum.Onder, $$$False, ..Enum.KantenbandKleur.Zwart, "KantenbandKleur onderkant is gelijk aan KantenbandKleur van IngegevenKenmerken indien projectsetting niet actief")
+	
+	Do ..AssertKantenbandKleur(IngegevenKenmerken, ..KantenbandRolEnum.Boven, $$$True, ..Enum.KantenbandKleur.Zwart, "KantenbandKleur bovenkant is gelijk aan KantenbandKleur van IngegevenKenmerken indien projectsetting actief")
+	Do ..AssertKantenbandKleur(IngegevenKenmerken, ..KantenbandRolEnum.Onder, $$$True, ..Enum.KantenbandKleur.Wit, "KantenbandKleur onderkant is gelijk aan LadeKleur van IngegevenKenmerken indien projectsetting actief")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Bepaal KantenbandKleur met ongekende KantenbandRol veroorzaakt Exceptie">
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	#dim OngekendeKantenbandRol As %String = "OngekendeKantenbandRol"
+
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Ongekende KantenbandRol '" _ OngekendeKantenbandRol _ "'.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName($$$True), Substrings))
+	
+	Do ..AssertKantenbandKleur(IngegevenKenmerken, OngekendeKantenbandRol, $$$True, ..Enum.KantenbandKleur.Zwart, "")
+]]></Implementation>
+</Method>
+
+<Method name="AssertKantenbandKleur">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,KantenbandRol:DOM.PM.Maatwerk.Lade.enu.KantenbandRol,IsActiefProjectSetting:%Boolean,VerwachteKleur:DOM.PM.enu.TAORKantenbandKleur,Omschrijving:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim ProjectSettingsApiStub As vhTest.Mock.DOM.common.ProjectSettingsAPI = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
+	Do ProjectSettingsApiStub.IndienMethodCall("IsActiefKantenbandKleurVolgtLadeKleur").DanReturn(IsActiefProjectSetting)
+	
+	#dim KleurBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.KantenbandKleurBepaler = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.KantenbandKleurBepaler).%New(ProjectSettingsApiStub)
+	#dim KantenbandKleur As DOM.PM.enu.TAORKantenbandKleur = KleurBepaler.Bepaal(IngegevenKenmerken, KantenbandRol)
+	
+	Do $$$AssertEquals(KantenbandKleur, VerwachteKleur, Omschrijving)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/KantenbandKleurBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/KantenbandKleurBepaler.cls.xml	(revision 0)
+++ vhTest/Fake/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/KantenbandKleurBepaler.cls.xml	(revision 57422)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.KantenbandKleurBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.KantenbandKleurBepaler</Super>
+
+<Method name="Bepaal">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,KantenbandRol:DOM.PM.Maatwerk.Lade.enu.KantenbandRol</FormalSpec>
+<ReturnType>DOM.PM.enu.TAORKantenbandKleur</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefKantenbandKleur1">
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
+<ReturnType>DOM.PM.enu.TAORKantenbandKleur</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefKantenbandKleur2">
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
+<ReturnType>DOM.PM.enu.TAORKantenbandKleur</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>