Index: DOM/PM/Maatwerk/Calc/Common/impl/OLMKenmerken.cls.xml
===================================================================
diff -u -r1574 -r2004
--- DOM/PM/Maatwerk/Calc/Common/impl/OLMKenmerken.cls.xml	(.../OLMKenmerken.cls.xml)	(revision 1574)
+++ DOM/PM/Maatwerk/Calc/Common/impl/OLMKenmerken.cls.xml	(.../OLMKenmerken.cls.xml)	(revision 2004)
@@ -26,6 +26,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefFamilie">
+<ReturnType>DOM.PM.enu.Familie</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.enu.Familie).Orgalux()
+]]></Implementation>
+</Method>
+
+<Method name="GeefVariant">
+<ReturnType>DOM.PM.enu.Variant</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.enu.OrgaluxVariant).OpMaat()
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DefaultData>OLMKenmerkenDefaultData</DefaultData>
Index: DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml
===================================================================
diff -u -r1334 -r2004
--- DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml	(.../DataMKlantAPI.cls.xml)	(revision 1334)
+++ DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml	(.../DataMKlantAPI.cls.xml)	(revision 2004)
@@ -43,6 +43,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantVanHoecke">
+<ReturnType>DOM.CRM.Klant</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefKlant(4682)
+]]></Implementation>
+</Method>
+
 <Method name="MaakKlant">
 <FormalSpec>dtoKlant:DOM.CRM.dto.Klant,TypeTemplateKlant:DOM.CRM.enu.TypeTemplateKlant</FormalSpec>
 <ReturnType>DOM.CRM.Klant</ReturnType>
Index: APPS/VKP/Maatwerk/dto/StandalonePad.cls.xml
===================================================================
diff -u -r1843 -r2004
--- APPS/VKP/Maatwerk/dto/StandalonePad.cls.xml	(.../StandalonePad.cls.xml)	(revision 1843)
+++ APPS/VKP/Maatwerk/dto/StandalonePad.cls.xml	(.../StandalonePad.cls.xml)	(revision 2004)
@@ -5,12 +5,10 @@
 <Super>APPS.VKP.Maatwerk.dto.Pad</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Property name="GebruikerGroep">
-<Type>%String</Type>
-</Property>
-
-<Property name="GebruikerID">
-<Type>%String</Type>
-</Property>
+<Method name="Accept">
+<FormalSpec>Visitor:APPS.VKP.Maatwerk.dto.PadVisitor</FormalSpec>
+<Implementation><![CDATA[	Quit Visitor.VerwerkStandalonePad(##this)
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: DOM/CRM/KlantAPI.cls.xml
===================================================================
diff -u -r1334 -r2004
--- DOM/CRM/KlantAPI.cls.xml	(.../KlantAPI.cls.xml)	(revision 1334)
+++ DOM/CRM/KlantAPI.cls.xml	(.../KlantAPI.cls.xml)	(revision 2004)
@@ -47,6 +47,11 @@
 <ReturnType>DOM.CRM.Klant</ReturnType>
 </Method>
 
+<Method name="GeefKlantVanHoecke">
+<Abstract>1</Abstract>
+<ReturnType>DOM.CRM.Klant</ReturnType>
+</Method>
+
 <Method name="VerwijderPersoon">
 <Abstract>1</Abstract>
 <FormalSpec>KlantNummer:%Integer,Persoon:DOM.common.Persoon</FormalSpec>
Index: DOM/PM/Maatwerk/Calc/Common/impl/KADKenmerken.cls.xml
===================================================================
diff -u -r1574 -r2004
--- DOM/PM/Maatwerk/Calc/Common/impl/KADKenmerken.cls.xml	(.../KADKenmerken.cls.xml)	(revision 1574)
+++ DOM/PM/Maatwerk/Calc/Common/impl/KADKenmerken.cls.xml	(.../KADKenmerken.cls.xml)	(revision 2004)
@@ -90,6 +90,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefFamilie">
+<ReturnType>DOM.PM.enu.Familie</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.enu.Familie).AluKader()
+]]></Implementation>
+</Method>
+
+<Method name="GeefVariant">
+<ReturnType>DOM.PM.enu.Variant</ReturnType>
+<Implementation><![CDATA[
+	// TODO: Juiste variant bepalen
+	Quit ##class(DOM.PM.enu.AluKaderVariant).Basis()
+]]></Implementation>
+</Method>
+
 <Method name="ToString">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
Index: vhUnitTest/APPS/VKP/Maatwerk/TestConfiguratorService.cls.xml
===================================================================
diff -u -r1731 -r2004
--- vhUnitTest/APPS/VKP/Maatwerk/TestConfiguratorService.cls.xml	(.../TestConfiguratorService.cls.xml)	(revision 1731)
+++ vhUnitTest/APPS/VKP/Maatwerk/TestConfiguratorService.cls.xml	(.../TestConfiguratorService.cls.xml)	(revision 2004)
@@ -7,6 +7,14 @@
 <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
@@ -133,6 +141,78 @@
 ]]></Implementation>
 </Method>
 
+<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 IngegevenKenmerken = ##class(APPS.PM.Maatwerk.dto.TAOOKenmerken).%New()
+	Set IngegevenKenmerken.CorpusBreedte = 456
+	Set IngegevenKenmerken.CorpusWandDikte = 18
+	Set IngegevenKenmerken.Draagkracht = 30
+	Set IngegevenKenmerken.IsBinnenbreedte = 1
+	Set IngegevenKenmerken.IsBinnenlade = 1
+	Set IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAOOLadeKleur).SmokedWalnut()
+	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAOOLadeHoogte).N()
+	Set IngegevenKenmerken.LadeDiepte = 250
+	Set IngegevenKenmerken.HeeftOpvullijstLinks = 1
+	Set IngegevenKenmerken.HeeftOpvullijstRechts = 0
+	Set IngegevenKenmerken.HeeftTipon = 1
+	Set IngegevenKenmerken.HeeftZijstabilisering = 0
+	
+	Set Pad = ##class(APPS.VKP.Maatwerk.dto.TemplateInternPad).%New()
+	Set Pad.GebruikerData = ##class(DOM.common.dto.GebruikerData).%New()
+	Set Pad.GebruikerData.ID = ..GebruikerICT.%Id()
+	Set Pad.KlantData = ##class(DOM.common.dto.KlantData).%New()
+	Set Pad.KlantData.ID = 4682
+	
+	Set Naam = "Unittest naam 1"
+	Set MagOverschrijven = 0
+	
+	Do Service.BewaarIngegevenKenmerken(GebruikerID, IngegevenKenmerken, Pad, Naam, MagOverschrijven)
+	
+	Set BewaardeIngegevenKenmerken = Service.GeefBewaardeIngegevenKenmerken(GebruikerID)
+	
+	Set BewaardePadenIterator = ##class(TECH.ListIterator).%New(BewaardeIngegevenKenmerken.BewaardePaden)
+	Set TemplateInternPad = ""
+	Set TemplateExternPad = ""
+	Set StandalonePad = ""
+	While (BewaardePadenIterator.HasNext())
+	{
+		Set BewaardPad = BewaardePadenIterator.Next()
+		If (BewaardPad.Pad.GebruikerData.ID = GebruikerID)
+		{
+			If (BewaardPad.Pad.%ClassName(0) = "TemplateExternPad")
+			{
+				Set TemplateExternPad = BewaardPad
+			}
+			If (BewaardPad.Pad.%ClassName(0) = "TemplateInternPad")
+			{
+				Set TemplateInternPad = BewaardPad
+			}
+			If (BewaardPad.Pad.%ClassName(0) = "StandalonePad")
+			{
+				Set StandalonePad = BewaardPad
+			}
+		}
+	}
+	
+	Do $$$AssertTrue($IsObject(TemplateInternPad),"Het template intern pad werd aangemaakt")
+	Do $$$AssertTrue($IsObject(TemplateExternPad),"Het template extern pad werd aangemaakt")
+	Do $$$AssertTrue($IsObject(StandalonePad),"Het standalone pad werd aangemaakt")
+	
+	Do $$$AssertTrue(TemplateInternPad.IsBewarenToegestaan,"Bewaren is toegestaan in het intern pad")
+	Do $$$AssertFalse(TemplateExternPad.IsBewarenToegestaan,"Bewaren is niet toegestaan in het extern pad")
+	Do $$$AssertFalse(StandalonePad.IsBewarenToegestaan,"Bewaren is niet toegestaan in het standalone pad")
+]]></Implementation>
+</Method>
+
 <Method name="MaakWinkelkar">
 <Description>
 Geeft de id van de winkelkar terug</Description>
