Index: APPS/EC/impl/ConfiguratorService/KenmerkMogelijkhedenPostProcessor.cls.xml
===================================================================
diff -u -r57574 -r57732
--- APPS/EC/impl/ConfiguratorService/KenmerkMogelijkhedenPostProcessor.cls.xml	(.../KenmerkMogelijkhedenPostProcessor.cls.xml)	(revision 57574)
+++ APPS/EC/impl/ConfiguratorService/KenmerkMogelijkhedenPostProcessor.cls.xml	(.../KenmerkMogelijkhedenPostProcessor.cls.xml)	(revision 57732)
@@ -20,30 +20,14 @@
 <Method name="VerwerkMATKenmerken">
 <FormalSpec>MATKenmerken:APPS.PM.Maatwerk.dto.MATKenmerken</FormalSpec>
 <Implementation><![CDATA[
-	#define WolvitNettoDiepte400   388
-	#define WolvitNettoDiepte500   488
-	
 	Do ##super(MATKenmerken)
 	
 	If (MATKenmerken.Materiaal = "") {
 		Do ..KenmerkMogelijkheden.MogelijkeWaarden.SetAt("", ..MatEnum.KenmerkNaam.Kleur)
 	}
 	
-	If (MATKenmerken.Diepte > $$$WolvitNettoDiepte500) {
-		Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..MatEnum.KenmerkNaam.Materiaal, ..MatEnum.Materiaal.Wolvilt)
-		// De kleuren expliciet uitschakelen is optioneel, maar maakt het wel duidelijker in de UI.
-		Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..MatEnum.KenmerkNaam.Kleur, ..MatEnum.Kleur.Zwart)
-		Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..MatEnum.KenmerkNaam.Kleur, ..MatEnum.Kleur.Blauw)
-		Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..MatEnum.KenmerkNaam.Kleur, ..MatEnum.Kleur.ParelGrijs)
-		Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..MatEnum.KenmerkNaam.Kleur, ..MatEnum.Kleur.Oranje)
-	}
-	If (MATKenmerken.Diepte > $$$WolvitNettoDiepte400) {
-		If (MATKenmerken.Materiaal = ..MatEnum.Materiaal.Wolvilt) {
-			Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..MatEnum.KenmerkNaam.Kleur, ..MatEnum.Kleur.Zwart)
-			Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..MatEnum.KenmerkNaam.Kleur, ..MatEnum.Kleur.Blauw)
-		}
-	}
-	// En Wolvilt ROOD is reeds volledig uitgeschakeld in de SelectieKenmerken, dus hoeft hier niet meer behandeld te worden.
+	Set WolviltUitfaseerder = ##class(APPS.EC.impl.ConfiguratorService.KenmerkMogelijkhedenPostProcessor.WolvitMattenUitfaseerder).%New()
+	Do WolviltUitfaseerder.VerwerkMATKenmerkenVoorWolvilt(MATKenmerken, ..KenmerkMogelijkheden)
 ]]></Implementation>
 </Method>
 
@@ -56,6 +40,9 @@
 	#dim GekoppeldeMatKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ..IngegevenKenmerkenTypeAPI.GeefGekoppeldeIngegevenKenmerken(TAORKenmerken, GekoppeldIKTypeMat)
 	#dim GekoppeldKenmerkMogelijkheden As APPS.PM.Maatwerk.dto.GekoppeldKenmerkMogelijkheden = ..KenmerkMogelijkheden.GeefGekoppeldeKenmerkMogelijkheden(GekoppeldIKTypeMat)
 	
+	Set WolviltUitfaseerder = ##class(APPS.EC.impl.ConfiguratorService.KenmerkMogelijkhedenPostProcessor.WolvitMattenUitfaseerder).%New()
+	Do WolviltUitfaseerder.VerwerkTAORKenmerkenVoorWolvilt(TAORKenmerken, ..KenmerkMogelijkheden)
+	
 	// Ongeldige MatMaterialen verwijderen bij LadeDiepte > ... 
 	If ($IsObject(GekoppeldKenmerkMogelijkheden)) {
 		If (TAORKenmerken.LadeDiepte > 650) {
@@ -68,11 +55,6 @@
 				Do GekoppeldKenmerkMogelijkheden.KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..MatEnum.KenmerkNaam.Kleur, ..MatEnum.Kleur.AntiSlipFiberLichtGrijs)
 			}
 		}
