Index: APPS/VKP/Maatwerk/dto/Pad.cls.xml
===================================================================
diff -u -r2054 -r2057
--- APPS/VKP/Maatwerk/dto/Pad.cls.xml (.../Pad.cls.xml) (revision 2054)
+++ APPS/VKP/Maatwerk/dto/Pad.cls.xml (.../Pad.cls.xml) (revision 2057)
@@ -10,15 +10,9 @@
DOM.common.dto.GebruikerData
-
-
-
+
+1
+Visitor:APPS.VKP.Maatwerk.dto.PadVisitor
+
Index: APPS/PM/Maatwerk/dto/IngegevenKenmerken.cls.xml
===================================================================
diff -u -r2054 -r2057
--- APPS/PM/Maatwerk/dto/IngegevenKenmerken.cls.xml (.../IngegevenKenmerken.cls.xml) (revision 2054)
+++ APPS/PM/Maatwerk/dto/IngegevenKenmerken.cls.xml (.../IngegevenKenmerken.cls.xml) (revision 2057)
@@ -37,15 +37,9 @@
%Boolean
-
-
-
+
+1
+Visitor:APPS.PM.Maatwerk.IngegevenKenmerkenVisitor
+
Index: APPS/VKP/Maatwerk/impl/GebruikerPaden.cls.xml
===================================================================
diff -u -r2054 -r2057
--- APPS/VKP/Maatwerk/impl/GebruikerPaden.cls.xml (.../GebruikerPaden.cls.xml) (revision 2054)
+++ APPS/VKP/Maatwerk/impl/GebruikerPaden.cls.xml (.../GebruikerPaden.cls.xml) (revision 2057)
@@ -87,7 +87,6 @@
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
]]>
Index: APPS/VKP/Maatwerk/impl/Pad.cls.xml
===================================================================
diff -u -r2054 -r2057
--- APPS/VKP/Maatwerk/impl/Pad.cls.xml (.../Pad.cls.xml) (revision 2054)
+++ APPS/VKP/Maatwerk/impl/Pad.cls.xml (.../Pad.cls.xml) (revision 2057)
@@ -29,29 +29,23 @@
]]>
-
-
+1
+Visitor:APPS.VKP.Maatwerk.impl.PadVisitor
+
-/// [ Review CSC WV BewaarIK ]
-/// Method Accept(Visitor As APPS.VKP.Maatwerk.impl.PadVisitor) [ Abstract ] {}
-
-*/
-]]>
-
-
DOM.common.Gebruiker
+
+Overschrijft eventueel bestaande kenmerken silently. Zelf de nodige zaken controleren met de andere
+utility methods indien dit ongewenst gedrag is.
BewaardeKenmerken:APPS.VKP.Maatwerk.impl.BewaardeKenmerken
-
@@ -92,8 +86,7 @@
Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Er zijn geen bewaarde kenmerken onder de naam "_Naam))
}
- 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
+ Quit BewaardeKenmerken.GeefEigenaar() = Gebruiker
]]>
Index: APPS/VKP/Maatwerk/impl/KenmerkenBewaarder.cls.xml
===================================================================
diff -u -r2054 -r2057
--- APPS/VKP/Maatwerk/impl/KenmerkenBewaarder.cls.xml (.../KenmerkenBewaarder.cls.xml) (revision 2054)
+++ APPS/VKP/Maatwerk/impl/KenmerkenBewaarder.cls.xml (.../KenmerkenBewaarder.cls.xml) (revision 2057)
@@ -21,7 +21,7 @@
1
%Status
geven
-
+ 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) ; [ Review CSC WV BewaarIK ] Geen params bij deze %OnNew()
+ Set PadToDtoVisitor = ##class(APPS.VKP.Maatwerk.impl.PadToDtoVisitor).%New()
Do PadImpl.Accept(PadToDtoVisitor)
Set Pad = PadToDtoVisitor.GeefPad()
Index: APPS/VKP/Maatwerk/impl/ConfiguratorParameters.cls.xml
===================================================================
diff -u -r2054 -r2057
--- APPS/VKP/Maatwerk/impl/ConfiguratorParameters.cls.xml (.../ConfiguratorParameters.cls.xml) (revision 2054)
+++ APPS/VKP/Maatwerk/impl/ConfiguratorParameters.cls.xml (.../ConfiguratorParameters.cls.xml) (revision 2057)
@@ -68,17 +68,13 @@
]]>
-
-
+1
+Visitor:APPS.VKP.Maatwerk.impl.IParametersVisitor
+
+
-/// [ Review CSC WV BewaarIK ]
-/// Method Accept(Visitor As APPS.VKP.Maatwerk.impl.IParametersVisitor) [ Abstract ] {}
-
-*/
-]]>
-
-
%Library.CacheStorage
^APPS.VKP.Ma79D.Configurator907D