Index: APPS/VKP/Maatwerk/dto/Pad.cls.xml
===================================================================
diff -u -r2004 -r2054
--- APPS/VKP/Maatwerk/dto/Pad.cls.xml	(.../Pad.cls.xml)	(revision 2004)
+++ APPS/VKP/Maatwerk/dto/Pad.cls.xml	(.../Pad.cls.xml)	(revision 2054)
@@ -9,5 +9,16 @@
 <Property name="GebruikerData">
 <Type>DOM.common.dto.GebruikerData</Type>
 </Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+
+/// [ Review CSC   WV BewaarIK ] 
+/// Method Accept(Visitor As APPS.VKP.Maatwerk.dto.PadVisitor) [ Abstract ]  {} 
+
+*/
+]]></Content>
+</UDLText>
 </Class>
 </Export>
Index: APPS/VKP/Maatwerk/impl/GebruikerPaden.cls.xml
===================================================================
diff -u -r2004 -r2054
--- APPS/VKP/Maatwerk/impl/GebruikerPaden.cls.xml	(.../GebruikerPaden.cls.xml)	(revision 2004)
+++ APPS/VKP/Maatwerk/impl/GebruikerPaden.cls.xml	(.../GebruikerPaden.cls.xml)	(revision 2054)
@@ -87,6 +87,7 @@
 		Set TemplateInternPad = TemplateInternPadIterator.Next()
 		Set Status = TemplateInternPad.%DeleteId(TemplateInternPad.%Id())
 	}
+	// [ Review CSC   WV BewaarIK ]  Opgelet : %DeleteId()  zal de in-memory objecten niet wissen --> propts zelf op leeg zetten. 
 	Quit Status
 ]]></Implementation>
 </Method>
Index: APPS/VKP/Maatwerk/impl/Pad.cls.xml
===================================================================
diff -u -r2004 -r2054
--- APPS/VKP/Maatwerk/impl/Pad.cls.xml	(.../Pad.cls.xml)	(revision 2004)
+++ APPS/VKP/Maatwerk/impl/Pad.cls.xml	(.../Pad.cls.xml)	(revision 2054)
@@ -29,6 +29,17 @@
 ]]></Implementation>
 </Method>
 
+<UDLText name="T">
+<Content><![CDATA[
+/*
+
+/// [ Review CSC   WV BewaarIK ] 
+/// Method Accept(Visitor As APPS.VKP.Maatwerk.impl.PadVisitor) [ Abstract ]  {} 
+
+*/
+]]></Content>
+</UDLText>
+
 <Method name="GeefGebruiker">
 <ReturnType>DOM.common.Gebruiker</ReturnType>
 <Implementation><![CDATA[	Quit ..Gebruiker
@@ -37,7 +48,10 @@
 
 <Method name="VoegToeBewaardeKenmerken">
 <FormalSpec>BewaardeKenmerken:APPS.VKP.Maatwerk.impl.BewaardeKenmerken</FormalSpec>
-<Implementation><![CDATA[	Do ..BewaardeKenmerken.SetAt(BewaardeKenmerken,BewaardeKenmerken.GeefNaam())
+<Implementation><![CDATA[
+	// [ Review CSC   WV BewaarIK ]  Deze zal ook bestaande overschrijven.  
+	//                               In commentaar toevoegen dat  eerst de method "IsOverschrijvenToegestaanDoor" moet opgevraagd worden. 
+	Do ..BewaardeKenmerken.SetAt(BewaardeKenmerken,BewaardeKenmerken.GeefNaam())
 ]]></Implementation>
 </Method>
 
@@ -78,7 +92,8 @@
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Er zijn geen bewaarde kenmerken onder de naam "_Naam))
 	}
 	
-	Quit BewaardeKenmerken.Eigenaar = Gebruiker
+	Quit BewaardeKenmerken.Eigenaar = Gebruiker   ; [ Review CSC   WV BewaarIK ]  Hier ga je eigenlijk de OREFs vergelijken.  Is dit bulletproof ? 
+												  ;								  Bovendien is de property Eigenaar een private property
 ]]></Implementation>
 </Method>
 
Index: APPS/VKP/Maatwerk/impl/ConfiguratorParameters.cls.xml
===================================================================
diff -u -r1731 -r2054
--- APPS/VKP/Maatwerk/impl/ConfiguratorParameters.cls.xml	(.../ConfiguratorParameters.cls.xml)	(revision 1731)
+++ APPS/VKP/Maatwerk/impl/ConfiguratorParameters.cls.xml	(.../ConfiguratorParameters.cls.xml)	(revision 2054)
@@ -68,6 +68,17 @@
 ]]></Implementation>
 </Method>
 
