Index: APPS/VKP/Maatwerk/impl/StandalonePad.cls.xml
===================================================================
diff -u -r2004 -r2302
--- APPS/VKP/Maatwerk/impl/StandalonePad.cls.xml	(.../StandalonePad.cls.xml)	(revision 2004)
+++ APPS/VKP/Maatwerk/impl/StandalonePad.cls.xml	(.../StandalonePad.cls.xml)	(revision 2302)
@@ -18,14 +18,14 @@
 <Implementation><![CDATA[
 	Set BewarenToegestaan = 0
 	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())
 		Set BewarenToegestaan = $$IsGroep^vhUSER(UserID,"ICT")
 	}
 	Else
 	{
-		Set BewarenToegestaan = (..Gebruiker.%Id() = Gebruiker.%Id())
+		Set BewarenToegestaan = (..Gebruiker.GeefID() = Gebruiker.GeefID())
 	}
 	Quit BewarenToegestaan
 ]]></Implementation>
Index: DOM/common/VanHoeckeGebruikerBeheerder.cls.xml
===================================================================
diff -u
--- DOM/common/VanHoeckeGebruikerBeheerder.cls.xml	(revision 0)
+++ DOM/common/VanHoeckeGebruikerBeheerder.cls.xml	(revision 2302)
@@ -0,0 +1,9 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.common.VanHoeckeGebruikerBeheerder">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.common.GebruikerBeheerder</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+</Class>
+</Export>
Index: vhDeploy/CSC/Deploy20111007x1048.cls.xml
===================================================================
diff -u
--- vhDeploy/CSC/Deploy20111007x1048.cls.xml	(revision 0)
+++ vhDeploy/CSC/Deploy20111007x1048.cls.xml	(revision 2302)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.CSC.Deploy20111007x1048">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Kill ^APPS.VKP.Maatwerk.impl.PadI
+	Kill ^APPS.VKP.Maatwerk.impl.PadD
+	Kill ^APPS.VKP.Maa79D.GebruikerPadenD
+	Kill ^APPS.VKP.Ma79D.BewaardeKenm6BBD
+	Kill ^DOM.common.GebruikerD
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/common/impl/VanHoeckeGebruikerBeheerder.cls.xml
===================================================================
diff -u
--- DOM/common/impl/VanHoeckeGebruikerBeheerder.cls.xml	(revision 0)
+++ DOM/common/impl/VanHoeckeGebruikerBeheerder.cls.xml	(revision 2302)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.common.impl.VanHoeckeGebruikerBeheerder">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,DOM.common.VanHoeckeGebruikerBeheerder</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefEigenaar">
+<ReturnType>Derde.Klant.Klant</ReturnType>
+<Implementation><![CDATA[	Quit ##class(Derde.Klant.Klant).%OpenId(4682)
+]]></Implementation>
+</Method>
+
+<Method name="GeefGebruiker">
+<Description>
+De gebruiker id is de interne id van een medewerker. Dit zijn niet de initialen!</Description>
+<FormalSpec>GebruikerID:%String</FormalSpec>
+<ReturnType>DOM.common.Gebruiker</ReturnType>
+<Implementation><![CDATA[
+	Set Naam = $$USERNAME^vhUSER(GebruikerID,-1)
+	If (Naam = "")
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Onbestaande gebruiker id "_GebruikerID))
+	}
+	Set Code = $$USERNAME^vhUSER(GebruikerID,1)
+	
+	Quit ##class(DOM.common.impl.GebruikerImpl).%New("4682||"_GebruikerID, Code, Naam, ##this)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VKP/Maatwerk/impl/BewaardeKenmerken.cls.xml
===================================================================
diff -u -r2008 -r2302
--- APPS/VKP/Maatwerk/impl/BewaardeKenmerken.cls.xml	(.../BewaardeKenmerken.cls.xml)	(revision 2008)
+++ APPS/VKP/Maatwerk/impl/BewaardeKenmerken.cls.xml	(.../BewaardeKenmerken.cls.xml)	(revision 2302)
@@ -11,9 +11,15 @@
 <Private>1</Private>
 </Property>
 
+<Property name="EigenaarID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Eigenaar">
 <Type>DOM.common.Gebruiker</Type>
 <Private>1</Private>
+<Transient>1</Transient>
 </Property>
 
 <Property name="Naam">
@@ -34,6 +40,7 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..IKID = IKID
+	Set ..EigenaarID = Eigenaar.GeefID()
 	Set ..Eigenaar = Eigenaar
 	Set ..Naam = Naam
 	Quit $$$OK
@@ -52,6 +59,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="EigenaarGet">
+<Private>1</Private>
+<ReturnType>DOM.common.Gebruiker</ReturnType>
+<Implementation><![CDATA[
+	If ('$IsObject(i%Eigenaar))
+	{
+		Set i%Eigenaar = ##class(DOM.DomeinContext).Instance().GeefGebruikerAPI().GeefGebruiker(..EigenaarID)
+	}
+	
+	Quit i%Eigenaar
+]]></Implementation>
+</Method>
+
 <Method name="GeefNaam">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..Naam
@@ -101,7 +121,7 @@
 <Value>%%CLASSNAME</Value>
 </Value>
 <Value name="2">
-<Value>Eigenaar</Value>
+<Value>EigenaarID</Value>
 </Value>
 <Value name="3">
 <Value>IKID</Value>
Index: APPS/VKP/Maatwerk/impl/DtoToPadVisitor.cls.xml
===================================================================
diff -u -r2080 -r2302
--- APPS/VKP/Maatwerk/impl/DtoToPadVisitor.cls.xml	(.../DtoToPadVisitor.cls.xml)	(revision 2080)
+++ APPS/VKP/Maatwerk/impl/DtoToPadVisitor.cls.xml	(.../DtoToPadVisitor.cls.xml)	(revision 2302)
@@ -55,13 +55,7 @@
 <FormalSpec>GebruikerID:%String</FormalSpec>
 <ReturnType>APPS.VKP.Maatwerk.impl.GebruikerPaden</ReturnType>
 <Implementation><![CDATA[
-	Set Gebruiker = ##class(DOM.common.Gebruiker).%OpenId(GebruikerID)
-	
-	If ('$IsObject(Gebruiker))
-	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Gebruiker "_GebruikerID_" opgegeven in het pad bestaat niet"))
-	}
-	
+	Set Gebruiker = ##class(DOM.DomeinContext).Instance().GeefGebruikerAPI().GeefGebruiker(GebruikerID)
 	Quit ##class(APPS.VKP.Maatwerk.impl.PadenHelper).GeefGebruikerPaden(Gebruiker)
 ]]></Implementation>
 </Method>
Index: DOM/common/impl/GebruikerAPIimpl.cls.xml
===================================================================
diff -u
--- DOM/common/impl/GebruikerAPIimpl.cls.xml	(revision 0)
+++ DOM/common/impl/GebruikerAPIimpl.cls.xml	(revision 2302)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.common.impl.GebruikerAPIimpl">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,DOM.common.GebruikerAPI</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefGebruiker">
+<FormalSpec>GebruikerID:%String</FormalSpec>
+<ReturnType>DOM.common.Gebruiker</ReturnType>
+<Implementation><![CDATA[
+	Set GebruikerBeheerder = ""
+	Set InterneGebruikerID = ""
+	If ($Piece(GebruikerID,"||") = 4682)
+	{
+		Set GebruikerBeheerder = ##class(DOM.common.impl.VanHoeckeGebruikerBeheerder).%New()
+		Set InterneGebruikerID = $Piece(GebruikerID,"||",2)
+	}
+	
+	If ('$IsObject(GebruikerBeheerder))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen gebruikerbeheerder voor gebruiker "_GebruikerID))
+	}
+	
+	Quit GebruikerBeheerder.GeefGebruiker(InterneGebruikerID)
+]]></Implementation>
+</Method>
+
+<Method name="GeefVanHoeckeGebruikerBeheerder">
+<ReturnType>DOM.common.VanHoeckeGebruikerBeheerder</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.common.impl.VanHoeckeGebruikerBeheerder).%New()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: CHUI/Flow/ConfiguratorHelper.cls.xml
===================================================================
diff -u -r2189 -r2302
--- CHUI/Flow/ConfiguratorHelper.cls.xml	(.../ConfiguratorHelper.cls.xml)	(revision 2189)
+++ CHUI/Flow/ConfiguratorHelper.cls.xml	(.../ConfiguratorHelper.cls.xml)	(revision 2302)
@@ -29,10 +29,10 @@
 	Set Applicatie = ##class(APPS.common.dto.Applicatie).%New()
 	Set Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Intern()
 	Set Applicatie.Naam = ..#ApplicatieID
-	Set WinkelkarID = ##class(APPS.EC.Winkelkar.WinkelkarService).%New().MaakWinkelkar(Applicatie, KlantNr).WinkelkarID
-	// FMA Hardcoded gebruiker
- //	Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductWijzigenParameters).%New(KlantNr,##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen(),WinkelkarID,DocumentType,DocumentId,Familie,Variant,PRNr,LijnNr)
-	Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductWijzigenParameters).%New(KlantNr,1,WinkelkarID,DocumentType,DocumentId,Familie,Variant,PRNr,LijnNr)
+	Set WinkelkarService = ##class(APPS.EC.Winkelkar.WinkelkarService).%New()
+	Set Winkelkar = WinkelkarService.MaakWinkelkar(Applicatie, KlantNr)
+	Set Gebruiker = ##class(DOM.DomeinContext).Instance().GeefGebruikerAPI().GeefVanHoeckeGebruikerBeheerder().GeefGebruiker($$USERID^vhUSER)
+	Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductWijzigenParameters).%New(KlantNr,Gebruiker.GeefID(),Winkelkar.WinkelkarID,DocumentType,DocumentId,Familie,Variant,PRNr,LijnNr)
  	Set Status = Parameters.%Save()
  	Quit Parameters
 ]]></Implementation>
