Index: APPS/EC/impl/ConfiguratorService/KenmerkMogelijkhedenPostProcessor/AntislipMattenUitfaseren.cls.xml
===================================================================
diff -u -r61236 -r61301
--- APPS/EC/impl/ConfiguratorService/KenmerkMogelijkhedenPostProcessor/AntislipMattenUitfaseren.cls.xml	(.../AntislipMattenUitfaseren.cls.xml)	(revision 61236)
+++ APPS/EC/impl/ConfiguratorService/KenmerkMogelijkhedenPostProcessor/AntislipMattenUitfaseren.cls.xml	(.../AntislipMattenUitfaseren.cls.xml)	(revision 61301)
@@ -46,32 +46,17 @@
 <Method name="VerwerkMATKenmerkenVoorAntislip">
 <FormalSpec>MATKenmerken:APPS.PM.Maatwerk.dto.MATKenmerken,KenmerkMogelijkheden:APPS.PM.Maatwerk.dto.KenmerkMogelijkheden</FormalSpec>
 <Implementation><![CDATA[
-	// 27mm wordt steeds afgetrokken van de LadeDiepte
-	#define ZwartAntislipDiepte450   	(450-27)
-	#define ZwartAntislipDiepte450glas 	(450-40)
-	#define ZwartAntislipDiepte550   	(550-27)	
-	#define ZwartAntislipDiepte550glas 	(550-40)
-	#define ZwartAntislipDiepte500   	(500-27)
-	#define ZwartAntislipDiepte500glas 	(500-40)
-	#define ZwartAntislipDiepte600   	(600-27)	
-	#define ZwartAntislipDiepte600glas 	(600-40)
-	#define ZwartAntislipDiepte650   	(650-27)
-	#define ZwartAntislipDiepte650glas 	(650-40)
-	
-	#define ZwartAntracietDiepte500   		(500-27)
-	#define ZwartAntracietDiepte550   		(550-27)
-	#define ZwartAntracietDiepte650   		(650-27)
-	#define ZwartAntracietDiepte550glas 	(550-40)
-	#define ZwartAntracietDiepte500glas		(500-40)
-	#define ZwartAntracietDiepte650glas 	(650-40)
-	
 	Set ..KenmerkMogelijkheden = KenmerkMogelijkheden
 	
-	If ((MATKenmerken.Diepte = $$$ZwartAntislipDiepte450) || (MATKenmerken.Diepte = $$$ZwartAntislipDiepte550) || (MATKenmerken.Diepte = $$$ZwartAntislipDiepte450glas) || (MATKenmerken.Diepte = $$$ZwartAntislipDiepte550glas) || (MATKenmerken.Diepte = $$$ZwartAntislipDiepte500) || (MATKenmerken.Diepte = $$$ZwartAntislipDiepte500) || (MATKenmerken.Diepte = $$$ZwartAntislipDiepte500glas) || (MATKenmerken.Diepte = $$$ZwartAntislipDiepte600glas) || (MATKenmerken.Diepte = $$$ZwartAntislipDiepte650) || (MATKenmerken.Diepte = $$$ZwartAntislipDiepte650glas)) {		//Kleur ZwartAntislip verbergen
+	#dim LadeDiepte = MATKenmerken.Diepte + 27
+	#dim LadeDiepteIndienGlazenFront = MATKenmerken.Diepte + 40
+	#dim IsZwartUitgefaseerdVoorDiepte As %Boolean     = ..IsZwartAntislipUitgefaseerdVoorDiepte(LadeDiepte) || ..IsZwartAntislipUitgefaseerdVoorDiepte(LadeDiepteIndienGlazenFront)
+	#dim IsAntracietUitgefaseerdVoorDiepte As %Boolean = ..IsAntracietUitgefaseerdVoorDiepte(LadeDiepte)     || ..IsAntracietUitgefaseerdVoorDiepte(LadeDiepteIndienGlazenFront)
+
+	If IsZwartUitgefaseerdVoorDiepte {
 		Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..MatEnum.KenmerkNaam.Kleur, ..MatEnum.Kleur.ZwartAntislip)
 	}
-	
-	If ((MATKenmerken.Diepte = $$$ZwartAntracietDiepte500) || (MATKenmerken.Diepte = $$$ZwartAntracietDiepte550) || (MATKenmerken.Diepte = $$$ZwartAntracietDiepte650) || (MATKenmerken.Diepte = $$$ZwartAntracietDiepte550glas) || (MATKenmerken.Diepte = $$$ZwartAntracietDiepte500glas) || (MATKenmerken.Diepte = $$$ZwartAntracietDiepte650glas)) {	//Kleur Antraciet verbergen
+	If IsAntracietUitgefaseerdVoorDiepte {
 		Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..MatEnum.KenmerkNaam.Kleur, ..MatEnum.Kleur.Antraciet)
 	}
 	/*
@@ -117,13 +102,13 @@
 			Do GekoppeldKenmerkMogelijkheden.KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..MatEnum.KenmerkNaam.Kleur, ..MatEnum.Kleur.ZwartAntislip)
 			
 		}*/
-		If ((LBXKenmerken.LadeDiepte = ..LBXEnum.LadeDiepte.LadeDiepte450) || (LBXKenmerken.LadeDiepte = ..LBXEnum.LadeDiepte.LadeDiepte550) || (LBXKenmerken.LadeDiepte = ..LBXEnum.LadeDiepte.LadeDiepte500) || (LBXKenmerken.LadeDiepte = ..LBXEnum.LadeDiepte.LadeDiepte600) || (LBXKenmerken.LadeDiepte = ..LBXEnum.LadeDiepte.LadeDiepte650)) {	//Kleur ZwartAntislip verbergen
+		If ..IsZwartAntislipUitgefaseerdVoorDiepte(LBXKenmerken.LadeDiepte) {	//Kleur ZwartAntislip verbergen
 			If (($IsObject(GekoppeldeMatKenmerken)) && (GekoppeldeMatKenmerken.Materiaal = ..MatEnum.Materiaal.Antislip)) {
 				Do GekoppeldKenmerkMogelijkheden.KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..MatEnum.KenmerkNaam.Kleur, ..MatEnum.Kleur.ZwartAntislip)
 			}
 		}
 		
-		If ((LBXKenmerken.LadeDiepte = ..LBXEnum.LadeDiepte.LadeDiepte550) || (LBXKenmerken.LadeDiepte = ..LBXEnum.LadeDiepte.LadeDiepte500) || (LBXKenmerken.LadeDiepte = ..LBXEnum.LadeDiepte.LadeDiepte650)) {	//Kleur Antraciet verbergen
+		If ..IsAntracietUitgefaseerdVoorDiepte(LBXKenmerken.LadeDiepte) {	//Kleur Antraciet verbergen
 			If (($IsObject(GekoppeldeMatKenmerken)) && (GekoppeldeMatKenmerken.Materiaal = ..MatEnum.Materiaal.Antislip)) {
 				Do GekoppeldKenmerkMogelijkheden.KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..MatEnum.KenmerkNaam.Kleur, ..MatEnum.Kleur.Antraciet)
 			}
@@ -160,6 +145,32 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="IsAntracietUitgefaseerdVoorDiepte">
+<Description>
+!!!  GRIJS !!! </Description>
+<FormalSpec>LadeDiepte:%Decimal</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim AntracietAntislipUitgefaseerdeLadeDieptes As %List = $LB(500,550,650)   ; !!!  GRIJS : Deze dieptes zijn NIET meer mogelijk !!! 
+
+	Quit $ListFind(AntracietAntislipUitgefaseerdeLadeDieptes, LadeDiepte)
+]]></Implementation>
+</Method>
+
+<Method name="IsZwartAntislipUitgefaseerdVoorDiepte">
+<Description>
+!!! ZWART !!! </Description>
+<FormalSpec>LadeDiepte:%Decimal</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim ZwartAntislipUitgefaseerdeLadeDieptes As %List = $LB(450,500,550,600,650)   ; !!!  ZWART : Deze dieptes zijn NIET meer mogelijk !!! 
+
+	Quit $ListFind(ZwartAntislipUitgefaseerdeLadeDieptes, LadeDiepte)
+]]></Implementation>
+</Method>
 </Class>