Index: APPS/VKP/Maatwerk/ConfiguratorService.cls.xml
===================================================================
diff -u -r2253 -r2302
--- APPS/VKP/Maatwerk/ConfiguratorService.cls.xml	(.../ConfiguratorService.cls.xml)	(revision 2253)
+++ APPS/VKP/Maatwerk/ConfiguratorService.cls.xml	(.../ConfiguratorService.cls.xml)	(revision 2302)
@@ -75,13 +75,8 @@
 <Method name="BewaarIngegevenKenmerken">
 <FormalSpec>GebruikerID:%String,Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Pad:APPS.VKP.Maatwerk.dto.Pad,Naam:%String,MagOverschrijven:%Boolean</FormalSpec>
 <Implementation><![CDATA[
-	Set Gebruiker = ##class(DOM.common.Gebruiker).%OpenId(GebruikerID)
+	Set Gebruiker = ##class(DOM.DomeinContext).Instance().GeefGebruikerAPI().GeefGebruiker(GebruikerID)
 	
-	If ('$IsObject(Gebruiker))
-	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Gebruiker "_GebruikerID_" bestaat niet"))
-	}
-	
 	If ($Length(Naam) = 0)
 	{
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen naam opgegeven om de kenmerken op te slaan"))
@@ -124,15 +119,11 @@
 <Implementation><![CDATA[
 	Set BewaardeIngegevenKenmerken = ##class(APPS.VKP.Maatwerk.dto.BewaardeIngegevenKenmerken).%New()
 	
-	Set Gebruiker = ##class(DOM.common.Gebruiker).%OpenId(GebruikerID)
+	Set GebruikerAPI = ##class(DOM.DomeinContext).Instance().GeefGebruikerAPI()
+	Set Gebruiker = GebruikerAPI.GeefGebruiker(GebruikerID)
 	
-	If ('$IsObject(Gebruiker))
-	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Gebruiker "_GebruikerID_" bestaat niet"))
-	}
-	
 	Set KlantVanHoecke = ##class(DOM.DomeinContext).Instance().GeefKlantAPI().GeefKlantVanHoecke()
-	If ((Gebruiker.GeefKlantRelatie().%Id() = KlantVanHoecke.GeefNummer()))
+	If (Gebruiker.GeefGebruikerBeheerder().%Extends("DOM.common.VanHoeckeGebruikerBeheerder"))
 	{
 		Set UserID = $$USERID^vhUSER(Gebruiker.GeefCode())
 		If (($$IsGroep^vhUSER(UserID,"ICT") || $$IsGroep^vhUSER(UserID,"PM") || $$IsGroep^vhUSER(UserID,"OV")))
@@ -152,14 +143,14 @@
 		Else
 		{
 			Set ResultSet = ##class(%ResultSet).%New()
-			Do ResultSet.Prepare("SELECT ID FROM APPS_VKP_Maatwerk_impl.TemplateExternPad WHERE Gebruiker = ?")
+			Do ResultSet.Prepare("SELECT ID FROM APPS_VKP_Maatwerk_impl.TemplateExternPad WHERE GebruikerID = ?")
 			Do ResultSet.Execute(GebruikerID)
 		}
 	}
 	Else
 	{
 		Set ResultSet = ##class(%ResultSet).%New()
-		Do ResultSet.Prepare("SELECT ID FROM APPS_VKP_Maatwerk_impl.TemplateExternPad WHERE Gebruiker = ?")
+		Do ResultSet.Prepare("SELECT ID FROM APPS_VKP_Maatwerk_impl.TemplateExternPad WHERE GebruikerID = ?")
 		Do ResultSet.Execute(GebruikerID)
 	}
 	While (ResultSet.Next())
@@ -179,7 +170,7 @@
 		{
 			Set BewaardeKenmerkenImpl = BewaardeKenmerkenIterator.Next()
 			Set BewaardeKenmerken = ##class(APPS.VKP.Maatwerk.dto.BewaardeKenmerken).%New()
-			Set BewaardeKenmerken.Eigenaar = ##class(APPS.common.DataService).%New().GeefGebruikerData(BewaardeKenmerkenImpl.GeefEigenaar().%Id())
+			Set BewaardeKenmerken.Eigenaar = ##class(APPS.common.DataService).%New().GeefGebruikerData(BewaardeKenmerkenImpl.GeefEigenaar().GeefID())
 			Set BewaardeKenmerken.Familie = BewaardeKenmerkenImpl.GeefFamilie()
 			Set BewaardeKenmerken.Variant = BewaardeKenmerkenImpl.GeefVariant()
 			Set BewaardeKenmerken.Naam = BewaardeKenmerkenImpl.GeefNaam()