@@ -47,10 +47,10 @@
 	Set Applicatie = ##class(APPS.common.dto.Applicatie).%New()
 	Set Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Intern()
 	Set Applicatie.Naam = ..#ApplicatieID
-	Set WinkelkarID = ##class(APPS.EC.Winkelkar.WinkelkarService).%New().MaakWinkelkar(Applicatie, KlantNr).WinkelkarID
-	// FMA Hardcode gebruiker
-	//Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductToevoegenParameters).%New(KlantNr,##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen(),WinkelkarID,DocumentType,DocumentId)
-	Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductToevoegenParameters).%New(KlantNr,1,WinkelkarID,DocumentType,DocumentId)
+	Set WinkelkarService = ##class(APPS.EC.Winkelkar.WinkelkarService).%New()
+	Set Winkelkar = WinkelkarService.MaakWinkelkar(Applicatie, KlantNr)
+	Set Gebruiker = ##class(DOM.DomeinContext).Instance().GeefGebruikerAPI().GeefVanHoeckeGebruikerBeheerder().GeefGebruiker($$USERID^vhUSER)
+	Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductToevoegenParameters).%New(KlantNr,Gebruiker.GeefID(),Winkelkar.WinkelkarID,DocumentType,DocumentId)
  	Set Status = Parameters.%Save()
  	Quit Parameters
 ]]></Implementation>
Index: APPS/VKP/Maatwerk/impl/Pad.cls.xml
===================================================================
diff -u -r2057 -r2302
--- APPS/VKP/Maatwerk/impl/Pad.cls.xml	(.../Pad.cls.xml)	(revision 2057)
+++ APPS/VKP/Maatwerk/impl/Pad.cls.xml	(.../Pad.cls.xml)	(revision 2302)
@@ -13,9 +13,15 @@
 <Private>1</Private>
 </Property>
 
+<Property name="GebruikerID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Gebruiker">
 <Type>DOM.common.Gebruiker</Type>
 <Private>1</Private>
+<Transient>1</Transient>
 </Property>
 
 <Method name="%OnNew">
