Index: DOM/PM/Maatwerk/Calc/HF/impl/Processor/GeneratorBewerktHalffabItem.cls.xml
===================================================================
diff -u -r29059 -r29124
--- DOM/PM/Maatwerk/Calc/HF/impl/Processor/GeneratorBewerktHalffabItem.cls.xml	(.../GeneratorBewerktHalffabItem.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/Calc/HF/impl/Processor/GeneratorBewerktHalffabItem.cls.xml	(.../GeneratorBewerktHalffabItem.cls.xml)	(revision 29124)
@@ -3,13 +3,41 @@
 <Class name="DOM.PM.Maatwerk.Calc.HF.impl.Processor.GeneratorBewerktHalffabItem">
 <Super>%RegisteredObject</Super>
 
+<Property name="HalffabItemClassName">
+<Type>TECH.ClassName</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..HalffabItemClassName = "DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem"
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="HalffabItemClassNameSet">
+<FormalSpec>ClassName:TECH.ClassName</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	do ##class(TECH.ClassName).Validate(ClassName)
+	set i%HalffabItemClassName = ClassName
+	quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GenereerHalffabItem">
 <FormalSpec><![CDATA[&HalffabList:%ListOfObjects,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext,BuilderRol:%String]]></FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabItem</ReturnType>
 <Implementation><![CDATA[
 	// HalffabItem maken op basis van het "uniek-geselecteerde" Halffab
 	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = HalffabList.GetNext("")
-	Set HalffabItem=##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%New(Context, BuilderRol, Halffab)
+	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem = $classmethod(..HalffabItemClassName,"%New",Context, BuilderRol, Halffab)
 	Set HalffabItem.Aantal=1
 	Set HalffabItem.TeBekomenAantal = 1
 	Quit HalffabItem