Index: vhUnitTest/BL/Flow/Levering/VerzendwijzeVoorSubmagazijnBepaler/GeefVerzendwijzeVoorSubmagazijn/Test.cls.xml
===================================================================
diff -u -r70155 -r70275
--- vhUnitTest/BL/Flow/Levering/VerzendwijzeVoorSubmagazijnBepaler/GeefVerzendwijzeVoorSubmagazijn/Test.cls.xml	(.../Test.cls.xml)	(revision 70155)
+++ vhUnitTest/BL/Flow/Levering/VerzendwijzeVoorSubmagazijnBepaler/GeefVerzendwijzeVoorSubmagazijn/Test.cls.xml	(.../Test.cls.xml)	(revision 70275)
@@ -36,7 +36,7 @@
 
 <Method name="Test: Submagazijnen waarvoor HaluxVerzendwijze THL is">
 <Implementation><![CDATA[
-	#dim Submagazijnen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("LBCP", "LBFRE", "LBGLA", "LBOND", "LBVST", "LBZIJ", "LBZIN", "LBZKV", "LBZOG", "LBZPS", "LBZSW", "LBZTS")
+	#dim Submagazijnen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("LBCP", "LBFRE", "LBOND", "LBZIJ", "LBZIN", "LBZKV", "LBZOG", "LBZPS", "LBZSW", "LBZTS")
 	#dim SubmagazijnenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Submagazijnen)
 	
 	Do ..AssertHaluxVerzendwijze(SubmagazijnenIterator, "THL")
@@ -81,13 +81,22 @@
 
 <Method name="Test: Submagazijnen waarvoor HaluxVerzendwijze THT is">
 <Implementation><![CDATA[
-	#dim Submagazijnen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("CP", "GLAS", "OI", "OIB", "OP", "ORELA", "SPSY", "TIPON", "VRSTK", "ZKGVM", "ZKGVP", "ZKKVP")
+	#dim Submagazijnen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("CP", "GLAS", "OI", "OIB", "OP", "ORELA", "SPSY", "TIPON", "ZKGVM", "ZKGVP", "ZKKVP")
 	#dim SubmagazijnenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Submagazijnen)
 	
 	Do ..AssertHaluxVerzendwijze(SubmagazijnenIterator, "THT")
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Submagazijnen waarvoor HaluxVerzendwijze THV is">
+<Implementation><![CDATA[
+	#dim Submagazijnen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("LBGLA", "LBVST", "VRSTK")
+	#dim SubmagazijnenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Submagazijnen)
+	
+	Do ..AssertHaluxVerzendwijze(SubmagazijnenIterator, "THV")
+]]></Implementation>
+</Method>
+
 <Method name="AssertHaluxVerzendwijze">
 <FormalSpec>SubmagazijnenIterator:TECH.Iterator,VerwachteHaluxVerzendwijze:TECH.String</FormalSpec>
 <Private>1</Private>