Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/Rugv000.cls.xml
===================================================================
diff -u -r57684 -r66986
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/Rugv000.cls.xml	(.../Rugv000.cls.xml)	(revision 57684)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/Rugv000.cls.xml	(.../Rugv000.cls.xml)	(revision 66986)
@@ -8,19 +8,13 @@
 <Private>1</Private>
 </Property>
 
-<Property name="ProjectSettingsApi">
-<Type>DOM.common.ProjectSettingsAPI</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder,ProjectSettingsApi:DOM.common.ProjectSettingsAPI=""</FormalSpec>
+<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..Rol = ..Enum.Rol.Rug
-	Set ..ProjectSettingsApi = $$$Inject(ProjectSettingsApi, ##class(DOM.common.impl.ProjectSettingsAPI).%New())
 	
 	Quit ##class(DOM.PM.Maatwerk.Calc.HF.IDynamischSamengesteldHalffabItemBuilder)##this.%OnNew(SamengesteldHalffabItemBuilder)
 ]]></Implementation>
@@ -35,14 +29,9 @@
 	
 	Do Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFRugPlaatv000).%New(##this))
 	Do Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFHulsInsteekpenGeleiderv000).%New(##this))
+	Do Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFKantenBandRugv000).%New(##this, ..KantenbandRolEnum.Boven))
+	Do Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFKantenBandRugv000).%New(##this, ..KantenbandRolEnum.Onder))
 	
-	If (..ProjectSettingsApi.IsActiefKantenbandKleurVolgtLadeKleur()) {
-		Do Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFKantenBandRugv000).%New(##this, ..KantenbandRolEnum.Boven))
-		Do Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFKantenBandRugv000).%New(##this, ..KantenbandRolEnum.Onder))
-	} Else {
-		Do Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFKantenBandRugv000).%New(##this, ""))
-	}
-	
 	Quit ##class(TECH.ListIterator).%New(Builders)
 ]]></Implementation>
 </Method>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFZijkantv000.cls.xml
===================================================================
diff -u -r57684 -r66986
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFZijkantv000.cls.xml	(.../HFZijkantv000.cls.xml)	(revision 57684)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFZijkantv000.cls.xml	(.../HFZijkantv000.cls.xml)	(revision 66986)
@@ -14,23 +14,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="ProjectSettingsApi">
-<Type>DOM.common.ProjectSettingsAPI</Type>
-<Private>1</Private>
-</Property>
-
-<Method name="%OnNew">
-<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder,ProjectSettingsApi:DOM.common.ProjectSettingsAPI=""</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..ProjectSettingsApi = $$$Inject(ProjectSettingsApi, ##class(DOM.common.impl.ProjectSettingsAPI).%New())
-		
-	Quit ##super(SamengesteldHalffabItemBuilder)
-]]></Implementation>
-</Method>
-
 <Method name="GeefRuntimeBuildersIterator">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext</FormalSpec>
 <Private>1</Private>
@@ -43,14 +26,9 @@
 	Do Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFZijkantBestukkingv000).%New(##this))
 	Do Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFZijkantBestukkingVooraanv000).%New(##this))
 	Do Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFZijkantBevestigingVeerv001).%New(##this))
+	Do Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFKantenBandZijkantv000).%New(##this, ..KantenbandRolEnum.Boven))
+	Do Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFKantenBandZijkantv000).%New(##this, ..KantenbandRolEnum.Onder))
 	
-	If (..ProjectSettingsApi.IsActiefKantenbandKleurVolgtLadeKleur()) {
-		Do Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFKantenBandZijkantv000).%New(##this, ..KantenbandRolEnum.Boven))
-		Do Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFKantenBandZijkantv000).%New(##this, ..KantenbandRolEnum.Onder))
-	} Else {
-		Do Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFKantenBandZijkantv000).%New(##this, ""))
-	}
-	
 	Quit ##class(TECH.ListIterator).%New(Builders)
 ]]></Implementation>
 </Method>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFKantenBandZijkantv000.cls.xml
===================================================================
diff -u -r57426 -r66986
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFKantenBandZijkantv000.cls.xml	(.../HFKantenBandZijkantv000.cls.xml)	(revision 57426)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFKantenBandZijkantv000.cls.xml	(.../HFKantenBandZijkantv000.cls.xml)	(revision 66986)
@@ -18,21 +18,15 @@
 <Private>1</Private>
 </Property>
 
-<Property name="ProjectSettingsApi">
-<Type>DOM.common.ProjectSettingsAPI</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder,KantenbandRol:DOM.PM.Maatwerk.Lade.enu.KantenbandRol,KantenBandKleurBepaler:DOM.PM.Maatwerk.Calc.HF.impl.TAOR.KantenbandKleurBepaler="",ProjectSettingsApi:DOM.common.ProjectSettingsAPI=""</FormalSpec>
+<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder,KantenbandRol:DOM.PM.Maatwerk.Lade.enu.KantenbandRol,KantenBandKleurBepaler:DOM.PM.Maatwerk.Calc.HF.impl.TAOR.KantenbandKleurBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).KantenBand()
 	Set ..KantenbandRol = KantenbandRol
 	Set ..KantenBandKleurBepaler = $$$Inject(KantenBandKleurBepaler, ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.KantenbandKleurBepaler).%New())
-	Set ..ProjectSettingsApi = $$$Inject(ProjectSettingsApi, ##class(DOM.common.impl.ProjectSettingsAPI).%New())
 	
 	Quit ##super(SamengesteldHalffabItemBuilder)
 ]]></Implementation>