@@ -25,6 +31,7 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..Gebruiker = Gebruiker
+	Set ..GebruikerID = Gebruiker.GeefID()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -40,6 +47,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GebruikerGet">
+<Private>1</Private>
+<ReturnType>DOM.common.Gebruiker</ReturnType>
+<Implementation><![CDATA[
+	If ('$IsObject(i%Gebruiker))
+	{
+		Set i%Gebruiker = ##class(DOM.DomeinContext).Instance().GeefGebruikerAPI().GeefGebruiker(..GebruikerID)
+	}
+	
+	Quit i%Gebruiker
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeBewaardeKenmerken">
 <Description>
 Overschrijft eventueel bestaande kenmerken silently. Zelf de nodige zaken controleren met de andere
@@ -128,11 +148,8 @@
 <Value>%%CLASSNAME</Value>
 </Value>
 <Value name="2">
-<Value>Gebruiker</Value>
+<Value>GebruikerID</Value>
 </Value>
-<Value name="3">
-<Value>TypePad</Value>
-</Value>
 </Data>
 </Storage>
 </Class>
Index: DOM/common/impl/GebruikerImpl.cls.xml
===================================================================
diff -u
--- DOM/common/impl/GebruikerImpl.cls.xml	(revision 0)
+++ DOM/common/impl/GebruikerImpl.cls.xml	(revision 2302)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.common.impl.GebruikerImpl">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,DOM.common.Gebruiker</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="ID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Code">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Naam">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="GebruikerBeheerder">
+<Type>DOM.common.GebruikerBeheerder</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ID:%String,Code:%String,Naam:%String,GebruikerBeheerder:DOM.common.GebruikerBeheerder</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ID = ID
+	Set ..Code = Code
+	Set ..Naam = Naam
+	Set ..GebruikerBeheerder = GebruikerBeheerder
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..ID
+]]></Implementation>
+</Method>
+
+<Method name="GeefNaam">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Code
+]]></Implementation>
+</Method>
+
+<Method name="GeefCode">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Naam
+]]></Implementation>
+</Method>
+
+<Method name="GeefGebruikerBeheerder">
+<ReturnType>DOM.common.GebruikerBeheerder</ReturnType>
+<Implementation><![CDATA[	Quit ..GebruikerBeheerder
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/common/Gebruiker.cls.xml
===================================================================
diff -u -r1980 -r2302
--- DOM/common/Gebruiker.cls.xml	(.../Gebruiker.cls.xml)	(revision 1980)
+++ DOM/common/Gebruiker.cls.xml	(.../Gebruiker.cls.xml)	(revision 2302)
@@ -1,80 +1,28 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="DOM.common.Gebruiker">
-<ClassType>persistent</ClassType>
+<Abstract>1</Abstract>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%Persistent</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Property name="Naam">
-<Type>%String</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="Code">
-<Type>%String</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="KlantRelatie">
-<Type>Derde.Klant.Klant</Type>
-<Private>1</Private>
-</Property>
-
-<Method name="%OnNew">
-<FormalSpec>Naam:%String,Code:%String,KlantRelatie:Derde.Klant.Klant</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..Naam = Naam
-	Set ..Code = Code
-	Set ..KlantRelatie = KlantRelatie
-	Quit $$$OK
-]]></Implementation>
+<Method name="GeefID">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
 </Method>
 
 <Method name="GeefNaam">
+<Abstract>1</Abstract>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..Naam
-]]></Implementation>
 </Method>
 
 <Method name="GeefCode">
+<Abstract>1</Abstract>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..Code
-]]></Implementation>
 </Method>
 
-<Method name="GeefKlantRelatie">
-<ReturnType>Derde.Klant.Klant</ReturnType>
-<Implementation><![CDATA[	Quit ..KlantRelatie
-]]></Implementation>
+<Method name="GeefGebruikerBeheerder">
+<Abstract>1</Abstract>
+<ReturnType>DOM.common.GebruikerBeheerder</ReturnType>
 </Method>
-
-<Storage name="Default">
-<Type>%Library.CacheStorage</Type>
-<DataLocation>^DOM.common.GebruikerD</DataLocation>
-<DefaultData>GebruikerDefaultData</DefaultData>
-<IdLocation>^DOM.common.GebruikerD</IdLocation>
-<IndexLocation>^DOM.common.GebruikerI</IndexLocation>
-<StreamLocation>^DOM.common.GebruikerS</StreamLocation>
-<Data name="GebruikerDefaultData">
-<Structure>listnode</Structure>
-<Subscript/>
-<Value name="1">
-<Value>%%CLASSNAME</Value>
-</Value>
-<Value name="2">
-<Value>Code</Value>
-</Value>
-<Value name="3">
-<Value>KlantRelatie</Value>
-</Value>
-<Value name="4">
-<Value>Naam</Value>
-</Value>
-</Data>
-</Storage>
 </Class>
 </Export>
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()
Index: DOM/common/dto/KlantData.cls.xml
===================================================================
diff -u -r1980 -r2302
--- DOM/common/dto/KlantData.cls.xml	(.../KlantData.cls.xml)	(revision 1980)
+++ DOM/common/dto/KlantData.cls.xml	(.../KlantData.cls.xml)	(revision 2302)
@@ -24,9 +24,5 @@
 <Property name="Gemeente">
 <Type>%String</Type>
 </Property>
-
-<Property name="PersonalityData">
-<Type>DOM.common.dto.PersonalityData</Type>
-</Property>
 </Class>
 </Export>
Index: APPS/VKP/Maatwerk/impl/TemplateInternPad.cls.xml
===================================================================
diff -u -r2004 -r2302
--- APPS/VKP/Maatwerk/impl/TemplateInternPad.cls.xml	(.../TemplateInternPad.cls.xml)	(revision 2004)
+++ APPS/VKP/Maatwerk/impl/TemplateInternPad.cls.xml	(.../TemplateInternPad.cls.xml)	(revision 2302)
@@ -44,14 +44,14 @@
 <Implementation><![CDATA[
 	Set BewarenToegestaan = 0
 	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())
 		Set BewarenToegestaan = ($$IsGroep^vhUSER(UserID,"ICT") || $$IsGroep^vhUSER(UserID,"PM") || $$IsGroep^vhUSER(UserID,"OV"))
 	}
 	Else
 	{
-		Set BewarenToegestaan = (..Gebruiker.%Id() = Gebruiker.%Id())
+		Set BewarenToegestaan = (..Gebruiker.GeefID() = Gebruiker.GeefID())
 	}
 	Quit BewarenToegestaan
 ]]></Implementation>
Index: vhUnitTest/common/TestDataService.cls.xml
===================================================================
diff -u -r2147 -r2302
--- vhUnitTest/common/TestDataService.cls.xml	(.../TestDataService.cls.xml)	(revision 2147)
+++ vhUnitTest/common/TestDataService.cls.xml	(.../TestDataService.cls.xml)	(revision 2302)
@@ -28,38 +28,27 @@
 	Do $$$AssertEquals(KlantData.Naam,"VAN HOECKE","De klant naam")
 	Do $$$AssertEquals(KlantData.Gemeente,"SINT-NIKLAAS","De gemeente")
 	Do $$$AssertEquals(KlantData.Land,"BE","Het land")
