Index: APPS/EC/impl/ConfiguratorService/KenmerkMogelijkhedenPostProcessor.cls.xml
===================================================================
diff -u -r52801 -r52827
--- APPS/EC/impl/ConfiguratorService/KenmerkMogelijkhedenPostProcessor.cls.xml	(.../KenmerkMogelijkhedenPostProcessor.cls.xml)	(revision 52801)
+++ APPS/EC/impl/ConfiguratorService/KenmerkMogelijkhedenPostProcessor.cls.xml	(.../KenmerkMogelijkhedenPostProcessor.cls.xml)	(revision 52827)
@@ -34,23 +34,41 @@
 	Do ..ProcessSifonladeVoorTAX(TAORKenmerken)
 	
 	#dim GekoppeldIKTypeMat As DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType = ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).Mat()
+	#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)
 
-	// Ongeldige MatMaterialen verwijderen bij LadeDiepte > 650 ... 
+	// Ongeldige MatMaterialen verwijderen bij LadeDiepte > ... 
 	If ($IsObject(GekoppeldKenmerkMogelijkheden)) {
 		If (TAORKenmerken.LadeDiepte > 650) {
 			Do GekoppeldKenmerkMogelijkheden.KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..MatEnum.KenmerkNaam.Materiaal, ..MatEnum.Materiaal.Antislip)
 			Do GekoppeldKenmerkMogelijkheden.KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..MatEnum.KenmerkNaam.Materiaal, ..MatEnum.Materiaal.AntislipFiber)
 			Do GekoppeldKenmerkMogelijkheden.KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..MatEnum.KenmerkNaam.Materiaal, ..MatEnum.Materiaal.VinylFiberglass)
 		}
+		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 > 650 verwijderen bij ongeldige MatMaterialen) 
-	#dim MATKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ..IngegevenKenmerkenTypeAPI.GeefGekoppeldeIngegevenKenmerken(TAORKenmerken, GekoppeldIKTypeMat)
+	// ... en omgekeerd (LadeDiepte > ... verwijderen bij ongeldige MatMaterialen) 
 	
-	If ($IsObject(MATKenmerken)) && (##class(TECH.StringUtils).Contains(MATKenmerken.Materiaal, ..MatEnum.Materiaal.Antislip, ..MatEnum.Materiaal.AntislipFiber, ..MatEnum.Materiaal.VinylFiberglass)) {
-		Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.LadeDiepte, ..TAOREnum.LadeDiepte.LadeDiepte700)
-		Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.LadeDiepte, ..TAOREnum.LadeDiepte.LadeDiepte750)
+	If ($IsObject(GekoppeldeMatKenmerken)) {
+		If (##class(TECH.StringUtils).Contains(GekoppeldeMatKenmerken.Materiaal, ..MatEnum.Materiaal.Antislip, ..MatEnum.Materiaal.AntislipFiber, ..MatEnum.Materiaal.VinylFiberglass)) {
+			Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde(..TAOREnum.KenmerkNaam.LadeDiepte, ..TAOREnum.LadeDiepte.LadeDiepte700)
+			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)
+			}
+		}
 	}
 	
 	Do:($$$Not(TAORKenmerken.IsBinnenlade)) ..KenmerkMogelijkheden.VerwijderMogelijkeWaarde("LosseComponent", ##class(APPS.PM.enu.TAORLosseComponent).Front())
@@ -76,6 +94,30 @@
 <FormalSpec>LBXKenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken</FormalSpec>
 <Implementation><![CDATA[
 	Do ..KenmerkMogelijkheden.ZetMogelijkeWaarden(..LBXEnum.KenmerkNaam.ProductieWijze, ##class(APPS.PM.enu.LBXProductieWijze).ValueList())
+	
+	#dim GekoppeldIKTypeMat As DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType = ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).Mat()
+	#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)
+			}
+		}
+	}
+	
+	// ... 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)