Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter.cls.xml
===================================================================
diff -u -r63162 -r63378
--- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter.cls.xml	(.../HalffabrikatenFromJsonNaarDomConverter.cls.xml)	(revision 63162)
+++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter.cls.xml	(.../HalffabrikatenFromJsonNaarDomConverter.cls.xml)	(revision 63378)
@@ -18,15 +18,26 @@
 <Private>1</Private>
 </Property>
 
+<Property name="MaatwerkRol">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="RolNaamValidator">
+<Type>WSimpl.PM.Maatwerk.MaatwerkService.DotNet.RolNaamValidator.IValidator</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>HalffabFromJsonBepaler:WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabFromJsonBepaler=""</FormalSpec>
+<FormalSpec>HalffabFromJsonBepaler:WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabFromJsonBepaler="",RolNaamValidator:WSimpl.PM.Maatwerk.MaatwerkService.DotNet.RolNaamValidator.IValidator=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..HalffabFromJsonBepaler = $$$Inject(HalffabFromJsonBepaler,##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabFromJsonBepaler).%New())
 	Set ..ClassnameFromJsonNaarDomConverter = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.ClassnameFromJsonNaarDomConverter).%New()
+	Set ..RolNaamValidator = RolNaamValidator
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -35,6 +46,12 @@
 <FormalSpec>Halffabrikaten:APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
 <Implementation><![CDATA[
+	Set ..MaatwerkRol = Halffabrikaten.Rol
+	
+	If $$$Not($IsObject(..RolNaamValidator)) {
+		Set ..RolNaamValidator = ..GeefRolNaamValidator()
+	}
+	
 	Set ..HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
 	Set ..HalffabItemsBoom.Wortel = ..GeefHalffabItem(Halffabrikaten)
 	
@@ -66,9 +83,6 @@
 			#dim SubHalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = ..GeefHalffabItem(SubHalffabItemParsedFromJson)
 			Do HalffabItem.VoegToe(SubHalffabItem)
 		}
-		If ($$$Not(HF.Rol = ##class(DOM.PM.enu.Variant).Merivobox())) {
-			Do ..HalffabItemsBoom.AddHalffabItem(HalffabItem)
-		}
 	}
 	ElseIf Classname = "DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem" {
 		#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(HalffabItemParsedFromJson)
@@ -86,9 +100,6 @@
 		Set HalffabItem.OpmerkingVoorProductieDocument 	= HalffabItemParsedFromJson.OpmerkingVoorProductieDocument		
 		Set HalffabItem.OpnemenInEindproduct 			= HalffabItemParsedFromJson.OpnemenInEindproduct
 		//ProductieRoute?
-		If ($$$Not(HF.Rol = "Links") && $$$Not(HF.Rol = "Rechts") && $$$Not(HF.Rol = "Probox bodemdoos") && $$$Not(HF.Rol = "Probox dekseldoos") && $$$Not(HF.Rol = "Probox pallet") && $$$Not(HF.Rol = "Probox wikkel") && $$$Not(HF.Rol = "Probox onderdelendoos") && $$$Not(HF.Rol = "Y") && $$$Not(HF.Rol = "X") && $$$Not(HF.Rol = "M") && $$$Not(HF.Rol = "Z1") && $$$Not(HF.Rol = "Z2")) {		//Wat met LiRe???
-			Do ..HalffabItemsBoom.AddHalffabItem(HalffabItem)
-		}
 	}
 	ElseIf Classname = "DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem" {
 		#dim HalffabBewerkt As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(HalffabItemParsedFromJson)
@@ -120,14 +131,14 @@
 				Do HalffabItem.ZetBewerkteDimensie(BewerkingDimensie,+(HalffabItemParsedFromJson.BewerkingDimensies.GetAt(BewerkingDimensie)))
 			}
 		}
-		
-		If ($$$Not(HF.Rol = "Y") && $$$Not(HF.Rol = "X") && $$$Not(HF.Rol = "M")) {	
-			Do ..HalffabItemsBoom.AddHalffabItem(HalffabItem)
-		} 
 	}
 	Else {
 		Do ##class(TECH.Exceptions.UnimplementedException).Throw("Geen implementatie voor halffabitem klasse '"_Classname_"'")		//InbegrepenHalffab is nog niet geimplementeerd
 	}
