Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/LBX/TestTIPONUitfasering.cls.xml
===================================================================
diff -u -r40730 -r40799
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/LBX/TestTIPONUitfasering.cls.xml	(.../TestTIPONUitfasering.cls.xml)	(revision 40730)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/LBX/TestTIPONUitfasering.cls.xml	(.../TestTIPONUitfasering.cls.xml)	(revision 40799)
@@ -71,6 +71,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Legrabox met TIPON en Ladediepte 600 - exceptie verwacht">
+<Implementation><![CDATA[
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Deze ingave is niet meer geldig! TIP-ON is niet langer beschikbaar. De lades kunnen wel nog uitgerust worden met BLUMOTION of TIP-ON BLUMOTION. Controleer uw lades met TIP-ON.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidUserInputException", Substrings))
+	
+	Do ..ControleerWinkelkar(##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte600(), ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPON())
+]]></Implementation>
+</Method>
+
 <Method name="Test: Legrabox met TIPON en Ladediepte 650 - exceptie verwacht">
 <Implementation><![CDATA[
 	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Deze ingave is niet meer geldig! TIP-ON is niet langer beschikbaar. De lades kunnen wel nog uitgerust worden met BLUMOTION of TIP-ON BLUMOTION. Controleer uw lades met TIP-ON.")
Index: APPS/common/Uitfaseren/LBX/TIPON.cls.xml
===================================================================
diff -u -r40704 -r40799
--- APPS/common/Uitfaseren/LBX/TIPON.cls.xml	(.../TIPON.cls.xml)	(revision 40704)
+++ APPS/common/Uitfaseren/LBX/TIPON.cls.xml	(.../TIPON.cls.xml)	(revision 40799)
@@ -8,7 +8,7 @@
 IsTiponUitgefaseerd</Description>
 <ClassMethod>1</ClassMethod>
 <ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.ListUtils).CreateListOfDataTypes(300, 350, 400, 450, 500, 650)
+<Implementation><![CDATA[	Quit ##class(TECH.ListUtils).CreateListOfDataTypes(300, 350, 400, 450, 500, 600, 650)
 ]]></Implementation>
 </Method>
 </Class>