Index: vhUnitTest/DOM/PM/Maatwerk/HF/CreateDataTBX.cls.xml
===================================================================
diff -u -r1467 -r1482
--- vhUnitTest/DOM/PM/Maatwerk/HF/CreateDataTBX.cls.xml	(.../CreateDataTBX.cls.xml)	(revision 1467)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/CreateDataTBX.cls.xml	(.../CreateDataTBX.cls.xml)	(revision 1482)
@@ -299,7 +299,6 @@
 	Set ClassName = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabClassNameFactory).%New().GeefHalffabKlasseNaamVoor(Rol)
 	Set Halffab=$zobjclassmethod(ClassName,"%New")
 	Set Halffab.UnID=$G(UnID,"")
-	Set Halffab.Rol=Rol
 	Set Halffab.IsSelecteerbaar=1
 	Set Halffab.ActiefVoorKlanten="A"
  ;	Set Halffab.BewerkbareProperties=""   ; %ListOfDataTypes 
Index: zTryout/WV/PM/Maatwerk/HF/HalffabImport.cls.xml
===================================================================
diff -u -r1222 -r1482
--- zTryout/WV/PM/Maatwerk/HF/HalffabImport.cls.xml	(.../HalffabImport.cls.xml)	(revision 1222)
+++ zTryout/WV/PM/Maatwerk/HF/HalffabImport.cls.xml	(.../HalffabImport.cls.xml)	(revision 1482)
@@ -144,6 +144,7 @@
 		Set SplittedKenmerken=ListForOneHalffab.GetAt(i)
 		
 		Set ClassName=..GetHFClassName(,SplittedKenmerken)
+		Do SplittedKenmerken.RemoveAt("Rol")
 		Set sc=..CreateOneHalffab(PRNr,SplittedKenmerken,ClassName)
 		Quit:($$$ISERR(sc))
 	}
@@ -159,7 +160,6 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set objHalffab=$zobjclassmethod(ClassName,"%New")
-	Do objHalffab.ProductSetObjectId(PRNr)
 	Set objHalffab.UnID=PRNr
 
 	Do:($$$Trim(InputKenmerken.GetAt("IsSelecteerbaar")="")) InputKenmerken.SetAt(0,"IsSelecteerbaar")
Index: DOM/PM/Maatwerk/Calc/HF/impl/KAD/HalffabClassNameFactory.cls.xml
===================================================================
diff -u -r1075 -r1482
--- DOM/PM/Maatwerk/Calc/HF/impl/KAD/HalffabClassNameFactory.cls.xml	(.../HalffabClassNameFactory.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/HF/impl/KAD/HalffabClassNameFactory.cls.xml	(.../HalffabClassNameFactory.cls.xml)	(revision 1482)
@@ -10,11 +10,11 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.KAD.HalffabVulling","VULLING")
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.KAD.HalffabProfiel","PROF")
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.KAD.HalffabDichting","DICHTING")
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.KAD.HalffabVulling",##class(DOM.PM.Maatwerk.Calc.HF.enu.KADRol).Vulling())
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.KAD.HalffabProfiel",##class(DOM.PM.Maatwerk.Calc.HF.enu.KADRol).Profiel())
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.KAD.HalffabDichting",##class(DOM.PM.Maatwerk.Calc.HF.enu.KADRol).Dichting())
 	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.KAD.HalffabSchroef","SCHROEF")
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.KAD.HalffabHoek","HOEK")
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.KAD.HalffabHoek",##class(DOM.PM.Maatwerk.Calc.HF.enu.KADRol).HoekVerbinder())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: vhUnitTest/DOM/PM/Maatwerk/HF/HalffabBuilder.cls.xml
===================================================================
diff -u -r1184 -r1482
--- vhUnitTest/DOM/PM/Maatwerk/HF/HalffabBuilder.cls.xml	(.../HalffabBuilder.cls.xml)	(revision 1184)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/HalffabBuilder.cls.xml	(.../HalffabBuilder.cls.xml)	(revision 1482)
@@ -65,11 +65,11 @@
 	Do HalffabTabel.VoegToeHalffab(..DataTBX.MaakHalffab("LadeZijkant",1004,"", $LB($LB("Familie","LF03"),$LB("ZijkantDesign","ZD02")) ))
 	
 	Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
-	Do SelectieKenmerken.SetAt("LadeZijkant","Rol")
 	Do SelectieKenmerken.SetAt("LF02","Familie")
 	Do SelectieKenmerken.SetAt("ZD01","ZijkantDesign")
 	
-	Set HalffabList = HalffabTabel.SelecteerHalffabrikaten(SelectieKenmerken, "Tandembox")
+	Set Builder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFLadeZijkantv001).%New("")
+	Set HalffabList = HalffabTabel.SelecteerHalffabrikaten(Builder,SelectieKenmerken, "Tandembox")
 
 	Do $$$AssertTrue($IsObject(HalffabList),"HalffabList bestaat")
 	Do $$$AssertEquals(HalffabList.Count(),2,"HalffabList bevat 2 items")