+
+	If (..IsRolOpTeNemenInHalffabItemsLookup(HF.Rol)) && ($IsObject(HalffabItem)) {
+		Do ..HalffabItemsBoom.AddHalffabItem(HalffabItem)
+	} 
 	
 	Quit HalffabItem
 ]]></Implementation>
@@ -140,6 +151,33 @@
 <Implementation><![CDATA[	Quit ..HalffabFromJsonBepaler.BepaalHalffab(HalffabItemParsedFromJson)
 ]]></Implementation>
 </Method>
+
+<Method name="IsRolOpTeNemenInHalffabItemsLookup">
+<FormalSpec>RolNaam:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..RolNaamValidator.ValideerRolNaam(RolNaam)
+]]></Implementation>
+</Method>
+
+<Method name="GeefRolNaamValidator">
+<Description>
+FactoryMethod : uit te breiden voor ieder nieuw Maatwerk variant, waarvan de berekening via .NET verloopt </Description>
+<Private>1</Private>
+<ReturnType>WSimpl.PM.Maatwerk.MaatwerkService.DotNet.RolNaamValidator.IValidator</ReturnType>
+<Implementation><![CDATA[
+	#dim MaatwerkRolValidator As TECH.RegisteredObject = ""
+	
+	If ..MaatwerkRol = ##class(DOM.PM.enu.Variant).Merivobox() {
+		Set MaatwerkRolValidator = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.RolNaamValidator.MvxValidator).%New()
+	}
+	Else {
+		Do ##class(TECH.Exceptions.UnimplementedException).Throw("Validatie van Rolnaam is nog niet ondersteund voor "_..MaatwerkRol)
+	}
+	
+	Quit MaatwerkRolValidator
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter/GeefHalffabItemsBoom/Test.cls.xml
===================================================================
diff -u -r63267 -r63378
--- vhUnitTest/WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter/GeefHalffabItemsBoom/Test.cls.xml	(.../Test.cls.xml)	(revision 63267)
+++ vhUnitTest/WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter/GeefHalffabItemsBoom/Test.cls.xml	(.../Test.cls.xml)	(revision 63378)
@@ -17,6 +17,19 @@
 <Private>1</Private>
 </Property>
 
+<Property name="RolNaamValidatorDummy">
+<Type>vhTest.Dummy.WSimpl.PM.Maatwerk.MaatwerkService.DotNet.RolNaamValidator.TrueValidator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..RolNaamValidatorDummy = ##class(vhTest.Dummy.WSimpl.PM.Maatwerk.MaatwerkService.DotNet.RolNaamValidator.TrueValidator).%New()
+]]></Implementation>
+</Method>
+
 <Method name="Test StandaardHalffabItem zonder Halffab">
 <Implementation><![CDATA[
 	// Assign 
@@ -25,7 +38,7 @@
 	Set Halffabrikaten.Rol = "UT_Rol1"
 	
 	// Act 
-	Set Converter = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabrikatenFromJsonNaarDomConverter).%New()
+	Set Converter = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabrikatenFromJsonNaarDomConverter).%New(,..RolNaamValidatorDummy)
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Converter.GeefHalffabItemsBoom(Halffabrikaten)
 	
 	// Assert 
@@ -51,7 +64,7 @@
 	Set Halffabrikaten.Halffab.SelectieKenmerken = ##class(%ArrayOfDataTypes).%New()    ; Lege array 
 	
 	// Act 
-	Set Converter = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabrikatenFromJsonNaarDomConverter).%New()
+	Set Converter = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabrikatenFromJsonNaarDomConverter).%New(,..RolNaamValidatorDummy)
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Converter.GeefHalffabItemsBoom(Halffabrikaten)
 	
 	// Assert 
@@ -89,7 +102,7 @@
 	Set Halffabrikaten.Halffab.SelectieKenmerken = SelectieKenmerken
 	
 	// Act 
-	Set Converter = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabrikatenFromJsonNaarDomConverter).%New()
+	Set Converter = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabrikatenFromJsonNaarDomConverter).%New(,..RolNaamValidatorDummy)
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Converter.GeefHalffabItemsBoom(Halffabrikaten)
 	
 	// Assert 
@@ -123,7 +136,7 @@
 	Do Halffabrikaten.HalffabItems.Insert(HalffabItemStd1)
 	
 	// Act 