-	
-	Do $$$AssertEquals(KlantData.PersonalityData.ID,1,"De id is 1")
-	Do $$$AssertEquals(KlantData.PersonalityData.Code,1,"De code is 1")
-	Do $$$AssertEquals(KlantData.PersonalityData.Naam,"VAN HOECKE","De naam van de personality")
 ]]></Implementation>
 </Method>
 
 <Method name="TestGebruikerData">
 <Implementation><![CDATA[
-	Set Gebruiker = ##class(DOM.common.Gebruiker).%New("UnitTest","UT",##class(Derde.Klant.Klant).%OpenId(4682))
-	Set Status = Gebruiker.%Save()
-	
-	Do $$$AssertTrue($$$ISOK(Status),"De gebruiker werd opgeslagen")
-	
+	Set ^vhUSER("D",9999) = "99\Unit t.\15\UT_ICT\Unit test"
+
 	Set Service = ##class(APPS.common.DataService).%New()
-	Set GebruikerData = Service.GeefGebruikerData(Gebruiker.%Id())
+	Set GebruikerData = Service.GeefGebruikerData("4682||9999")
 	
-	Do $$$AssertEquals(GebruikerData.ID,Gebruiker.%Id(),"De gebruiker id")
-	Do $$$AssertEquals(GebruikerData.Naam,"UnitTest","De naam van de gebruiker")
-	Do $$$AssertEquals(GebruikerData.Code,"UT","De code van de gebruiker")
+	Do $$$AssertEquals(GebruikerData.ID,"4682||9999","De gebruiker id")
+	Do $$$AssertEquals(GebruikerData.Naam,"Unit test","De naam van de gebruiker")
+	Do $$$AssertEquals(GebruikerData.Code,"UT_ICT","De code van de gebruiker")
 	
 	Do $$$AssertEquals(GebruikerData.KlantData.ID,4682,"De klant id")
 	Do $$$AssertEquals(GebruikerData.KlantData.Code,4682,"De klant code")
 	Do $$$AssertEquals(GebruikerData.KlantData.Naam,"VAN HOECKE","De klant naam")
 	Do $$$AssertEquals(GebruikerData.KlantData.Gemeente,"SINT-NIKLAAS","De gemeente")
 	Do $$$AssertEquals(GebruikerData.KlantData.Land,"BE","Het land")
 	
-	Do $$$AssertEquals(GebruikerData.KlantData.PersonalityData.ID,1,"De id is 1")
-	Do $$$AssertEquals(GebruikerData.KlantData.PersonalityData.Code,1,"De code is 1")
-	Do $$$AssertEquals(GebruikerData.KlantData.PersonalityData.Naam,"VAN HOECKE","De naam van de personality")
-	
-	Do Gebruiker.%DeleteId(Gebruiker.%Id())
+	Kill ^vhUSER("D",9999)
 ]]></Implementation>
 </Method>
 
Index: APPS/VKP/Maatwerk/impl/PadenHelper.cls.xml
===================================================================
diff -u -r2004 -r2302
--- APPS/VKP/Maatwerk/impl/PadenHelper.cls.xml	(.../PadenHelper.cls.xml)	(revision 2004)
+++ APPS/VKP/Maatwerk/impl/PadenHelper.cls.xml	(.../PadenHelper.cls.xml)	(revision 2302)
@@ -10,7 +10,7 @@
 <FormalSpec>Gebruiker:DOM.common.Gebruiker</FormalSpec>
 <ReturnType>APPS.VKP.Maatwerk.impl.GebruikerPaden</ReturnType>
 <Implementation><![CDATA[
-	Set GebruikerPaden = ##class(APPS.VKP.Maatwerk.impl.GebruikerPaden).%OpenId(Gebruiker.%Id())
+	Set GebruikerPaden = ##class(APPS.VKP.Maatwerk.impl.GebruikerPaden).%OpenId(Gebruiker.GeefID())
 	If ('$IsObject(GebruikerPaden))
 	{
 		Set GebruikerPaden = ##class(APPS.VKP.Maatwerk.impl.GebruikerPaden).%New(Gebruiker)
Index: DOM/DomeinContext.cls.xml
===================================================================
diff -u -r2161 -r2302
--- DOM/DomeinContext.cls.xml	(.../DomeinContext.cls.xml)	(revision 2161)
+++ DOM/DomeinContext.cls.xml	(.../DomeinContext.cls.xml)	(revision 2302)
@@ -55,6 +55,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="GebruikerAPINamen">
+<Type>TECH.Stack</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="VerwachteInvoerAPINamen">
 <Type>TECH.Stack</Type>
 <Private>1</Private>
@@ -110,6 +115,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="GebruikerAPI">
+<Type>DOM.common.GebruikerAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="Instance">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.DomeinContext</ReturnType>
@@ -136,6 +146,7 @@
 	Set ..IngegevenKenmerkenAPINamen = ##class(TECH.Stack).%New()
 	Set ..VerwachteUitvoerAPINamen = ##class(TECH.Stack).%New()
 	Set ..VerwachteInvoerAPINamen = ##class(TECH.Stack).%New()
+	Set ..GebruikerAPINamen = ##class(TECH.Stack).%New()
 	// Initialize the stacks
 	Do ..Reset()
 	Quit $$$OK
@@ -262,6 +273,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefGebruikerAPI">
+<ReturnType>DOM.common.GebruikerAPI</ReturnType>
+<Implementation><![CDATA[
+	If (..GebruikerAPI = "")
+	{
+		Set ClassName = ..GebruikerAPINamen.Peek()
+		Set ..GebruikerAPI = $ZOBJCLASSMETHOD(ClassName, "%New")
+	}
+	Quit ..GebruikerAPI
+]]></Implementation>
+</Method>
+
 <Method name="Reset">
 <Implementation><![CDATA[
 	Do ..ProductAPINamen.Clear()
@@ -276,6 +299,7 @@
 	Do ..PushIngegKenmerkenAPIClassName("DOM.PM.impl.IngegevenKenmerkenAPIimpl")
 	Do ..PushVerwachtUitvoerAPIClassName("DOM.ProdRes.impl.VerwachteUitvoerAPIimpl")
 	Do ..PushVerwachtInvoerAPIClassName("DOM.ProdRes.impl.VerwachteInvoerAPIimpl")
+	Do ..PushGebruikerAPIClassName("DOM.common.impl.GebruikerAPIimpl")
 ]]></Implementation>
 </Method>
 
@@ -351,6 +375,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="PopGebruikerAPIClassName">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Do ..GebruikerAPINamen.Pop()
+	Set ..GebruikerAPI = ""
+]]></Implementation>
+</Method>
+
 <Method name="PushOrderAPIClassName">
 <FormalSpec>Naam:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -430,5 +462,13 @@
 	Set ..VerwachteInvoerAPI = ""
 ]]></Implementation>
 </Method>
