Index: APPS/EC/impl/ConfiguratorService/ConfiguratorServiceTemplate.cls.xml
===================================================================
diff -u -r32046 -r32173
--- APPS/EC/impl/ConfiguratorService/ConfiguratorServiceTemplate.cls.xml	(.../ConfiguratorServiceTemplate.cls.xml)	(revision 32046)
+++ APPS/EC/impl/ConfiguratorService/ConfiguratorServiceTemplate.cls.xml	(.../ConfiguratorServiceTemplate.cls.xml)	(revision 32173)
@@ -33,7 +33,7 @@
 <Implementation><![CDATA[
 	Set ..KenmerkMogelijkhedenMeerdereIKenPostProcessor = $$$Implementation(KenmerkMogelijkhedenMeerdereIKenPostProcessor, ##class(APPS.EC.impl.ConfiguratorService.KenmerkMogelijkhedenMeerdereIKenPostProcessor).%New())
 	Set ..MaatwerkConfiguratorService = $$$Implementation(MaatwerkConfiguratorService, ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefMaatwerkConfiguratorService())
-	set ..DefaultsToepasserRepository = $$$Implementation(DefaultsToepasserRepository, ##class(APPS.EC.impl.ConfiguratorService.DefaultsToepasserRepository).%New())
+	Set ..DefaultsToepasserRepository = $$$Implementation(DefaultsToepasserRepository, ##class(APPS.EC.impl.ConfiguratorService.DefaultsToepasserRepository).%New())
 	Set ..IsActiefValidator = ..GeefIsActiefValidator()
 	
 	Quit $$$OK
@@ -51,10 +51,11 @@
 <ReturnType>APPS.PM.Maatwerk.dto.KenmerkMogelijkheden</ReturnType>
 <Implementation><![CDATA[
 	Set IngegevenKenmerken = IngegevenKenmerken.%New()
+	
 	Do ..GeefKenmerkDomeinPreProcessor().Verwerk(IngegevenKenmerken, Klant, Personality)
 	
-	#Dim KenmerkMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkMogelijkheden = ..MaatwerkConfiguratorService.GeefKenmerkMogelijkheden(IngegevenKenmerken, Klant.GeefID())
-	
+	#dim KenmerkMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkMogelijkheden = ..MaatwerkConfiguratorService.GeefKenmerkMogelijkheden(IngegevenKenmerken, Klant.GeefID())
+
 	Do ..GeefKenmerkDomeinPostProcessor().VerwerkKenmerkMogelijkheden(IngegevenKenmerken, KenmerkMogelijkheden , Klant, Personality, .KlantIDVanEindklant)
 	
 	Quit KenmerkMogelijkheden
@@ -65,7 +66,7 @@
 <FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Klant:DOM.VKP.VanHoeckeKlant,Personality:DOM.common.Personality,Berekenniveau:APPS.PM.Maatwerk.enu.MogelijkeWaardenBerekenNiveau</FormalSpec>
 <ReturnType>APPS.PM.Maatwerk.dto.KenmerkMogelijkheden</ReturnType>
 <Implementation><![CDATA[
-	#Dim KenmerkMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkMogelijkheden = ..MaatwerkConfiguratorService.GeefKenmerkMogelijkheden(Kenmerken, Klant.GeefID(), .Berekenniveau)
+	#dim KenmerkMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkMogelijkheden = ..MaatwerkConfiguratorService.GeefKenmerkMogelijkheden(Kenmerken, Klant.GeefID(), .Berekenniveau)
 
 	Do ..VerwerkKenmerkMogelijkheden(Kenmerken, KenmerkMogelijkheden, Klant, Personality)
 
@@ -78,9 +79,9 @@
 <ReturnType>APPS.PM.Maatwerk.dto.KenmerkMogelijkheden</ReturnType>
 <Implementation><![CDATA[
 	Quit:($$$Not($IsObject(KenmerkenLijst)) || (KenmerkenLijst.Count()=0))
-	Set KenmerkMogelijkhedenVoorMeerdereIngegevenKenmerkenBepaler = ##class(APPS.VKP.Maatwerk.impl.ConfiguratorService.KenmerkMogelijkhedenVoorMeerdereIngegevenKenmerkenBepaler).%New()
 	
-	#Dim KenmerkMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkMogelijkheden = KenmerkMogelijkhedenVoorMeerdereIngegevenKenmerkenBepaler.GeefMogelijkheden($this, KenmerkenLijst, Klant, Personality)
+	#dim KenmerkMogelijkhedenVoorMeerdereIngegevenKenmerkenBepaler As APPS.VKP.Maatwerk.impl.ConfiguratorService.KenmerkMogelijkhedenVoorMeerdereIngegevenKenmerkenBepaler = ##class(APPS.VKP.Maatwerk.impl.ConfiguratorService.KenmerkMogelijkhedenVoorMeerdereIngegevenKenmerkenBepaler).%New()
+	#dim KenmerkMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkMogelijkheden = KenmerkMogelijkhedenVoorMeerdereIngegevenKenmerkenBepaler.GeefMogelijkheden($this, KenmerkenLijst, Klant, Personality)
 	
 	Quit ..KenmerkMogelijkhedenMeerdereIKenPostProcessor.VerwerkKenmerkMogelijkheden(KenmerkMogelijkheden)
 ]]></Implementation>
@@ -90,9 +91,9 @@
 <FormalSpec>IngegevenKenmerkenLijst:%ListOfObjects(ELEMENTTYPE="APPS.PM.Maatwerk.dto.IngegevenKenmerken"),KenmerkWijzigingen:APPS.PM.Maatwerk.dto.IngegevenKenmerkWijzigingenLijst,Klant:DOM.VKP.VanHoeckeKlant,Personality:DOM.common.Personality</FormalSpec>
 <ReturnType>APPS.PM.Maatwerk.dto.VerwerkingVanKenmerkWijzigingenMeerdereIngegevenKenmerken</ReturnType>
 <Implementation><![CDATA[
-	Set Verwerker = ##class(APPS.EC.impl.ConfiguratorService.KenmerkWijzigingenVoorMeerdereIKenVerwerker).%New(, ##this)
+	#dim Verwerker As APPS.EC.impl.ConfiguratorService.KenmerkWijzigingenVoorMeerdereIKenVerwerker = ##class(APPS.EC.impl.ConfiguratorService.KenmerkWijzigingenVoorMeerdereIKenVerwerker).%New(, ##this)	
+	#dim VerwerkingKenmerkWijzigingen As APPS.PM.Maatwerk.dto.VerwerkingVanKenmerkWijzigingenMeerdereIngegevenKenmerken = Verwerker.VerwerkKenmerkWijzigingen(IngegevenKenmerkenLijst, KenmerkWijzigingen, Klant, Personality)
 	
-	#Dim VerwerkingKenmerkWijzigingen As APPS.PM.Maatwerk.dto.VerwerkingVanKenmerkWijzigingenMeerdereIngegevenKenmerken = Verwerker.VerwerkKenmerkWijzigingen(IngegevenKenmerkenLijst, KenmerkWijzigingen, Klant, Personality)
 	Set VerwerkingKenmerkWijzigingen.MogelijkeWaarden = ..KenmerkMogelijkhedenMeerdereIKenPostProcessor.VerwerkKenmerkMogelijkheden(VerwerkingKenmerkWijzigingen.MogelijkeWaarden)
 	
 	Quit VerwerkingKenmerkWijzigingen
@@ -105,14 +106,14 @@
 <Implementation><![CDATA[
 	// TODO Timings enable/disable via config item
 	//Do ##class(TECH.Timing.TimerUtils).EnableTiming("MogelijkeWaarden" _$H)
-	#Dim Timer1 As %String = ##class(TECH.Timing.TimerUtils).Start("VerwerkKenmerkWijzigingen")
+	#dim Timer1 As %String = ##class(TECH.Timing.TimerUtils).Start("VerwerkKenmerkWijzigingen")
 
 	Do ..ZetExplicietGekozenKenmerken(KenmerkWijzigingen,IngegevenKenmerken)
 	Do ..ControleerIngegevenKenmerkenDto(IngegevenKenmerken)
 
-	#Dim Resultaat As APPS.PM.Maatwerk.dto.VerwerkingVanKenmerkWijzigingen = ##class(APPS.PM.Maatwerk.dto.VerwerkingVanKenmerkWijzigingen).%New()
-	#Dim AangepasteIngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..MaatwerkConfiguratorService.GeefAangepasteIngegevenKenmerken(IngegevenKenmerken, KenmerkWijzigingen)
-	#Dim IsTAXKenmerken As %Boolean = (IngegevenKenmerken.%Extends(##class(APPS.PM.Maatwerk.dto.TAORKenmerken).%ClassName(1)))
+	#dim Resultaat As APPS.PM.Maatwerk.dto.VerwerkingVanKenmerkWijzigingen = ##class(APPS.PM.Maatwerk.dto.VerwerkingVanKenmerkWijzigingen).%New()
+	#dim AangepasteIngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..MaatwerkConfiguratorService.GeefAangepasteIngegevenKenmerken(IngegevenKenmerken, KenmerkWijzigingen)
+	#dim IsTAXKenmerken As %Boolean = (IngegevenKenmerken.%Extends(##class(APPS.PM.Maatwerk.dto.TAORKenmerken).%ClassName(1)))
 	
 	If (IsTAXKenmerken) {
 		If (..IsActiefValidator.If.Setting("IsActiefTAORDuoColor").IsInvalid()) {
@@ -122,8 +123,8 @@
 
 	Set Resultaat.AangepasteIngegevenKenmerken = ..MaatwerkConfiguratorService.GeefKenmerkenDto(AangepasteIngegevenKenmerken)
 	
-	#Dim Timer6 As %String = ##class(TECH.Timing.TimerUtils).Start("GeefKenmerkMogelijkheden")
-	#Dim Berekenniveau As APPS.PM.Maatwerk.enu.MogelijkeWaardenBerekenNiveau = ##class(APPS.EC.impl.ConfiguratorService.BerekeningNiveauBepaler).%New().GeefBerekenNiveau(IngegevenKenmerken, KenmerkWijzigingen)
+	#dim Timer6 As %String = ##class(TECH.Timing.TimerUtils).Start("GeefKenmerkMogelijkheden")
+	#dim Berekenniveau As APPS.PM.Maatwerk.enu.MogelijkeWaardenBerekenNiveau = ##class(APPS.EC.impl.ConfiguratorService.BerekeningNiveauBepaler).%New().GeefBerekenNiveau(IngegevenKenmerken, KenmerkWijzigingen)
 	
 	Set Resultaat.MogelijkeWaarden = ..MaatwerkConfiguratorService.GeefKenmerkMogelijkheden(Resultaat.AangepasteIngegevenKenmerken, Klant.GeefID(), Berekenniveau)
 	
@@ -155,13 +156,15 @@
 <FormalSpec>KenmerkWijzigingen:APPS.PM.Maatwerk.dto.IngegevenKenmerkWijzigingenLijst,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	set IngegevenKenmerkenWijzigingenLijstIterator = ##class(TECH.ListIterator).%New(KenmerkWijzigingen)
-	while IngegevenKenmerkenWijzigingenLijstIterator.HasNext() {
-		#dim GewijzigdKenmerk As %String = IngegevenKenmerkenWijzigingenLijstIterator.Next().KenmerkNaam 
-		do IngegevenKenmerken.ExplicietGekozenKenmerken.Insert(GewijzigdKenmerk)
+	#dim KenmerkenWijzigingenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(KenmerkWijzigingen)
+	
+	While (KenmerkenWijzigingenIterator.HasNext()) {
+		#dim GewijzigdKenmerk As %String = KenmerkenWijzigingenIterator.Next().KenmerkNaam 
 		
+		Do IngegevenKenmerken.ExplicietGekozenKenmerken.Insert(GewijzigdKenmerk)	
 	}
-	set IngegevenKenmerken.ExplicietGekozenKenmerken = ##class(TECH.ListUtils).RemoveDuplicateItems(IngegevenKenmerken.ExplicietGekozenKenmerken)
+	
+	Set IngegevenKenmerken.ExplicietGekozenKenmerken = ##class(TECH.ListUtils).RemoveDuplicateItems(IngegevenKenmerken.ExplicietGekozenKenmerken)
 ]]></Implementation>
 </Method>
 
@@ -173,11 +176,11 @@
 <Implementation><![CDATA[
 	Do ..ControleerIngegevenKenmerkenDto(LegeIngegevenKenmerken)
 	
-	#Dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..MaatwerkConfiguratorService.GeefIngegevenKenmerkenVanDto(LegeIngegevenKenmerken)
-	#Dim VisitorsAccepteerder As TECH.Visitor.impl.VisitorsAccepteerder = ..GeefVisitorAccepteerder()
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..MaatwerkConfiguratorService.GeefIngegevenKenmerkenVanDto(LegeIngegevenKenmerken)
+	#dim VisitorsAccepteerder As TECH.Visitor.impl.VisitorsAccepteerder = ..GeefVisitorAccepteerder()
 	#dim DefaultsToepassers As %ListOfObjects = ..DefaultsToepasserRepository.GeefDefaultsToepassers(Winkelkar, Pad)
 
-	Do VisitorsAccepteerder.Accepteer(IngegevenKenmerken,DefaultsToepassers)
+	Do VisitorsAccepteerder.Accepteer(IngegevenKenmerken, DefaultsToepassers)
 
 	Quit ..MaatwerkConfiguratorService.GeefKenmerkenDto(IngegevenKenmerken)
 ]]></Implementation>
@@ -187,7 +190,7 @@
 <FormalSpec>IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If ('$IsObject(IngegevenKenmerken)) || ('IngegevenKenmerken.%Extends("APPS.PM.Maatwerk.dto.IngegevenKenmerken")) {
+	If ($$$Not($IsObject(IngegevenKenmerken))) || $$$Not(IngegevenKenmerken.%Extends("APPS.PM.Maatwerk.dto.IngegevenKenmerken")) {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("IngegevenKenmerken is geen geldig dto-object ("_IngegevenKenmerken_")"))
 	}
 ]]></Implementation>
@@ -203,8 +206,8 @@
 <Method name="BewaarIngegevenKenmerken">
 <FormalSpec>IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Naam:%String="Defaults",Pad:APPS.VKP.Maatwerk.dto.TemplateExternPad</FormalSpec>
 <Implementation><![CDATA[
-	#Define Overschrijf 1
-	#Dim GebruikerID As %String = ##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerID()
+	#define Overschrijf 1
+	#dim GebruikerID As %String = ##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerID()
 	
 	Do ..MaatwerkConfiguratorService.BewaarIngegevenKenmerken(GebruikerID, IngegevenKenmerken, Pad, Naam, $$$Overschrijf)
 ]]></Implementation>