Index: BL/Flow/Levering/VerzendwijzeVoorSubmagazijnBepaler.cls.xml
===================================================================
diff -u -r70154 -r70155
--- BL/Flow/Levering/VerzendwijzeVoorSubmagazijnBepaler.cls.xml	(.../VerzendwijzeVoorSubmagazijnBepaler.cls.xml)	(revision 70154)
+++ BL/Flow/Levering/VerzendwijzeVoorSubmagazijnBepaler.cls.xml	(.../VerzendwijzeVoorSubmagazijnBepaler.cls.xml)	(revision 70155)
@@ -9,8 +9,68 @@
 <Implementation><![CDATA[
 	#dim HaluxVerzendwijze As TECH.String = ""
 	
-	If Submagazijn = "TA'OR Onderdelen" 			{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THA() }
-	ElseIf Submagazijn = "TA'OR Plaatmat. Decospan" { Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THA() }
+	If Submagazijn = "ALHD" 		{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THD() }
+	ElseIf Submagazijn = "CCYST" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THD() }
+	ElseIf Submagazijn = "CP" 		{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THT() }
+	ElseIf Submagazijn = "GLAS" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THT() }
+	ElseIf Submagazijn = "HOEHY" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THD() }
+	ElseIf Submagazijn = "HOEST" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THD() }
+	ElseIf Submagazijn = "LBCP" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THL() }
+	ElseIf Submagazijn = "LBFRE" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THL() }
+	ElseIf Submagazijn = "LBGLA" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THL() }
+	ElseIf Submagazijn = "LBOND" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THL() }
+	ElseIf Submagazijn = "LBPM" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THD() }
+	ElseIf Submagazijn = "LBRWH" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THR() }
+	ElseIf Submagazijn = "LBSR" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THS() }
+	ElseIf Submagazijn = "LBVST" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THL() }
+	ElseIf Submagazijn = "LBZIJ" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THL() }
+	ElseIf Submagazijn = "LBZIN" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THL() }
+	ElseIf Submagazijn = "LBZKV" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THL() }
+	ElseIf Submagazijn = "LBZOG" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THL() }
+	ElseIf Submagazijn = "LBZPS" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THL() }
+	ElseIf Submagazijn = "LBZSW" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THL() }
+	ElseIf Submagazijn = "LBZTS" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THL() }
+	ElseIf Submagazijn = "M" 		{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THD() }
+	ElseIf Submagazijn = "MAT"		{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THN() }
+	ElseIf Submagazijn = "MONDO" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THD() }
+	ElseIf Submagazijn = "MVCP" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THM() }
+	ElseIf Submagazijn = "MVGLA" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THM() }
+	ElseIf Submagazijn = "MVOND" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THM() }
+	ElseIf Submagazijn = "MVPM" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THM() }
+	ElseIf Submagazijn = "MVRWH" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THR() }
+	ElseIf Submagazijn = "MVSR" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THS() }
+	ElseIf Submagazijn = "MVVST" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THM() }
+	ElseIf Submagazijn = "MVZIG" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THM() }
+	ElseIf Submagazijn = "MVZKV" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THM() }
+	ElseIf Submagazijn = "MVZOG" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THM() }
+	ElseIf Submagazijn = "MVZSW" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THM() }
+	ElseIf Submagazijn = "O" 		{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THD() }
+	ElseIf Submagazijn = "OI" 		{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THT() }
+	ElseIf Submagazijn = "OIB" 		{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THT() }
+	ElseIf Submagazijn = "OP" 		{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THT() }
+	ElseIf Submagazijn = "ORELA" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THT() }
+	ElseIf Submagazijn = "PDE" 		{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THD() }
+	ElseIf Submagazijn = "PHULP" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THD() }
+	ElseIf Submagazijn = "PM" 		{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THD() }
+	ElseIf Submagazijn = "PRF" 		{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THD() }
+	ElseIf Submagazijn = "PSA" 		{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THD() }
+	ElseIf Submagazijn = "RWH" 		{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THR() }
+	ElseIf Submagazijn = "SCR" 		{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THD() }
+	ElseIf Submagazijn = "SPSY" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THT() }
+	ElseIf Submagazijn = "SRUG" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THS() }
+	ElseIf Submagazijn = "TAFIM" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THA() }
+	ElseIf Submagazijn = "TAOND" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THA() }
+	ElseIf Submagazijn = "TAPEG" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THA() }
+	ElseIf Submagazijn = "TAZEI" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THA() }
+	ElseIf Submagazijn = "TAZNO" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THA() }
+	ElseIf Submagazijn = "TAZZE" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THA() }
+	ElseIf Submagazijn = "TIPON" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THT() }
+	ElseIf Submagazijn = "VPK" 		{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THD() }
+	ElseIf Submagazijn = "VRSTK" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THT() }
+	ElseIf Submagazijn = "X" 		{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THD() }
+	ElseIf Submagazijn = "ZKGVP" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THT() }
+	ElseIf Submagazijn = "ZKGVM" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THT() }
+	ElseIf Submagazijn = "ZKKVP" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THT() }
 	Else { Set Submagazijn = "" }
 	
 	Quit HaluxVerzendwijze
