Index: vhUnitTest/WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter/GeefHalffabItemsBoom/Test.cls.xml
===================================================================
diff -u -r63379 -r63436
--- vhUnitTest/WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter/GeefHalffabItemsBoom/Test.cls.xml	(.../Test.cls.xml)	(revision 63379)
+++ vhUnitTest/WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter/GeefHalffabItemsBoom/Test.cls.xml	(.../Test.cls.xml)	(revision 63436)
@@ -17,16 +17,20 @@
 <Private>1</Private>
 </Property>
 
-<Property name="RolNaamValidatorDummy">
-<Type>vhTest.Dummy.WSimpl.PM.Maatwerk.MaatwerkService.DotNet.RolNaamValidator.TrueValidator</Type>
+<Property name="RolNaamValidatorFactoryStub">
+<Type>vhTest.Mock.WSimpl.PM.Maatwerk.MaatwerkService.DotNet.RolNaamValidatorFactory</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()
+	
+	Set ..RolNaamValidatorFactoryStub = ##class(vhTest.Mock.WSimpl.PM.Maatwerk.MaatwerkService.DotNet.RolNaamValidatorFactory).%New()
+		Set RolNaamValidatorDummy = ##class(vhTest.Dummy.WSimpl.PM.Maatwerk.MaatwerkService.DotNet.RolNaamValidator.TrueValidator).%New()
+		Do ..RolNaamValidatorFactoryStub.IndienMethodCall("GeefRolNaamValidator", "UT_Rol1").DanReturn(RolNaamValidatorDummy)
+		Do ..RolNaamValidatorFactoryStub.IndienMethodCall("GeefRolNaamValidator", "HF_Sam" ).DanReturn(RolNaamValidatorDummy)
 ]]></Implementation>
 </Method>
 
@@ -38,7 +42,7 @@
 	Set Halffabrikaten.Rol = "UT_Rol1"
 	
 	// Act 
-	Set Converter = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabrikatenFromJsonNaarDomConverter).%New(,..RolNaamValidatorDummy)
+	Set Converter = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabrikatenFromJsonNaarDomConverter).%New( , ..RolNaamValidatorFactoryStub)
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Converter.GeefHalffabItemsBoom(Halffabrikaten)
 	
 	// Assert 
@@ -64,7 +68,7 @@
 	Set Halffabrikaten.Halffab.SelectieKenmerken = ##class(%ArrayOfDataTypes).%New()    ; Lege array 
 	
 	// Act 
-	Set Converter = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabrikatenFromJsonNaarDomConverter).%New(,..RolNaamValidatorDummy)
+	Set Converter = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabrikatenFromJsonNaarDomConverter).%New( , ..RolNaamValidatorFactoryStub)
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Converter.GeefHalffabItemsBoom(Halffabrikaten)
 	
 	// Assert 
@@ -102,7 +106,7 @@
 	Set Halffabrikaten.Halffab.SelectieKenmerken = SelectieKenmerken
 	
 	// Act 
-	Set Converter = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabrikatenFromJsonNaarDomConverter).%New(,..RolNaamValidatorDummy)
+	Set Converter = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabrikatenFromJsonNaarDomConverter).%New( , ..RolNaamValidatorFactoryStub)
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Converter.GeefHalffabItemsBoom(Halffabrikaten)
 	
 	// Assert 
@@ -136,7 +140,7 @@
 	Do Halffabrikaten.HalffabItems.Insert(HalffabItemStd1)
 	
 	// Act 
-	Set Converter = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabrikatenFromJsonNaarDomConverter).%New(,..RolNaamValidatorDummy)
+	Set Converter = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabrikatenFromJsonNaarDomConverter).%New( , ..RolNaamValidatorFactoryStub)
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Converter.GeefHalffabItemsBoom(Halffabrikaten)
 	
 	// Assert 
@@ -183,7 +187,7 @@
 	Do Halffabrikaten.HalffabItems.Insert(HalffabItemSamSub)
 	
 	// Act 
-	Set Converter = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabrikatenFromJsonNaarDomConverter).%New(,..RolNaamValidatorDummy)
+	Set Converter = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabrikatenFromJsonNaarDomConverter).%New( , ..RolNaamValidatorFactoryStub)
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Converter.GeefHalffabItemsBoom(Halffabrikaten)
 	
 	// Assert 
Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter.cls.xml
===================================================================
diff -u -r63432 -r63436
--- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter.cls.xml	(.../HalffabrikatenFromJsonNaarDomConverter.cls.xml)	(revision 63432)
+++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter.cls.xml	(.../HalffabrikatenFromJsonNaarDomConverter.cls.xml)	(revision 63436)
@@ -18,8 +18,8 @@
 <Private>1</Private>
 </Property>
 
-<Property name="MaatwerkRol">
-<Type>%String</Type>
+<Property name="RolNaamValidatorFactory">
+<Type>WSimpl.PM.Maatwerk.MaatwerkService.DotNet.RolNaamValidatorFactory</Type>
 <Private>1</Private>
 </Property>
 
@@ -29,15 +29,15 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>HalffabFromJsonBepaler:WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabFromJsonBepaler="",RolNaamValidator:WSimpl.PM.Maatwerk.MaatwerkService.DotNet.RolNaamValidator.IValidator=""</FormalSpec>
+<FormalSpec>HalffabFromJsonBepaler:WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabFromJsonBepaler="",RolNaamValidatorFactory:WSimpl.PM.Maatwerk.MaatwerkService.DotNet.RolNaamValidatorFactory=""</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
+	Set ..RolNaamValidatorFactory = $$$Inject(RolNaamValidatorFactory,##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.RolNaamValidatorFactory).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -47,12 +47,9 @@
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
 <Implementation><![CDATA[
 	Do ..ValideerHalffabrikaten(Halffabrikaten)
-	Set ..MaatwerkRol = Halffabrikaten.Rol
 	
-	If $$$Not($IsObject(..RolNaamValidator)) {
-		Set ..RolNaamValidator = ..GeefRolNaamValidator()
-	}
-	
+	Set ..RolNaamValidator = ..RolNaamValidatorFactory.GeefRolNaamValidator(Halffabrikaten.Rol)
+
 	Set ..HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
 	Set ..HalffabItemsBoom.Wortel = ..GeefHalffabItem(Halffabrikaten)
 	
@@ -170,25 +167,6 @@
 <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>