Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/ProductieRoute/Koppeling/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/ProductieRoute/Koppeling/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/ProductieRoute/Koppeling/Test.cls.xml	(revision 31895)
@@ -0,0 +1,90 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<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;">
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerken.KoppelingType = ..Enum.KoppelingType.Schroef
+	Set ..IngegevenKenmerken.IsBinnenlade = $$$True
+	Set ..IngegevenKenmerken.FrontEindkapKleur = ..Enum.FrontEindkapKleur.AluminiumLook
+	
+	Do ..AssertProductieRouteVoorVerpakkingType(..Enum.ProductieRoute.TeMonteren, ..Enum.VerpakkingType.V1)
+	Do ..AssertProductieRouteVoorVerpakkingType(..Enum.ProductieRoute.TeMonteren, ..Enum.VerpakkingType.Probox)
+	Do ..AssertProductieRouteVoorVerpakkingType(..Enum.ProductieRoute.TeMonteren, ..Enum.VerpakkingType.FlatpackV1)
+	Do ..AssertProductieRouteVoorVerpakkingType(..Enum.ProductieRoute.TeMonteren, ..Enum.VerpakkingType.BulkPerOnderdeelGegroepeerd)
+	Do ..AssertProductieRouteVoorVerpakkingType(..Enum.ProductieRoute.TeMonteren, ..Enum.VerpakkingType.LosseComponentenInBulk)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Gemonteerde lades met KoppelingType Schroef hebben ProductieRoute &apos;TeMonteren&apos;">
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerken.KoppelingType = ..Enum.KoppelingType.Schroef
+	
+	Do ..AssertProductieRouteVoorVerpakkingType(..Enum.ProductieRoute.TeMonteren, ..Enum.VerpakkingType.V1)
+	Do ..AssertProductieRouteVoorVerpakkingType(..Enum.ProductieRoute.TeMonteren, ..Enum.VerpakkingType.Probox)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Niet-gemonteerde lades met KoppelingType Schroef hebben ProductieRoute &apos;OnderdelenPicking&apos;">
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerken.KoppelingType = ..Enum.KoppelingType.Schroef
+	
+	Do ..AssertProductieRouteVoorVerpakkingType(..Enum.ProductieRoute.OnderdelenPicking, ..Enum.VerpakkingType.FlatpackV1)
+	Do ..AssertProductieRouteVoorVerpakkingType(..Enum.ProductieRoute.OnderdelenPicking, ..Enum.VerpakkingType.BulkPerOnderdeelGegroepeerd)
+	Do ..AssertProductieRouteVoorVerpakkingType(..Enum.ProductieRoute.OnderdelenPicking, ..Enum.VerpakkingType.LosseComponentenInBulk)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Gemonteerde binnenlades met KoppelingType Drevel hebben ProductieRoute &apos;Monteren&apos;">
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerken.KoppelingType = ..Enum.KoppelingType.Drevel
+	Set ..IngegevenKenmerken.IsBinnenlade = $$$True
+	Set ..IngegevenKenmerken.FrontEindkapKleur = ..Enum.FrontEindkapKleur.AluminiumLook
+	
+	Do ..AssertProductieRouteVoorVerpakkingType(..Enum.ProductieRoute.TeMonteren, ..Enum.VerpakkingType.V1)
+	Do ..AssertProductieRouteVoorVerpakkingType(..Enum.ProductieRoute.TeMonteren, ..Enum.VerpakkingType.Probox)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Niet-gemonteerde binnenlades met KoppelingType Drevel hebben ProductieRoute &apos;OnderdelenPicking&apos;">
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerken.KoppelingType = ..Enum.KoppelingType.Drevel
+	Set ..IngegevenKenmerken.IsBinnenlade = $$$True
+	Set ..IngegevenKenmerken.FrontEindkapKleur = ..Enum.FrontEindkapKleur.AluminiumLook
+	
+	Do ..AssertProductieRouteVoorVerpakkingType(..Enum.ProductieRoute.OnderdelenPicking, ..Enum.VerpakkingType.FlatpackV1)
+	Do ..AssertProductieRouteVoorVerpakkingType(..Enum.ProductieRoute.OnderdelenPicking, ..Enum.VerpakkingType.BulkPerOnderdeelGegroepeerd)
+	Do ..AssertProductieRouteVoorVerpakkingType(..Enum.ProductieRoute.OnderdelenPicking, ..Enum.VerpakkingType.LosseComponentenInBulk)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Gemonteerde lades met KoppelingType Drevel hebben ProductieRoute &apos;OnderdelenPicking&apos;">
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerken.KoppelingType = ..Enum.KoppelingType.Drevel
+	
+	Do ..AssertProductieRouteVoorVerpakkingType(..Enum.ProductieRoute.OnderdelenPicking, ..Enum.VerpakkingType.V1)
+	Do ..AssertProductieRouteVoorVerpakkingType(..Enum.ProductieRoute.OnderdelenPicking, ..Enum.VerpakkingType.Probox)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Niet-gemonteerde lades met KoppelingType Drevel en VerpakkingType FlatpackV1 hebben ProductieRoute &apos;OnderdelenPicking&apos;">
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerken.KoppelingType = ..Enum.KoppelingType.Drevel
+	
+	Do ..AssertProductieRouteVoorVerpakkingType(..Enum.ProductieRoute.OnderdelenPicking, ..Enum.VerpakkingType.FlatpackV1)
+	Do ..AssertProductieRouteVoorVerpakkingType(..Enum.ProductieRoute.OnderdelenPicking, ..Enum.VerpakkingType.BulkPerOnderdeelGegroepeerd)
+	Do ..AssertProductieRouteVoorVerpakkingType(..Enum.ProductieRoute.OnderdelenPicking, ..Enum.VerpakkingType.LosseComponentenInBulk)
+]]></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>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFKoppelingv001.cls.xml
===================================================================
diff -u -r31860 -r31895
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFKoppelingv001.cls.xml	(.../HFKoppelingv001.cls.xml)	(revision 31860)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFKoppelingv001.cls.xml	(.../HFKoppelingv001.cls.xml)	(revision 31895)
@@ -4,23 +4,49 @@
 <Super>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.Generated.HFKoppelingv000</Super>
 
 <Method name="PostProcessHalffabItem">
