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