+
+<Method name="PushGebruikerAPIClassName">
+<FormalSpec>Naam:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..GebruikerAPINamen.Push(Naam)
+	Set ..GebruikerAPI = ""
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: APPS/VKP/Maatwerk/impl/GebruikerPaden.cls.xml
===================================================================
diff -u -r2057 -r2302
--- APPS/VKP/Maatwerk/impl/GebruikerPaden.cls.xml	(.../GebruikerPaden.cls.xml)	(revision 2057)
+++ APPS/VKP/Maatwerk/impl/GebruikerPaden.cls.xml	(.../GebruikerPaden.cls.xml)	(revision 2302)
@@ -6,9 +6,15 @@
 <Super>%Persistent</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Property name="GebruikerID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Gebruiker">
 <Type>DOM.common.Gebruiker</Type>
 <Private>1</Private>
+<Transient>1</Transient>
 </Property>
 
 <Property name="StandalonePad">
@@ -29,7 +35,7 @@
 
 <Index name="GebruikerIndex">
 <IdKey>1</IdKey>
-<Properties>Gebruiker</Properties>
+<Properties>GebruikerID</Properties>
 <Unique>1</Unique>
 </Index>
 
@@ -39,6 +45,7 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Set ..GebruikerID = Gebruiker.GeefID()
 	Set ..Gebruiker = Gebruiker
 	Set ..StandalonePad = ##class(APPS.VKP.Maatwerk.impl.StandalonePad).%New(Gebruiker)
 	Set ..TemplateExternPad = ##class(APPS.VKP.Maatwerk.impl.TemplateExternPad).%New(Gebruiker)
@@ -52,6 +59,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GebruikerGet">
+<Private>1</Private>
+<ReturnType>DOM.common.Gebruiker</ReturnType>
+<Implementation><![CDATA[
+	If ('$IsObject(i%Gebruiker))
+	{
+		Set i%Gebruiker = ##class(DOM.DomeinContext).Instance().GeefGebruikerAPI().GeefGebruiker(..GebruikerID)
+	}
+	
+	Quit i%Gebruiker
+]]></Implementation>
+</Method>
+
 <Method name="GeefStandalonePad">
 <ReturnType>APPS.VKP.Maatwerk.impl.StandalonePad</ReturnType>
 <Implementation><![CDATA[	Quit ..StandalonePad
@@ -114,13 +134,11 @@
 <IndexLocation>^APPS.VKP.Maa79D.GebruikerPadenI</IndexLocation>
 <StreamLocation>^APPS.VKP.Maa79D.GebruikerPadenS</StreamLocation>
 <Data name="GebruikerPadenDefaultData">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>%%CLASSNAME</Value>
 </Value>
 <Value name="2">
-<Value>Gebruiker</Value>
+<Value>GebruikerID</Value>
 </Value>
 <Value name="3">
 <Value>StandalonePad</Value>
Index: APPS/VKP/Maatwerk/impl/KenmerkenBewaarder.cls.xml
===================================================================
diff -u -r2080 -r2302
--- APPS/VKP/Maatwerk/impl/KenmerkenBewaarder.cls.xml	(.../KenmerkenBewaarder.cls.xml)	(revision 2080)
+++ APPS/VKP/Maatwerk/impl/KenmerkenBewaarder.cls.xml	(.../KenmerkenBewaarder.cls.xml)	(revision 2302)
@@ -21,15 +21,10 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	// Controleren of de gebruiker opgegeven in het pad bestaat 
-	Set GebruikerUitPad = ##class(DOM.common.Gebruiker).%OpenId(Pad.GebruikerID)
-	If ('$IsObject(GebruikerUitPad))
-	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De gebruiker "_Gebruiker.GeefCode()_" opgeven in het pad bestaat niet"))
-	}
+	Set GebruikerUitPad = ##class(DOM.DomeinContext).Instance().GeefGebruikerAPI().GeefGebruiker(Pad.GebruikerID)
 	
 	Set ..GebruikerPaden = ##class(APPS.VKP.Maatwerk.impl.PadenHelper).GeefGebruikerPaden(GebruikerUitPad)
-	
+
 	Set DtoNaarKenmerkVisitor = ##class(APPS.PM.Maatwerk.impl.DtoNaarKenmerkVisitor).%New()
 	Do Kenmerken.Accept(DtoNaarKenmerkVisitor)
 	Set IngegevenKenmerken = DtoNaarKenmerkVisitor.GeefIngegevenKenmerken()
@@ -54,7 +49,7 @@
 	
 	If ($$$ISERR(Status))
 	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Kon de paden niet opslaan voor gebruiker "_Gebruiker.%Id(),Status))
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Kon de paden niet opslaan voor gebruiker "_Gebruiker.GeefID(),Status))
 	}
 	
 	Quit $$$OK
Index: APPS/common/DataService.cls.xml
===================================================================
diff -u -r2156 -r2302
--- APPS/common/DataService.cls.xml	(.../DataService.cls.xml)	(revision 2156)
+++ APPS/common/DataService.cls.xml	(.../DataService.cls.xml)	(revision 2302)
@@ -43,7 +43,6 @@
 	Set Adres = Klant.GeefAdres()
 	Set KlantData.Gemeente = Adres.GeefGemeente()
 	Set KlantData.Land = Adres.GeefLandCode()
-	Set KlantData.PersonalityData = ..GeefPersonalityData(##class(DOM.common.VanHoeckePersonality).Instance().%Id())
 	
 	Quit KlantData
 ]]></Implementation>
@@ -53,18 +52,18 @@
 <FormalSpec>GebruikerID:%String</FormalSpec>
 <ReturnType>DOM.common.dto.GebruikerData</ReturnType>
 <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("Ongeldige gebruiker id "_GebruikerID))
 	}
 	
 	Set GebruikerData = ##class(DOM.common.dto.GebruikerData).%New()
-	Set GebruikerData.ID = Gebruiker.%Id()
+	Set GebruikerData.ID = Gebruiker.GeefID()
 	Set GebruikerData.Code = Gebruiker.GeefCode()
 	Set GebruikerData.Naam = Gebruiker.GeefNaam()
