Index: vhDeploy/WV/Deploy20140224xVanRaemdonckPersonality.cls.xml
===================================================================
diff -u -r29059 -r36067
--- vhDeploy/WV/Deploy20140224xVanRaemdonckPersonality.cls.xml	(.../Deploy20140224xVanRaemdonckPersonality.cls.xml)	(revision 29059)
+++ vhDeploy/WV/Deploy20140224xVanRaemdonckPersonality.cls.xml	(.../Deploy20140224xVanRaemdonckPersonality.cls.xml)	(revision 36067)
@@ -18,17 +18,10 @@
 <Method name="ExecCode">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	#dim InTeStellenID As %String = ..#PersonalityID
-	
-	// Eventuele opkuis 
-	;If (##class(DOM.common.impl.Personality).%ExistsId(InTeStellenID)) { Do ##class(DOM.common.impl.Personality).%DeleteId(InTeStellenID) }
-
-	Set x = ##class(DOM.common.VanRaemdonckPersonality).%New(InTeStellenID,##class(DOM.VKP.enu.Klant).VanRaemdonck())
-	Do x.Save()
-	
-	If x.%Id()'=InTeStellenID {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("De verwachte ID ('"_InTeStellenID_"') voor de VanRaemdonckPersonality is niet gelukt (ID="_x.%Id()_"). "))
-	}
+	Do ##class(DOM.common.impl.PersonalityCreator).%New().StelInNieuwePersonality(	..#PersonalityID, 
+																					##class(DOM.common.VanRaemdonckPersonality).%ClassName($$$True), 
+																					##class(DOM.VKP.enu.Klant).VanRaemdonck()
+																				 )
 ]]></Implementation>
 </Method>
 </Class>
Index: vhDeploy/Deploy20150601xDaroPersonalityAanmaken.cls.xml
===================================================================
diff -u -r29059 -r36067
--- vhDeploy/Deploy20150601xDaroPersonalityAanmaken.cls.xml	(.../Deploy20150601xDaroPersonalityAanmaken.cls.xml)	(revision 29059)
+++ vhDeploy/Deploy20150601xDaroPersonalityAanmaken.cls.xml	(.../Deploy20150601xDaroPersonalityAanmaken.cls.xml)	(revision 36067)
@@ -18,17 +18,10 @@
 <Method name="ExecCode">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	#dim InTeStellenID As %String = ..#PersonalityID
-	
-	// Eventuele opkuis 
-	;If (##class(DOM.common.impl.Personality).%ExistsId(InTeStellenID)) { Do ##class(DOM.common.impl.Personality).%DeleteId(InTeStellenID) }
-
-	Set x = ##class(DOM.common.DaroPersonality).%New(InTeStellenID,##class(DOM.VKP.enu.Klant).DaroFactors())
-	Do x.Save()
-	
-	If x.%Id()'=InTeStellenID {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("De verwachte ID ('"_InTeStellenID_"') voor de DaroPersonality is niet gelukt (ID="_x.%Id()_"). "))
-	}
+	Do ##class(DOM.common.impl.PersonalityCreator).%New().StelInNieuwePersonality(	..#PersonalityID, 
+																					##class(DOM.common.DaroPersonality).%ClassName($$$True), 
+																					##class(DOM.VKP.enu.Klant).DaroFactors()
+																				 )
 ]]></Implementation>
 </Method>
 </Class>
Index: vhDeploy/Deploy20160718xHeinPersonalityAanmaken.cls.xml
===================================================================
diff -u -r35915 -r36067
--- vhDeploy/Deploy20160718xHeinPersonalityAanmaken.cls.xml	(.../Deploy20160718xHeinPersonalityAanmaken.cls.xml)	(revision 35915)
+++ vhDeploy/Deploy20160718xHeinPersonalityAanmaken.cls.xml	(.../Deploy20160718xHeinPersonalityAanmaken.cls.xml)	(revision 36067)
@@ -18,17 +18,10 @@
 <Method name="ExecCode">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	#dim InTeStellenID As %String = ..#PersonalityID
-	
-	// Eventuele opkuis 
-	;If (##class(DOM.common.impl.Personality).%ExistsId(InTeStellenID)) { Do ##class(DOM.common.impl.Personality).%DeleteId(InTeStellenID) }
-
-	Set x = ##class(DOM.common.HeinPersonality).%New(InTeStellenID,##class(DOM.VKP.enu.Klant).Hein())
-	Do x.Save()
-	
-	If x.%Id()'=InTeStellenID {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("De verwachte ID ('"_InTeStellenID_"') voor de HeinPersonality is niet gelukt (ID="_x.%Id()_"). "))
-	}
+	Do ##class(DOM.common.impl.PersonalityCreator).%New().StelInNieuwePersonality(	..#PersonalityID, 
+																					##class(DOM.common.HeinPersonality).%ClassName($$$True), 
+																					##class(DOM.VKP.enu.Klant).Hein()
+																				 )
 ]]></Implementation>
 </Method>
 </Class>