Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/LBX/TestTIPONUitfasering.cls.xml
===================================================================
diff -u -r41128 -r41364
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/LBX/TestTIPONUitfasering.cls.xml	(.../TestTIPONUitfasering.cls.xml)	(revision 41128)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/LBX/TestTIPONUitfasering.cls.xml	(.../TestTIPONUitfasering.cls.xml)	(revision 41364)
@@ -44,6 +44,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Legrabox met TIPON en Ladediepte 350 - 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).LadeDiepte350(), ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPON())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Legrabox met TIPON en Ladediepte 400 - 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).LadeDiepte400(), ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPON())
+]]></Implementation>
+</Method>
+
 <Method name="Test: Legrabox met TIPON en Ladediepte 450 - 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.")
@@ -53,6 +71,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Legrabox met TIPON en Ladediepte 500 - 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).LadeDiepte500(), ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPON())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Legrabox met TIPON en Ladediepte 550 - 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).LadeDiepte550(), ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPON())
+]]></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.")
Index: APPS/common/Uitfaseren/LBX/TIPON.cls.xml
===================================================================
diff -u -r41123 -r41364
--- APPS/common/Uitfaseren/LBX/TIPON.cls.xml	(.../TIPON.cls.xml)	(revision 41123)
+++ APPS/common/Uitfaseren/LBX/TIPON.cls.xml	(.../TIPON.cls.xml)	(revision 41364)
@@ -8,7 +8,7 @@
 IsTiponUitgefaseerd</Description>
 <ClassMethod>1</ClassMethod>
 <ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.ListUtils).CreateListOfDataTypes(300, 400, 450, 550, 600, 650)
+<Implementation><![CDATA[	Quit ##class(TECH.ListUtils).CreateListOfDataTypes(300, 350, 400, 450, 500, 550, 600, 650)
 ]]></Implementation>
 </Method>
 </Class>