Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/ProductieRoute/Base.cls.xml
===================================================================
diff -u -r56972 -r58721
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/ProductieRoute/Base.cls.xml	(.../Base.cls.xml)	(revision 56972)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/ProductieRoute/Base.cls.xml	(.../Base.cls.xml)	(revision 58721)
@@ -51,7 +51,7 @@
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,VerwachteProductieRoute:TECH.String,Feedback:TECH.String=""</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = ..GeefHalffabItem(..IngegevenKenmerken, ..GeefBuilder())
+	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = ..GeefHalffabItem(IngegevenKenmerken, ..GeefBuilder())
 	
 	If ($IsObject(HalffabItem)) {
 		Do $$$AssertEquals(HalffabItem.ProductieRoute, VerwachteProductieRoute, Feedback)
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/ProductieRoute/Koppeling/Test.cls.xml
===================================================================
diff -u -r57462 -r58721
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/ProductieRoute/Koppeling/Test.cls.xml	(.../Test.cls.xml)	(revision 57462)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/ProductieRoute/Koppeling/Test.cls.xml	(.../Test.cls.xml)	(revision 58721)
@@ -3,96 +3,112 @@
 <Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.ProductieRoute.Koppeling.Test">
 <Super>vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.ProductieRoute.Base</Super>
 
-<Method name="Test: Binnenlades met KoppelingType Schroef hebben ProductieRoute &apos;TeMonteren&apos; met uitzondering van VerpakkingType FlatpackV1">
+<Method name="Test: KoppelingType Schroef en VerpakkingType FlatpackV1 -&gt; ProductieRoute is OnderdelenPicking">
 <Implementation><![CDATA[
-	#dim TeAssertenVerpakkingTypes As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
-	#dim VerpakkingTypesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(##class(DOM.PM.enu.TAORVerpakkingType).ValueList())
-	#dim VerpakkingType As DOM.PM.enu.TAORVerpakkingType
-	
-	While (VerpakkingTypesIterator.HasNext()) {
-		Set VerpakkingType = VerpakkingTypesIterator.Next()
-		If ($$$Not(VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1())) {
-			Do TeAssertenVerpakkingTypes.Insert(VerpakkingType)
-		}
-	}
-	
 	Set ..IngegevenKenmerken.KoppelingType = ..Enum.KoppelingType.Schroef
-	Set ..IngegevenKenmerken.IsBinnenlade = $$$True
-	Set ..IngegevenKenmerken.FrontEindkapKleur = ..Enum.FrontEindkapKleur.AluminiumLook
+	Set ..IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1()
 	
-	Do ..AssertProductieRouteVoorVerpakkingTypes(..Enum.ProductieRoute.TeMonteren, TeAssertenVerpakkingTypes)
+	Do ..AssertProductieRoute(..IngegevenKenmerken, ..Enum.ProductieRoute.OnderdelenPicking)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Binnenlades met KoppelingType Schroef en VerpakkingType FlatpackV1 hebben ProductieRoute &apos;OnderdelenPicking&apos;">
+<Method name="Test: KoppelingType Schroef voor Binnenlades -&gt; ProductieRoute is TeMonteren">
 <Implementation><![CDATA[
-	#dim TeAssertenVerpakkingTypes As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
-	Do TeAssertenVerpakkingTypes.Insert(##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1())
-	
 	Set ..IngegevenKenmerken.KoppelingType = ..Enum.KoppelingType.Schroef
 	Set ..IngegevenKenmerken.IsBinnenlade = $$$True
-	Set ..IngegevenKenmerken.FrontEindkapKleur = ..Enum.FrontEindkapKleur.AluminiumLook
 	
-	Do ..AssertProductieRouteVoorVerpakkingTypes(..Enum.ProductieRoute.OnderdelenPicking, TeAssertenVerpakkingTypes)
+	Do ..AssertProductieRoute(..IngegevenKenmerken, ..Enum.ProductieRoute.TeMonteren)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Gemonteerde lades met KoppelingType Schroef hebben ProductieRoute &apos;TeMonteren&apos;">
+<Method name="Test: KoppelingType Schroef voor Lades indien IsGemonteerdeLade -&gt; ProductieRoute is TeMonteren">
 <Implementation><![CDATA[
 	Set ..IngegevenKenmerken.KoppelingType = ..Enum.KoppelingType.Schroef
+	Set ..IngegevenKenmerken.IsBinnenlade = $$$False
 	
-	Do ..AssertProductieRouteVoorVerpakkingTypes(..Enum.ProductieRoute.TeMonteren, ..GeefVerpakkingTypesVoorGemonteerdeLadesVolgensIngegevenKenmerken(..IngegevenKenmerken))
+	#dim IngegevenKenmerkenTypeApiStub As DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI = ##class(vhTest.Mock.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI).%New()
+	Do IngegevenKenmerkenTypeApiStub.IndienMethodCall("IsGemonteerdeLade", $$$ElkeWaarde).DanReturn($$$True)
+	
+	Set ..IngegevenKenmerkenTypeAPI = IngegevenKenmerkenTypeApiStub
+	
+	Do ..AssertProductieRoute(..IngegevenKenmerken, ..Enum.ProductieRoute.TeMonteren)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Niet-gemonteerde lades met KoppelingType Schroef hebben ProductieRoute &apos;OnderdelenPicking&apos;">
+<Method name="Test: KoppelingType Schroef voor Lades indien NIET IsGemonteerdeLade -&gt; ProductieRoute is OnderdelenPicking">
 <Implementation><![CDATA[
 	Set ..IngegevenKenmerken.KoppelingType = ..Enum.KoppelingType.Schroef
+	Set ..IngegevenKenmerken.IsBinnenlade = $$$False
 	
-	Do ..AssertProductieRouteVoorVerpakkingTypes(..Enum.ProductieRoute.OnderdelenPicking, ..GeefVerpakkingTypesVoorNietGemonteerdeLadesVolgensIngegevenKenmerken(..IngegevenKenmerken))
+	#dim IngegevenKenmerkenTypeApiStub As DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI = ##class(vhTest.Mock.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI).%New()
+	Do IngegevenKenmerkenTypeApiStub.IndienMethodCall("IsGemonteerdeLade", $$$ElkeWaarde).DanReturn($$$False)
+	
+	Set ..IngegevenKenmerkenTypeAPI = IngegevenKenmerkenTypeApiStub
+	
+	Do ..AssertProductieRoute(..IngegevenKenmerken, ..Enum.ProductieRoute.OnderdelenPicking)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Gemonteerde binnenlades met KoppelingType Drevel hebben ProductieRoute &apos;Monteren&apos;">
+<Method name="Test: KoppelingType Drevel voor Binnenlades indien IsGemonteerdeLade -&gt; ProductieRoute is TeMonteren">
 <Implementation><![CDATA[
 	Set ..IngegevenKenmerken.KoppelingType = ..Enum.KoppelingType.Drevel
 	Set ..IngegevenKenmerken.IsBinnenlade = $$$True
-	Set ..IngegevenKenmerken.FrontEindkapKleur = ..Enum.FrontEindkapKleur.AluminiumLook
 	
-	Do ..AssertProductieRouteVoorVerpakkingTypes(..Enum.ProductieRoute.TeMonteren, ..GeefVerpakkingTypesVoorGemonteerdeLadesVolgensIngegevenKenmerken(..IngegevenKenmerken))
+	#dim IngegevenKenmerkenTypeApiStub As DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI = ##class(vhTest.Mock.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI).%New()
+	Do IngegevenKenmerkenTypeApiStub.IndienMethodCall("IsGemonteerdeLade", $$$ElkeWaarde).DanReturn($$$True)
+	
+	Set ..IngegevenKenmerkenTypeAPI = IngegevenKenmerkenTypeApiStub
+	
+	Do ..AssertProductieRoute(..IngegevenKenmerken, ..Enum.ProductieRoute.TeMonteren)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Niet-gemonteerde binnenlades met KoppelingType Drevel hebben ProductieRoute &apos;OnderdelenPicking&apos;">
+<Method name="Test: KoppelingType Drevel voor Binnenlades indien NIET IsGemonteerdeLade -&gt; ProductieRoute is OnderdelenPicking">
 <Implementation><![CDATA[
 	Set ..IngegevenKenmerken.KoppelingType = ..Enum.KoppelingType.Drevel
 	Set ..IngegevenKenmerken.IsBinnenlade = $$$True
-	Set ..IngegevenKenmerken.FrontEindkapKleur = ..Enum.FrontEindkapKleur.AluminiumLook
 	
-	Do ..AssertProductieRouteVoorVerpakkingTypes(..Enum.ProductieRoute.OnderdelenPicking, ..GeefVerpakkingTypesVoorNietGemonteerdeLadesVolgensIngegevenKenmerken(..IngegevenKenmerken))
+	#dim IngegevenKenmerkenTypeApiStub As DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI = ##class(vhTest.Mock.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI).%New()
+	Do IngegevenKenmerkenTypeApiStub.IndienMethodCall("IsGemonteerdeLade", $$$ElkeWaarde).DanReturn($$$False)
+	
+	Set ..IngegevenKenmerkenTypeAPI = IngegevenKenmerkenTypeApiStub
+	
+	Do ..AssertProductieRoute(..IngegevenKenmerken, ..Enum.ProductieRoute.OnderdelenPicking)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Gemonteerde lades met KoppelingType Drevel hebben ProductieRoute &apos;OnderdelenPicking&apos;">
+<Method name="Test: KoppelingType Drevel voor Lades indien IsGemonteerdeLade -&gt; ProductieRoute is OnderdelenPicking">
 <Implementation><![CDATA[
 	Set ..IngegevenKenmerken.KoppelingType = ..Enum.KoppelingType.Drevel
+	Set ..IngegevenKenmerken.IsBinnenlade = $$$False
 	
-	Do ..AssertProductieRouteVoorVerpakkingTypes(..Enum.ProductieRoute.OnderdelenPicking, ..GeefVerpakkingTypesVoorGemonteerdeLadesVolgensIngegevenKenmerken(..IngegevenKenmerken))
+	#dim IngegevenKenmerkenTypeApiStub As DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI = ##class(vhTest.Mock.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI).%New()
+	Do IngegevenKenmerkenTypeApiStub.IndienMethodCall("IsGemonteerdeLade", $$$ElkeWaarde).DanReturn($$$True)
+	
+	Set ..IngegevenKenmerkenTypeAPI = IngegevenKenmerkenTypeApiStub
+	
+	Do ..AssertProductieRoute(..IngegevenKenmerken, ..Enum.ProductieRoute.OnderdelenPicking)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Niet-gemonteerde lades met KoppelingType Drevel en VerpakkingType FlatpackV1 hebben ProductieRoute &apos;OnderdelenPicking&apos;">
+<Method name="Test: KoppelingType Drevel voor Lades indien NIET IsGemonteerdeLade -&gt; ProductieRoute is OnderdelenPicking">
 <Implementation><![CDATA[
 	Set ..IngegevenKenmerken.KoppelingType = ..Enum.KoppelingType.Drevel
+	Set ..IngegevenKenmerken.IsBinnenlade = $$$False
 	
-	Do ..AssertProductieRouteVoorVerpakkingTypes(..Enum.ProductieRoute.OnderdelenPicking, ..GeefVerpakkingTypesVoorNietGemonteerdeLadesVolgensIngegevenKenmerken(..IngegevenKenmerken))
+	#dim IngegevenKenmerkenTypeApiStub As DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI = ##class(vhTest.Mock.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI).%New()
+	Do IngegevenKenmerkenTypeApiStub.IndienMethodCall("IsGemonteerdeLade", $$$ElkeWaarde).DanReturn($$$False)
+	
+	Set ..IngegevenKenmerkenTypeAPI = IngegevenKenmerkenTypeApiStub
+	
+	Do ..AssertProductieRoute(..IngegevenKenmerken, ..Enum.ProductieRoute.OnderdelenPicking)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefBuilder">
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFKoppelingv001).%New("")
+<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFKoppelingv001).%New("", ..IngegevenKenmerkenTypeAPI)
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFKoppelingv001.cls.xml
===================================================================
diff -u -r57462 -r58721
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFKoppelingv001.cls.xml	(.../HFKoppelingv001.cls.xml)	(revision 57462)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFKoppelingv001.cls.xml	(.../HFKoppelingv001.cls.xml)	(revision 58721)
@@ -3,6 +3,23 @@
 <Class name="DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFKoppelingv001">
 <Super>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.Generated.HFKoppelingv000</Super>
 
+<Property name="IngegevenKenmerkenTypeApi">
+<Type>DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder,IngegevenKenmerkenTypeApi:DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerkenTypeApi = $$$Inject(IngegevenKenmerkenTypeApi, ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New())
+	
+	Quit ##super(SamengesteldHalffabItemBuilder)
+]]></Implementation>
+</Method>
+
 <Method name="PostProcessHalffabItem">
 <FormalSpec><![CDATA[&HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext,&HalffabList:%ListOfObjects]]></FormalSpec>
 <Implementation><![CDATA[
@@ -29,7 +46,7 @@
 	
 	If (IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.FlatpackV1) {
 		Set ProductieRoute = ..Enum.ProductieRoute.OnderdelenPicking
-	} ElseIf (IngegevenKenmerken.IsBinnenlade || ..API.IngegevenKenmerkenTypeAPI.IsGemonteerdeLade(IngegevenKenmerken)) {
+	} ElseIf (IngegevenKenmerken.IsBinnenlade || ..IngegevenKenmerkenTypeApi.IsGemonteerdeLade(IngegevenKenmerken)) {
 		Set ProductieRoute = ..Enum.ProductieRoute.TeMonteren
 	} Else {
 		Set ProductieRoute = ..Enum.ProductieRoute.OnderdelenPicking
@@ -46,7 +63,7 @@
 <Implementation><![CDATA[
 	#dim ProductieRoute As TECH.String
 	
-	If (IngegevenKenmerken.IsBinnenlade && ..API.IngegevenKenmerkenTypeAPI.IsGemonteerdeLade(IngegevenKenmerken)) {
+	If (IngegevenKenmerken.IsBinnenlade && ..IngegevenKenmerkenTypeApi.IsGemonteerdeLade(IngegevenKenmerken)) {
 		Set ProductieRoute = ..Enum.ProductieRoute.TeMonteren	
 	} Else {
 		Set ProductieRoute = ..Enum.ProductieRoute.OnderdelenPicking