-		If (TAORKenmerken.LadeDiepte > 500) {
-			If (($IsObject(GekoppeldeMatKenmerken)) && (GekoppeldeMatKenmerken.Materiaal = ..MatEnum.Materiaal.Wolvilt)) {
-				Do GekoppeldKenmerkMogelijkheden.KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..MatEnum.KenmerkNaam.Kleur, ..MatEnum.Kleur.Blauw)
-			}
-		}
 	}
 	
 	// ... en omgekeerd (LadeDiepte > ... verwijderen bij ongeldige MatMaterialen) 
@@ -83,18 +65,6 @@
 			Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.LadeDiepte, ..TAOREnum.LadeDiepte.LadeDiepte750)
 		}
 		
-		If (GekoppeldeMatKenmerken.Materiaal = ..MatEnum.Materiaal.Wolvilt) {
-			If (GekoppeldeMatKenmerken.Kleur = ..MatEnum.Kleur.Blauw) {
-				Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.LadeDiepte, ..TAOREnum.LadeDiepte.LadeDiepte520)
-				Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.LadeDiepte, ..TAOREnum.LadeDiepte.LadeDiepte550)
-				Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.LadeDiepte, ..TAOREnum.LadeDiepte.LadeDiepte580)
-				Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.LadeDiepte, ..TAOREnum.LadeDiepte.LadeDiepte600)
-				Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.LadeDiepte, ..TAOREnum.LadeDiepte.LadeDiepte650)
-				Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.LadeDiepte, ..TAOREnum.LadeDiepte.LadeDiepte700)
-				Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.LadeDiepte, ..TAOREnum.LadeDiepte.LadeDiepte750)
-			}
-		}
-		
 		If (GekoppeldeMatKenmerken.Materiaal = ..MatEnum.Materiaal.AntislipFiber) {
 			If (##class(TECH.StringUtils).Contains(GekoppeldeMatKenmerken.Kleur, ..MatEnum.Kleur.AntiSlipFiberWit, ..MatEnum.Kleur.AntiSlipFiberLichtGrijs, ..MatEnum.Kleur.AntiSlipFiberAntraciet)) {
 				Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.LadeDiepte, ..TAOREnum.LadeDiepte.LadeDiepte700)
@@ -130,24 +100,9 @@
 	#dim GekoppeldeMatKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ..IngegevenKenmerkenTypeAPI.GeefGekoppeldeIngegevenKenmerken(LBXKenmerken, GekoppeldIKTypeMat)
 	#dim GekoppeldKenmerkMogelijkheden As APPS.PM.Maatwerk.dto.GekoppeldKenmerkMogelijkheden = ..KenmerkMogelijkheden.GeefGekoppeldeKenmerkMogelijkheden(GekoppeldIKTypeMat)
 	
-	// Ongeldige MatMaterialen verwijderen bij LadeDiepte > ... 
-	If ($IsObject(GekoppeldKenmerkMogelijkheden)) {
-		If (LBXKenmerken.LadeDiepte > 500) {
-			If (($IsObject(GekoppeldeMatKenmerken)) && (GekoppeldeMatKenmerken.Materiaal = ..MatEnum.Materiaal.Wolvilt)) {
-				Do GekoppeldKenmerkMogelijkheden.KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..MatEnum.KenmerkNaam.Kleur, ..MatEnum.Kleur.Blauw)
-			}
-		}
-	}
+	Set WolviltUitfaseerder = ##class(APPS.EC.impl.ConfiguratorService.KenmerkMogelijkhedenPostProcessor.WolvitMattenUitfaseerder).%New()
+	Do WolviltUitfaseerder.VerwerkLBXKenmerkenVoorWolvilt(LBXKenmerken, ..KenmerkMogelijkheden)
 	
-	// ... en omgekeerd (LadeDiepte > ... verwijderen bij ongeldige MatMaterialen) 
-	If (($IsObject(GekoppeldeMatKenmerken)) && (GekoppeldeMatKenmerken.Materiaal = ..MatEnum.Materiaal.Wolvilt)) {
-		If (GekoppeldeMatKenmerken.Kleur = ..MatEnum.Kleur.Blauw) {
-			Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.LadeDiepte, ..LBXEnum.LadeDiepte.LadeDiepte550)
-			Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.LadeDiepte, ..LBXEnum.LadeDiepte.LadeDiepte600)
-			Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..LBXEnum.KenmerkNaam.LadeDiepte, ..LBXEnum.LadeDiepte.LadeDiepte650)
-		}
-	}
-	
 	Do ..ProcessSpoelbakVoorLBX(LBXKenmerken)
 	Do ..ProcessSifonladeVoorLBX(LBXKenmerken)