Index: DOM/PM/Maatwerk/Calc/HF/impl/KenmerkVervanger.cls.xml
===================================================================
diff -u -r31557 -r31595
--- DOM/PM/Maatwerk/Calc/HF/impl/KenmerkVervanger.cls.xml	(.../KenmerkVervanger.cls.xml)	(revision 31557)
+++ DOM/PM/Maatwerk/Calc/HF/impl/KenmerkVervanger.cls.xml	(.../KenmerkVervanger.cls.xml)	(revision 31595)
@@ -23,6 +23,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KlasseNaam">
+<Type>TECH.String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="QueryAPI">
 <Type>TECH.Query.QueryAPI</Type>
 <Private>1</Private>
@@ -45,21 +50,35 @@
 <Method name="Vervang">
 <FormalSpec>Settings:DOM.PM.Maatwerk.Calc.HF.impl.KenmerkVervangerSettings</FormalSpec>
 <Implementation><![CDATA[
-    Do ..ValideerInput(Settings.KlasseNaam, Settings.KenmerkNaamOud, Settings.KenmerkNaamNieuw)
+	Set ..KlasseNaam = ..GeefKlasseNaam(Settings.Rol)
+	
+    Do ..ValideerInput(..KlasseNaam, Settings.KenmerkNaamOud, Settings.KenmerkNaamNieuw)
+    Do ..ZetFakeEventRaiser()
     Do ..MaakNieuweMetaDefinitie(Settings.KenmerkGroep, Settings.KenmerkNaamOud, Settings.KenmerkNaamNieuw)
 
-    Set ..DataLocation = ..GeefDataLocation(Settings.KlasseNaam)
+    Set ..DataLocation = ..GeefDataLocation(..KlasseNaam)
     Set ..PropertyIndex = Settings.PropertyIndex
     Set ..ConvertScript = Settings.ConversieScript
     
-    Do ..PasAanHalffabs(Settings.KlasseNaam)
+    Do ..PasAanHalffabs(..KlasseNaam)
     Do ..PasAanDataDefinitie(Settings.KenmerkGroep, Settings.KenmerkNaamOud, Settings.KenmerkNaamNieuw)
     Do ..VerwijderOudeMetaDefinitie(Settings.KenmerkGroep, Settings.KenmerkNaamOud)
-    
-    Do ..UpdateMetadata()
+    Do ..UpdateMetadata(Settings.Rol)
+    Do ..VerwijderFakeEventRaiser()
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlasseNaam">
+<FormalSpec>Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim HalffabClassNameFactory As DOM.PM.Maatwerk.Calc.HF.HalffabClassNameFactory = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabClassNameFactory).%New()
+	
+	Quit HalffabClassNameFactory.GeefHalffabKlasseNaamVoor(Rol)
+]]></Implementation>
+</Method>
+
 <Method name="ValideerInput">
 <FormalSpec>KlasseNaam:TECH.String,KenmerkNaamOud:TECH.String,KenmerkNaamNieuw:TECH.String</FormalSpec>
 <Private>1</Private>
@@ -74,6 +93,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetFakeEventRaiser">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ##class(TECH.Context).Instance().PushPubSubAPIClassName(##class(vhTest.Fake.TECH.PubSub.impl.PubSubAPI).%ClassName(1))
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderFakeEventRaiser">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ##class(TECH.Context).Instance().PopPubSubAPIClassName()
+]]></Implementation>
+</Method>
+
 <Method name="MaakNieuweMetaDefinitie">
 <FormalSpec>KenmerkGroep:TECH.String,KenmerkNaamOud:TECH.String,KenmerkNaamNieuw:TECH.String</FormalSpec>
 <Private>1</Private>
@@ -173,8 +204,9 @@
 </Method>
 
 <Method name="UpdateMetadata">
+<FormalSpec>Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Do ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.TaorboxInitializer).%New().KenmerkGroepVoorRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).DiepteVerstelling(), $$$False)
+<Implementation><![CDATA[	Do ##class(APPS.PM.Maatwerk.MaatwerkModel.Modellen.TaorboxInitializer).%New().KenmerkGroepVoorRol(Rol, $$$False)
 ]]></Implementation>
 </Method>