Index: vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFBodemv001.cls.xml
===================================================================
diff -u -r1074 -r1482
--- vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFBodemv001.cls.xml	(.../HFBodemv001.cls.xml)	(revision 1074)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFBodemv001.cls.xml	(.../HFBodemv001.cls.xml)	(revision 1482)
@@ -13,7 +13,6 @@
 <FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
 <Implementation><![CDATA[
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabBodem).%New()
-	Set Halffab.Rol = "BODEM"
 	Set Halffab.MateriaalType = "BODEM"
 	Set Halffab.LadeDiepte = 500
 	Set Halffab.LadeBreedte = 863
@@ -22,7 +21,6 @@
 	Do HalffabTabel.VoegToeHalffab(Halffab)
 	
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabBodem).%New()
-	Set Halffab.Rol = "BODEM"
 	Set Halffab.MateriaalType = "BODEMSTRK"
 	Set Halffab.LadeDiepte = 500
 	Set Halffab.LadeBreedte = 2840
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFInschuifElementv001.cls.xml
===================================================================
diff -u -r1075 -r1482
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFInschuifElementv001.cls.xml	(.../HFInschuifElementv001.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFInschuifElementv001.cls.xml	(.../HFInschuifElementv001.cls.xml)	(revision 1482)
@@ -88,7 +88,6 @@
 <ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
-	Do SelectieKenmerken.SetAt("INSCHUIF8","Rol")
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeVariant,"LadeVariant")
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeDiepte,"LadeDiepte")
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijwandHoogte,"ZijwandHoogte")
@@ -105,7 +104,7 @@
 
 	// HalffabList via SQL met SelectieKenmerken 
 	Set SelectieKenmerken=..GeefKenmerkenVoorExactHF(IngegevenKenmerken)
