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)