@@ -45,12 +39,8 @@
 <ReturnTypeParams>ELEMENTTYPE="%Decimal"</ReturnTypeParams>
 <Implementation><![CDATA[
 	#dim AfmetingPerBewerkteDimensie As array of %Decimal = ##class(%ArrayOfDataTypes).%New()
-	#dim Lengte As %Decimal = (2 * IngegevenKenmerken.LadeDiepte)
+	#dim Lengte As %Decimal = IngegevenKenmerken.LadeDiepte
 	
-	If (..ProjectSettingsApi.IsActiefKantenbandKleurVolgtLadeKleur()) {
-		Set Lengte = IngegevenKenmerken.LadeDiepte
-	}
-	
 	Do AfmetingPerBewerkteDimensie.SetAt(Lengte, "Lengte")
 	
 	Quit AfmetingPerBewerkteDimensie
Index: vhTest/Mock/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/KantenbandKleurBepaler.cls.xml
===================================================================
diff -u -r57422 -r66986
--- vhTest/Mock/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/KantenbandKleurBepaler.cls.xml	(.../KantenbandKleurBepaler.cls.xml)	(revision 57422)
+++ vhTest/Mock/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/KantenbandKleurBepaler.cls.xml	(.../KantenbandKleurBepaler.cls.xml)	(revision 66986)
@@ -8,13 +8,6 @@
 <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>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFKantenBandRugv000.cls.xml
===================================================================
diff -u -r57423 -r66986
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFKantenBandRugv000.cls.xml	(.../HFKantenBandRugv000.cls.xml)	(revision 57423)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFKantenBandRugv000.cls.xml	(.../HFKantenBandRugv000.cls.xml)	(revision 66986)
@@ -13,21 +13,15 @@
 <Private>1</Private>
 </Property>
 
-<Property name="ProjectSettingsApi">
-<Type>DOM.common.ProjectSettingsAPI</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder,KantenbandRol:DOM.PM.Maatwerk.Lade.enu.KantenbandRol,KantenBandKleurBepaler:DOM.PM.Maatwerk.Calc.HF.impl.TAOR.KantenbandKleurBepaler="",ProjectSettingsApi:DOM.common.ProjectSettingsAPI=""</FormalSpec>
+<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder,KantenbandRol:DOM.PM.Maatwerk.Lade.enu.KantenbandRol,KantenBandKleurBepaler:DOM.PM.Maatwerk.Calc.HF.impl.TAOR.KantenbandKleurBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).KantenBand()
 	Set ..KantenbandRol = KantenbandRol
 	Set ..KantenBandKleurBepaler = $$$Inject(KantenBandKleurBepaler, ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.KantenbandKleurBepaler).%New())
-	Set ..ProjectSettingsApi = $$$Inject(ProjectSettingsApi, ##class(DOM.common.impl.ProjectSettingsAPI).%New())
 	
 	Quit ##super(SamengesteldHalffabItemBuilder)
 ]]></Implementation>
@@ -40,12 +34,8 @@
 <ReturnTypeParams>ELEMENTTYPE="%Decimal"</ReturnTypeParams>
 <Implementation><![CDATA[
 	#dim AfmetingPerBewerkteDimensie As array of %Decimal = ##class(%ArrayOfDataTypes).%New()
-	#dim Lengte As %Decimal = 2 * IngegevenKenmerken.InterneBreedte
+	#dim Lengte As %Decimal = IngegevenKenmerken.InterneBreedte
 	
-	If (..ProjectSettingsApi.IsActiefKantenbandKleurVolgtLadeKleur()) {
-		Set Lengte = IngegevenKenmerken.InterneBreedte
-	}
-
 	Do AfmetingPerBewerkteDimensie.SetAt(Lengte, "Lengte")
 	
 	Quit AfmetingPerBewerkteDimensie
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/KantenbandKleurBepaler.cls.xml
===================================================================
diff -u -r57422 -r66986
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/KantenbandKleurBepaler.cls.xml	(.../KantenbandKleurBepaler.cls.xml)	(revision 57422)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/KantenbandKleurBepaler.cls.xml	(.../KantenbandKleurBepaler.cls.xml)	(revision 66986)
@@ -8,41 +8,21 @@
 <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)
+	#dim KantenbandKleur As DOM.PM.enu.TAORKantenbandKleur
 		
-			Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
-		}
+	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
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/KantenbandKleurBepaler/Test.cls.xml
===================================================================
diff -u -r57422 -r66986
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/KantenbandKleurBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 57422)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/KantenbandKleurBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 66986)
@@ -15,11 +15,8 @@
 	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")
+	Do ..AssertKantenbandKleur(IngegevenKenmerken, ..KantenbandRolEnum.Boven, ..Enum.KantenbandKleur.Zwart, "KantenbandKleur bovenkant is gelijk aan KantenbandKleur van IngegevenKenmerken")
+	Do ..AssertKantenbandKleur(IngegevenKenmerken, ..KantenbandRolEnum.Onder, ..Enum.KantenbandKleur.Wit, "KantenbandKleur onderkant is gelijk aan LadeKleur van IngegevenKenmerken")
 ]]></Implementation>
 </Method>
 
@@ -31,18 +28,15 @@
 	#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, "")
+	Do ..AssertKantenbandKleur(IngegevenKenmerken, OngekendeKantenbandRol, ..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>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,KantenbandRol:DOM.PM.Maatwerk.Lade.enu.KantenbandRol,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 KleurBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.KantenbandKleurBepaler = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.KantenbandKleurBepaler).%New()
 	#dim KantenbandKleur As DOM.PM.enu.TAORKantenbandKleur = KleurBepaler.Bepaal(IngegevenKenmerken, KantenbandRol)
 	
 	Do $$$AssertEquals(KantenbandKleur, VerwachteKleur, Omschrijving)