-<FormalSpec><![CDATA[&HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext,&HalffabList:%ListOfObjects]]></FormalSpec>
+<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[
 	Do ##super(HalffabItem, IngegevenKenmerken, Context, HalffabList)
 
-	If (..IsTeMonterenOpBodem(IngegevenKenmerken)) {
-		Set HalffabItem.ProductieRoute = ..Enum.ProductieRoute.TeMonteren
+	If (IngegevenKenmerken.KoppelingType = ..Enum.KoppelingType.Schroef) {
+		Set HalffabItem.ProductieRoute = ..GeefProductieRouteVoorKoppelingTypeSchroef(IngegevenKenmerken)
+	} ElseIf (IngegevenKenmerken.KoppelingType = ..Enum.KoppelingType.Drevel) {
+		Set HalffabItem.ProductieRoute = ..GeefProductieRouteVoorKoppelingTypeDrevel(IngegevenKenmerken)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductieRouteVoorKoppelingTypeSchroef">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductieRoute As TECH.String
+	
+	If (IngegevenKenmerken.IsBinnenlade || ..API.IngegevenKenmerkenTypeAPI.IsGemonteerdeLade(IngegevenKenmerken)) {
+		Set ProductieRoute = ..Enum.ProductieRoute.TeMonteren
 	} Else {
-		Set HalffabItem.ProductieRoute = ..Enum.ProductieRoute.OnderdelenPicking
+		Set ProductieRoute = ..Enum.ProductieRoute.OnderdelenPicking
 	}
+	
+	Quit ProductieRoute
 ]]></Implementation>
 </Method>
 
-<Method name="IsTeMonterenOpBodem">
-<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Method name="GeefProductieRouteVoorKoppelingTypeDrevel">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
 <Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (TAORKenmerken.IsBinnenlade || (TAORKenmerken.KoppelingType = ..Enum.KoppelingType.Schroef))
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductieRoute As TECH.String
+	
+	If (IngegevenKenmerken.IsBinnenlade && ..API.IngegevenKenmerkenTypeAPI.IsGemonteerdeLade(IngegevenKenmerken)) {
+		Set ProductieRoute = ..Enum.ProductieRoute.TeMonteren	
+	} Else {
+		Set ProductieRoute = ..Enum.ProductieRoute.OnderdelenPicking	
+	} 
+
+	Quit ProductieRoute
 ]]></Implementation>
 </Method>
 </Class>