Index: WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler.cls.xml
===================================================================
diff -u -r35837 -r37108
--- WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler.cls.xml	(.../OnderdelenBepaler.cls.xml)	(revision 35837)
+++ WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler.cls.xml	(.../OnderdelenBepaler.cls.xml)	(revision 37108)
@@ -3,20 +3,32 @@
 <Class name="WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler">
 <Super>DOM.PM.Maatwerk.TAX.impl.Base,TECH.Mockable</Super>
 
-<Property name="KleurcodeStringBepaler">
-<Type>APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.KleurcodeStringBepaler</Type>
+<Property name="BepalerVoorVerpakking">
+<Type>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorVerpakking</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="BepalerVoorRol">
+<Type>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BepalerVoorLadeOnderdeel">
+<Type>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorLadeOnderdeel</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>KleurcodeStringBepaler:APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.KleurcodeStringBepaler=""</FormalSpec>
+<FormalSpec>BepalerVoorVerpakking:WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorVerpakking="",BepalerVoorRol:WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol="",BepalerVoorLadeOnderdeel:WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorLadeOnderdeel</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..KleurcodeStringBepaler = $$$Inject(KleurcodeStringBepaler, ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.KleurcodeStringBepaler).%New())
-	
+	Set ..BepalerVoorVerpakking = $$$Inject(BepalerVoorVerpakking, ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorVerpakking).%New())
+	Set ..BepalerVoorRol = $$$Inject(BepalerVoorRol, ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol).%New())
+	Set ..BepalerVoorLadeOnderdeel = $$$Inject(BepalerVoorLadeOnderdeel, ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorLadeOnderdeel).%New())
+
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -29,23 +41,22 @@
 	#dim MaatwerkCalcAPI As DOM.PM.MaatwerkCalcAPI = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI()
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = MaatwerkCalcAPI.GeefHalffabItemsBoom(TAORKenmerken, 1, ##class(DOM.VKP.enu.Klant).Halux(), ##class(DOM.common.VanHoeckePersonality).Instance())
 	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = MaatwerkCalcAPI.GeefLadeInfo(HalffabItemsBoom, TAORKenmerken)
-	//#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ..LadeInfoAPI.GeefLade(HalffabItemsBoom, TAORKenmerken)
 	
-	;#dim HalffabItemVerpakking As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = HalffabItemsBoom.GeefHalffabItem(..Enum.Rol.Verpakking)
-	;#dim HalffabItemBodemOndersteuning As DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = HalffabItemsBoom.GeefHalffabItem(..Enum.Rol.BodemOndersteuning)
-	;#dim HalffabItemAfdekkapBoven As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = HalffabItemsBoom.GeefHalffabItem(..Enum.Rol.AfdekkapBoven)
-	;#dim HalffabItemKoppeling As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = HalffabItemsBoom.GeefHalffabItem(..Enum.Rol.Koppeling)
+	Do ##class(TECH.ListUtils).AppendList(Onderdelen, ..BepalerVoorVerpakking.GeefOnderdelen(HalffabItemsBoom.GeefHalffabItem(..Enum.Rol.Verpakking), "FPV1_kartonplaat_bodemondersteuning")) //KartonPlaat
+	Do ##class(TECH.ListUtils).AppendList(Onderdelen, ..BepalerVoorVerpakking.GeefOnderdelen(HalffabItemsBoom.GeefHalffabItem(..Enum.Rol.Verpakking), "FPV1_draagplaat")) //DraagPlaat
 	
-	;Do ##class(zTryout.MVI.Tools.ObjectDumper).Dump(HalffabItemVerpakking)
+	Do ##class(TECH.ListUtils).AppendList(Onderdelen, ..BepalerVoorRol.GeefOnderdelen(HalffabItemsBoom, ..Enum.Rol.BodemOndersteuning))
+	Do ##class(TECH.ListUtils).AppendList(Onderdelen, ..BepalerVoorRol.GeefOnderdelen(HalffabItemsBoom, ..Enum.Rol.AfdekkapBoven))
+	Do ##class(TECH.ListUtils).AppendList(Onderdelen, ..BepalerVoorRol.GeefOnderdelen(HalffabItemsBoom, ..Enum.Rol.Koppeling))
 
 	#dim ZijkantenLinksIterator As TECH.Iterator = ..GeefZijkantenIteratorVoorRol(Lade, ##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Links())
 	#dim ZijkantenRechtsIterator As TECH.Iterator = ..GeefZijkantenIteratorVoorRol(Lade, ##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Rechts())
 	
-	Do ##class(TECH.ListUtils).AppendList(Onderdelen, ..GeefOnderdelenVoorLadeOnderdelen(ZijkantenLinksIterator, ..Enum.Rol.ZijkantLinks))
-	Do ##class(TECH.ListUtils).AppendList(Onderdelen, ..GeefOnderdelenVoorLadeOnderdelen(ZijkantenRechtsIterator, ..Enum.Rol.ZijkantRechts))
-	Do ##class(TECH.ListUtils).AppendList(Onderdelen, ..GeefOnderdelenVoorLadeOnderdelen(Lade.GeefBodemIterator(), ..Enum.Rol.Bodem))
-	Do ##class(TECH.ListUtils).AppendList(Onderdelen, ..GeefOnderdelenVoorLadeOnderdelen(Lade.GeefRugIterator(), ..Enum.Rol.Rug))
-	Do ##class(TECH.ListUtils).AppendList(Onderdelen, ..GeefOnderdelenVoorLadeOnderdelen(Lade.GeefFrontIterator(), ..Enum.Rol.Front))
+	Do ##class(TECH.ListUtils).AppendList(Onderdelen, ..BepalerVoorLadeOnderdeel.GeefOnderdelen(ZijkantenLinksIterator, ..Enum.Rol.ZijkantLinks))
+	Do ##class(TECH.ListUtils).AppendList(Onderdelen, ..BepalerVoorLadeOnderdeel.GeefOnderdelen(ZijkantenRechtsIterator, ..Enum.Rol.ZijkantRechts))
+	Do ##class(TECH.ListUtils).AppendList(Onderdelen, ..BepalerVoorLadeOnderdeel.GeefOnderdelen(Lade.GeefBodemIterator(), ..Enum.Rol.Bodem))
+	Do ##class(TECH.ListUtils).AppendList(Onderdelen, ..BepalerVoorLadeOnderdeel.GeefOnderdelen(Lade.GeefRugIterator(), ..Enum.Rol.Rug))
+	Do ##class(TECH.ListUtils).AppendList(Onderdelen, ..BepalerVoorLadeOnderdeel.GeefOnderdelen(Lade.GeefFrontIterator(), ..Enum.Rol.Front))
 	
 	Quit Onderdelen
 ]]></Implementation>