@@ -170,5 +250,33 @@
 	Quit Winkelkar.WinkelkarID
 ]]></Implementation>
 </Method>
+
+<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
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = $$$OK
+	Kill ^vhUSER("D",9999)
+	If ($IsObject(..GebruikerICT))
+	{
+		Set Status = ##class(APPS.VKP.Maatwerk.impl.GebruikerPaden).%DeleteId(..GebruikerOV.%Id())
+		Set:$$$ISOK(Status) Status = ..GebruikerICT.%DeleteId(..GebruikerICT.%Id())
+		Set:$$$ISOK(Status) Status = ..GebruikerOV.%DeleteId(..GebruikerOV.%Id())
+	}
+	Quit Status
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: DOM/PM/Maatwerk/Calc/Common/impl/TAOOKenmerken.cls.xml
===================================================================
diff -u -r1965 -r2004
--- DOM/PM/Maatwerk/Calc/Common/impl/TAOOKenmerken.cls.xml	(.../TAOOKenmerken.cls.xml)	(revision 1965)
+++ DOM/PM/Maatwerk/Calc/Common/impl/TAOOKenmerken.cls.xml	(.../TAOOKenmerken.cls.xml)	(revision 2004)
@@ -58,6 +58,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefFamilie">
+<ReturnType>DOM.PM.enu.Familie</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.enu.Familie).Lade()
+]]></Implementation>
+</Method>
+
+<Method name="GeefVariant">
+<ReturnType>DOM.PM.enu.Variant</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.enu.LadeVariant).TAOO()
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DefaultData>TAOOKenmerkenDefaultData</DefaultData>
Index: APPS/VKP/Maatwerk/impl/TemplateExternPad.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/impl/TemplateExternPad.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/impl/TemplateExternPad.cls.xml	(revision 2004)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VKP.Maatwerk.impl.TemplateExternPad">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VKP.Maatwerk.impl.Pad</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="Accept">
+<FormalSpec>Visitor:APPS.VKP.Maatwerk.impl.PadVisitor</FormalSpec>
+<Implementation><![CDATA[	Quit Visitor.VerwerkTemplateExternPad(##this)
+]]></Implementation>
+</Method>
+
+<Method name="IsBewarenToegestaanDoor">
+<FormalSpec>Gebruiker:DOM.common.Gebruiker</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set BewarenToegestaan = 0
+	Set KlantVanHoecke = ##class(DOM.DomeinContext).Instance().GeefKlantAPI().GeefKlantVanHoecke()
+	If (Gebruiker.GeefKlantRelatie().%Id() = KlantVanHoecke.GeefNummer())
+	{
+		Set UserID = $$USERID^vhUSER(Gebruiker.GeefCode())
+		Set BewarenToegestaan = $$IsGroep^vhUSER(UserID,"ICT")
+	}
+	Else
+	{
+		Set BewarenToegestaan = (..Gebruiker.%Id() = Gebruiker.%Id())
+	}
+	Quit BewarenToegestaan
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+</Export>
Index: APPS/VKP/Maatwerk/impl/TemplateInternPad.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/impl/TemplateInternPad.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/impl/TemplateInternPad.cls.xml	(revision 2004)
@@ -0,0 +1,72 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VKP.Maatwerk.impl.TemplateInternPad">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VKP.Maatwerk.impl.Pad</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Klant">
+<Type>Derde.Klant.Klant</Type>
+<Private>1</Private>
+</Property>
+
+<Index name="KlantIndex">
+<Properties>Klant</Properties>
+</Index>
+
+<Method name="%OnNew">
+<FormalSpec>Gebruiker:DOM.common.Gebruiker,Klant:Derde.Klant.Klant</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Klant = Klant
+	Quit ##super(Gebruiker)
+]]></Implementation>
+</Method>
+
+<Method name="Accept">
+<FormalSpec>Visitor:APPS.VKP.Maatwerk.impl.PadVisitor</FormalSpec>
+<Implementation><![CDATA[	Quit Visitor.VerwerkTemplateInternPad(##this)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlant">
+<ReturnType>Derde.Klant.Klant</ReturnType>
+<Implementation><![CDATA[	Quit ..Klant
+]]></Implementation>
+</Method>
+
+<Method name="IsBewarenToegestaanDoor">
+<FormalSpec>Gebruiker:DOM.common.Gebruiker</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set BewarenToegestaan = 0
+	Set KlantVanHoecke = ##class(DOM.DomeinContext).Instance().GeefKlantAPI().GeefKlantVanHoecke()
+	If (Gebruiker.GeefKlantRelatie().%Id() = KlantVanHoecke.GeefNummer())
+	{
+		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())
+	}
+	Quit BewarenToegestaan
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>TemplateInternPadDefaultData</DefaultData>
+<Data name="TemplateInternPadDefaultData">
+<Structure>listnode</Structure>
+<Subscript>"TemplateInternPad"</Subscript>
+<Value name="1">
+<Value>Klant</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: APPS/VKP/Maatwerk/dto/Pad.cls.xml
===================================================================
diff -u -r1843 -r2004
--- APPS/VKP/Maatwerk/dto/Pad.cls.xml	(.../Pad.cls.xml)	(revision 1843)
+++ APPS/VKP/Maatwerk/dto/Pad.cls.xml	(.../Pad.cls.xml)	(revision 2004)
@@ -1,12 +1,13 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="APPS.VKP.Maatwerk.dto.Pad">
+<Abstract>1</Abstract>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,%XML.Adaptor</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Property name="Root">
-<Type>%String</Type>
+<Property name="GebruikerData">
+<Type>DOM.common.dto.GebruikerData</Type>
 </Property>
 </Class>
 </Export>
Index: APPS/VKP/Maatwerk/dto/TemplateExternPad.cls.xml
===================================================================
diff -u -r1843 -r2004
--- APPS/VKP/Maatwerk/dto/TemplateExternPad.cls.xml	(.../TemplateExternPad.cls.xml)	(revision 1843)
+++ APPS/VKP/Maatwerk/dto/TemplateExternPad.cls.xml	(.../TemplateExternPad.cls.xml)	(revision 2004)
@@ -5,8 +5,10 @@
 <Super>APPS.VKP.Maatwerk.dto.Pad</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Property name="KlantID">
-<Type>%Integer</Type>
-</Property>
+<Method name="Accept">
+<FormalSpec>Visitor:APPS.VKP.Maatwerk.dto.PadVisitor</FormalSpec>
+<Implementation><![CDATA[	Quit Visitor.VerwerkTemplateExternPad(##this)
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: WS/VKP/Maatwerk/ConfiguratorService.cls.xml
===================================================================
diff -u -r1731 -r2004
--- WS/VKP/Maatwerk/ConfiguratorService.cls.xml	(.../ConfiguratorService.cls.xml)	(revision 1731)
+++ WS/VKP/Maatwerk/ConfiguratorService.cls.xml	(.../ConfiguratorService.cls.xml)	(revision 2004)
@@ -42,5 +42,20 @@
 <Implementation><![CDATA[	Quit ##class(APPS.VKP.Maatwerk.ConfiguratorService).%New().GeefKenmerkenVanProduct(Familie, Variant, GevraagdeVersie, ProductID)
 ]]></Implementation>
 </Method>
+
+<Method name="BewaarIngegevenKenmerken">
+<FormalSpec>GebruikerID:%String,Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Pad:APPS.VKP.Maatwerk.dto.Pad,Naam:%String,MagOverschrijven:%Boolean</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(APPS.VKP.Maatwerk.ConfiguratorService).%New().BewaarIngegevenKenmerken(GebruikerID, Kenmerken, Pad, Naam, MagOverschrijven)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBewaardeIngegevenKenmerken">
+<FormalSpec>GebruikerID:%String,KlantID:%String=""</FormalSpec>
+<ReturnType>APPS.VKP.Maatwerk.dto.BewaardeIngegevenKenmerken</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(APPS.VKP.Maatwerk.ConfiguratorService).%New().GeefBewaardeIngegevenKenmerken(GebruikerID, KlantID)
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: DOM/PM/Maatwerk/Calc/Common/IngegevenKenmerken.cls.xml
===================================================================
diff -u -r1075 -r2004
--- DOM/PM/Maatwerk/Calc/Common/IngegevenKenmerken.cls.xml	(.../IngegevenKenmerken.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/Common/IngegevenKenmerken.cls.xml	(.../IngegevenKenmerken.cls.xml)	(revision 2004)
@@ -77,6 +77,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefFamilie">
+<Abstract>1</Abstract>
+<ReturnType>DOM.PM.enu.Familie</ReturnType>
+</Method>
+
+<Method name="GeefVariant">
+<Abstract>1</Abstract>
+<ReturnType>DOM.PM.enu.Variant</ReturnType>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^DOM.PM.Maat94D.IngegevenKen738D</DataLocation>
Index: APPS/PM/Maatwerk/dto/TAOOKenmerken.cls.xml
===================================================================
diff -u -r1674 -r2004
--- APPS/PM/Maatwerk/dto/TAOOKenmerken.cls.xml	(.../TAOOKenmerken.cls.xml)	(revision 1674)
+++ APPS/PM/Maatwerk/dto/TAOOKenmerken.cls.xml	(.../TAOOKenmerken.cls.xml)	(revision 2004)
@@ -65,7 +65,7 @@
 </Property>
 
 <Method name="Accept">
-<FormalSpec>Visitor:APPS.PM.Maatwerk.impl.DtoNaarKenmerkVisitor</FormalSpec>
+<FormalSpec>Visitor:APPS.PM.Maatwerk.IngegevenKenmerkenVisitor</FormalSpec>
 <Implementation><![CDATA[	Do Visitor.VerwerkTAOOKenmerken(##this)
 ]]></Implementation>
 </Method>
Index: APPS/VKP/Maatwerk/impl/BewaardeKenmerken.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/impl/BewaardeKenmerken.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/impl/BewaardeKenmerken.cls.xml	(revision 2004)
@@ -0,0 +1,109 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VKP.Maatwerk.impl.BewaardeKenmerken">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%Persistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="IKID">
+<Type>DOM.PM.Maatwerk.Calc.Common.IKID</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Eigenaar">
+<Type>DOM.common.Gebruiker</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Naam">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IngegevenKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Type>
+<Private>1</Private>
+<Transient>1</Transient>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Naam:%String,IKID:DOM.PM.Maatwerk.Calc.Common.IKID,Eigenaar:DOM.common.Gebruiker</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..IKID = IKID
+	Set ..Eigenaar = Eigenaar
+	Set ..Naam = Naam
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefIKID">
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IKID</ReturnType>
+<Implementation><![CDATA[	Quit ..IKID
+]]></Implementation>
+</Method>
+
+<Method name="GeefEigenaar">
+<ReturnType>DOM.common.Gebruiker</ReturnType>
+<Implementation><![CDATA[	Quit ..Eigenaar
+]]></Implementation>
+</Method>
+
+<Method name="GeefNaam">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Naam
+]]></Implementation>
+</Method>
+
+<Method name="GeefFamilie">
+<ReturnType>DOM.PM.enu.Familie</ReturnType>
+<Implementation><![CDATA[	Quit ..IngegevenKenmerken.GeefFamilie()
+]]></Implementation>
+</Method>
+
+<Method name="GeefVariant">
+<ReturnType>DOM.PM.enu.Variant</ReturnType>
+<Implementation><![CDATA[	Quit ..IngegevenKenmerken.GeefVariant()
+]]></Implementation>
+</Method>
+
+<Method name="IngegevenKenmerkenGet">
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	If ('$IsObject(r%IngegevenKenmerken))
+	{
+		Set r%IngegevenKenmerken = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenAPI().GeefIngegevenKenmerken(..IKID)
+	}
+	Quit r%IngegevenKenmerken
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.VKP.Ma79D.BewaardeKenm6BBD</DataLocation>
+<DefaultData>BewaardeKenmerkenDefaultData</DefaultData>
+<IdLocation>^APPS.VKP.Ma79D.BewaardeKenm6BBD</IdLocation>
+<IndexLocation>^APPS.VKP.Ma79D.BewaardeKenm6BBI</IndexLocation>
+<StreamLocation>^APPS.VKP.Ma79D.BewaardeKenm6BBS</StreamLocation>
+<Data name="BewaardeKenmerkenDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Eigenaar</Value>
+</Value>
+<Value name="3">
+<Value>IKID</Value>
+</Value>
+<Value name="4">
+<Value>Naam</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: APPS/MAG/InventarisService.cls.xml
===================================================================
diff -u -r1986 -r2004
--- APPS/MAG/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 1986)
+++ APPS/MAG/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 2004)
@@ -5,34 +5,6 @@
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<UDLText name="T">
-<Content><![CDATA[
-// [RV-JCL] : status van ResultSet uitlezen bij Prepare & Execute
-
-]]></Content>
-</UDLText>
-
-<UDLText name="T">
-<Content><![CDATA[
-// 			: prepare en execute misschien in aparte klasse uitwerken waar errorhandling in zit
-
-]]></Content>
-</UDLText>
-
-<UDLText name="T">
-<Content><![CDATA[
-// [RV-JCL] : Method opsplitsen soms vrij veel code per method
-
-]]></Content>
-</UDLText>
-
-<UDLText name="T">
-<Content><![CDATA[
-// [RV-JCL] : Voorstander om $listget te gebruiken ipv $list
-
-]]></Content>
-</UDLText>
-
 <Method name="GeefBijladenInfo">
 <FormalSpec>BronPalletID:%String,DoelPalletID:%String,ProductID:%String,AantalBijTeLaden:%Integer</FormalSpec>
 <ReturnType>APPS.MAG.Inventaris.dto.BijladenInfo</ReturnType>
@@ -151,7 +123,7 @@
 	
 	Set DoelResultSet = ##class(%ResultSet).%New()
 	
-	Do DoelResultSet.Prepare("SELECT loc_m,loc_g,loc_x,loc_y,loc_z FROM EWMS.Locations WHERE loc_id = ?") // [RV-JCL] : status van ResultSet uitlezen
+	Do DoelResultSet.Prepare("SELECT loc_m,loc_g,loc_x,loc_y,loc_z FROM EWMS.Locations WHERE loc_id = ?")
 		
 	Set Result = $LB()
 	If (##class(EWMS.ToReceive).PalletIsInToReceive(BronPalletID))
@@ -245,7 +217,7 @@
 	{
 		If (##class(BL.MB.UGLYPicking.General).LocMIsInTransit(ResultSet.Data("loc_m")))
 		{
-			Set Result = ##class(EWMS.Carriers).SetLocMViaPalletID(PalletID,1) ; [RV-JCL] : '1' ??? enu ??
+			Set Result = ##class(EWMS.Carriers).SetLocMViaPalletID(PalletID,1)
 			If (Result '= "")
 			{
 				Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kon het magazijn niet veranderen van pallet "_PalletID_": "_Result))
@@ -308,7 +280,7 @@
 		Set ProductOpPallet.PalletID = PalletID
 		Set ProductOpPallet.LocatieID = ResultSet.Data("LocatieID")
 		Set ProductOpPallet.Korttekst = Product.GeefKorttekst()
-		Set ProductOpPallet.Langtekst = Product.GeefLangtekst("N") ; [RV-JCL] : taal van de gebruiker ophalen via één of andere context ipv hardcoded.
+		Set ProductOpPallet.Langtekst = Product.GeefLangtekst("N")
 		Set ProductOpPallet.MagazijnOmschrijving = ##class(Prod.Product).GetMagViaOpslagzone(ResultSet.Data("loc_m"))
 		Set ProductOpPallet.AantalSecties = ResultSet.Data("AantalSecties")
 		Do ProductenOpPallet.Insert(ProductOpPallet)
@@ -354,7 +326,7 @@
 		Set ProductOpPallet.PalletID = ResultSet.Data("PalletID")
 		Set ProductOpPallet.LocatieID = ResultSet.Data("LocatieID")
 		Set ProductOpPallet.Korttekst = Product.GeefKorttekst()
-		Set ProductOpPallet.Langtekst = Product.GeefLangtekst() ; [RV-JCL] : waar is taal van gebruiker ???? zie bovenstaande method  ??
+		Set ProductOpPallet.Langtekst = Product.GeefLangtekst("N")
 		Set ProductOpPallet.MagazijnOmschrijving = ##class(Prod.Product).GetMagViaOpslagzone(ResultSet.Data("loc_m"))
 		Set ProductOpPallet.AantalSecties = ResultSet.Data("AantalSecties")
 		Do ProductenOpPallet.Insert(ProductOpPallet)
@@ -425,7 +397,6 @@
 			Else
 			{
 				Set Result = "Palletten opvragen is niet mogelijk vanop deze server" 
-				; [RV-JCL] : andere manier gebruiken .. code zal altijd falen op test-server
 			}
 		}
 	}
Index: CSC ConfiguratorService.prj.xml
===================================================================
diff -u -r1843 -r2004
--- CSC ConfiguratorService.prj.xml	(.../CSC ConfiguratorService.prj.xml)	(revision 1843)
+++ CSC ConfiguratorService.prj.xml	(.../CSC ConfiguratorService.prj.xml)	(revision 2004)
@@ -1,15 +1,20 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="CSC ConfiguratorService" LastModified="2011-08-19 13:33:48">
+<Project name="CSC ConfiguratorService" LastModified="2011-09-07 16:36:27">
   <Items>
-    <ProjectItem name="APPS.PM.dto.Kenm.AutoVariantenVanMaster" type="CLS"/>
-    <ProjectItem name="APPS.PM.dto.Kenm.AutoVariantenVanMasters" type="CLS"/>
+    <ProjectItem name="APPS.PM.Maatwerk.IngegevenKenmerkenVisitor" type="CLS"/>
+    <ProjectItem name="APPS.PM.Maatwerk.TBX.Frees.Generator" type="CLS"/>
+    <ProjectItem name="APPS.PM.Maatwerk.dto.IngegevenKenmerken" type="CLS"/>
+    <ProjectItem name="APPS.PM.Maatwerk.dto.TAOOKenmerken" type="CLS"/>
+    <ProjectItem name="APPS.PM.Maatwerk.impl.DtoNaarKenmerkVisitor" type="CLS"/>
+    <ProjectItem name="APPS.PM.Maatwerk.impl.KenmerkNaarDtoVisitor" type="CLS"/>
     <ProjectItem name="APPS.VKP.Maatwerk.ConfiguratorService" type="CLS"/>
     <ProjectItem name="APPS.VKP.Maatwerk.dto.BewaardPad" type="CLS"/>
     <ProjectItem name="APPS.VKP.Maatwerk.dto.BewaardeIngegevenKenmerken" type="CLS"/>
     <ProjectItem name="APPS.VKP.Maatwerk.dto.BewaardeKenmerken" type="CLS"/>
     <ProjectItem name="APPS.VKP.Maatwerk.dto.ConfiguratorParameters" type="CLS"/>
     <ProjectItem name="APPS.VKP.Maatwerk.dto.Pad" type="CLS"/>
+    <ProjectItem name="APPS.VKP.Maatwerk.dto.PadVisitor" type="CLS"/>
     <ProjectItem name="APPS.VKP.Maatwerk.dto.ProductToevoegenParameters" type="CLS"/>
     <ProjectItem name="APPS.VKP.Maatwerk.dto.ProductWijzigenParameters" type="CLS"/>
     <ProjectItem name="APPS.VKP.Maatwerk.dto.StandalonePad" type="CLS"/>
@@ -18,14 +23,47 @@
     <ProjectItem name="APPS.VKP.Maatwerk.enu.DocumentType" type="CLS"/>
     <ProjectItem name="APPS.VKP.Maatwerk.impl.BesteldProduct" type="CLS"/>
     <ProjectItem name="APPS.VKP.Maatwerk.impl.BesteldeProducten" type="CLS"/>
+    <ProjectItem name="APPS.VKP.Maatwerk.impl.BewaardeKenmerken" type="CLS"/>
     <ProjectItem name="APPS.VKP.Maatwerk.impl.ConfiguratorParameters" type="CLS"/>
+    <ProjectItem name="APPS.VKP.Maatwerk.impl.GebruikerPaden" type="CLS"/>
     <ProjectItem name="APPS.VKP.Maatwerk.impl.IParametersVisitor" type="CLS"/>
+    <ProjectItem name="APPS.VKP.Maatwerk.impl.KenmerkenBewaarder" type="CLS"/>
+    <ProjectItem name="APPS.VKP.Maatwerk.impl.Pad" type="CLS"/>
+    <ProjectItem name="APPS.VKP.Maatwerk.impl.PadToDtoVisitor" type="CLS"/>
+    <ProjectItem name="APPS.VKP.Maatwerk.impl.PadVisitor" type="CLS"/>
+    <ProjectItem name="APPS.VKP.Maatwerk.impl.PadenHelper" type="CLS"/>
     <ProjectItem name="APPS.VKP.Maatwerk.impl.ParameterToDtoVisitor" type="CLS"/>
     <ProjectItem name="APPS.VKP.Maatwerk.impl.ProductToevoegenParameters" type="CLS"/>
     <ProjectItem name="APPS.VKP.Maatwerk.impl.ProductWijzigenParameters" type="CLS"/>
+    <ProjectItem name="APPS.VKP.Maatwerk.impl.StandalonePad" type="CLS"/>
+    <ProjectItem name="APPS.VKP.Maatwerk.impl.TemplateExternPad" type="CLS"/>
+    <ProjectItem name="APPS.VKP.Maatwerk.impl.TemplateInternPad" type="CLS"/>
     <ProjectItem name="APPS.VKP.Maatwerk.impl.WinkelkarToProductVisitor" type="CLS"/>
     <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.EC.Winkelkar.Visitors.ProductLijnenTeller" type="CLS"/>
+    <ProjectItem name="DOM.PM.IngegevenKenmerkenAPI" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.IKCanonischeWaardeGenerator" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.IKID" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerkenVisitor" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.impl.IKIDHash" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.impl.IKIDHashData" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.impl.KADBeslag" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.impl.KADBoring" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.impl.KADKenmerken" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.impl.KADVullingBeschrijving" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.impl.OLMKenmerken" type="CLS"/>
+    <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.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="FLOWOFF.mac" type="MAC"/>
     <ProjectItem name="FLOWORD.mac" type="MAC"/>
     <ProjectItem name="WS.VKP.Maatwerk.ConfiguratorService" type="CLS"/>
Index: APPS/VKP/Maatwerk/impl/PadenHelper.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/impl/PadenHelper.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/impl/PadenHelper.cls.xml	(revision 2004)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VKP.Maatwerk.impl.PadenHelper">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefGebruikerPaden">
+<ClassMethod>1</ClassMethod>
+<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())
+	If ('$IsObject(GebruikerPaden))
+	{
+		Set GebruikerPaden = ##class(APPS.VKP.Maatwerk.impl.GebruikerPaden).%New(Gebruiker)
+	}
+	Quit GebruikerPaden
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml
===================================================================
diff -u -r1898 -r2004
--- DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml	(.../TBXKenmerken.cls.xml)	(revision 1898)
+++ DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml	(.../TBXKenmerken.cls.xml)	(revision 2004)
@@ -214,6 +214,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefFamilie">
+<ReturnType>DOM.PM.enu.Familie</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.enu.Familie).Lade()
+]]></Implementation>
+</Method>
+
+<Method name="GeefVariant">
+<ReturnType>DOM.PM.enu.Variant</ReturnType>
+<Implementation><![CDATA[	Quit ..LadeVariant
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 /***  * /
Index: APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml
===================================================================
diff -u -r1965 -r2004
--- APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml	(.../DtoNaarKenmerkVisitor.cls.xml)	(revision 1965)
+++ APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml	(.../DtoNaarKenmerkVisitor.cls.xml)	(revision 2004)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="APPS.PM.Maatwerk.impl.DtoNaarKenmerkVisitor">
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>APPS.PM.Maatwerk.IngegevenKenmerkenVisitor</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="IngegevenKenmerken">
Index: APPS/VKP/Maatwerk/impl/StandalonePad.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/impl/StandalonePad.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/impl/StandalonePad.cls.xml	(revision 2004)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VKP.Maatwerk.impl.StandalonePad">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VKP.Maatwerk.impl.Pad</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="Accept">
+<FormalSpec>Visitor:APPS.VKP.Maatwerk.impl.PadVisitor</FormalSpec>
+<Implementation><![CDATA[	Quit Visitor.VerwerkStandalonePad(##this)
+]]></Implementation>
+</Method>
+
+<Method name="IsBewarenToegestaanDoor">
+<FormalSpec>Gebruiker:DOM.common.Gebruiker</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set BewarenToegestaan = 0
+	Set KlantVanHoecke = ##class(DOM.DomeinContext).Instance().GeefKlantAPI().GeefKlantVanHoecke()
+	If (Gebruiker.GeefKlantRelatie().%Id() = KlantVanHoecke.GeefNummer())
+	{
+		Set UserID = $$USERID^vhUSER(Gebruiker.GeefCode())
+		Set BewarenToegestaan = $$IsGroep^vhUSER(UserID,"ICT")
+	}
+	Else
+	{
+		Set BewarenToegestaan = (..Gebruiker.%Id() = Gebruiker.%Id())
+	}
+	Quit BewarenToegestaan
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+</Export>
Index: vhUnitTest/APPS/MAG/Inventaris/TestInventarisService.cls.xml
===================================================================
diff -u -r1986 -r2004
--- vhUnitTest/APPS/MAG/Inventaris/TestInventarisService.cls.xml	(.../TestInventarisService.cls.xml)	(revision 1986)
+++ vhUnitTest/APPS/MAG/Inventaris/TestInventarisService.cls.xml	(.../TestInventarisService.cls.xml)	(revision 2004)
@@ -389,9 +389,6 @@
 <FormalSpec>SQL:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	
-	; [RV-JCL] : vrij generieke code .. best weghalen uit unittest en op algemene wrapper plaatsen zo herbruikbaar voor anderen.
-		
 	Set SQLGCWrapper=##class(EWMS.SQLGCWrapper).%New()
 	Quit:(SQLGCWrapper=$$$NULLOREF) $$$ERROR($$$GeneralError,"Kan geen nieuw 'EWMS.SQLGCWrapper' object aanmaken.")
 	
Index: APPS/VKP/Maatwerk/impl/PadToDtoVisitor.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/impl/PadToDtoVisitor.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/impl/PadToDtoVisitor.cls.xml	(revision 2004)
@@ -0,0 +1,72 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VKP.Maatwerk.impl.PadToDtoVisitor">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VKP.Maatwerk.impl.PadVisitor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Pad">
+<Type>APPS.VKP.Maatwerk.dto.Pad</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DataService">
+<Type>APPS.common.DataService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..DataService = ##class(APPS.common.DataService).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefPad">
+<ReturnType>APPS.VKP.Maatwerk.dto.Pad</ReturnType>
+<Implementation><![CDATA[	Quit ..Pad
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkStandalonePad">
+<FormalSpec>StandalonePad:APPS.VKP.Maatwerk.impl.StandalonePad</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Pad = ##class(APPS.VKP.Maatwerk.dto.StandalonePad).%New()
+	Do ..VerwerkPadBasis(StandalonePad)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTemplateExternPad">
+<FormalSpec>TemplateExternPad:APPS.VKP.Maatwerk.impl.TemplateExternPad</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Pad = ##class(APPS.VKP.Maatwerk.dto.TemplateExternPad).%New()
+	Do ..VerwerkPadBasis(TemplateExternPad)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTemplateInternPad">
+<FormalSpec>TemplateInternPad:APPS.VKP.Maatwerk.impl.TemplateInternPad</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Pad = ##class(APPS.VKP.Maatwerk.dto.TemplateInternPad).%New()
+	Do ..VerwerkPadBasis(TemplateInternPad)
+	Set ..Pad.KlantData = ..DataService.GeefKlantData(TemplateInternPad.GeefKlant().%Id())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkPadBasis">
+<FormalSpec>Pad:APPS.VKP.Maatwerk.impl.Pad</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..Pad.GebruikerData = ..DataService.GeefGebruikerData(Pad.GeefGebruiker().%Id())
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VKP/Maatwerk/dto/BewaardeKenmerken.cls.xml
===================================================================
diff -u -r1843 -r2004
--- APPS/VKP/Maatwerk/dto/BewaardeKenmerken.cls.xml	(.../BewaardeKenmerken.cls.xml)	(revision 1843)
+++ APPS/VKP/Maatwerk/dto/BewaardeKenmerken.cls.xml	(.../BewaardeKenmerken.cls.xml)	(revision 2004)
@@ -6,7 +6,7 @@
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Eigenaar">
-<Type>%String</Type>
+<Type>DOM.common.dto.GebruikerData</Type>
 </Property>
 
 <Property name="Familie">
Index: APPS/VKP/Maatwerk/ConfiguratorService.cls.xml
===================================================================
diff -u -r1731 -r2004
--- APPS/VKP/Maatwerk/ConfiguratorService.cls.xml	(.../ConfiguratorService.cls.xml)	(revision 1731)
+++ APPS/VKP/Maatwerk/ConfiguratorService.cls.xml	(.../ConfiguratorService.cls.xml)	(revision 2004)
@@ -24,6 +24,26 @@
 ]]></Implementation>
 </Method>
 
+<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)
+	
+	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"))
+	}
+	
+	// Doet de volledige bewaaractie binnen de constructor
+	Set KenmerkenBewaarder = ##class(APPS.VKP.Maatwerk.impl.KenmerkenBewaarder).%New(Gebruiker, Kenmerken, Pad, Naam, MagOverschrijven)
+]]></Implementation>
+</Method>
+
 <Method name="UpdateWinkelkarLijn">
 <FormalSpec>Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String,DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%String,LijnID:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -50,6 +70,76 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefBewaardeIngegevenKenmerken">
+<FormalSpec>GebruikerID:%String,KlantID:%String=""</FormalSpec>
+<ReturnType>APPS.VKP.Maatwerk.dto.BewaardeIngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	Set BewaardeIngegevenKenmerken = ##class(APPS.VKP.Maatwerk.dto.BewaardeIngegevenKenmerken).%New()
+	
+	Set Gebruiker = ##class(DOM.common.Gebruiker).%OpenId(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()))
+	{
+		Set UserID = $$USERID^vhUSER(Gebruiker.GeefCode())
+		If (($$IsGroep^vhUSER(UserID,"ICT") || $$IsGroep^vhUSER(UserID,"PM") || $$IsGroep^vhUSER(UserID,"OV")))
+		{
+			If (KlantID = "")
+			{
+				Set ResultSet = ##class(%ResultSet).%New("APPS.VKP.Maatwerk.impl.Pad:Extent")
+				Do ResultSet.Execute()
+			}
+			Else
+			{
+				Set ResultSet = ##class(%ResultSet).%New()
+				Do ResultSet.Prepare("SELECT ID FROM APPS_VKP_Maatwerk_impl.TemplateInternPad WHERE Klant = ?")
+				Do ResultSet.Execute(KlantID)
+			}
+		}
+		Else
+		{
+			Set ResultSet = ##class(%ResultSet).%New()
+			Do ResultSet.Prepare("SELECT ID FROM APPS_VKP_Maatwerk_impl.TemplateExternPad WHERE Gebruiker = ?")
+			Do ResultSet.Execute(GebruikerID)
+		}
+	}
+	
+	While (ResultSet.Next())
+	{
+		Set BewaardPad = ##class(APPS.VKP.Maatwerk.dto.BewaardPad).%New()
+		
+		Set PadImpl = ##class(APPS.VKP.Maatwerk.impl.Pad).%OpenId(ResultSet.Data("ID"))
+		Set PadToDtoVisitor = ##class(APPS.VKP.Maatwerk.impl.PadToDtoVisitor).%New(PadImpl)
+		Do PadImpl.Accept(PadToDtoVisitor)
+		Set Pad = PadToDtoVisitor.GeefPad()
+		
+		Set BewaardPad.Pad = Pad
+		Set BewaardPad.IsBewarenToegestaan = PadImpl.IsBewarenToegestaanDoor(Gebruiker)
+		
+		Set BewaardeKenmerkenIterator = PadImpl.GeefBewaardeKenmerkenIterator()
+		While (BewaardeKenmerkenIterator.HasNext())
+		{
+			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.Familie = BewaardeKenmerkenImpl.GeefFamilie()
+			Set BewaardeKenmerken.Variant = BewaardeKenmerkenImpl.GeefVariant()
+			Set BewaardeKenmerken.Naam = BewaardeKenmerkenImpl.GeefNaam()
+			Do BewaardPad.BewaardeKenmerken.Insert(BewaardeKenmerken)
+		}
+		
+		Do BewaardeIngegevenKenmerken.BewaardePaden.Insert(BewaardPad)
+	}
+
+	Quit BewaardeIngegevenKenmerken
+]]></Implementation>
+</Method>
+
 <Method name="GeefParameters">
 <FormalSpec>ParameterID:%String</FormalSpec>
 <ReturnType>APPS.VKP.Maatwerk.dto.ConfiguratorParameters</ReturnType>
Index: APPS/VKP/Maatwerk/dto/TemplateInternPad.cls.xml
===================================================================
diff -u -r1843 -r2004
--- APPS/VKP/Maatwerk/dto/TemplateInternPad.cls.xml	(.../TemplateInternPad.cls.xml)	(revision 1843)
+++ APPS/VKP/Maatwerk/dto/TemplateInternPad.cls.xml	(.../TemplateInternPad.cls.xml)	(revision 2004)
@@ -5,12 +5,14 @@
 <Super>APPS.VKP.Maatwerk.dto.Pad</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Property name="GebruikerID">
-<Type>%String</Type>
+<Property name="KlantData">
+<Type>DOM.common.dto.KlantData</Type>
 </Property>
 
-<Property name="KlantID">
-<Type>%String</Type>
-</Property>
+<Method name="Accept">
+<FormalSpec>Visitor:APPS.VKP.Maatwerk.dto.PadVisitor</FormalSpec>
+<Implementation><![CDATA[	Quit Visitor.VerwerkTemplateInternPad(##this)
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: APPS/VKP/Maatwerk/impl/KenmerkenBewaarder.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/impl/KenmerkenBewaarder.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/impl/KenmerkenBewaarder.cls.xml	(revision 2004)
@@ -0,0 +1,89 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VKP.Maatwerk.impl.KenmerkenBewaarder">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VKP.Maatwerk.dto.PadVisitor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="GebruikerPaden">
+<Type>APPS.VKP.Maatwerk.impl.GebruikerPaden</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Pad">
+<Type>APPS.VKP.Maatwerk.impl.Pad</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Gebruiker:DOM.common.Gebruiker,Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Pad:APPS.VKP.Maatwerk.dto.Pad,Naam:%String,MagOverschrijven:%Boolean</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..GebruikerPaden = ##class(APPS.VKP.Maatwerk.impl.PadenHelper).GeefGebruikerPaden(Gebruiker)
+	
+	Set DtoNaarKenmerkVisitor = ##class(APPS.PM.Maatwerk.impl.DtoNaarKenmerkVisitor).%New()
+	Do Kenmerken.Accept(DtoNaarKenmerkVisitor)
+	Set IngegevenKenmerken = DtoNaarKenmerkVisitor.GeefIngegevenKenmerken()
+	Set IKID = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenAPI().BewaarIngegevenKenmerken(IngegevenKenmerken)
+	Set BewaardeKenmerken = ##class(APPS.VKP.Maatwerk.impl.BewaardeKenmerken).%New(Naam, IKID, Gebruiker)
+	
+	Do Pad.Accept(##this)
+	
+	If (..Pad.IsBewarenToegestaanDoor(Gebruiker))
+	{
+		If (('..Pad.HeeftBewaardeKenmerken(Naam)) || (MagOverschrijven && ..Pad.IsOverschrijvenToegestaanDoor(Naam, Gebruiker)))
+		{
+			Do ..Pad.VoegToeBewaardeKenmerken(BewaardeKenmerken)
+		}
+	}
+	Else
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De gebruiker "_Gebruiker.GeefCode()_" mag niet opslaan in dit pad"))
+	}
+	
+	Set Status = ..GebruikerPaden.%Save()
+	
+	If ($$$ISERR(Status))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Kon de paden niet opslaan voor gebruiker "_Gebruiker.%Id(),Status))
+	}
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkStandalonePad">
+<FormalSpec>StandalonePad:APPS.VKP.Maatwerk.dto.StandalonePad</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Pad = ..GebruikerPaden.GeefStandalonePad()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTemplateExternPad">
+<FormalSpec>TemplateExternPad:APPS.VKP.Maatwerk.dto.TemplateExternPad</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Pad = ..GebruikerPaden.GeefTemplateExternPad()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTemplateInternPad">
+<FormalSpec>TemplateInternPad:APPS.VKP.Maatwerk.dto.TemplateInternPad</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Klant = ##class(Derde.Klant.Klant).%OpenId(TemplateInternPad.KlantData.ID)
+	If ('$IsObject(Klant))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Klant "_TemplateInternPad.KlantData.ID_" bestaat niet"))
+	}
+	Set ..Pad = ..GebruikerPaden.GeefTemplateInternPad(Klant)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VKP/Maatwerk/impl/GebruikerPaden.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/impl/GebruikerPaden.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/impl/GebruikerPaden.cls.xml	(revision 2004)
@@ -0,0 +1,140 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VKP.Maatwerk.impl.GebruikerPaden">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%Persistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Gebruiker">
+<Type>DOM.common.Gebruiker</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="StandalonePad">
+<Type>APPS.VKP.Maatwerk.impl.StandalonePad</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TemplateExternPad">
+<Type>APPS.VKP.Maatwerk.impl.TemplateExternPad</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TemplateInternPaden">
+<Type>APPS.VKP.Maatwerk.impl.TemplateInternPad</Type>
+<Collection>array</Collection>
+<Private>1</Private>
+</Property>
+
+<Index name="GebruikerIndex">
+<IdKey>1</IdKey>
+<Properties>Gebruiker</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Method name="%OnNew">
+<FormalSpec>Gebruiker:DOM.common.Gebruiker</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Gebruiker = Gebruiker
+	Set ..StandalonePad = ##class(APPS.VKP.Maatwerk.impl.StandalonePad).%New(Gebruiker)
+	Set ..TemplateExternPad = ##class(APPS.VKP.Maatwerk.impl.TemplateExternPad).%New(Gebruiker)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefGebruiker">
+<ReturnType>DOM.common.Gebruiker</ReturnType>
+<Implementation><![CDATA[	Quit ..Gebruiker
+]]></Implementation>
+</Method>
+
+<Method name="GeefStandalonePad">
+<ReturnType>APPS.VKP.Maatwerk.impl.StandalonePad</ReturnType>
+<Implementation><![CDATA[	Quit ..StandalonePad
+]]></Implementation>
+</Method>
+
+<Method name="GeefTemplateExternPad">
+<ReturnType>APPS.VKP.Maatwerk.impl.TemplateExternPad</ReturnType>
+<Implementation><![CDATA[	Quit ..TemplateExternPad
+]]></Implementation>
+</Method>
+
+<Method name="GeefTemplateInternPad">
+<FormalSpec>Klant:Derde.Klant.Klant</FormalSpec>
+<ReturnType>APPS.VKP.Maatwerk.impl.TemplateInternPad</ReturnType>
+<Implementation><![CDATA[
+	If ('..TemplateInternPaden.IsDefined(Klant.%Id()))
+	{
+		Do ..TemplateInternPaden.SetAt(##class(APPS.VKP.Maatwerk.impl.TemplateInternPad).%New(..Gebruiker,Klant),Klant.%Id())
+	}
+	Quit ..TemplateInternPaden.GetAt(Klant.%Id())
+]]></Implementation>
+</Method>
+
+<Method name="DeleteIntern">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = ..StandalonePad.%DeleteId(..StandalonePad.%Id())
+	If ($$$ISOK(Status)) Set Status = ..TemplateExternPad.%DeleteId(..TemplateExternPad.%Id())
+	Set TemplateInternPadIterator = ##class(TECH.ListIterator).%New(..TemplateInternPaden)
+	While ($$$ISOK(Status) && TemplateInternPadIterator.HasNext())
+	{
+		Set TemplateInternPad = TemplateInternPadIterator.Next()
+		Set Status = TemplateInternPad.%DeleteId(TemplateInternPad.%Id())
+	}
+	Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="%OnDelete">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>oid:%ObjectIdentity</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Object = ..%Open(oid)
+	If ($IsObject(Object))
+	{
+		Quit Object.DeleteIntern()
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.VKP.Maa79D.GebruikerPadenD</DataLocation>
+<DefaultData>GebruikerPadenDefaultData</DefaultData>
+<IdLocation>^APPS.VKP.Maa79D.GebruikerPadenD</IdLocation>
+<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>
+<Value name="3">
+<Value>StandalonePad</Value>
+</Value>
+<Value name="4">
+<Value>TemplateExternPad</Value>
+</Value>
+<Value name="5">
+<Value>TemplateInternPad</Value>
+</Value>
+<Value name="6">
+<Value>TemplateInternPaden</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: APPS/VKP/Maatwerk/impl/Pad.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/impl/Pad.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/impl/Pad.cls.xml	(revision 2004)
@@ -0,0 +1,131 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VKP.Maatwerk.impl.Pad">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<SqlTableName>PadBasis</SqlTableName>
+<Super>%Persistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="BewaardeKenmerken">
+<Type>APPS.VKP.Maatwerk.impl.BewaardeKenmerken</Type>
+<Collection>array</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="Gebruiker">
+<Type>DOM.common.Gebruiker</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Gebruiker:DOM.common.Gebruiker</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Gebruiker = Gebruiker
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefGebruiker">
+<ReturnType>DOM.common.Gebruiker</ReturnType>
+<Implementation><![CDATA[	Quit ..Gebruiker
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeBewaardeKenmerken">
+<FormalSpec>BewaardeKenmerken:APPS.VKP.Maatwerk.impl.BewaardeKenmerken</FormalSpec>
+<Implementation><![CDATA[	Do ..BewaardeKenmerken.SetAt(BewaardeKenmerken,BewaardeKenmerken.GeefNaam())
+]]></Implementation>
+</Method>
+
+<Method name="GeefBewaardeKenmerkenIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..BewaardeKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBewaardeKenmerken">
+<FormalSpec>Naam:%String</FormalSpec>
+<ReturnType>APPS.VKP.Maatwerk.impl.BewaardeKenmerken</ReturnType>
+<Implementation><![CDATA[	Quit ..BewaardeKenmerken.GetAt(Naam)
+]]></Implementation>
+</Method>
+
+<Method name="HeeftBewaardeKenmerken">
+<FormalSpec>Naam:%String</FormalSpec>
+<ReturnType>APPS.VKP.Maatwerk.impl.BewaardeKenmerken</ReturnType>
+<Implementation><![CDATA[	Quit ..BewaardeKenmerken.IsDefined(Naam)
+]]></Implementation>
+</Method>
+
+<Method name="IsBewarenToegestaanDoor">
+<Abstract>1</Abstract>
+<FormalSpec>Gebruiker:DOM.common.Gebruiker</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+
+<Method name="IsOverschrijvenToegestaanDoor">
+<FormalSpec>Naam:%String,Gebruiker:DOM.common.Gebruiker</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set BewaardeKenmerken = ..GeefBewaardeKenmerken(Naam)
+	
+	If ('$IsObject(BewaardeKenmerken))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Er zijn geen bewaarde kenmerken onder de naam "_Naam))
+	}
+	
+	Quit BewaardeKenmerken.Eigenaar = Gebruiker
+]]></Implementation>
+</Method>
+
+<Method name="%OnDelete">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>oid:%ObjectIdentity</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = $$$OK
+	Set Object = ..%Open(oid)
+	If ($IsObject(Object))
+	{
+		Set BewaardeKenmerkenIterator = Object.GeefBewaardeKenmerkenIterator()
+		While ($$$ISOK(Status) && BewaardeKenmerkenIterator.HasNext())
+		{
+			Set BewaardeKenmerken = BewaardeKenmerkenIterator.Next()
+			Set Status = BewaardeKenmerken.%DeleteId(BewaardeKenmerken.%Id())
+		}
+	}
+	Quit Status
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.VKP.Maatwerk.impl.PadD</DataLocation>
+<DefaultData>PadDefaultData</DefaultData>
+<IdLocation>^APPS.VKP.Maatwerk.impl.PadD</IdLocation>
+<IndexLocation>^APPS.VKP.Maatwerk.impl.PadI</IndexLocation>
+<StreamLocation>^APPS.VKP.Maatwerk.impl.PadS</StreamLocation>
+<Data name="BewaardeKenmerken">
+<Attribute>BewaardeKenmerken</Attribute>
+<Structure>subnode</Structure>
+<Subscript>"BewaardeKenmerken"</Subscript>
+</Data>
+<Data name="PadDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Gebruiker</Value>
+</Value>
+<Value name="3">
+<Value>TypePad</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: APPS/VKP/Maatwerk/impl/PadVisitor.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/impl/PadVisitor.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/impl/PadVisitor.cls.xml	(revision 2004)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VKP.Maatwerk.impl.PadVisitor">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="VerwerkTemplateInternPad">
+<FormalSpec>TemplateInternPad:APPS.VKP.Maatwerk.impl.TemplateInternPad</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTemplateExternPad">
+<FormalSpec>TemplateExternPad:APPS.VKP.Maatwerk.impl.TemplateExternPad</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkStandalonePad">
+<FormalSpec>StandalonePad:APPS.VKP.Maatwerk.impl.StandalonePad</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/PM/Maatwerk/IngegevenKenmerkenVisitor.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/IngegevenKenmerkenVisitor.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/IngegevenKenmerkenVisitor.cls.xml	(revision 2004)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.PM.Maatwerk.IngegevenKenmerkenVisitor">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="VerwerkTAOOKenmerken">
+<FormalSpec>TAOOKenmerken:APPS.PM.Maatwerk.dto.TAOOKenmerken</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VKP/Maatwerk/dto/PadVisitor.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/dto/PadVisitor.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/dto/PadVisitor.cls.xml	(revision 2004)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VKP.Maatwerk.dto.PadVisitor">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="VerwerkTemplateInternPad">
+<FormalSpec>TemplateInternPad:APPS.VKP.Maatwerk.dto.TemplateInternPad</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTemplateExternPad">
+<FormalSpec>TemplateExternPad:APPS.VKP.Maatwerk.dto.TemplateExternPad</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkStandalonePad">
+<FormalSpec>StandalonePad:APPS.VKP.Maatwerk.dto.StandalonePad</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VKP/Maatwerk/dto/BewaardeIngegevenKenmerken.cls.xml
===================================================================
diff -u -r1843 -r2004
--- APPS/VKP/Maatwerk/dto/BewaardeIngegevenKenmerken.cls.xml	(.../BewaardeIngegevenKenmerken.cls.xml)	(revision 1843)
+++ APPS/VKP/Maatwerk/dto/BewaardeIngegevenKenmerken.cls.xml	(.../BewaardeIngegevenKenmerken.cls.xml)	(revision 2004)
@@ -5,8 +5,8 @@
 <Super>%RegisteredObject,%XML.Adaptor</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Property name="GebruikerID">
-<Type>%String</Type>
+<Property name="GebruikerData">
+<Type>DOM.common.dto.GebruikerData</Type>
 </Property>
 
 <Property name="BewaardePaden">