-	Set HalffabList = Context.SelecteerHalffabrikaten(SelectieKenmerken)
+	Set HalffabList = Context.SelecteerHalffabrikaten(##this,SelectieKenmerken)
 	If HalffabList.Count()>0 {
 		// Filter HalffabList 
 		; Geen verdere filtering nodig 
@@ -133,7 +132,7 @@
 	// Zoeken met inkortbaar op Lengte 
 	Set SelectieKenmerken=..GeefKenmerkenVoorExactHF(IngegevenKenmerken)
 	Do SelectieKenmerken.RemoveAt("LadeDiepte")
-	Set HalffabList = Context.SelecteerHalffabrikaten(SelectieKenmerken)
+	Set HalffabList = Context.SelecteerHalffabrikaten(##this,SelectieKenmerken)
 	  d:(..blnDebug) WL^vhDBG("Zoek op Grotere ladediepte : # "_HalffabList.Count())
 
 	// Filter HalffabList : zoek bewerkbaar op Lengte, met minimum-lengte = ExacteLengteInschuifElem 
@@ -162,7 +161,7 @@
 	// HalffabList via SQL met SelectieKenmerken 
 	Set SelectieKenmerken=..GeefKenmerkenVoorExactHF(IngegevenKenmerken)
 	Do SelectieKenmerken.SetAt(TeZoekenZijwandHoogte,"ZijwandHoogte")
-	Set HalffabList = Context.SelecteerHalffabrikaten(SelectieKenmerken)
+	Set HalffabList = Context.SelecteerHalffabrikaten(##this,SelectieKenmerken)
 
 	; Nu nog filteren op "Is hoogte bewerkbaar?" !!! 
 
@@ -194,7 +193,7 @@
 	Set SelectieKenmerken=..GeefKenmerkenVoorExactHF(IngegevenKenmerken)
 	Do SelectieKenmerken.SetAt(TeZoekenZijwandHoogte,"ZijwandHoogte")
 	Do SelectieKenmerken.RemoveAt("LadeDiepte")
-	Set HalffabList = Context.SelecteerHalffabrikaten(SelectieKenmerken)
+	Set HalffabList = Context.SelecteerHalffabrikaten(##this,SelectieKenmerken)
 
 	; Nu nog filteren op "Is hoogte bewerkbaar?" !!! 
 
Index: DOM/PM/Maatwerk/Calc/HF/impl/KAD/HalffabTabel.cls.xml
===================================================================
diff -u -r1075 -r1482
--- DOM/PM/Maatwerk/Calc/HF/impl/KAD/HalffabTabel.cls.xml	(.../HalffabTabel.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/HF/impl/KAD/HalffabTabel.cls.xml	(.../HalffabTabel.cls.xml)	(revision 1482)
@@ -6,11 +6,11 @@
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="%OnNew">
-<FormalSpec>KlantID:%String,Personality:DOM.common.Personality,ProductType:%String,PlaceHolder1:%String="",PlaceHolder2:DOM.PM.Maatwerk.Calc.HF.HalffabClassNameFactory=""</FormalSpec>
+<FormalSpec>KlantID:%String,Personality:DOM.common.Personality,ProductType:%String,PlaceHolder1:DOM.PM.Maatwerk.Calc.HF.HalffabClassNameFactory=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[	Quit ##super(KlantID,Personality,ProductType,"zTryout_WV_PM_Maatwerk_HF.HalffabKAD",##class(DOM.PM.Maatwerk.Calc.HF.impl.KAD.HalffabClassNameFactory).%New())
+<Implementation><![CDATA[	Quit ##super(KlantID,Personality,ProductType,##class(DOM.PM.Maatwerk.Calc.HF.impl.KAD.HalffabClassNameFactory).%New())
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabTabel.cls.xml
===================================================================
diff -u -r1075 -r1482
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabTabel.cls.xml	(.../HalffabTabel.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabTabel.cls.xml	(.../HalffabTabel.cls.xml)	(revision 1482)
@@ -6,11 +6,11 @@
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="%OnNew">
-<FormalSpec>KlantID:%String,Personality:DOM.common.Personality,ProductType:%String,PlaceHolder1:%String="",PlaceHolder2:DOM.PM.Maatwerk.Calc.HF.HalffabClassNameFactory=""</FormalSpec>
+<FormalSpec>KlantID:%String,Personality:DOM.common.Personality,ProductType:%String,PlaceHolder1:DOM.PM.Maatwerk.Calc.HF.HalffabClassNameFactory=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[	Quit ##super(KlantID,Personality,ProductType,"zTryout_WV_PM_Maatwerk_HF.HalffabTBX",##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabClassNameFactory).%New())
+<Implementation><![CDATA[	Quit ##super(KlantID,Personality,ProductType,##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabClassNameFactory).%New())
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFVullingv001.cls.xml
===================================================================
diff -u -r1075 -r1482
--- DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFVullingv001.cls.xml	(.../HFVullingv001.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFVullingv001.cls.xml	(.../HFVullingv001.cls.xml)	(revision 1482)
@@ -41,7 +41,6 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	// SelectieKenmerken invullen 
-	Do SelectieKenmerken.SetAt("VULLING","Rol")
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.Vulling.VullingType,"VullingSoort")
 	;Do SelectieKenmerken.SetAt("4mm","Dikte")
 ]]></Implementation>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFLadeZijkantv001.cls.xml
===================================================================
diff -u -r1075 -r1482
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFLadeZijkantv001.cls.xml	(.../HFLadeZijkantv001.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFLadeZijkantv001.cls.xml	(.../HFLadeZijkantv001.cls.xml)	(revision 1482)
@@ -32,7 +32,6 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	// SelectieKenmerken invullen
-	Do SelectieKenmerken.SetAt("LadeZijkant","Rol")
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeVariant,"LadeVariant")
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijkantDesign,"ZijkantDesign")
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeDiepte,"LadeDiepte")
Index: DOM/PM/Maatwerk/Calc/HF/impl/GlobalBasedHalffabTabel.cls.xml
===================================================================
diff -u -r1075 -r1482
--- DOM/PM/Maatwerk/Calc/HF/impl/GlobalBasedHalffabTabel.cls.xml	(.../GlobalBasedHalffabTabel.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/HF/impl/GlobalBasedHalffabTabel.cls.xml	(.../GlobalBasedHalffabTabel.cls.xml)	(revision 1482)
@@ -46,12 +46,6 @@
 <Required>1</Required>
 </Property>
 
-<Property name="HalffabSQLTableName">
-<Type>%String</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-
 <Property name="HalffabClassNameFactory">
 <Type>DOM.PM.Maatwerk.Calc.HF.HalffabClassNameFactory</Type>
 <Private>1</Private>
@@ -64,7 +58,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>KlantID:%String,Personality:DOM.common.Personality,ProductType:%String,HalffabSQLTableName:%String,HalffabClassNameFactory:DOM.PM.Maatwerk.Calc.HF.HalffabClassNameFactory</FormalSpec>
+<FormalSpec>KlantID:%String,Personality:DOM.common.Personality,ProductType:%String,HalffabClassNameFactory:DOM.PM.Maatwerk.Calc.HF.HalffabClassNameFactory</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -73,16 +67,15 @@
 	Set ..Personality=Personality
 	Set ..ProductType=ProductType
 	Set ..HalffabClassNameFactory = HalffabClassNameFactory
-	Set ..HalffabSQLTableName = HalffabSQLTableName
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="SelecteerHalffabrikaten">
-<FormalSpec>SelectieKenmerken:%ArrayOfDataTypes,Familie:%String,Datum:%Date=$Piece($H,",")</FormalSpec>
+<FormalSpec>IHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder,SelectieKenmerken:%ArrayOfDataTypes,Familie:%String,Datum:%Date=$Piece($H,",")</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
-	Set HalffabClassName = ..HalffabClassNameFactory.GeefHalffabKlasseNaamVoor(SelectieKenmerken.GetAt("Rol"))
+	Set HalffabClassName = ..HalffabClassNameFactory.GeefHalffabKlasseNaamVoor(IHalffabItemBuilder.GeefRol())
 	Set CompiledClass = ##class(%Dictionary.CompiledClass).%OpenId(HalffabClassName)
 	Set SQLTableName = CompiledClass.SqlSchemaName_"."_CompiledClass.SqlTableName
 	Set ..ResultSet=##class(DOM.PM.Maatwerk.Calc.HF.HalffabSelectorResultSet).%New(SQLTableName)
Index: vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFRugv001.cls.xml
===================================================================
diff -u -r1074 -r1482
--- vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFRugv001.cls.xml	(.../HFRugv001.cls.xml)	(revision 1074)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFRugv001.cls.xml	(.../HFRugv001.cls.xml)	(revision 1482)
@@ -13,7 +13,6 @@
 <FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
 <Implementation><![CDATA[
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabRug).%New()
-	Set Halffab.Rol = "RUG"
 	Set Halffab.MateriaalType = "RUGSTRK"
 	Set Halffab.LadeBreedte = 2840
 	Set Halffab.RugHoogte = "D"
@@ -23,7 +22,6 @@
 	Do HalffabTabel.VoegToeHalffab(Halffab)
 	
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabRug).%New()
-	Set Halffab.Rol = "RUG"
 	Set Halffab.MateriaalType = "RUGSTAAL"
 	Set Halffab.LadeBreedte = 863
 	Set Halffab.RugHoogte = "D"
Index: vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFFrontHouderv001.cls.xml
===================================================================
diff -u -r1074 -r1482
--- vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFFrontHouderv001.cls.xml	(.../HFFrontHouderv001.cls.xml)	(revision 1074)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFFrontHouderv001.cls.xml	(.../HFFrontHouderv001.cls.xml)	(revision 1482)
@@ -13,7 +13,6 @@
 <FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
 <Implementation><![CDATA[
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabFrontHouder).%New()
-	Set Halffab.Rol = "FrontHouder"
 	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()
 	Set Halffab.ZijkantDesign = "A"
 	Set Halffab.ZijwandHoogte = "C"
@@ -25,7 +24,6 @@
 	Do HalffabTabel.VoegToeHalffab(Halffab)
 	
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabFrontHouder).%New()
-	Set Halffab.Rol = "FrontHouder"
 	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()
 	Set Halffab.ZijkantDesign = "A"
 	Set Halffab.ZijwandHoogte = "C"
Index: DOM/PM/Maatwerk/Calc/HF/IHalffabItemBuilder.cls.xml
===================================================================
diff -u -r1075 -r1482
--- DOM/PM/Maatwerk/Calc/HF/IHalffabItemBuilder.cls.xml	(.../IHalffabItemBuilder.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/HF/IHalffabItemBuilder.cls.xml	(.../IHalffabItemBuilder.cls.xml)	(revision 1482)
@@ -127,7 +127,7 @@
 		Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
 		Set $ZTRAP = "FoutBereken"
 		Do ..GenereerKenmerken(IngegevenKenmerken, .SelectieKenmerken)
-		Set HalffabList = Context.SelecteerHalffabrikaten(SelectieKenmerken)
+		Set HalffabList = Context.SelecteerHalffabrikaten(##this,SelectieKenmerken)
 		Do ..FilterHalffabList(.HalffabList, IngegevenKenmerken, Context)
 		Do ..ValideerHalffabList(.HalffabList)
 		Set HalffabItem = ..GenereerHalffabItem(.HalffabList, IngegevenKenmerken, Context)
Index: vhUnitTest/DOM/PM/Maatwerk/HF/KAD/HFHoekVerbinderv001.cls.xml
===================================================================
diff -u -r1074 -r1482
--- vhUnitTest/DOM/PM/Maatwerk/HF/KAD/HFHoekVerbinderv001.cls.xml	(.../HFHoekVerbinderv001.cls.xml)	(revision 1074)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/KAD/HFHoekVerbinderv001.cls.xml	(.../HFHoekVerbinderv001.cls.xml)	(revision 1482)
@@ -13,13 +13,11 @@
 <FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
 <Implementation><![CDATA[
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.KAD.HalffabHoek).%New()
-	Set Halffab.Rol = "HOEK"
 	Set Halffab.ProfielType = "PSV"
 	Set Halffab.UnID = 254257
 	Do HalffabTabel.VoegToeHalffab(Halffab)
 	
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.KAD.HalffabHoek).%New()
-	Set Halffab.Rol = "HOEK"
 	Set Halffab.ProfielType = "PBG"
 	Set Halffab.UnID = 254258
 	Do HalffabTabel.VoegToeHalffab(Halffab)
Index: vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFInschuifElementv001.cls.xml
===================================================================
diff -u -r1074 -r1482
--- vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFInschuifElementv001.cls.xml	(.../HFInschuifElementv001.cls.xml)	(revision 1074)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFInschuifElementv001.cls.xml	(.../HFInschuifElementv001.cls.xml)	(revision 1482)
@@ -13,7 +13,6 @@
 <FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
 <Implementation><![CDATA[
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabInschuifElement).%New()
-	Set Halffab.Rol = "INSCHUIF8"
 	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()
 	Set Halffab.LadeDiepte = 500
 	Set Halffab.ZijwandHoogte = "D"
@@ -22,7 +21,6 @@
 	Do HalffabTabel.VoegToeHalffab(Halffab)
 
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabInschuifElement).%New()
-	Set Halffab.Rol = "INSCHUIF8"
 	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()
 	Set Halffab.LadeDiepte = 1050
 	Set Halffab.LadeBreedte = 1145
@@ -33,7 +31,6 @@
 	Do HalffabTabel.VoegToeHalffab(Halffab)
 	
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabInschuifElement).%New()
-	Set Halffab.Rol = "INSCHUIF8"
 	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()
 	Set Halffab.LadeDiepte = 500
 	Set Halffab.ZijwandHoogte = "D"
Index: vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFRugHouderv001.cls.xml
===================================================================
diff -u -r1074 -r1482
--- vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFRugHouderv001.cls.xml	(.../HFRugHouderv001.cls.xml)	(revision 1074)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFRugHouderv001.cls.xml	(.../HFRugHouderv001.cls.xml)	(revision 1482)
@@ -13,7 +13,6 @@
 <FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
 <Implementation><![CDATA[
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabRugHouder).%New()
-	Set Halffab.Rol = "Rughouder"
 	Set Halffab.RugHoogte = "B"
 	Set Halffab.Kleur = "SW"
 	Set Halffab.ZijwandHoogte = "B"
@@ -23,7 +22,6 @@
 	Do HalffabTabel.VoegToeHalffab(Halffab)
 	
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabRugHouder).%New()
-	Set Halffab.Rol = "Rughouder"
 	Set Halffab.RugHoogte = "B"
 	Set Halffab.Kleur = "SW"
 	Set Halffab.ZijwandHoogte = "B"
Index: vhUnitTest/DOM/PM/Maatwerk/HF/KAD/HFDichtingv001.cls.xml
===================================================================
diff -u -r1074 -r1482
--- vhUnitTest/DOM/PM/Maatwerk/HF/KAD/HFDichtingv001.cls.xml	(.../HFDichtingv001.cls.xml)	(revision 1074)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/KAD/HFDichtingv001.cls.xml	(.../HFDichtingv001.cls.xml)	(revision 1482)
@@ -13,7 +13,6 @@
 <FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
 <Implementation><![CDATA[
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.KAD.HalffabDichting).%New()
-	Set Halffab.Rol = "DICHTING"
 	Set Halffab.ProfielType = "PSV"
 	Set Halffab.Opties = "S"
 	Set Halffab.UnID = 254237
Index: DOM/PM/Maatwerk/Calc/HF/impl/InMemoryHalffabTabel.cls.xml
===================================================================
diff -u -r1075 -r1482
--- DOM/PM/Maatwerk/Calc/HF/impl/InMemoryHalffabTabel.cls.xml	(.../InMemoryHalffabTabel.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/HF/impl/InMemoryHalffabTabel.cls.xml	(.../InMemoryHalffabTabel.cls.xml)	(revision 1482)
@@ -19,11 +19,12 @@
 </Method>
 
 <Method name="SelecteerHalffabrikaten">
-<FormalSpec>SelectieKenmerken:%ArrayOfDataTypes,Familie:%String,Datum:%Date=$H</FormalSpec>
+<FormalSpec>IHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder,SelectieKenmerken:%ArrayOfDataTypes,Familie:%String,Datum:%Date=$H</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
 	Set VolledigeHalffabList=..HalffabList
-	Set GeselecteerdeHalffabList=..MaakHalffabListSelectie(VolledigeHalffabList, SelectieKenmerken)
+	Set HalffabClassNameFactory = $zobjclassmethod($Piece(IHalffabItemBuilder.%ClassName(1),".",1,7)_".HalffabClassNameFactory","%New")
+	Set GeselecteerdeHalffabList=..MaakHalffabListSelectie(VolledigeHalffabList, SelectieKenmerken, HalffabClassNameFactory.GeefHalffabKlasseNaamVoor(IHalffabItemBuilder.GeefRol()))
 	Quit GeselecteerdeHalffabList
 ]]></Implementation>
 </Method>
@@ -33,7 +34,7 @@
 Geef de lijst terug van de geselecteerde halffabrikaten 
 m.a.w. op de VolledigeHalffabList worden de SelectieKenmerken toegepast. 
 Deze method zal de VolledigeHalffabList niet wijzigen, zal alleen de items ervan aflopen. </Description>
-<FormalSpec>VolledigeHalffabList:%ListOfObjects,SelectieKenmerken:%ArrayOfDataTypes</FormalSpec>
+<FormalSpec>VolledigeHalffabList:%ListOfObjects,SelectieKenmerken:%ArrayOfDataTypes,ClassName:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
@@ -42,7 +43,7 @@
 	Set TabelIterator=##class(TECH.ListIterator).%New(VolledigeHalffabList)
 	While TabelIterator.HasNext() { 
 		Set Halffab=TabelIterator.Next()
-		If ..SelecteerVolgensKenmerken(Halffab,SelectieKenmerken) {
+		If (Halffab.%Extends(ClassName) && ..SelecteerVolgensKenmerken(Halffab,SelectieKenmerken)) {
 			Do GeselecteerdeHalffabList.Insert(Halffab)
 		}
 	}
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontRelingHouderv001.cls.xml
===================================================================
diff -u -r1075 -r1482
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontRelingHouderv001.cls.xml	(.../HFFrontRelingHouderv001.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontRelingHouderv001.cls.xml	(.../HFFrontRelingHouderv001.cls.xml)	(revision 1482)
@@ -56,7 +56,6 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	// SelectieKenmerken invullen 
-	Do SelectieKenmerken.SetAt("FrontRelingHouder","Rol")
 	;Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeVariant,"LadeVariant")
 	;Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijkantDesign,"ZijkantDesign")
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijwandHoogte,"ZijwandHoogte")
@@ -94,7 +93,7 @@
 	{
 		Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
 		Do ..GenereerKenmerken(IngegevenKenmerken, .SelectieKenmerken)
-		Set HalffabList = Context.SelecteerHalffabrikaten(SelectieKenmerken)
+		Set HalffabList = Context.SelecteerHalffabrikaten(##this,SelectieKenmerken)
 		Do ..FilterHalffabList(.HalffabList, IngegevenKenmerken, Context)
 		Do ..ValideerHalffabList(.HalffabList)
 		Set HalffabItem = ..GenereerHalffabItem(.HalffabList, IngegevenKenmerken, Context)
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabClassNameFactory.cls.xml
===================================================================
diff -u -r1075 -r1482
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabClassNameFactory.cls.xml	(.../HalffabClassNameFactory.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabClassNameFactory.cls.xml	(.../HalffabClassNameFactory.cls.xml)	(revision 1482)
@@ -10,17 +10,16 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabLadeZijkant","LadeZijkant")
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabBoxCover","BOXCOVER_VOORAAN")
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabBoxCover","BOXCOVER_ACHTER")
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabBoxCap","BOXCAP")
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabInschuifElement","INSCHUIF8")
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabFrontHouder","FrontHouder")
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabFrontRelingHouder","FrontRelingHouder")
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabBodem","BODEM")
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabRug","RUG")
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabRugHouder","Rughouder")
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabReling","RELING")
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabLadeZijkant",##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).LadeZijkant())
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabBoxCover","BoxCover")
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabBoxCap","BoxCap")
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabInschuifElement",##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).InschuifElement())
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabFrontHouder",##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).FrontHouder())
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabFrontRelingHouder",##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).FrontRelingHouder())
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabBodem",##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Bodem())
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabRug",##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Rug())
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabRugHouder",##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).RugHouder())
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabReling",##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).ZijReling())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFHoekVerbinderv001.cls.xml
===================================================================
diff -u -r1075 -r1482
--- DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFHoekVerbinderv001.cls.xml	(.../HFHoekVerbinderv001.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFHoekVerbinderv001.cls.xml	(.../HFHoekVerbinderv001.cls.xml)	(revision 1482)
@@ -37,7 +37,6 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	// SelectieKenmerken invullen 
-	Do SelectieKenmerken.SetAt("HOEK","Rol")
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.ProfielType,"ProfielType")
 ]]></Implementation>
 </Method>
Index: vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFFrontHouderv002.cls.xml
===================================================================
diff -u -r1074 -r1482
--- vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFFrontHouderv002.cls.xml	(.../HFFrontHouderv002.cls.xml)	(revision 1074)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFFrontHouderv002.cls.xml	(.../HFFrontHouderv002.cls.xml)	(revision 1482)
@@ -13,7 +13,6 @@
 <FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
 <Implementation><![CDATA[
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabFrontHouder).%New()
-	Set Halffab.Rol = "FrontHouder"
 	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()
 	Set Halffab.ZijkantDesign = "A"
 	Set Halffab.ZijwandHoogte = "C"
@@ -26,7 +25,6 @@
 	Do HalffabTabel.VoegToeHalffab(Halffab)
 	
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabFrontHouder).%New()
-	Set Halffab.Rol = "FrontHouder"
 	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()
 	Set Halffab.ZijkantDesign = "A"
 	Set Halffab.ZijwandHoogte = "C"
@@ -39,7 +37,6 @@
 	Do HalffabTabel.VoegToeHalffab(Halffab)
 	
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabFrontHouder).%New()
-	Set Halffab.Rol = "FrontHouder"
 	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()
 	Set Halffab.ZijkantDesign = "A"
 	Set Halffab.ZijwandHoogte = "C"
@@ -52,7 +49,6 @@
 	Do HalffabTabel.VoegToeHalffab(Halffab)
 	
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabFrontHouder).%New()
-	Set Halffab.Rol = "FrontHouder"
 	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()
 	Set Halffab.ZijkantDesign = "A"
 	Set Halffab.ZijwandHoogte = "C"
Index: vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFFrontRelingHouderv001.cls.xml
===================================================================
diff -u -r1074 -r1482
--- vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFFrontRelingHouderv001.cls.xml	(.../HFFrontRelingHouderv001.cls.xml)	(revision 1074)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFFrontRelingHouderv001.cls.xml	(.../HFFrontRelingHouderv001.cls.xml)	(revision 1482)
@@ -13,7 +13,6 @@
 <FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
 <Implementation><![CDATA[
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabFrontRelingHouder).%New()
-	Set Halffab.Rol = "FrontRelingHouder"
 	Set Halffab.FrontType = "B"
 	Set Halffab.Kleur = "SW"
 	Set Halffab.ZijwandHoogte = "C"
@@ -73,7 +72,6 @@
 
 	Set HalffabItemLinks=##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(Context,"Links")
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabFrontHouder).%New()
-	Set Halffab.Rol = "Links"
 	Set Halffab.UnID = 1000
 	Set Halffab.Verpakking = Verpakking
 	Set HalffabItemLinks.Halffab = Halffab
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugv001.cls.xml
===================================================================
diff -u -r1075 -r1482
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugv001.cls.xml	(.../HFRugv001.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugv001.cls.xml	(.../HFRugv001.cls.xml)	(revision 1482)
@@ -53,12 +53,11 @@
 			
 			// HalffabList via SQL met SelectieKenmerken 
 			Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
-			Do SelectieKenmerken.SetAt("RUG","Rol")
 			Do SelectieKenmerken.SetAt("RUGSTAAL","MateriaalType")
 			Do SelectieKenmerken.SetAt(IngegevenKenmerken.RugKleur,"Kleur")
 			Do SelectieKenmerken.SetAt(IngegevenKenmerken.RugHoogte,"RugHoogte")
 			Do SelectieKenmerken.SetAt(RugBreedte,"LadeBreedte")
-			Set HalffabList = Context.SelecteerHalffabrikaten(SelectieKenmerken)
+			Set HalffabList = Context.SelecteerHalffabrikaten(##this,SelectieKenmerken)
 	
 			// Filter HalffabList 
 			; Geen verdere filtering nodig   ;Do ..FilterHalffabList(.HalffabList, IngegevenKenmerken, Context)
@@ -75,11 +74,10 @@
 
 			// HalffabList via SQL met SelectieKenmerken 
 			Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
-			Do SelectieKenmerken.SetAt("RUG","Rol")
 			Do SelectieKenmerken.SetAt("RUGSTRK","MateriaalType")
 			Do SelectieKenmerken.SetAt(IngegevenKenmerken.RugKleur,"Kleur")   ; Kleur Bodem gebruiken voor houten rug! 
 			Do SelectieKenmerken.SetAt(IngegevenKenmerken.RugHoogte,"RugHoogte")
-			Set HalffabList = Context.SelecteerHalffabrikaten(SelectieKenmerken)
+			Set HalffabList = Context.SelecteerHalffabrikaten(##this,SelectieKenmerken)
 	
 			// Filter HalffabList : alleen stroken met Breedte >= Exacte RugBreedte
 			If (HalffabList.Count()>0) { 
Index: DOM/PM/Maatwerk/Calc/HF/Halffab.cls.xml
===================================================================
diff -u -r1467 -r1482
--- DOM/PM/Maatwerk/Calc/HF/Halffab.cls.xml	(.../Halffab.cls.xml)	(revision 1467)
+++ DOM/PM/Maatwerk/Calc/HF/Halffab.cls.xml	(.../Halffab.cls.xml)	(revision 1482)
@@ -11,23 +11,12 @@
 <Required>1</Required>
 </Property>
 
-<Property name="Rol">
-<Description>
-Rol overeenkomstig met de rol van de HalffabItem(Builder)s 
-    (VALUELIST = ";AK;BMB;BMM;BODEM;BODEMSP2;BODEMSTN;BODEMSTRK;BODEMSTRKSP;BODEMZIJSP;BSD;BSE;BSG;BXK;BXK8;BXKA;BXKV;CP;DWV;DWVH;FRONTB;FRONTB_ADAPT;FRONTB_KAP;FRONTB_RH;FRONTGRP;FRONTPL;FRONTRL;FRONTSTN;LA;LASP2;MAT;MATROL;MATSTRK;POSRAIL;RL;RLALU;RLH;RLTUS;RUGH;RUGPL;RUGS;RUGSP;RUGSSP2;RUGSTRK;SIFKAP;SPRUGH;STABBLOK;STABSET;STABSTANG;STABTR;TIPON;TIPONSTANG;TIPONSYNC;TUSWAND;VFF;VPH;VPO;VPP;VPV;VPZ") 
-	
-a.k.a kenmerk "BasisType"   ;-) 
-[FMA] Toch niet: rol is bv "bodem" en we werken absoluut niet met "bodemstrk, bodem, bodemsp2, bodemstrksp, etc)
-[FMA] Dit is een essentieel verschil!</Description>
-<Type>%String</Type>
-<Required>1</Required>
-</Property>
-
 <Property name="IsSelecteerbaar">
 <Description>
 a.k.a kenmerk "tB" 
 Mogelijke waarden: 0 of 1 </Description>
 <Type>%Boolean</Type>
+<InitialExpression>"0"</InitialExpression>
 <Required>1</Required>
 </Property>
 
@@ -81,16 +70,6 @@
 ]]></Implementation>
 </Method>
 
-<UDLText name="T">
-<Content><![CDATA[/***   Bitmap indices   ***/
-]]></Content>
-</UDLText>
-
-<Index name="BitIdxRol">
-<Type>bitmap</Type>
-<Properties>Rol</Properties>
-</Index>
-
 <Index name="BitIdxIsSelecteerbaar">
 <Type>bitmap</Type>
 <Properties>IsSelecteerbaar</Properties>
Index: vhUnitTest/DOM/PM/Maatwerk/HF/KAD/HFProfielv001.cls.xml
===================================================================
diff -u -r1074 -r1482
--- vhUnitTest/DOM/PM/Maatwerk/HF/KAD/HFProfielv001.cls.xml	(.../HFProfielv001.cls.xml)	(revision 1074)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/KAD/HFProfielv001.cls.xml	(.../HFProfielv001.cls.xml)	(revision 1482)
@@ -13,14 +13,12 @@
 <FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
 <Implementation><![CDATA[
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.KAD.HalffabProfiel).%New()
-	Set Halffab.Rol = "PROF"
 	Set Halffab.ProfielType = "PSV"
 	Set Halffab.Kleur = "EV"
 	Set Halffab.UnID = 254167
 	Do HalffabTabel.VoegToeHalffab(Halffab)
 	
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.KAD.HalffabProfiel).%New()
-	Set Halffab.Rol = "PROF"
 	Set Halffab.ProfielType = "PBG"
 	Set Halffab.Kleur = "EV"
 	Set Halffab.UnID = 254150
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontHouderv001.cls.xml
===================================================================
diff -u -r1075 -r1482
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontHouderv001.cls.xml	(.../HFFrontHouderv001.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontHouderv001.cls.xml	(.../HFFrontHouderv001.cls.xml)	(revision 1482)
@@ -33,7 +33,6 @@
 	/*   m.a.w. geen onderscheid tussen RELING of GLAZEN front   */
 	
 	// SelectieKenmerken invullen
-	Do SelectieKenmerken.SetAt("FrontHouder","Rol")
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeVariant,"LadeVariant")
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijkantDesign,"ZijkantDesign")
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijwandHoogte,"ZijwandHoogte")
@@ -89,7 +88,7 @@
 	{
 		Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
 		Do ..GenereerKenmerken(IngegevenKenmerken, .SelectieKenmerken)
-		Set HalffabList = Context.SelecteerHalffabrikaten(SelectieKenmerken)
+		Set HalffabList = Context.SelecteerHalffabrikaten(##this,SelectieKenmerken)
 		Do ..FilterHalffabList(.HalffabList, IngegevenKenmerken, Context)
 		Do ..ValideerHalffabList(.HalffabList)
 		Set HalffabItem = ..GenereerHalffabItem(.HalffabList, IngegevenKenmerken, Context)
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBodemv001.cls.xml
===================================================================
diff -u -r1075 -r1482
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBodemv001.cls.xml	(.../HFBodemv001.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBodemv001.cls.xml	(.../HFBodemv001.cls.xml)	(revision 1482)
@@ -51,12 +51,11 @@
 			
 			// HalffabList via SQL met SelectieKenmerken 
 			Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
-			Do SelectieKenmerken.SetAt("BODEM","Rol")
 			Do SelectieKenmerken.SetAt("BODEM","MateriaalType")
 			Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeDiepte,"LadeDiepte")
 			Do SelectieKenmerken.SetAt(IngegevenKenmerken.BodemKleur,"Kleur")
 			Do SelectieKenmerken.SetAt(BodemBreedteSQL,"LadeBreedte")
-			Set HalffabList = Context.SelecteerHalffabrikaten(SelectieKenmerken)
+			Set HalffabList = Context.SelecteerHalffabrikaten(##this,SelectieKenmerken)
 	
 			// Filter HalffabList 
 			; Geen verdere filtering nodig   ;Do ..FilterHalffabList(.HalffabList, IngegevenKenmerken, Context)
@@ -73,11 +72,10 @@
 
 			// HalffabList via SQL met SelectieKenmerken 
 			Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
-			Do SelectieKenmerken.SetAt("BODEM","Rol")
 			Do SelectieKenmerken.SetAt("BODEMSTRK","MateriaalType")
 			Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeDiepte,"LadeDiepte")
 			Do SelectieKenmerken.SetAt(IngegevenKenmerken.BodemKleur,"Kleur")
-			Set HalffabList = Context.SelecteerHalffabrikaten(SelectieKenmerken)
+			Set HalffabList = Context.SelecteerHalffabrikaten(##this,SelectieKenmerken)
 	
 			// Filter HalffabList : alleen stroken met Breedte >= Exacte BodemBreedte
 			If (HalffabList.Count()>0) { 
Index: DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFProfielv001.cls.xml
===================================================================
diff -u -r1075 -r1482
--- DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFProfielv001.cls.xml	(.../HFProfielv001.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFProfielv001.cls.xml	(.../HFProfielv001.cls.xml)	(revision 1482)
@@ -37,7 +37,6 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	// SelectieKenmerken invullen 
-	Do SelectieKenmerken.SetAt("PROF","Rol")   ; ..Rol="Profiel"
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.ProfielType,"ProfielType")
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.ProfielAfwerking,"Kleur")
 ]]></Implementation>
Index: DOM/PM/Maatwerk/Calc/HF/IHalffabTabel.cls.xml
===================================================================
diff -u -r1075 -r1482
--- DOM/PM/Maatwerk/Calc/HF/IHalffabTabel.cls.xml	(.../IHalffabTabel.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/HF/IHalffabTabel.cls.xml	(.../IHalffabTabel.cls.xml)	(revision 1482)
@@ -28,7 +28,7 @@
 
 <Method name="SelecteerHalffabrikaten">
 <Abstract>1</Abstract>
-<FormalSpec>SelectieKenmerken:%ArrayOfDataTypes,Familie:%String,Datum:%Date</FormalSpec>
+<FormalSpec>IHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder,SelectieKenmerken:%ArrayOfDataTypes,Familie:%String,Datum:%Date</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[	
 ]]></Implementation>
Index: vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFLadeZijkantv001.cls.xml
===================================================================
diff -u -r1074 -r1482
--- vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFLadeZijkantv001.cls.xml	(.../HFLadeZijkantv001.cls.xml)	(revision 1074)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFLadeZijkantv001.cls.xml	(.../HFLadeZijkantv001.cls.xml)	(revision 1482)
@@ -9,7 +9,6 @@
 <FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
 <Implementation><![CDATA[
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabLadeZijkant).%New()
-	Set Halffab.Rol = "LadeZijkant"
 	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus()
 	Set Halffab.ZijkantDesign = "S"
 	Set Halffab.LadeDiepte = 500
@@ -22,7 +21,6 @@
 	Do HalffabTabel.VoegToeHalffab(Halffab)
 	
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabLadeZijkant).%New()
-	Set Halffab.Rol = "LadeZijkant"
 	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus()
 	Set Halffab.ZijkantDesign = "S"
 	Set Halffab.LadeDiepte = 450
@@ -35,7 +33,6 @@
 	Do HalffabTabel.VoegToeHalffab(Halffab)
 	
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabLadeZijkant).%New()
-	Set Halffab.Rol = "LadeZijkant"
 	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus()
 	Set Halffab.ZijkantDesign = "S"
 	Set Halffab.LadeDiepte = 450
Index: DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFDichtingv001.cls.xml
===================================================================
diff -u -r1075 -r1482
--- DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFDichtingv001.cls.xml	(.../HFDichtingv001.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFDichtingv001.cls.xml	(.../HFDichtingv001.cls.xml)	(revision 1482)
@@ -46,7 +46,6 @@
 	Set Opties=$S(IngegevenKenmerken.Vulling.VullingType?1(1"NY",1"MC",1"MP"):"D",1:"S")
 
 	// SelectieKenmerken invullen 
-	Do SelectieKenmerken.SetAt("DICHTING","Rol")
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.ProfielType,"ProfielType")
 	Do SelectieKenmerken.SetAt(Opties,"Opties")   ; S of D
 ]]></Implementation>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugHouderv001.cls.xml
===================================================================
diff -u -r1075 -r1482
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugHouderv001.cls.xml	(.../HFRugHouderv001.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugHouderv001.cls.xml	(.../HFRugHouderv001.cls.xml)	(revision 1482)
@@ -32,7 +32,6 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	// SelectieKenmerken invullen
-	Do SelectieKenmerken.SetAt("Rughouder","Rol")
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.RugHouderKleur,"Kleur")
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijwandHoogte,"ZijwandHoogte")
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.RugHoogte,"RugHoogte")
Index: vhUnitTest/DOM/PM/Maatwerk/HF/KAD/HFVullingv001.cls.xml
===================================================================
diff -u -r1074 -r1482
--- vhUnitTest/DOM/PM/Maatwerk/HF/KAD/HFVullingv001.cls.xml	(.../HFVullingv001.cls.xml)	(revision 1074)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/KAD/HFVullingv001.cls.xml	(.../HFVullingv001.cls.xml)	(revision 1482)
@@ -13,7 +13,6 @@
 <FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
 <Implementation><![CDATA[
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.KAD.HalffabVulling).%New()
-	Set Halffab.Rol = "VULLING"
 	Set Halffab.VullingSoort = "FG"
 	Set Halffab.UnID = 598305
 	Do HalffabTabel.VoegToeHalffab(Halffab)
Index: TECH/DateTime.cls.xml
===================================================================
diff -u -r1108 -r1482
--- TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 1108)
+++ TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 1482)
@@ -52,6 +52,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaxDate">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[	Quit 2980013
+]]></Implementation>
+</Method>
+
 <Method name="CurrentTime">
 <ClassMethod>1</ClassMethod>
 <ReturnType>%Time</ReturnType>
Index: DOM/PM/Maatwerk/Calc/HF/HalffabContext.cls.xml
===================================================================
diff -u -r1184 -r1482
--- DOM/PM/Maatwerk/Calc/HF/HalffabContext.cls.xml	(.../HalffabContext.cls.xml)	(revision 1184)
+++ DOM/PM/Maatwerk/Calc/HF/HalffabContext.cls.xml	(.../HalffabContext.cls.xml)	(revision 1482)
@@ -80,9 +80,9 @@
 </Method>
 
 <Method name="SelecteerHalffabrikaten">
-<FormalSpec>SelectieKenmerken:%ArrayOfDataTypes</FormalSpec>
+<FormalSpec>IHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder,SelectieKenmerken:%ArrayOfDataTypes</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[	Quit ..HalffabTabel.SelecteerHalffabrikaten(SelectieKenmerken,..Familie,$Piece($H,","))
+<Implementation><![CDATA[	Quit ..HalffabTabel.SelecteerHalffabrikaten(IHalffabItemBuilder, SelectieKenmerken,..Familie,$Piece($H,","))
 ]]></Implementation>
 </Method>