@@ -70,43 +81,6 @@
 	Quit ##class(TECH.ListIterator).%New(Zijkanten)
 ]]></Implementation>
 </Method>
-
-<Method name="GeefOnderdelenVoorLadeOnderdelen">
-<FormalSpec>LadeOnderdelenIterator:TECH.Iterator,Rol:TECH.String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[
-	#dim Onderdelen As %ListOfObjects = ##class(%ListOfObjects).%New()
-	
-	While (LadeOnderdelenIterator.HasNext()) {
-		#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = LadeOnderdelenIterator.Next()
-		
-		Do Onderdelen.Insert(..GeefOnderdeel(Rol, "", 1, 0, 0, "", "",	..KleurcodeStringBepaler.GeefKleurcodeString(LadeOnderdeel, "/")))
-	}
-	
-	Quit Onderdelen
-]]></Implementation>
-</Method>
-
-<Method name="GeefOnderdeel">
-<FormalSpec>Omschrijving:%String,Code:%String,Aantal:%Integer,Gewicht:%Integer,Tolerantie:%Integer,Locatie:%String,Weging:%String,Kleuren:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.Onderdeel</ReturnType>
-<Implementation><![CDATA[
-	#dim Onderdeel As WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.Onderdeel = ##class(WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.Onderdeel).%New()
-	
-	Set Onderdeel.Omschrijving = Omschrijving
-	Set Onderdeel.Code = Code
-	Set Onderdeel.Aantal = Aantal
-	Set Onderdeel.Gewicht = Gewicht
-	Set Onderdeel.Tolerantie = Tolerantie
-	Set Onderdeel.Locatie = Locatie
-	Set Onderdeel.Weging = Weging
-	Set Onderdeel.Kleuren = Kleuren
-	
-	Quit Onderdeel
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/Test.cls.xml
===================================================================
diff -u -r35837 -r37108
--- vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 35837)
+++ vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 37108)
@@ -5,31 +5,47 @@
 
 <Method name="Test: Methods worden opgeroepen door GeefOnderdelen-method">
 <Implementation><![CDATA[
-	#dim KleurcodeStringBepalerMock As vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.KleurcodeStringBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.KleurcodeStringBepaler).%New()
-	#dim MaatwerkCalcAPIMock As vhTest.Mock.DOM.PM.MaatwerkCalcAPI = ##class(vhTest.Mock.DOM.PM.MaatwerkCalcAPI).MockInstance()
-	#dim HalffabItemsBoomMock As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
-	#dim LadeMock As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade).%New()
+	#dim DummyListOfObjects As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLadeVerpaktIn(..Enum.VerpakkingType.FlatpackV1)
+	
 	#dim LadeOnderdeelMock As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Zijkant = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Zijkant).%New()
+	Do LadeOnderdeelMock.IndienMethodCall("GeefZijkantRol").DanReturn("ZijkantRol")
 	
 	#dim LadeOnderdeelIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(LadeOnderdeelMock)
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLadeVerpaktIn(..Enum.VerpakkingType.FlatpackV1)
-	#dim OnderdelenBepaler As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler).%New(KleurcodeStringBepalerMock)
+	#dim LadeMock As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade).%New()
+	Do LadeMock.IndienMethodCall("GeefZijkantIterator").DanReturn(LadeOnderdeelIterator)
+	Do LadeMock.IndienMethodCall("GeefBodemIterator").DanReturn(LadeOnderdeelIterator)
+	Do LadeMock.IndienMethodCall("GeefRugIterator").DanReturn(LadeOnderdeelIterator)
+	Do LadeMock.IndienMethodCall("GeefFrontIterator").DanReturn(LadeOnderdeelIterator)
 	
-	Do MaatwerkCalcAPIMock.VerwachtMethodCall("GeefHalffabItemsBoom", TAORKenmerken, $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(HalffabItemsBoomMock)
-	Do MaatwerkCalcAPIMock.VerwachtMethodCall("GeefLadeInfo", HalffabItemsBoomMock, TAORKenmerken).DanReturn(LadeMock)
-	Do LadeMock.VerwachtMethodCall("GeefZijkantIterator").DanReturn(LadeOnderdeelIterator)
-	Do LadeMock.VerwachtMethodCall("GeefBodemIterator").DanReturn(LadeOnderdeelIterator)
-	Do LadeMock.VerwachtMethodCall("GeefRugIterator").DanReturn(LadeOnderdeelIterator)
-	Do LadeMock.VerwachtMethodCall("GeefFrontIterator").DanReturn(LadeOnderdeelIterator)
-	Do LadeOnderdeelMock.VerwachtMethodCall("GeefZijkantRol").DanReturn("ZijkantRol")
-	Do KleurcodeStringBepalerMock.VerwachtMethodCall("GeefKleurcodeString", LadeOnderdeelMock, $$$ElkeWaarde)
+	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New("", "EenRol", "")
+	#dim HalffabItemsBoomMock As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	Do HalffabItemsBoomMock.IndienMethodCall("GeefHalffabItem", ..Enum.Rol.Verpakking).DanReturn(HalffabItem)	
+	Do HalffabItemsBoomMock.IndienMethodCall("BevatRol", ..Enum.Rol.BodemOndersteuning).DanReturn($$$True)
+	Do HalffabItemsBoomMock.IndienMethodCall("GeefHalffabItem", ..Enum.Rol.BodemOndersteuning).DanReturn(HalffabItem)
 	
-	Do OnderdelenBepaler.GeefOnderdelen(TAORKenmerken)
+	#dim MaatwerkCalcApiMock As vhTest.Mock.DOM.PM.MaatwerkCalcAPI = ##class(vhTest.Mock.DOM.PM.MaatwerkCalcAPI).MockInstance()
+	Do MaatwerkCalcApiMock.IndienMethodCall("GeefHalffabItemsBoom", TAORKenmerken, 1, ##class(DOM.VKP.enu.Klant).Halux(), ##class(DOM.common.VanHoeckePersonality).Instance()).DanReturn(HalffabItemsBoomMock)
+	Do MaatwerkCalcApiMock.IndienMethodCall("GeefLadeInfo", HalffabItemsBoomMock, TAORKenmerken).DanReturn(LadeMock)
 	
-	Do KleurcodeStringBepalerMock.Verifieer()
-	Do LadeOnderdeelMock.Verifieer()
-	Do LadeMock.Verifieer()
-	Do MaatwerkCalcAPIMock.Verifieer()
+	#dim BepalerVoorVerpakkingMock As vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorVerpakking = ##class(vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorVerpakking).%New()
+	Do BepalerVoorVerpakkingMock.IndienMethodCall("GeefOnderdelen", HalffabItem, "FPV1_kartonplaat_bodemondersteuning").DanReturn(DummyListOfObjects)
+	Do BepalerVoorVerpakkingMock.IndienMethodCall("GeefOnderdelen", HalffabItem, "FPV1_draagplaat").DanReturn(DummyListOfObjects)
+	
+	#dim BepalerVoorRolMock As vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol = ##class(vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol).%New()
+	Do BepalerVoorRolMock.IndienMethodCall("GeefOnderdelen", HalffabItemsBoomMock, ..Enum.Rol.BodemOndersteuning).DanReturn(DummyListOfObjects)
+	Do BepalerVoorRolMock.IndienMethodCall("GeefOnderdelen", HalffabItemsBoomMock, ..Enum.Rol.AfdekkapBoven).DanReturn(DummyListOfObjects)
+	Do BepalerVoorRolMock.IndienMethodCall("GeefOnderdelen", HalffabItemsBoomMock, ..Enum.Rol.Koppeling).DanReturn(DummyListOfObjects)
+	
+	#dim BepalerVoorLadeOnderdeelMock As vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorLadeOnderdeel= ##class(vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorLadeOnderdeel).%New()
+	Do BepalerVoorLadeOnderdeelMock.IndienMethodCall("GeefOnderdelen", $$$ElkeWaarde, ..Enum.Rol.ZijkantLinks).DanReturn(DummyListOfObjects)
+	Do BepalerVoorLadeOnderdeelMock.IndienMethodCall("GeefOnderdelen", $$$ElkeWaarde, ..Enum.Rol.ZijkantRechts).DanReturn(DummyListOfObjects)
+	Do BepalerVoorLadeOnderdeelMock.IndienMethodCall("GeefOnderdelen", LadeOnderdeelIterator, ..Enum.Rol.Bodem).DanReturn(DummyListOfObjects)
+	Do BepalerVoorLadeOnderdeelMock.IndienMethodCall("GeefOnderdelen", LadeOnderdeelIterator, ..Enum.Rol.Rug).DanReturn(DummyListOfObjects)
+	Do BepalerVoorLadeOnderdeelMock.IndienMethodCall("GeefOnderdelen", LadeOnderdeelIterator, ..Enum.Rol.Front).DanReturn(DummyListOfObjects)
+	
+	#dim OnderdelenBepaler As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler).%New(BepalerVoorVerpakkingMock, BepalerVoorRolMock, BepalerVoorLadeOnderdeelMock)
+	Do OnderdelenBepaler.GeefOnderdelen(TAORKenmerken)
 ]]></Implementation>
 </Method>
 </Class>