Index: APPS/EC/impl/ConfiguratorService/WebshopKenmerkMogelijkhedenPostProcessor.cls.xml
===================================================================
diff -u -r31454 -r32173
--- APPS/EC/impl/ConfiguratorService/WebshopKenmerkMogelijkhedenPostProcessor.cls.xml	(.../WebshopKenmerkMogelijkhedenPostProcessor.cls.xml)	(revision 31454)
+++ APPS/EC/impl/ConfiguratorService/WebshopKenmerkMogelijkhedenPostProcessor.cls.xml	(.../WebshopKenmerkMogelijkhedenPostProcessor.cls.xml)	(revision 32173)
@@ -30,7 +30,7 @@
 <FormalSpec>TAORKenmerken:APPS.PM.Maatwerk.dto.TAORKenmerken</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(TAORKenmerken)
-	
+
 	If (TAORKenmerken.IsBinnenlade) {	
 		Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarden(..TAORKenmerkNaam.FrontBevestiging)	
 		Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAORKenmerkNaam.KoppelingType, ##class(DOM.PM.enu.TAORKoppelingType).Schroef())
Index: APPS/VKP/Maatwerk/impl/ConfiguratorService.cls.xml
===================================================================
diff -u -r31493 -r32173
--- APPS/VKP/Maatwerk/impl/ConfiguratorService.cls.xml	(.../ConfiguratorService.cls.xml)	(revision 31493)
+++ APPS/VKP/Maatwerk/impl/ConfiguratorService.cls.xml	(.../ConfiguratorService.cls.xml)	(revision 32173)
@@ -30,6 +30,7 @@
 	Set ..SpoelbakKenmerkenBepaler = $$$Implementation(SpoelbakKenmerkenBepaler, ##class(DOM.PM.Maatwerk.Lade.impl.SpoelbakKenmerkenBepaler).%New())
 	Set ..InbouwBreedteBerekenaar = $$$Implementation(InbouwBreedteBerekenaar, ##class(APPS.PM.Maatwerk.Lade.impl.InbouwBreedteBerekenaar).%New())
 	Set ..IngegevenKenmerkenTypeAPI = $$$Implementation(IngegevenKenmerkenTypeAPI, ##class(APPS.ApplicatieContext).Instance().GeefIngegevenKenmerkenTypeAPI())
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -40,8 +41,10 @@
 	If ($Length(Naam) = 0) {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen naam opgegeven om de kenmerken op te slaan"))
 	}
-	set KenmerkenInPadBewaarder = ##class(APPS.VKP.Maatwerk.impl.KenmerkenInPadBewaarder).%New()
-	do KenmerkenInPadBewaarder.BewaarKenmerken(Kenmerken, Pad, Naam, MagOverschrijven)
+	
+	#dim KenmerkenInPadBewaarder As APPS.VKP.Maatwerk.impl.KenmerkenInPadBewaarder = ##class(APPS.VKP.Maatwerk.impl.KenmerkenInPadBewaarder).%New()
+	
+	Do KenmerkenInPadBewaarder.BewaarKenmerken(Kenmerken, Pad, Naam, MagOverschrijven)
 ]]></Implementation>
 </Method>
 
@@ -50,76 +53,86 @@
 <Implementation><![CDATA[
 	#dim Gebruiker As DOM.common.Gebruiker = ##class(DOM.DomeinContext).Instance().GeefGebruikerAPI().GeefGebruiker(GebruikerID)
 	
-	if ($Length(Naam) = 0) {
+	If ($Length(Naam) = 0) {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen naam opgegeven om de kenmerken op te slaan"))
 	}
 	
-	do ##class(APPS.VKP.Maatwerk.impl.KenmerkenVerwijderaar).%New(Gebruiker, Pad, Naam)
+	Do ##class(APPS.VKP.Maatwerk.impl.KenmerkenVerwijderaar).%New(Gebruiker, Pad, Naam)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefBesteldeProducten">
 <FormalSpec>DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%String</FormalSpec>
 <ReturnType>APPS.VKP.Maatwerk.impl.BesteldeProducten</ReturnType>
-<Implementation><![CDATA[	Quit ##class(APPS.VKP.Maatwerk.impl.BesteldeProducten).%OpenId(DocumentType_"||"_DocumentID)
+<Implementation><![CDATA[	Quit ##class(APPS.VKP.Maatwerk.impl.BesteldeProducten).%OpenId(DocumentType _ "||" _ DocumentID)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefBewaardeIngegevenKenmerken">
 <FormalSpec>EigenaarID:%String,KlantID:DOM.VKP.VanHoeckeKlantID=""</FormalSpec>
 <ReturnType>APPS.VKP.Maatwerk.dto.BewaardeIngegevenKenmerken</ReturnType>
 <Implementation><![CDATA[
-	Set BewaardeIngegevenKenmerken = ##class(APPS.VKP.Maatwerk.dto.BewaardeIngegevenKenmerken).%New()
-	
+	#dim BewaardeIngegevenKenmerken As APPS.VKP.Maatwerk.dto.BewaardeIngegevenKenmerken = ##class(APPS.VKP.Maatwerk.dto.BewaardeIngegevenKenmerken).%New()
 	#dim Eigenaar As DOM.common.Gebruiker = ##class(DOM.DomeinContext).Instance().GeefGebruikerAPI().GeefGebruiker(EigenaarID)
+	#dim ResultSet As %ResultSet
+	
 	If (Eigenaar.GeefGebruikerBeheerder().%Extends("DOM.common.VanHoeckeGebruikerBeheerder")) {
 		#dim UserID As %String = $$USERID^vhUSER(Eigenaar.GeefCode())
-		If (($$IsGroep^vhUSER(UserID,"ICT") || $$IsGroep^vhUSER(UserID,"PM") || $$IsGroep^vhUSER(UserID,"OV"))) {
-			#dim HeeftToegangTotPadenVanKlant = (KlantID '= "")
-			If HeeftToegangTotPadenVanKlant {
+		
+		If (($$IsGroep^vhUSER(UserID, "ICT") || $$IsGroep^vhUSER(UserID, "PM") || $$IsGroep^vhUSER(UserID, "OV"))) {
+			#dim HeeftToegangTotPadenVanKlant = $$$Not(KlantID = "")
+			
+			If (HeeftToegangTotPadenVanKlant) {
 				Set ResultSet = ##class(%ResultSet).%New()
+				
 				Do ResultSet.Prepare("SELECT ID FROM APPS_VKP_Maatwerk_impl.TemplateInternPad WHERE KlantID = ?")
 				Do ResultSet.Execute(KlantID)
-			}Else{
+			} Else {
 				Set ResultSet = ##class(%ResultSet).%New()
+				
 				Do ResultSet.Prepare("SELECT ID FROM APPS_VKP_Maatwerk_impl.PadBasis WHERE EigenaarID = ?")
 				Do ResultSet.Execute(EigenaarID)
 			}
-		} Else	{
+		} Else {
 			Set ResultSet = ##class(%ResultSet).%New()
+			
 			Do ResultSet.Prepare("SELECT ID FROM APPS_VKP_Maatwerk_impl.TemplateExternPad WHERE EigenaarID = ?")
 			Do ResultSet.Execute(EigenaarID)
 		}
 	} Else {
 		Set ResultSet = ##class(%ResultSet).%New()
+		
 		Do ResultSet.Prepare("SELECT ID FROM APPS_VKP_Maatwerk_impl.TemplateExternPad WHERE EigenaarID = ?")
 		Do ResultSet.Execute(EigenaarID)
 	}
+	
 	While (ResultSet.Next()) {
-		Set BewaardPad = ##class(APPS.VKP.Maatwerk.dto.BewaardPad).%New()
+		#dim BewaardPad As APPS.VKP.Maatwerk.dto.BewaardPad = ##class(APPS.VKP.Maatwerk.dto.BewaardPad).%New()
+		#dim PadImpl As APPS.VKP.Maatwerk.impl.Pad = ##class(APPS.VKP.Maatwerk.impl.Pad).%OpenId(ResultSet.Data("ID"))
+		#dim PadToDtoVisitor As APPS.VKP.Maatwerk.impl.GebruikerPadenConverter.PadNaarPadDtoVisitor = ##class(APPS.VKP.Maatwerk.impl.GebruikerPadenConverter.PadNaarPadDtoVisitor).%New()
 		
-		Set PadImpl = ##class(APPS.VKP.Maatwerk.impl.Pad).%OpenId(ResultSet.Data("ID"))
-		Set PadToDtoVisitor = ##class(APPS.VKP.Maatwerk.impl.GebruikerPadenConverter.PadNaarPadDtoVisitor).%New()
 		Do PadImpl.Accept(PadToDtoVisitor)
+		
 		#dim Pad As APPS.VKP.Maatwerk.dto.Pad = PadToDtoVisitor.GeefPad()
 		
 		Set BewaardPad.Pad = Pad
 		Set BewaardPad.IsBewarenToegestaan = PadImpl.IsBewarenToegestaanDoor(Eigenaar.GeefID())
 		
 		#dim BewaardeKenmerkenIterator As TECH.Iterator = PadImpl.GeefBewaardeKenmerkenIterator()
-		While (BewaardeKenmerkenIterator.HasNext())
-		{
+		
+		While (BewaardeKenmerkenIterator.HasNext()) {
 			#dim BewaardeKenmerkenImpl As APPS.VKP.Maatwerk.impl.BewaardeKenmerken = BewaardeKenmerkenIterator.Next()
-			Set BewaardeKenmerken = ##class(APPS.VKP.Maatwerk.dto.BewaardeKenmerken).%New()
+			#dim BewaardeKenmerken As APPS.VKP.Maatwerk.dto.BewaardeKenmerken = ##class(APPS.VKP.Maatwerk.dto.BewaardeKenmerken).%New()
+			
 			Set BewaardeKenmerken.Eigenaar = ##class(APPS.ApplicatieContext).Instance().GeefCommonAPI().GeefDataService().GeefGebruikerData(BewaardeKenmerkenImpl.GeefEigenaar().GeefID())
 			Set BewaardeKenmerken.Familie = BewaardeKenmerkenImpl.GeefFamilie()
 			Set BewaardeKenmerken.Variant = BewaardeKenmerkenImpl.GeefVariant()
 			Set BewaardeKenmerken.Naam = BewaardeKenmerkenImpl.GeefNaam()
+			
 			Do BewaardPad.BewaardeKenmerken.Insert(BewaardeKenmerken)
 		}
 		
-		If (BewaardPad.BewaardeKenmerken.Count() > 0)
-		{
+		If (BewaardPad.BewaardeKenmerken.Count() > 0) {
 			Do BewaardeIngegevenKenmerken.BewaardePaden.Insert(BewaardPad)
 		}
 	}
@@ -133,6 +146,7 @@
 <ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
 <Implementation><![CDATA[
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..GeefKenmerkenViaNaamIntern(Pad, Naam)
+	
 	Quit ..GeefKenmerkenDtoVoorVersie(IngegevenKenmerken, GevraagdeVersie)
 ]]></Implementation>
 </Method>
@@ -142,6 +156,7 @@
 <ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
 <Implementation><![CDATA[
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..GeefKenmerkenViaNaamIntern(Pad, Naam)
+	
 	Quit ..GeefKenmerkenDto(IngegevenKenmerken)
 ]]></Implementation>
 </Method>
@@ -151,6 +166,7 @@
 <ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
 <Implementation><![CDATA[
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..GeefKenmerkenVanProductInternMetValidatie(ProductID, Familie, Variant)
+	
 	Quit ..GeefKenmerkenDtoVoorVersie(IngegevenKenmerken, GevraagdeVersie)
 ]]></Implementation>
 </Method>
@@ -160,6 +176,7 @@
 <ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
 <Implementation><![CDATA[
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..GeefKenmerkenVanProductIntern(ProductID)
+	
 	Quit ..GeefKenmerkenDto(IngegevenKenmerken)
 ]]></Implementation>
 </Method>
@@ -169,9 +186,9 @@
 <ReturnType>APPS.PM.Maatwerk.dto.KenmerkMogelijkheden</ReturnType>
 <Implementation><![CDATA[
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..GeefIngegevenKenmerkenVanDto(Kenmerken)
-
-	Set MogelijkeWaardenBepaler = ##class(APPS.PM.Maatwerk.IngegevenKenmerkenMogelijkeWaardenBepaler).%New(IngegevenKenmerken, KlantID)
+	#dim MogelijkeWaardenBepaler As APPS.PM.Maatwerk.IngegevenKenmerkenMogelijkeWaardenBepaler = ##class(APPS.PM.Maatwerk.IngegevenKenmerkenMogelijkeWaardenBepaler).%New(IngegevenKenmerken, KlantID)
 	#dim Mogelijkheden As APPS.PM.Maatwerk.dto.KenmerkMogelijkheden = MogelijkeWaardenBepaler.Bereken(BerekenNiveau)
+	
 	Quit Mogelijkheden
 ]]></Implementation>
 </Method>
@@ -180,8 +197,9 @@
 <FormalSpec>KenmerkenLijst:%ListOfObjects(ELEMENTTYPE="APPS.PM.Maatwerk.dto.IngegevenKenmerken"),KlantID:DOM.VKP.VanHoeckeKlantID</FormalSpec>
 <ReturnType>APPS.PM.Maatwerk.dto.KenmerkMogelijkheden</ReturnType>
 <Implementation><![CDATA[
-	set KenmerkMogelijkhedenVoorMeerdereIngegevenKenmerkenBepaler = ##class(APPS.VKP.Maatwerk.impl.ConfiguratorService.KenmerkMogelijkhedenVoorMeerdereIngegevenKenmerkenBepaler).%New()
-	quit KenmerkMogelijkhedenVoorMeerdereIngegevenKenmerkenBepaler.GeefMogelijkheden(KenmerkenLijst,KlantID)
+	#dim KenmerkMogelijkhedenVoorMeerdereIngegevenKenmerkenBepaler As APPS.VKP.Maatwerk.impl.ConfiguratorService.KenmerkMogelijkhedenVoorMeerdereIngegevenKenmerkenBepaler = ##class(APPS.VKP.Maatwerk.impl.ConfiguratorService.KenmerkMogelijkhedenVoorMeerdereIngegevenKenmerkenBepaler).%New()
+	
+	Quit KenmerkMogelijkhedenVoorMeerdereIngegevenKenmerkenBepaler.GeefMogelijkheden(KenmerkenLijst, KlantID)
 ]]></Implementation>
 </Method>
 
@@ -200,7 +218,7 @@
 	
 	Do DefaultsViaKenmerkWijzigingenToepasser.PasToeDefaults(.IngegevenKenmerken, KenmerkWijzigingen)
 
-	quit IngegevenKenmerken
+	Quit IngegevenKenmerken
 ]]></Implementation>
 </Method>
 
@@ -209,9 +227,9 @@
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..GeefIngegevenKenmerkenVanDto(Kenmerken)
-
 	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.VKP.enu.Klant).LijstPrijsKlant()
 	#dim Personality As DOM.common.impl.Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
+	
 	Quit ##class(APPS.PM.Maatwerk.IngegevenKenmerkenBeperkendePropertiesBepaler).%New(IngegevenKenmerken, KlantID, Personality).GeefBeperkendePropertiesVoorPropertyMetWaarde(PropertyNaam, PropertyWaarde)
 ]]></Implementation>
 </Method>
@@ -226,7 +244,8 @@
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..GeefIngegevenKenmerkenVanDto(Kenmerken)
 	// In eerste instantie bedoeld voor interne configuratoren, dus hardcoded personality
 	#dim Personality As DOM.common.impl.Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
-	Set Analyseerder = ##class(APPS.PM.Maatwerk.IngegevenKenmerkenAnalyseerder).%New(IngegevenKenmerken, KenmerkNaam, KenmerkWaarde, KlantID, Personality)
+	#dim Analyseerder As APPS.PM.Maatwerk.IngegevenKenmerkenAnalyseerder = ##class(APPS.PM.Maatwerk.IngegevenKenmerkenAnalyseerder).%New(IngegevenKenmerken, KenmerkNaam, KenmerkWaarde, KlantID, Personality)
+	
 	Quit Analyseerder.Analyseer()
 ]]></Implementation>
 </Method>
@@ -236,14 +255,19 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
 <Implementation><![CDATA[
-	Set DtoToPadVisitor = ##class(APPS.VKP.Maatwerk.impl.GebruikerPadenConverter.PadDtoNaarPadVisitor).%New()
+	#dim DtoToPadVisitor As APPS.VKP.Maatwerk.impl.GebruikerPadenConverter.PadDtoNaarPadVisitor = ##class(APPS.VKP.Maatwerk.impl.GebruikerPadenConverter.PadDtoNaarPadVisitor).%New()
+	
 	Do Pad.Accept(DtoToPadVisitor)
+	
 	#dim PadImpl As APPS.VKP.Maatwerk.impl.Pad = DtoToPadVisitor.GeefPad()
-	If ('PadImpl.HeeftBewaardeKenmerken(Naam)) {
-		set Exception = ##class(APPS.VKP.Maatwerk.impl.GeenKenmerkenInPadExceptie).%New("Er zijn geen kenmerken opgeslagen in dit pad onder de naam "_Naam)
+	
+	If $$$Not(PadImpl.HeeftBewaardeKenmerken(Naam)) {
+		#dim Exception As APPS.VKP.Maatwerk.impl.GeenKenmerkenInPadExceptie = ##class(APPS.VKP.Maatwerk.impl.GeenKenmerkenInPadExceptie).%New("Er zijn geen kenmerken opgeslagen in dit pad onder de naam "_Naam)
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
+	
 	#dim BewaardeKenmerken As APPS.VKP.Maatwerk.impl.BewaardeKenmerken = PadImpl.GeefBewaardeKenmerken(Naam)
+	
 	Quit BewaardeKenmerken.GeefIngegevenKenmerken()
 ]]></Implementation>
 </Method>
@@ -254,6 +278,7 @@
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
 <Implementation><![CDATA[
 	#dim Product As DOM.PM.MaatwerkProduct = ..GeefMaatwerkProduct(ProductID)
+	
 	Quit Product.GeefProductSpecificatie().GeefIngegevenKenmerken()
 ]]></Implementation>
 </Method>
@@ -264,10 +289,11 @@
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
 <Implementation><![CDATA[
 	#dim Product As DOM.PM.MaatwerkProduct = ..GeefMaatwerkProduct(ProductID)
-	If (Product.GeefFamilie()'=Familie) || (Product.GeefVariant()'=Variant)
-	{
+	
+	If ($$$Not(Product.GeefFamilie() = Familie) || $$$Not(Product.GeefVariant() = Variant))	{
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Het gevraagde product is niet van opgegeven familie of variant!"))
 	}
+	
 	Quit Product.GeefProductSpecificatie().GeefIngegevenKenmerken()
 ]]></Implementation>
 </Method>
@@ -278,12 +304,12 @@
 <ReturnType>DOM.PM.MaatwerkProduct</ReturnType>
 <Implementation><![CDATA[
 	#dim ProductAPI As DOM.PM.ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
-	
 	#dim Product As DOM.PM.Product = ProductAPI.GeefProduct(ProductID)
 	
-	If ('Product.%Extends("DOM.PM.MaatwerkProduct")) {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Het gevraagde product '"_ProductID_"' is geen maatwerkproduct!"))
+	If $$$Not(Product.%Extends("DOM.PM.MaatwerkProduct")) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Het gevraagde product '" _ ProductID _ "' is geen maatwerkproduct!"))
 	}
+	
 	Quit Product
 ]]></Implementation>
 </Method>
@@ -295,44 +321,50 @@
 <Implementation><![CDATA[
 	#dim IngegevenKenmerkenAPI As DOM.PM.IngegevenKenmerkenAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenAPI()
 	#dim KenmerkenVoorVersie As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = IngegevenKenmerkenAPI.GeefIngegevenKenmerkenVersie(Kenmerken, GevraagdeVersie)
+	
 	Quit ..GeefKenmerkenDto(KenmerkenVoorVersie)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefKenmerkenDto">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
-<Implementation><![CDATA[	quit ##class(APPS.ApplicatieContext).Instance().GeefMaatwerkAPI().GeefIngegevenKenmerkenConverter().NaarDataTransferObject(IngegevenKenmerken)
+<Implementation><![CDATA[	Quit ##class(APPS.ApplicatieContext).Instance().GeefMaatwerkAPI().GeefIngegevenKenmerkenConverter().NaarDataTransferObject(IngegevenKenmerken)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefIngegevenKenmerkenVanDto">
 <FormalSpec>IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
-<Implementation><![CDATA[	quit ##class(APPS.ApplicatieContext).Instance().GeefMaatwerkAPI().GeefIngegevenKenmerkenConverter().NaarObject(IngegevenKenmerken)
+<Implementation><![CDATA[	Quit ##class(APPS.ApplicatieContext).Instance().GeefMaatwerkAPI().GeefIngegevenKenmerkenConverter().NaarObject(IngegevenKenmerken)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefBerekendeWaarden">
 <FormalSpec>IngegevenKenmerken:APPS.PM.Maatwerk.dto.LadeKenmerken,Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>APPS.PM.Maatwerk.dto.BerekendeWaarden</ReturnType>
 <Implementation><![CDATA[
-	Set BerekendeWaarden = ##class(APPS.PM.Maatwerk.dto.BerekendeWaarden).%New()
+	#dim BerekendeWaarden As APPS.PM.Maatwerk.dto.BerekendeWaarden = ##class(APPS.PM.Maatwerk.dto.BerekendeWaarden).%New()
+	#dim Exception As TECH.Exceptions.GeneralErrorException
+	
 	Try {
 		Set BerekendeWaarden.InterneBreedte = ..InbouwBreedteBerekenaar.BerekenInbouwBreedte(IngegevenKenmerken)
 	} Catch {
-		#dim Exception As TECH.Exceptions.GeneralErrorException = ##class(TECH.ExceptionHandler).Catch()
+		Set Exception = ##class(TECH.ExceptionHandler).Catch()
 	}
+	
 	Try {
-		if ..IngegevenKenmerkenTypeAPI.IsSpoelbaklade(IngegevenKenmerken) {
+		If (..IngegevenKenmerkenTypeAPI.IsSpoelbaklade(IngegevenKenmerken)) {
 			Set BerekendeWaarden.UitsparingBreedte = ..SpoelbakKenmerkenBepaler.BepaalSpoelbakKenmerken(Kenmerken).UitsparingBreedte1
 		}
 	} Catch {
 		Set Exception = ##class(TECH.ExceptionHandler).Catch()
 	}
+	
 	Try {
-		if ..IngegevenKenmerkenTypeAPI.IsSifonlade(IngegevenKenmerken) {
+		If (..IngegevenKenmerkenTypeAPI.IsSifonlade(IngegevenKenmerken)) {
 			#dim UitsparingDiepte As %Integer = 250
+			
 			Set BerekendeWaarden.UitsparingDiepte = UitsparingDiepte
 			Set BerekendeWaarden.LadeMetUitsparingInfo = ##class(TECH.ListUtils).CreateListOfDataTypes("LEGRABOX "_$S(IngegevenKenmerken.IsBinnenlade:"sifon binnenlade", 1:"sifonlade"),
 																					"Uitsparing: "_IngegevenKenmerken.UitsparingDataAantalUitsparingen,
@@ -347,6 +379,7 @@
 		Set Exception = ##class(TECH.ExceptionHandler).Catch()
 		Do ##class(vhLib.Logger).LogEnMailExceptie(Exception)
 	}
+	
 	Quit BerekendeWaarden
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/EC/ConfiguratorService/VerwerkKenmerkWijzigingen/TAOR/TestBase.cls.xml
===================================================================
diff -u -r31490 -r32173
--- vhUnitTest/APPS/EC/ConfiguratorService/VerwerkKenmerkWijzigingen/TAOR/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 31490)
+++ vhUnitTest/APPS/EC/ConfiguratorService/VerwerkKenmerkWijzigingen/TAOR/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 32173)
@@ -17,18 +17,18 @@
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
-	do ##super(aTestName)
+	Do ##super(aTestName)
 	
-	set ..TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).LegeKenmerken()
+	Set ..TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).LegeKenmerken()
 ]]></Implementation>
 </Method>
 
 <Method name="AssertKenmerkNietMeeleveren">
 <FormalSpec>IsBinnenlade:%Boolean,VerpakkingType:DOM.PM.enu.TAORVerpakkingType,VerwachteRollen:%ListOfDataTypes</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	set ..TAORKenmerken.IsBinnenlade = IsBinnenlade
-	set ..TAORKenmerken.VerpakkingType = VerpakkingType
+	Set ..TAORKenmerken.IsBinnenlade = IsBinnenlade
+	Set ..TAORKenmerken.VerpakkingType = VerpakkingType
 	
 	#dim VerwerkingVanKenmerkWijzigingen As APPS.PM.Maatwerk.dto.VerwerkingVanKenmerkWijzigingen = ..GeefVerwerkingVanKenmerkWijzigingen()
 	
@@ -42,8 +42,8 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim VerwerkingVanKenmerkWijzigingen As APPS.PM.Maatwerk.dto.VerwerkingVanKenmerkWijzigingen = ..GeefVerwerkingVanKenmerkWijzigingen()
-
-	do $$$AssertEqualsList(VerwerkingVanKenmerkWijzigingen.MogelijkeWaarden.GeefMogelijkeWaarden(KenmerkNaam), VerwachteMogelijkeWaarden)
+	
+	Do $$$AssertEqualsList(VerwerkingVanKenmerkWijzigingen.MogelijkeWaarden.GeefMogelijkeWaarden(KenmerkNaam), VerwachteMogelijkeWaarden)
 ]]></Implementation>
 </Method>
 
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>
Index: APPS/EC/impl/ConfiguratorService/WebshopConfiguratorService.cls.xml
===================================================================
diff -u -r31192 -r32173
--- APPS/EC/impl/ConfiguratorService/WebshopConfiguratorService.cls.xml	(.../WebshopConfiguratorService.cls.xml)	(revision 31192)
+++ APPS/EC/impl/ConfiguratorService/WebshopConfiguratorService.cls.xml	(.../WebshopConfiguratorService.cls.xml)	(revision 32173)
@@ -9,7 +9,7 @@
 <FormalSpec>LegeIngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Winkelkar:APPS.EC.Winkelkar.dto.Winkelkar="",Pad:APPS.VKP.Maatwerk.dto.TemplateExternPad</FormalSpec>
 <ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
 <Implementation><![CDATA[
-	#Dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ##super(LegeIngegevenKenmerken, Winkelkar, Pad)
+	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ##super(LegeIngegevenKenmerken, Winkelkar, Pad)
 	
 	Do ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWebshopKenmerkDefaultsPostProcessor().DoePostProcessing(IngegevenKenmerken)
 	
Index: APPS/EC/impl/ConfiguratorService/InterneKenmerkDomeinPostProcessor.cls.xml
===================================================================
diff -u -r31692 -r32173
--- APPS/EC/impl/ConfiguratorService/InterneKenmerkDomeinPostProcessor.cls.xml	(.../InterneKenmerkDomeinPostProcessor.cls.xml)	(revision 31692)
+++ APPS/EC/impl/ConfiguratorService/InterneKenmerkDomeinPostProcessor.cls.xml	(.../InterneKenmerkDomeinPostProcessor.cls.xml)	(revision 32173)
@@ -47,9 +47,9 @@
 	}
 		
 	If (..IsActiefValidator.If.Setting("IsActiefTAXOnyxGrijs").IsInvalid()) {
-		do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAORKenmerkNaam.BodemKleur, ##class(DOM.PM.enu.TAORBodemKleur).OnyxGrijs())
-		do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAORKenmerkNaam.LadeKleur, ##class(DOM.PM.enu.TAORLadeKleur).OnyxGrijs())
-		do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAORKenmerkNaam.LadeBinnenKleur, ##class(DOM.PM.enu.TAORLadeKleur).OnyxGrijs())
+		Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAORKenmerkNaam.BodemKleur, ##class(DOM.PM.enu.TAORBodemKleur).OnyxGrijs())
+		Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAORKenmerkNaam.LadeKleur, ##class(DOM.PM.enu.TAORLadeKleur).OnyxGrijs())
+		Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAORKenmerkNaam.LadeBinnenKleur, ##class(DOM.PM.enu.TAORLadeKleur).OnyxGrijs())
 	}
 ]]></Implementation>
 </Method>
Index: APPS/EC/impl/ConfiguratorService/KenmerkDomeinPostProcessor.cls.xml
===================================================================
diff -u -r32070 -r32173
--- APPS/EC/impl/ConfiguratorService/KenmerkDomeinPostProcessor.cls.xml	(.../KenmerkDomeinPostProcessor.cls.xml)	(revision 32070)
+++ APPS/EC/impl/ConfiguratorService/KenmerkDomeinPostProcessor.cls.xml	(.../KenmerkDomeinPostProcessor.cls.xml)	(revision 32173)
@@ -34,11 +34,12 @@
 <FormalSpec><![CDATA[Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,&KenmerkMogelijkheden:APPS.PM.Maatwerk.dto.KenmerkMogelijkheden]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#Dim Properties As %ListOfDataTypes = ##class(TECH.ClassUtils).GeefProperties($classname(Kenmerken))
-	#Dim MogelijkeWaardenIterator As TECH.KeyListIterator = ##class(TECH.KeyListIterator).%New(KenmerkMogelijkheden.MogelijkeWaarden)
+	#dim Properties As %ListOfDataTypes = ##class(TECH.ClassUtils).GeefProperties($classname(Kenmerken))
+	#dim MogelijkeWaardenIterator As TECH.KeyListIterator = ##class(TECH.KeyListIterator).%New(KenmerkMogelijkheden.MogelijkeWaarden)
 	
 	While (MogelijkeWaardenIterator.HasNext()) {
-		#Dim KenmerkNaam As %String = MogelijkeWaardenIterator.Next()
+		#dim KenmerkNaam As %String = MogelijkeWaardenIterator.Next()
+		
 		Do:($$$Not(Properties.Find(KenmerkNaam))) ..KenmerkMogelijkheden.VerwijderMogelijkeWaarden(KenmerkNaam)
 	}
 ]]></Implementation>
@@ -62,7 +63,7 @@
 	Do ..KenmerkMogelijkheden.ZetBereik(..LBXKenmerkNaam.UitsparingDataBreedteZ1, 0, 0)
 	Do ..KenmerkMogelijkheden.ZetBereik(..LBXKenmerkNaam.UitsparingDataBreedteZ2, 0, 0)
 	
-	#Dim KlantInstellingenService As APPS.common.KlantInstellingenService = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefKlantInstellingenService(..Personality)
+	#dim KlantInstellingenService As APPS.common.KlantInstellingenService = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefKlantInstellingenService(..Personality)
 	
 	If $$$Not(##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefPalletVerpakking()) {
 		Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXKenmerkNaam.VerpakkingType, ##class(DOM.PM.enu.LBXVerpakkingType).Pallet())