Index: vhUnitTest/BL/Flow/Levering/VerzendwijzeVoorSubmagazijnBepaler/GeefVerzendwijzeVoorSubmagazijn/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/BL/Flow/Levering/VerzendwijzeVoorSubmagazijnBepaler/GeefVerzendwijzeVoorSubmagazijn/Test.cls.xml	(revision 0)
+++ vhUnitTest/BL/Flow/Levering/VerzendwijzeVoorSubmagazijnBepaler/GeefVerzendwijzeVoorSubmagazijn/Test.cls.xml	(revision 70155)
@@ -0,0 +1,109 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.BL.Flow.Levering.VerzendwijzeVoorSubmagazijnBepaler.GeefVerzendwijzeVoorSubmagazijn.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="VerzendwijzeVoorSubmagazijnBepaler">
+<Type>BL.Flow.Levering.VerzendwijzeVoorSubmagazijnBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..VerzendwijzeVoorSubmagazijnBepaler = ##class(BL.Flow.Levering.VerzendwijzeVoorSubmagazijnBepaler).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Submagazijnen waarvoor HaluxVerzendwijze THA is">
+<Implementation><![CDATA[
+	#dim Submagazijnen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("TAFIM", "TAOND", "TAPEG", "TAZEI", "TAZNO", "TAZZE")
+	#dim SubmagazijnenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Submagazijnen)
+	
+	Do ..AssertHaluxVerzendwijze(SubmagazijnenIterator, "THA")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Submagazijnen waarvoor HaluxVerzendwijze THD is">
+<Implementation><![CDATA[
+	#dim Submagazijnen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("ALHD", "CCYST", "HOEHY", "HOEST", "LBPM", "M", "MONDO", "O", "PDE", "PHULP", "PM", "PRF", "PSA", "SCR", "VPK", "X")
+	#dim SubmagazijnenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Submagazijnen)
+	
+	Do ..AssertHaluxVerzendwijze(SubmagazijnenIterator, "THD")
+]]></Implementation>
+</Method>
+
+<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 SubmagazijnenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Submagazijnen)
+	
+	Do ..AssertHaluxVerzendwijze(SubmagazijnenIterator, "THL")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Submagazijnen waarvoor HaluxVerzendwijze THM is">
+<Implementation><![CDATA[
+	#dim Submagazijnen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("MVCP", "MVGLA", "MVOND", "MVPM", "MVVST", "MVZIG", "MVZKV", "MVZOG", "MVZSW")
+	#dim SubmagazijnenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Submagazijnen)
+	
+	Do ..AssertHaluxVerzendwijze(SubmagazijnenIterator, "THM")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Submagazijnen waarvoor HaluxVerzendwijze THN is">
+<Implementation><![CDATA[
+	#dim Submagazijnen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("MAT")
+	#dim SubmagazijnenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Submagazijnen)
+	
+	Do ..AssertHaluxVerzendwijze(SubmagazijnenIterator, "THN")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Submagazijnen waarvoor HaluxVerzendwijze THR is">
+<Implementation><![CDATA[
+	#dim Submagazijnen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("LBRWH", "MVRWH", "RWH")
+	#dim SubmagazijnenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Submagazijnen)
+	
+	Do ..AssertHaluxVerzendwijze(SubmagazijnenIterator, "THR")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Submagazijnen waarvoor HaluxVerzendwijze THS is">
+<Implementation><![CDATA[
+	#dim Submagazijnen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("LBSR", "MVSR", "SRUG")
+	#dim SubmagazijnenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Submagazijnen)
+	
+	Do ..AssertHaluxVerzendwijze(SubmagazijnenIterator, "THS")
+]]></Implementation>
+</Method>
+
+<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 SubmagazijnenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Submagazijnen)
+	
+	Do ..AssertHaluxVerzendwijze(SubmagazijnenIterator, "THT")
+]]></Implementation>
+</Method>
+
+<Method name="AssertHaluxVerzendwijze">
+<FormalSpec>SubmagazijnenIterator:TECH.Iterator,VerwachteHaluxVerzendwijze:TECH.String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Submagazijn As TECH.String
+	#dim HaluxVerzendwijze As TECH.String
+	
+	While (SubmagazijnenIterator.HasNext()) {
+		Set Submagazijn = SubmagazijnenIterator.Next()
+		Set HaluxVerzendwijze = ..VerzendwijzeVoorSubmagazijnBepaler.GeefVerzendwijzeVoorSubmagazijn(Submagazijn)
+		
+		Do $$$AssertEquals(HaluxVerzendwijze, VerwachteHaluxVerzendwijze)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>