Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/ProductieRoute/DiepteVerstelling/Test.cls.xml
===================================================================
diff -u -r56972 -r58732
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/ProductieRoute/DiepteVerstelling/Test.cls.xml	(.../Test.cls.xml)	(revision 56972)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/ProductieRoute/DiepteVerstelling/Test.cls.xml	(.../Test.cls.xml)	(revision 58732)
@@ -3,87 +3,114 @@
 <Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.ProductieRoute.DiepteVerstelling.Test">
 <Super>vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.ProductieRoute.Base</Super>
 
-<Method name="Test: Binnenlades met DiepteVerstelling en SchroefKoppeling hebben geen ProductieRoute">
+<Method name="Test: SchroefKoppeling en is Binnenlade =&gt; ProductieRoute = leeg">
 <Implementation><![CDATA[
-	Set ..IngegevenKenmerken.HeeftDiepteVerstelling = $$$True
 	Set ..IngegevenKenmerken.KoppelingType = ..Enum.KoppelingType.Schroef
 	Set ..IngegevenKenmerken.IsBinnenlade = $$$True
-	Set ..IngegevenKenmerken.FrontEindkapKleur = ..Enum.FrontEindkapKleur.AluminiumLook
 	
-	Do ..AssertProductieRouteVoorVerpakkingTypes("", ##class(DOM.PM.enu.TAORVerpakkingType).ValueList())
+	Do ..AssertProductieRoute(..IngegevenKenmerken, "")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: ProductieRoute voor lades met DiepteVerstelling en meegeleverde SchroefKoppeling">
+<Method name="Test: SchroefKoppeling = meegeleverd en is GEEN Binnenlade en IsGemonteerdeLade =&gt; ProductieRoute = TeMonteren">
 <Implementation><![CDATA[
-	Set ..IngegevenKenmerken.HeeftDiepteVerstelling = $$$True
 	Set ..IngegevenKenmerken.KoppelingType = ..Enum.KoppelingType.Schroef
+	Set ..IngegevenKenmerken.HeeftDiepteVerstelling = $$$True
+	Set ..IngegevenKenmerken.IsBinnenlade = $$$False
 	
-	Do ..AssertProductieRouteVoorVerpakkingTypes(..Enum.ProductieRoute.TeMonteren, ..GeefVerpakkingTypesVoorGemonteerdeLadesVolgensIngegevenKenmerken(..IngegevenKenmerken))
-	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($$$True)
+	
+	Set ..IngegevenKenmerkenTypeAPI = IngegevenKenmerkenTypeApiStub
+	
+	Do ..AssertProductieRoute(..IngegevenKenmerken, ..Enum.ProductieRoute.TeMonteren)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: ProductieRoute voor lades met DiepteVerstelling en niet-meegeleverde SchroefKoppeling">
+<Method name="Test: SchroefKoppeling = meegeleverd en is GEEN Binnenlade en NIET IsGemonteerdeLade =&gt; ProductieRoute = OnderdelenPicking">
 <Implementation><![CDATA[
-	Set ..IngegevenKenmerken.HeeftDiepteVerstelling = $$$True
 	Set ..IngegevenKenmerken.KoppelingType = ..Enum.KoppelingType.Schroef
+	Set ..IngegevenKenmerken.HeeftDiepteVerstelling = $$$True
+	Set ..IngegevenKenmerken.IsBinnenlade = $$$False
 	
-	Do ..IngegevenKenmerken.NietMeeleveren.Insert(..Enum.NietMeeleveren.Koppeling)
+	#dim IngegevenKenmerkenTypeApiStub As DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI = ##class(vhTest.Mock.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI).%New()
+	Do IngegevenKenmerkenTypeApiStub.IndienMethodCall("IsGemonteerdeLade", $$$ElkeWaarde).DanReturn($$$False)
 	
-	Do ..AssertProductieRouteVoorVerpakkingTypes(..Enum.ProductieRoute.OnderdelenPicking, ##class(DOM.PM.enu.TAORVerpakkingType).ValueList())
+	Set ..IngegevenKenmerkenTypeAPI = IngegevenKenmerkenTypeApiStub
+	
+	Do ..AssertProductieRoute(..IngegevenKenmerken, ..Enum.ProductieRoute.OnderdelenPicking)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: ProductieRoute voor binnenlades met DiepteVerstelling en meegeleverde DrevelKoppeling">
+<Method name="Test: SchroefKoppeling = NIET meegeleverd en is GEEN Binnenlade =&gt; ProductieRoute = OnderdelenPicking">
 <Implementation><![CDATA[
+	Set ..IngegevenKenmerken.KoppelingType = ..Enum.KoppelingType.Schroef
+	Do ..IngegevenKenmerken.NietMeeleveren.Insert(..Enum.NietMeeleveren.Koppeling)
 	Set ..IngegevenKenmerken.HeeftDiepteVerstelling = $$$True
+	Set ..IngegevenKenmerken.IsBinnenlade = $$$False
+	
+	Do ..AssertProductieRoute(..IngegevenKenmerken, ..Enum.ProductieRoute.OnderdelenPicking)
+]]></Implementation>
+</Method>
+
+<Method name="Test: DrevelKoppeling = meegeleverd en IsGemonteerdeLade en is Binnenlade =&gt; ProductieRoute = TeMonteren">
+<Implementation><![CDATA[
 	Set ..IngegevenKenmerken.KoppelingType = ..Enum.KoppelingType.Drevel
+	Set ..IngegevenKenmerken.HeeftDiepteVerstelling = $$$True
 	Set ..IngegevenKenmerken.IsBinnenlade = $$$True
-	Set ..IngegevenKenmerken.FrontEindkapKleur = ..Enum.FrontEindkapKleur.AluminiumLook
 	
-	Do ..AssertProductieRouteVoorVerpakkingTypes(..Enum.ProductieRoute.TeMonteren, ..GeefVerpakkingTypesVoorGemonteerdeLadesVolgensIngegevenKenmerken(..IngegevenKenmerken))
-	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($$$True)
+	
+	Set ..IngegevenKenmerkenTypeAPI = IngegevenKenmerkenTypeApiStub
+	
+	Do ..AssertProductieRoute(..IngegevenKenmerken, ..Enum.ProductieRoute.TeMonteren)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: ProductieRoute voor niet-binnenlades met DiepteVerstelling en meegeleverde DrevelKoppeling">
+<Method name="Test: DrevelKoppeling = meegeleverd en IsGemonteerdeLade en is GEEN Binnenlade =&gt; ProductieRoute = OnderdelenPicking">
 <Implementation><![CDATA[
-	Set ..IngegevenKenmerken.HeeftDiepteVerstelling = $$$True
 	Set ..IngegevenKenmerken.KoppelingType = ..Enum.KoppelingType.Drevel
+	Set ..IngegevenKenmerken.HeeftDiepteVerstelling = $$$True
+	Set ..IngegevenKenmerken.IsBinnenlade = $$$False
 	
-	Do ..AssertProductieRouteVoorVerpakkingTypes(..Enum.ProductieRoute.OnderdelenPicking, ##class(DOM.PM.enu.TAORVerpakkingType).ValueList())
+	#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: ProductieRoute voor binnenlades met DiepteVerstelling en niet-meegeleverde DrevelKoppeling">
+<Method name="Test: DrevelKoppeling = meegeleverd en NIET IsGemonteerdeLade =&gt; ProductieRoute = OnderdelenPicking">
 <Implementation><![CDATA[
-	Set ..IngegevenKenmerken.HeeftDiepteVerstelling = $$$True
 	Set ..IngegevenKenmerken.KoppelingType = ..Enum.KoppelingType.Drevel
-	Set ..IngegevenKenmerken.IsBinnenlade = $$$True
-	Set ..IngegevenKenmerken.FrontEindkapKleur = ..Enum.FrontEindkapKleur.AluminiumLook
+	Set ..IngegevenKenmerken.HeeftDiepteVerstelling = $$$True
 	
-	Do ..IngegevenKenmerken.NietMeeleveren.Insert(..Enum.NietMeeleveren.Koppeling)
+	#dim IngegevenKenmerkenTypeApiStub As DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI = ##class(vhTest.Mock.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI).%New()
+	Do IngegevenKenmerkenTypeApiStub.IndienMethodCall("IsGemonteerdeLade", $$$ElkeWaarde).DanReturn($$$False)
 	
-	Do ..AssertProductieRouteVoorVerpakkingTypes(..Enum.ProductieRoute.OnderdelenPicking, ##class(DOM.PM.enu.TAORVerpakkingType).ValueList())
+	Set ..IngegevenKenmerkenTypeAPI = IngegevenKenmerkenTypeApiStub
+	
+	Do ..AssertProductieRoute(..IngegevenKenmerken, ..Enum.ProductieRoute.OnderdelenPicking)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: ProductieRoute voor niet-binnenlades met DiepteVerstelling en niet-meegeleverde DrevelKoppeling">
+<Method name="Test: DrevelKoppeling = NIET meegeleverd =&gt; ProductieRoute = OnderdelenPicking">
 <Implementation><![CDATA[
-	Set ..IngegevenKenmerken.HeeftDiepteVerstelling = $$$True
 	Set ..IngegevenKenmerken.KoppelingType = ..Enum.KoppelingType.Drevel
-	
 	Do ..IngegevenKenmerken.NietMeeleveren.Insert(..Enum.NietMeeleveren.Koppeling)
+	Set ..IngegevenKenmerken.HeeftDiepteVerstelling = $$$True
 	
-	Do ..AssertProductieRouteVoorVerpakkingTypes(..Enum.ProductieRoute.OnderdelenPicking, ##class(DOM.PM.enu.TAORVerpakkingType).ValueList())
+	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.HFDiepteVerstellingv001).%New("")
+<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFDiepteVerstellingv001).%New("", ..IngegevenKenmerkenTypeAPI)
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFDiepteVerstellingv001.cls.xml
===================================================================
diff -u -r31948 -r58732
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFDiepteVerstellingv001.cls.xml	(.../HFDiepteVerstellingv001.cls.xml)	(revision 31948)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFDiepteVerstellingv001.cls.xml	(.../HFDiepteVerstellingv001.cls.xml)	(revision 58732)
@@ -9,17 +9,21 @@
 <Default>HeeftDiepteVerstelling</Default>
 </Parameter>
 
+<Property name="IngegevenKenmerkenTypeApi">
+<Type>DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder</FormalSpec>
+<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[
-	Do ##super(SamengesteldHalffabItemBuilder)
-
+	Set ..IngegevenKenmerkenTypeApi = $$$Inject(IngegevenKenmerkenTypeApi, ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New())
 	Set ..AfhankelijkVan = ..AfhankelijkVan _ ..Enum.Rol.Koppeling
 	
-	Quit $$$OK
+	Quit ##super(SamengesteldHalffabItemBuilder)
 ]]></Implementation>
 </Method>
 
@@ -44,7 +48,7 @@
 	#dim ProductieRoute As TECH.String
 	
 	If ($$$Not(IngegevenKenmerken.IsBinnenlade)) {
-		If (..IsKoppelingAanwezig(IngegevenKenmerken, Context) && ..API.IngegevenKenmerkenTypeAPI.IsGemonteerdeLade(IngegevenKenmerken)) {
+		If (..IsKoppelingAanwezig(IngegevenKenmerken, Context) && ..IngegevenKenmerkenTypeApi.IsGemonteerdeLade(IngegevenKenmerken)) {
 			Set ProductieRoute = ..Enum.ProductieRoute.TeMonteren
 		} Else {
 			Set ProductieRoute = ..Enum.ProductieRoute.OnderdelenPicking
@@ -64,7 +68,7 @@
 <Implementation><![CDATA[
 	#dim ProductieRoute As TECH.String
 	
-	If (..IsKoppelingAanwezig(IngegevenKenmerken, Context) && ..API.IngegevenKenmerkenTypeAPI.IsGemonteerdeLade(IngegevenKenmerken)) {
+	If (..IsKoppelingAanwezig(IngegevenKenmerken, Context) && ..IngegevenKenmerkenTypeApi.IsGemonteerdeLade(IngegevenKenmerken)) {
 		If (IngegevenKenmerken.IsBinnenlade) {
 			Set ProductieRoute = ..Enum.ProductieRoute.TeMonteren	
 		} Else {