Index: DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler.cls.xml
===================================================================
diff -u -r55583 -r55749
--- DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler.cls.xml	(.../BestelEenheidLosseComponentenInBulkBepaler.cls.xml)	(revision 55583)
+++ DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler.cls.xml	(.../BestelEenheidLosseComponentenInBulkBepaler.cls.xml)	(revision 55749)
@@ -37,10 +37,10 @@
 <FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>TECH.Integer</ReturnType>
 <Implementation><![CDATA[
-	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ..MaakLosseComponent(Kenmerken)
-	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = LadeOnderdeel.GeefRol()
+	;#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ..MaakLosseComponent(Kenmerken)
+	;#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = LadeOnderdeel.GeefRol()
 	
-	Quit ..GeefBestelEenheidVoorRol(Kenmerken, Rol)
+	Quit ..GeefBestelEenheidVoorRol(Kenmerken, "")
 ]]></Implementation>
 </Method>
 
@@ -63,13 +63,13 @@
 <Implementation><![CDATA[
 	#dim BestelEenheid As TECH.Integer = 0
 	
-	If (Rol = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Zijkant()) {
+	If ##class(TECH.StringUtils).Equals(Kenmerken.ProductieWijze, ##class(DOM.PM.enu.TAORProductieWijze).ZijkantLinks(), ##class(DOM.PM.enu.TAORProductieWijze).ZijkantRechts()) {
 		Set BestelEenheid = ..GeefBestelEenheidVoorZijkant(Kenmerken)
-	} ElseIf (Rol = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Rug()) {
+	} ElseIf Kenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Rug() {
 		Set BestelEenheid = ..GeefBestelEenheidVoorRug(Kenmerken)
-	} ElseIf (Rol = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Front()) {
+	} ElseIf Kenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Front() {
 		Set BestelEenheid = ..GeefBestelEenheidVoorFront(Kenmerken)
-	} ElseIf(Rol = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Bodem()) {
+	} ElseIf Kenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Bodem() {
 		Set BestelEenheid = ..GeefBestelEenheidVoorBodem(..MaakLosseComponent(Kenmerken))
 	}
 	
Index: vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler/Test.cls.xml
===================================================================
diff -u -r55583 -r55749
--- vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 55583)
+++ vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 55749)
@@ -71,6 +71,7 @@
 	
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
 	Set IngegevenKenmerken.LadeHoogte = ""
+	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).ZijkantLinks()
 	
 	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New(..GeefHalffabItem(), IngegevenKenmerken)
 	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Zijkant).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
@@ -85,6 +86,7 @@
 	
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
 	Set IngegevenKenmerken.LadeHoogte = "Onbekende LadeHoogte"
+	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).ZijkantLinks()
 	
 	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New(..GeefHalffabItem(), IngegevenKenmerken)
 	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Zijkant).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
@@ -99,6 +101,7 @@
 	
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
 	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).N()
+	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).ZijkantLinks()
 	
 	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New(..GeefHalffabItem(), IngegevenKenmerken)
 	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Zijkant).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
@@ -113,6 +116,7 @@
 	
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
 	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).M()
+	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).ZijkantLinks()
 	
 	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New(..GeefHalffabItem(), IngegevenKenmerken)
 	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Zijkant).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
@@ -127,6 +131,7 @@
 	
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
 	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).K()
+	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).ZijkantLinks()
 	
 	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New(..GeefHalffabItem(), IngegevenKenmerken)
 	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Zijkant).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
@@ -141,6 +146,7 @@
 	
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
 	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()
+	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).ZijkantLinks()
 	
 	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New(..GeefHalffabItem(), IngegevenKenmerken)
 	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Zijkant).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
@@ -155,6 +161,7 @@
 	
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
 	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).F()
+	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).ZijkantLinks()
 	
 	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New(..GeefHalffabItem(), IngegevenKenmerken)
 	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Zijkant).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
@@ -169,6 +176,7 @@
 	
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
 	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).N()
+	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Rug()
 	
 	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New(..GeefHalffabItem(), IngegevenKenmerken)
 	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Rug).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
@@ -183,6 +191,7 @@
 	
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
 	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).M()
+	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Rug()
 	
 	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New(..GeefHalffabItem(), IngegevenKenmerken)
 	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Rug).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
@@ -197,6 +206,7 @@
 	
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
 	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).K()
+	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Rug()
 	
 	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New(..GeefHalffabItem(), IngegevenKenmerken)
 	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Rug).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
@@ -211,6 +221,7 @@
 	
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
 	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()
+	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Rug()
 	
 	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New(..GeefHalffabItem(), IngegevenKenmerken)
 	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Rug).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
@@ -225,6 +236,7 @@
 	
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
 	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).F()
+	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Rug()
 	
 	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New(..GeefHalffabItem(), IngegevenKenmerken)
 	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Rug).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
@@ -239,6 +251,7 @@
 	
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
 	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).N()
+	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Front()
 	
 	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New(..GeefHalffabItem(), IngegevenKenmerken)
 	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Front).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
@@ -253,6 +266,7 @@
 	
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
 	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).M()
+	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Front()
 	
 	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New(..GeefHalffabItem(), IngegevenKenmerken)
 	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Front).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
@@ -267,6 +281,7 @@
 	
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
 	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).K()
+	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Front()
 	
 	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New(..GeefHalffabItem(), IngegevenKenmerken)
 	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Front).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
@@ -281,6 +296,7 @@
 	
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
 	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()
+	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Front()
 	
 	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New(..GeefHalffabItem(), IngegevenKenmerken)
 	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Front).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)
@@ -294,6 +310,7 @@
 	Set ..Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Bodem()
 	
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
+	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Bodem()
 	
 	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New(..GeefHalffabItem(), IngegevenKenmerken)
 	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem).%New(Lade, ..GeefHalffabItem(), IngegevenKenmerken)