Index: APPS/common/Uitfaseren/TBX/TIPON.cls.xml
===================================================================
diff -u
--- APPS/common/Uitfaseren/TBX/TIPON.cls.xml	(revision 0)
+++ APPS/common/Uitfaseren/TBX/TIPON.cls.xml	(revision 40570)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.common.Uitfaseren.TBX.TIPON">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefLadeDiepteList">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListUtils).CreateListOfDataTypes(350, 500, 650)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/PM/Maatwerk/impl/IngegevenKenmerkTIPONUitfaseringVisitor.cls.xml
===================================================================
diff -u -r40447 -r40570
--- APPS/PM/Maatwerk/impl/IngegevenKenmerkTIPONUitfaseringVisitor.cls.xml	(.../IngegevenKenmerkTIPONUitfaseringVisitor.cls.xml)	(revision 40447)
+++ APPS/PM/Maatwerk/impl/IngegevenKenmerkTIPONUitfaseringVisitor.cls.xml	(.../IngegevenKenmerkTIPONUitfaseringVisitor.cls.xml)	(revision 40570)
@@ -24,7 +24,7 @@
 <FormalSpec>LBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	If ((LBXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPON()) && ##class(TECH.StringUtils).Equals(LBXKenmerken.LadeDiepte,350,500,650)) {
+	If ((LBXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPON()) && ##class(APPS.common.Uitfaseren.TBX.TIPON).GeefLadeDiepteList().Find(LBXKenmerken.LadeDiepte)) {
 		Set ..HeeftTIPONUitfasering = $$$True
 	}
 	Quit $$$OK
Index: APPS/EC/impl/ConfiguratorService/KenmerkMogelijkhedenPostProcessor.cls.xml
===================================================================
diff -u -r40442 -r40570
--- APPS/EC/impl/ConfiguratorService/KenmerkMogelijkhedenPostProcessor.cls.xml	(.../KenmerkMogelijkhedenPostProcessor.cls.xml)	(revision 40442)
+++ APPS/EC/impl/ConfiguratorService/KenmerkMogelijkhedenPostProcessor.cls.xml	(.../KenmerkMogelijkhedenPostProcessor.cls.xml)	(revision 40570)
@@ -105,7 +105,7 @@
 	Set KenmerkCombinatieVerwijderaar = ##class(APPS.EC.impl.ConfiguratorService.KenmerkMogelijkhedenCombinatieVerwijderaar).%New()
 	Do KenmerkCombinatieVerwijderaar.Kenmerken(LBXKenmerken,..KenmerkMogelijkheden).InCombinatieVan(
 					..LBXEnum.KenmerkNaam.GeleiderTechnologie,..LBXEnum.GeleiderTechnologie.TIPON).En(
-					..LBXEnum.KenmerkNaam.LadeDiepte, ##class(TECH.ListUtils).CreateListOfDataTypes(350, 500, 650)
+					..LBXEnum.KenmerkNaam.LadeDiepte, ##class(APPS.common.Uitfaseren.TBX.TIPON).GeefLadeDiepteList()
 				).Verwijder()
 ]]></Implementation>
 </Method>