-	Set GebruikerData.KlantData = ..GeefKlantData(Gebruiker.GeefKlantRelatie().%Id())
+	Set GebruikerData.KlantData = ..GeefKlantData(Gebruiker.GeefGebruikerBeheerder().GeefEigenaar().%Id())
 	
 	Quit GebruikerData
 ]]></Implementation>
Index: DOM/common/GebruikerAPI.cls.xml
===================================================================
diff -u
--- DOM/common/GebruikerAPI.cls.xml	(revision 0)
+++ DOM/common/GebruikerAPI.cls.xml	(revision 2302)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.common.GebruikerAPI">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefGebruiker">
+<Description>
+Gooit exceptie wanneer een gebruiker niet bestaat</Description>
+<Abstract>1</Abstract>
+<FormalSpec>GebruikerID:%String</FormalSpec>
+<ReturnType>DOM.common.Gebruiker</ReturnType>
+</Method>
+
+<Method name="GeefVanHoeckeGebruikerBeheerder">
+<Abstract>1</Abstract>
+<ReturnType>DOM.common.VanHoeckeGebruikerBeheerder</ReturnType>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/DOM/common/TestGebruiker.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/common/TestGebruiker.cls.xml	(revision 0)
+++ vhUnitTest/DOM/common/TestGebruiker.cls.xml	(revision 2302)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.DOM.common.TestGebruiker">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.common.TestGebruiker")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestDomeinContext">
+<Implementation><![CDATA[	Do $$$AssertTrue($IsObject(##class(DOM.DomeinContext).Instance().GeefGebruikerAPI()),"De gebruiker api werd teruggegeven")
+]]></Implementation>
+</Method>
+
+<Method name="TestVanHoeckeGebruikerBeheerder">
+<Implementation><![CDATA[
+	Set GebruikerAPI = ##class(DOM.DomeinContext).Instance().GeefGebruikerAPI()
+	
+	Set VanHoeckeGebruikerBeheerder = GebruikerAPI.GeefVanHoeckeGebruikerBeheerder()
+	
+	Do $$$AssertTrue($IsObject(VanHoeckeGebruikerBeheerder),"De gebruikerbeheerder werd teruggegeven")
+	
+	Set Gebruiker = VanHoeckeGebruikerBeheerder.GeefGebruiker(9999)
+	
+	Do $$$AssertTrue($IsObject(Gebruiker),"De gebruiker werd teruggegeven")
+	Do $$$AssertEquals(Gebruiker.GeefID(),"4682||9999","De gebruiker id")
+	Do $$$AssertEquals(Gebruiker.GeefCode(),"UT_ICT","De gebruiker code")
+	Do $$$AssertEquals(Gebruiker.GeefNaam(),"Unit test","De gebruiker naam")
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ^vhUSER("D",9999) = "99\Unit t.\15\UT_ICT\Unit test"
+ 	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Kill ^vhUSER("D",9999)
+ 	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/common/GebruikerBeheerder.cls.xml
===================================================================
diff -u
--- DOM/common/GebruikerBeheerder.cls.xml	(revision 0)
+++ DOM/common/GebruikerBeheerder.cls.xml	(revision 2302)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.common.GebruikerBeheerder">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefEigenaar">
+<Abstract>1</Abstract>
+<ReturnType>Derde.Klant.Klant</ReturnType>
+</Method>
+
+<Method name="GeefGebruiker">
+<Description>
+GebruikerID is de ID van de gebruiker binnen de scope van de gebruiker beheerder.
+Gooit een exceptie indien een gebruiker niet bestaat.</Description>
+<Abstract>1</Abstract>
+<FormalSpec>GebruikerID:%String</FormalSpec>
+<ReturnType>DOM.common.Gebruiker</ReturnType>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/APPS/VKP/Maatwerk/TestConfiguratorService.cls.xml
===================================================================
diff -u -r2253 -r2302
--- vhUnitTest/APPS/VKP/Maatwerk/TestConfiguratorService.cls.xml	(.../TestConfiguratorService.cls.xml)	(revision 2253)
+++ vhUnitTest/APPS/VKP/Maatwerk/TestConfiguratorService.cls.xml	(.../TestConfiguratorService.cls.xml)	(revision 2302)
@@ -7,19 +7,13 @@
 <Super>vhUnitTest.TestCase</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Property name="GebruikerICT">
-<Type>DOM.common.Gebruiker</Type>
-</Property>
-
-<Property name="GebruikerOV">
-<Type>DOM.common.Gebruiker</Type>
-</Property>
-
 <Method name="TestGeefParameters">
 <Implementation><![CDATA[
 	// Nieuw data object aanmaken die we daarna gaan opvragen
-	Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductToevoegenParameters).%New(1000,..GebruikerICT.%Id(),3,##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(),1,##class(DOM.PM.enu.Familie).Lade(),##class(DOM.PM.enu.LadeVariant).TBXPlus())
+	Set GebruikerID = ##class(DOM.DomeinContext).Instance().GeefGebruikerAPI().GeefVanHoeckeGebruikerBeheerder().GeefGebruiker(9999).GeefID()
 	
+	Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductToevoegenParameters).%New(1000,GebruikerID,3,##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(),1,##class(DOM.PM.enu.Familie).Lade(),##class(DOM.PM.enu.LadeVariant).TBXPlus())
+	
 	Set Status = Parameters.%Save()
 	Do $$$AssertTrue($$$ISOK(Status), "Het parametersobject werd correct opgeslagen")
 	
@@ -35,7 +29,7 @@
 	Do $$$AssertEquals(Parameters.DocumentID,1,"Het document id is correct ingevuld")
 	Do $$$AssertEquals(Parameters.DocumentType,##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(),"Het document type is correct ingevuld")
 	Do $$$AssertEquals(Parameters.WinkelkarID,3,"De winkelkar id is ingevuld")
-	Do $$$AssertEquals(Parameters.GebruikerData.ID,..GebruikerICT.%Id(),"De gebruiker id is correct ingevuld")
+	Do $$$AssertEquals(Parameters.GebruikerData.ID,GebruikerID,"De gebruiker id is correct ingevuld")
 	Do $$$AssertEquals(Parameters.KlantData.ID,1000,"De klant id is correct ingevuld")
 	Do $$$AssertEquals(Parameters.KlantData.Naam,"TESTKLANT VAN HOECKE nv","De klantnaam is correct ingevuld")
 	Do $$$AssertEquals(Parameters.Familie,##class(DOM.PM.enu.Familie).Lade(),"De familie is correct ingevuld")
@@ -49,7 +43,7 @@
 	// Nieuw data object aanmaken die we daarna gaan opvragen
 	Set LijnID = 7
 	Set ProductID = 34567
-	Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductWijzigenParameters).%New(1000,..GebruikerICT.%Id(),3,##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(),1,##class(DOM.PM.enu.Familie).Lade(),##class(DOM.PM.enu.LadeVariant).TBXPlus(), ProductID, LijnID)
+	Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductWijzigenParameters).%New(1000,GebruikerID,3,##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(),1,##class(DOM.PM.enu.Familie).Lade(),##class(DOM.PM.enu.LadeVariant).TBXPlus(), ProductID, LijnID)
 	
 	Set Status = Parameters.%Save()
 	Do $$$AssertTrue($$$ISOK(Status), "Het parametersobject werd correct opgeslagen")
@@ -66,7 +60,7 @@
 	Do $$$AssertEquals(Parameters.DocumentID,1,"Het document id is correct ingevuld")
 	Do $$$AssertEquals(Parameters.DocumentType,##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(),"Het document type is correct ingevuld")
 	Do $$$AssertEquals(Parameters.WinkelkarID,3,"De winkelkar id is ingevuld")
-	Do $$$AssertEquals(Parameters.GebruikerData.ID,..GebruikerICT.%Id(),"De gebruiker id is correct ingevuld")
+	Do $$$AssertEquals(Parameters.GebruikerData.ID,GebruikerID,"De gebruiker id is correct ingevuld")
 	Do $$$AssertEquals(Parameters.KlantData.ID,1000,"De klant id is correct ingevuld")
 	Do $$$AssertEquals(Parameters.KlantData.Naam,"TESTKLANT VAN HOECKE nv","De klantnaam is correct ingevuld")
 	Do $$$AssertEquals(Parameters.Familie,##class(DOM.PM.enu.Familie).Lade(),"De familie is correct ingevuld")
@@ -153,14 +147,10 @@
 
 <Method name="TestBewaarIngegevenKenmerken">
 <Implementation><![CDATA[
-	Set ^vhUSER("D",9999) = "99\Unittest\15\UT_ICT"
-	Set ^vhUSER("D",9999,"M") = "ICT"
-	Set ^vhUSER("D",9998) = "99\Unittest\15\UT_OV"
-	Set ^vhUSER("D",9998,"M") = "OV"
-	
 	Set Service = ##class(APPS.VKP.Maatwerk.ConfiguratorService).%New()
 	
-	Set GebruikerID = ..GebruikerOV.%Id()
+	Set VanHoeckeGebruikerBeheerder = ##class(DOM.DomeinContext).Instance().GeefGebruikerAPI().GeefVanHoeckeGebruikerBeheerder()
+	Set GebruikerID = VanHoeckeGebruikerBeheerder.GeefGebruiker(9998).GeefID() // OV gebruiker
 	
 	Set IngegevenKenmerken = ##class(APPS.PM.Maatwerk.dto.TAOOKenmerken).%New()
 	Set IngegevenKenmerken.CorpusBreedte = 456
@@ -177,7 +167,7 @@
 	Set IngegevenKenmerken.HeeftZijstabilisering = 0
 	
 	Set Pad = ##class(APPS.VKP.Maatwerk.dto.TemplateInternPad).%New()
-	Set Pad.GebruikerID = ..GebruikerICT.%Id()
+	Set Pad.GebruikerID = VanHoeckeGebruikerBeheerder.GeefGebruiker(9999).GeefID() // ICT gebruiker
 	Set Pad.KlantID = 4682
 	
 	Set Naam = "Unittest naam 1"
@@ -193,7 +183,7 @@
 	Set TemplateExternPad = ""
 	Set StandalonePad = ""
 	
-	Do ..GeefPadenVanGebruiker(..GebruikerICT.%Id(), BewaardePadenIterator, .TemplateInternPad, .TemplateExternPad, .StandalonePad)
+	Do ..GeefPadenVanGebruiker(Pad.GebruikerID, BewaardePadenIterator, .TemplateInternPad, .TemplateExternPad, .StandalonePad)
 	
 	Do $$$AssertTrue($IsObject(TemplateInternPad),"Het template intern pad werd aangemaakt")
 	Do $$$AssertTrue($IsObject(TemplateExternPad),"Het template extern pad werd aangemaakt")
@@ -203,9 +193,9 @@
 	Do $$$AssertFalse(TemplateExternPad.IsBewarenToegestaan,"Bewaren is niet toegestaan in het extern pad")
 	Do $$$AssertFalse(StandalonePad.IsBewarenToegestaan,"Bewaren is niet toegestaan in het standalone pad")
 	
-	Do $$$AssertEquals(TemplateInternPad.Pad.GebruikerID,..GebruikerICT.%Id(),"De ict gebruiker is eigenaar van het pad")
-	Do $$$AssertEquals(TemplateExternPad.Pad.GebruikerID,..GebruikerICT.%Id(),"De ict gebruiker is eigenaar van het pad")
-	Do $$$AssertEquals(StandalonePad.Pad.GebruikerID,..GebruikerICT.%Id(),"De ict gebruiker is eigenaar van het pad")
+	Do $$$AssertEquals(TemplateInternPad.Pad.GebruikerID,Pad.GebruikerID,"De ict gebruiker is eigenaar van het pad")
+	Do $$$AssertEquals(TemplateExternPad.Pad.GebruikerID,Pad.GebruikerID,"De ict gebruiker is eigenaar van het pad")
+	Do $$$AssertEquals(StandalonePad.Pad.GebruikerID,Pad.GebruikerID,"De ict gebruiker is eigenaar van het pad")
 	
 	Set BewaardKenmerk = TemplateInternPad.BewaardeKenmerken.GetAt(1)
 	Do $$$AssertEquals(TemplateInternPad.BewaardeKenmerken.Count(),1,"Er is 1 set van kenmerken opgeslagen")
@@ -293,28 +283,20 @@
 <Method name="OnBeforeAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Do ..OnAfterAllTests()
-	Set Status = $$$OK
-	Set ..GebruikerICT = ##class(DOM.common.Gebruiker).%New("Unittest_ICT","UT_ICT",##class(Derde.Klant.Klant).%OpenId(4682))
-	Set:$$$ISOK(Status) Status = ..GebruikerICT.%Save()
-	Set ..GebruikerOV = ##class(DOM.common.Gebruiker).%New("Unittest_OV","UT_OV",##class(Derde.Klant.Klant).%OpenId(4682))
-	Set:$$$ISOK(Status) Status = ..GebruikerOV.%Save()
- 	Quit Status
+	Set ^vhUSER("D",9999) = "99\Unit t.\15\UT_ICT\Unit test"
+	Set ^vhUSER("D",9999,"M") = "ICT"
+	Set ^vhUSER("D",9998) = "99\Unit t.\15\UT_OV\Unit test"
+	Set ^vhUSER("D",9998,"M") = "OV"
+ 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="OnAfterAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set Status = $$$OK
+	Kill ^vhUSER("D",9998)
 	Kill ^vhUSER("D",9999)
-	If ($IsObject(..GebruikerICT))
-	{
-		Set Status = ##class(APPS.VKP.Maatwerk.impl.GebruikerPaden).%DeleteId(..GebruikerICT.%Id())
-		Set:$$$ISOK(Status) Status = ..GebruikerICT.%DeleteId(..GebruikerICT.%Id())
-		Set:$$$ISOK(Status) Status = ..GebruikerOV.%DeleteId(..GebruikerOV.%Id())
-	}
-	Quit Status
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/VKP/Maatwerk/impl/PadToDtoVisitor.cls.xml
===================================================================
diff -u -r2080 -r2302
--- APPS/VKP/Maatwerk/impl/PadToDtoVisitor.cls.xml	(.../PadToDtoVisitor.cls.xml)	(revision 2080)
+++ APPS/VKP/Maatwerk/impl/PadToDtoVisitor.cls.xml	(.../PadToDtoVisitor.cls.xml)	(revision 2302)
@@ -67,7 +67,7 @@
 <FormalSpec>Pad:APPS.VKP.Maatwerk.impl.Pad</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set ..Pad.GebruikerData = ..DataService.GeefGebruikerData(Pad.GeefGebruiker().%Id())
+	Set ..Pad.GebruikerData = ..DataService.GeefGebruikerData(Pad.GeefGebruiker().GeefID())
 	Set ..Pad.GebruikerID = ..Pad.GebruikerData.ID
 ]]></Implementation>
 </Method>
Index: APPS/VKP/Maatwerk/impl/TemplateExternPad.cls.xml
===================================================================
diff -u -r2004 -r2302
--- APPS/VKP/Maatwerk/impl/TemplateExternPad.cls.xml	(.../TemplateExternPad.cls.xml)	(revision 2004)
+++ APPS/VKP/Maatwerk/impl/TemplateExternPad.cls.xml	(.../TemplateExternPad.cls.xml)	(revision 2302)
@@ -18,14 +18,14 @@
 <Implementation><![CDATA[
 	Set BewarenToegestaan = 0
 	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())
 		Set BewarenToegestaan = $$IsGroep^vhUSER(UserID,"ICT")
 	}
 	Else
 	{
-		Set BewarenToegestaan = (..Gebruiker.%Id() = Gebruiker.%Id())
+		Set BewarenToegestaan = (..Gebruiker.GeefID() = Gebruiker.GeefID())
 	}
 	Quit BewarenToegestaan
 ]]></Implementation>
Index: CSC ConfiguratorService.prj.xml
===================================================================
diff -u -r2151 -r2302
--- CSC ConfiguratorService.prj.xml	(.../CSC ConfiguratorService.prj.xml)	(revision 2151)
+++ CSC ConfiguratorService.prj.xml	(.../CSC ConfiguratorService.prj.xml)	(revision 2302)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="CSC ConfiguratorService" LastModified="2011-09-21 08:28:36">
+<Project name="CSC ConfiguratorService" LastModified="2011-10-07 10:48:29">
   <Items>
     <ProjectItem name="APPS.EC.Winkelkar.WinkelkarService" type="CLS"/>
     <ProjectItem name="APPS.EC.Winkelkar.dto.GroepLijn" type="CLS"/>
@@ -53,6 +53,7 @@
     <ProjectItem name="CHUI.Flow.ConfiguratorHelper" type="CLS"/>
     <ProjectItem name="DOM.CRM.KlantAPI" type="CLS"/>
     <ProjectItem name="DOM.CRM.impl.DataM.DataMKlantAPI" type="CLS"/>
+    <ProjectItem name="DOM.DomeinContext" type="CLS"/>
     <ProjectItem name="DOM.EC.Winkelkar.Visitors.ProductLijnenTeller" type="CLS"/>
     <ProjectItem name="DOM.PM.IngegevenKenmerkenAPI" type="CLS"/>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie" type="CLS"/>
@@ -72,16 +73,25 @@
     <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken" type="CLS"/>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken" type="CLS"/>
     <ProjectItem name="DOM.common.Gebruiker" type="CLS"/>
+    <ProjectItem name="DOM.common.GebruikerAPI" type="CLS"/>
+    <ProjectItem name="DOM.common.GebruikerBeheerder" type="CLS"/>
+    <ProjectItem name="DOM.common.VanHoeckeGebruikerBeheerder" type="CLS"/>
     <ProjectItem name="DOM.common.dto.GebruikerData" type="CLS"/>
     <ProjectItem name="DOM.common.dto.KlantData" type="CLS"/>
     <ProjectItem name="DOM.common.dto.PersonalityData" type="CLS"/>
     <ProjectItem name="DOM.common.dto.Persoon" type="CLS"/>
+    <ProjectItem name="DOM.common.impl.GebruikerAPIimpl" type="CLS"/>
+    <ProjectItem name="DOM.common.impl.GebruikerImpl" type="CLS"/>
+    <ProjectItem name="DOM.common.impl.VanHoeckeGebruikerBeheerder" type="CLS"/>
     <ProjectItem name="FLOWOFF.mac" type="MAC"/>
     <ProjectItem name="FLOWORD.mac" type="MAC"/>
     <ProjectItem name="WS.VKP.Maatwerk.ConfiguratorService" type="CLS"/>
     <ProjectItem name="vhDeploy.CSC.Deploy20110802x1143" type="CLS"/>
+    <ProjectItem name="vhDeploy.CSC.Deploy20111007x1048" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.VKP.Maatwerk.TestConfiguratorService" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.VKP.Maatwerk.TestWinkelkarToProductVisitor" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.common.TestGebruiker" type="CLS"/>
+    <ProjectItem name="vhUnitTest.common.TestDataService" type="CLS"/>
   </Items>
 </Project>
 </Export>