+<UDLText name="T">
+<Content><![CDATA[
+/*
+
+/// [ Review CSC   WV BewaarIK ] 
+/// Method Accept(Visitor As APPS.VKP.Maatwerk.impl.IParametersVisitor) [ Abstract ]  {} 
+
+*/
+]]></Content>
+</UDLText>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^APPS.VKP.Ma79D.Configurator907D</DataLocation>
Index: APPS/PM/Maatwerk/dto/IngegevenKenmerken.cls.xml
===================================================================
diff -u -r1799 -r2054
--- APPS/PM/Maatwerk/dto/IngegevenKenmerken.cls.xml	(.../IngegevenKenmerken.cls.xml)	(revision 1799)
+++ APPS/PM/Maatwerk/dto/IngegevenKenmerken.cls.xml	(.../IngegevenKenmerken.cls.xml)	(revision 2054)
@@ -36,5 +36,16 @@
 <Abstract>1</Abstract>
 <ReturnType>%Boolean</ReturnType>
 </Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+
+///  [ Review CSC   WV BewaarIK ] 
+///  Method Accept(Visitor As APPS.PM.Maatwerk.IngegevenKenmerkenVisitor) [ Abstract ]  {} 
+
+*/
+]]></Content>
+</UDLText>
 </Class>
 </Export>
Index: APPS/VKP/Maatwerk/impl/KenmerkenBewaarder.cls.xml
===================================================================
diff -u -r2008 -r2054
--- APPS/VKP/Maatwerk/impl/KenmerkenBewaarder.cls.xml	(.../KenmerkenBewaarder.cls.xml)	(revision 2008)
+++ APPS/VKP/Maatwerk/impl/KenmerkenBewaarder.cls.xml	(.../KenmerkenBewaarder.cls.xml)	(revision 2054)
@@ -21,6 +21,7 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	// [ Review CSC   WV BewaarIK ]   Waarom gebruiker uit pad en niet uit 1ste parameter "Gebruiker" ? 
 	Set GebruikerUitPad = ##class(DOM.common.Gebruiker).%OpenId(Pad.GebruikerData.ID)
 	If ('$IsObject(GebruikerUitPad))
 	{
@@ -39,7 +40,7 @@
 	
 	If (..Pad.IsBewarenToegestaanDoor(Gebruiker))
 	{
-		If (('..Pad.HeeftBewaardeKenmerken(Naam)) || (MagOverschrijven && ..Pad.IsOverschrijvenToegestaanDoor(Naam, Gebruiker)))
+		If (('..Pad.HeeftBewaardeKenmerken(BewaardeKenmerken.GeefNaam())) || (MagOverschrijven && ..Pad.IsOverschrijvenToegestaanDoor(BewaardeKenmerken.GeefNaam(), Gebruiker)))
 		{
 			Do ..Pad.VoegToeBewaardeKenmerken(BewaardeKenmerken)
 		}
Index: APPS/VKP/Maatwerk/ConfiguratorService.cls.xml
===================================================================
diff -u -r2008 -r2054
--- APPS/VKP/Maatwerk/ConfiguratorService.cls.xml	(.../ConfiguratorService.cls.xml)	(revision 2008)
+++ APPS/VKP/Maatwerk/ConfiguratorService.cls.xml	(.../ConfiguratorService.cls.xml)	(revision 2054)
@@ -108,13 +108,14 @@
 			Do ResultSet.Execute(GebruikerID)
 		}
 	}
-	
+	// [ Review CSC   WV BewaarIK ]  Er is geen Else-clause, dus ResultSet op volgende lijn zal <UNDEFINED> geven 
+
 	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)
+		Set PadToDtoVisitor = ##class(APPS.VKP.Maatwerk.impl.PadToDtoVisitor).%New(PadImpl)   ; [ Review CSC   WV BewaarIK ]  Geen params bij deze %OnNew() 
 		Do PadImpl.Accept(PadToDtoVisitor)
 		Set Pad = PadToDtoVisitor.GeefPad()