-	Set Converter = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabrikatenFromJsonNaarDomConverter).%New()
+	Set Converter = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabrikatenFromJsonNaarDomConverter).%New(,..RolNaamValidatorDummy)
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Converter.GeefHalffabItemsBoom(Halffabrikaten)
 	
 	// Assert 
@@ -170,7 +183,7 @@
 	Do Halffabrikaten.HalffabItems.Insert(HalffabItemSamSub)
 	
 	// Act 
-	Set Converter = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabrikatenFromJsonNaarDomConverter).%New()
+	Set Converter = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabrikatenFromJsonNaarDomConverter).%New(,..RolNaamValidatorDummy)
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Converter.GeefHalffabItemsBoom(Halffabrikaten)
 	
 	// Assert 
@@ -203,6 +216,64 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="Test HalffabItemsLookup in Boom">
+<Implementation><![CDATA[
+	// Assign 
+	Set Halffabrikaten = ##class(APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson).%New()
+	Set Halffabrikaten.KlasseNaamInfo = "SamengesteldHalffabItem"
+	Set Halffabrikaten.Rol = ##class(DOM.PM.enu.Variant).Merivobox()
+
+	Set HalffabItemSamSub = ##class(APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson).%New()
+	Set HalffabItemSamSub.KlasseNaamInfo = "SamengesteldHalffabItem"
+	Set HalffabItemSamSub.Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).LadeZijkant()
+
+	Set HalffabItemStd1 = ##class(APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson).%New()
+	Set HalffabItemStd1.KlasseNaamInfo = "StandaardHalffabItem"
+	Set HalffabItemStd1.Rol = "Links"
+
+	Set HalffabItemStd2 = ##class(APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson).%New()
+	Set HalffabItemStd2.KlasseNaamInfo = "StandaardHalffabItem"
+	Set HalffabItemStd2.Rol = "Rechts"
+	
+	Set HalffabItemStd3 = ##class(APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson).%New()
+	Set HalffabItemStd3.KlasseNaamInfo = "StandaardHalffabItem"
+	Set HalffabItemStd3.Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).RugBodemSchroef()
+	
+	;Set HalffabItemStd4 = ##class(APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson).%New()
+	;Set HalffabItemStd4.KlasseNaamInfo = "InbegrepenHalffabItem"
+	;Set HalffabItemStd4.Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).RugBodemSchroef()
+	
+	Do HalffabItemSamSub.HalffabItems.Insert(HalffabItemStd1)
+	Do HalffabItemSamSub.HalffabItems.Insert(HalffabItemStd2)
+	
+	Do Halffabrikaten.HalffabItems.Insert(HalffabItemStd3)
+	;Do Halffabrikaten.HalffabItems.Insert(HalffabItemStd4)
+	Do Halffabrikaten.HalffabItems.Insert(HalffabItemSamSub)
+	
+	// Act 
+	Set Converter = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabrikatenFromJsonNaarDomConverter).%New()
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Converter.GeefHalffabItemsBoom(Halffabrikaten)
+	#dim HalffabItemsLookup As %ArrayOfObjects = HalffabItemsBoom.HalffabItems
+	
+	// Assert 
+	#dim RolNaam As %String
+	Do $$$AssertEquals(HalffabItemsLookup.Count(),2)
+	Set RolNaam = ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).LadeZijkant()
+	If $$$AssertTrue(HalffabItemsLookup.IsDefined(RolNaam),"Rolnaam "_RolNaam) {
+		Do $$$AssertEquals(HalffabItemsLookup.GetAt(RolNaam).GeefRol(), RolNaam)
+	}
+	Set RolNaam = ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).RugBodemSchroef()
+	If $$$AssertTrue(HalffabItemsLookup.IsDefined(RolNaam),"Rolnaam "_RolNaam) {
+		Do $$$AssertEquals(HalffabItemsLookup.GetAt(RolNaam).GeefRol(), RolNaam)
+	
+	}
+	
+	// Extra controles, maar eerder ter info 
+	Do $$$AssertFalse(HalffabItemsLookup.IsDefined("Links"))
+	Do $$$AssertFalse(HalffabItemsLookup.IsDefined("Rechts"))
+]]></Implementation>
+</Method>
 </Class>