Index: vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol/Test.cls.xml
===================================================================
diff -u -r37107 -r37450
--- vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol/Test.cls.xml	(.../Test.cls.xml)	(revision 37107)
+++ vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol/Test.cls.xml	(.../Test.cls.xml)	(revision 37450)
@@ -5,7 +5,7 @@
 
 <Method name="Test: Methods worden opgeroepen door GeefOnderdelen-method">
 <Implementation><![CDATA[
-	#dim Locatie As TECH.String = ""
+	#dim RandomLocatie As TECH.String = "RandomLocatie"
 	#dim Aantal As TECH.Integer = 1
 	#dim DummyRol As TECH.String = "DummyRol"
 	#dim DummyProductId As TECH.String = "ProductId"
@@ -20,23 +20,31 @@
 	
 	#dim ProductData As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.ProductData = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.ProductData).%New()
 	Set ProductData.ProductId = DummyProductId
+		
+	#dim OnderdeelLocatie As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.OnderdeelLocatie = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.OnderdeelLocatie).%New()
+	Set OnderdeelLocatie.ProductId = DummyProductId
+	Set OnderdeelLocatie.Locatie = RandomLocatie
 	
 	#dim OnderdeelFactoryMock As vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.OnderdeelFactory = ##class(vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.OnderdeelFactory).%New()
-	Do OnderdeelFactoryMock.VerwachtMethodCall("GeefOnderdeel", "", DummyKorttekst, Aantal, Locatie, DummyRol, "", ProductData)
+	Do OnderdeelFactoryMock.VerwachtMethodCall("GeefOnderdeel", "", DummyKorttekst, Aantal, RandomLocatie, DummyRol, "", ProductData)
 	
 	#dim ProductDataRepositoryMock As vhTest.Mock.TECH.Persistentie.Repository = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
 	Do ProductDataRepositoryMock.VerwachtMethodCall("GeefViaID", DummyProductId).DanReturn(ProductData)
 	
 	#dim KorttekstUtilsMock As vhTest.Mock.DOM.PM.KorttekstUtils = ##class(vhTest.Mock.DOM.PM.KorttekstUtils).%New()
 	Do KorttekstUtilsMock.VerwachtMethodCall("GeefKorttekst", DummyProductId).DanReturn(DummyKorttekst)
 	
-	#dim BepalerVoorRol As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol).%New(OnderdeelFactoryMock, ProductDataRepositoryMock, KorttekstUtilsMock)
-	Do BepalerVoorRol.GeefOnderdelen(HalffabItemsBoomMock, DummyRol)
+	#dim OnderdeelLocatieRepositoryMock As vhTest.Mock.TECH.Persistentie.Repository = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
+	Do OnderdeelLocatieRepositoryMock.VerwachtMethodCall("GeefViaID", DummyProductId).DanReturn(OnderdeelLocatie)
 	
+	#dim BepalerVoorRol As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol).%New(OnderdeelFactoryMock, ProductDataRepositoryMock, KorttekstUtilsMock, OnderdeelLocatieRepositoryMock)
+	#dim Onderdelen As %ListOfObjects = BepalerVoorRol.GeefOnderdelen(HalffabItemsBoomMock, DummyRol)
+	
 	Do HalffabItemsBoomMock.Verifieer()
 	Do OnderdeelFactoryMock.Verifieer()
 	Do KorttekstUtilsMock.Verifieer()
 	Do ProductDataRepositoryMock.Verifieer()
+	Do OnderdeelLocatieRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
 </Class>
Index: WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol.cls.xml
===================================================================
diff -u -r37107 -r37450
--- WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol.cls.xml	(.../BepalerVoorRol.cls.xml)	(revision 37107)
+++ WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol.cls.xml	(.../BepalerVoorRol.cls.xml)	(revision 37450)
@@ -13,13 +13,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="OnderdeelLocatieRepository">
+<Type>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.OnderdeelLocatieRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="KorttekstUtils">
 <Type>DOM.PM.KorttekstUtils</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>OnderdeelFactory:WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.OnderdeelFactory="",ProductDataRepository:WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.ProductDataRepository="",KorttekstUtils:DOM.PM.KorttekstUtils</FormalSpec>
+<FormalSpec>OnderdeelFactory:WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.OnderdeelFactory="",ProductDataRepository:WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.ProductDataRepository="",KorttekstUtils:DOM.PM.KorttekstUtils="",OnderdeelLocatieRepository:WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.OnderdeelLocatieRepository=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -28,6 +33,7 @@
 	Set ..OnderdeelFactory = $$$Inject(OnderdeelFactory, ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.OnderdeelFactory).%New())
 	Set ..ProductDataRepository = $$$Inject(ProductDataRepository, ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.ProductDataRepository).%New())
 	Set ..KorttekstUtils = $$$Inject(KorttekstUtils, ##class(DOM.PM.KorttekstUtils).%New())
+	Set ..OnderdeelLocatieRepository = $$$Inject(OnderdeelLocatieRepository, ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.OnderdeelLocatieRepository).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -65,11 +71,8 @@
 		
 	While (Iterator.HasNext()) {
 		#dim KindHalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = Iterator.Next()
-		#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = KindHalffabItem.GeefHalffab()
-		#dim Korttekst As TECH.String = ..KorttekstUtils.GeefKorttekst(Halffab.GeefProductID())
-		#dim ProductData As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.ProductData = ..ProductDataRepository.GeefViaID(Halffab.GeefProductID())
-			
-		Do Onderdelen.Insert(..OnderdeelFactory.GeefOnderdeel(Halffab.GeefOmschrijvingVoorDocs(), Korttekst, HalffabItem.Aantal, "", ..Enum.Rol.Koppeling, "", ProductData))	
+		
+		Do Onderdelen.Insert(..GeefOnderdeel(KindHalffabItem.GeefHalffab(), HalffabItem, ..Enum.Rol.Koppeling))
 	}
 	
 	Quit Onderdelen
@@ -87,12 +90,8 @@
 		
 	While (Iterator.HasNext() && $$$Not($IsObject(KindHalffabItem))) {
 		Set KindHalffabItem = Iterator.Next()
-			
-		#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = KindHalffabItem.GeefHalffab()
-		#dim Korttekst As TECH.String = ..KorttekstUtils.GeefKorttekst(Halffab.GeefProductID())
-		#dim ProductData As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.ProductData = ..ProductDataRepository.GeefViaID(Halffab.GeefProductID())
-			
-		Do Onderdelen.Insert(..OnderdeelFactory.GeefOnderdeel(Halffab.GeefOmschrijvingVoorDocs(), Korttekst, HalffabItem.Aantal, "", ..Enum.Rol.AfdekkapBoven, "", ProductData))
+
+		Do Onderdelen.Insert(..GeefOnderdeel(KindHalffabItem.GeefHalffab(), HalffabItem, ..Enum.Rol.AfdekkapBoven))
 	}
 	
 	Quit Onderdelen
@@ -106,14 +105,27 @@
 <Implementation><![CDATA[
 	#dim Onderdelen As %ListOfObjects = ##class(%ListOfObjects).%New()
 	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = HalffabItem.GeefHalffab()
-	#dim Korttekst As TECH.String = ..KorttekstUtils.GeefKorttekst(Halffab.GeefProductID())
-	#dim ProductData As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.ProductData = ..ProductDataRepository.GeefViaID(Halffab.GeefProductID())
-	
-	Do Onderdelen.Insert(..OnderdeelFactory.GeefOnderdeel(Halffab.GeefOmschrijvingVoorDocs(), Korttekst, HalffabItem.Aantal, "", Rol, "", ProductData))
-		
+
+	Do Onderdelen.Insert(..GeefOnderdeel(Halffab, HalffabItem, Rol))
+
 	Quit Onderdelen
 ]]></Implementation>
 </Method>
+
+<Method name="GeefOnderdeel">
+<FormalSpec>Halffab:DOM.PM.Maatwerk.Calc.HF.Halffab,HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.Onderdeel</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductId As TECH.String = Halffab.GeefProductID()
+	#dim Omschrijving As TECH.String = Halffab.GeefOmschrijvingVoorDocs()
+	#dim Korttekst As TECH.String = ..KorttekstUtils.GeefKorttekst(ProductId)
+	#dim ProductData As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.ProductData = ..ProductDataRepository.GeefViaID(ProductId)
+	#dim OnderdeelLocatie As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.OnderdeelLocatie = ..OnderdeelLocatieRepository.GeefViaID(Halffab.GeefProductID())
+	
+	Quit ..OnderdeelFactory.GeefOnderdeel(Omschrijving, Korttekst, HalffabItem.Aantal, OnderdeelLocatie.Locatie, Rol, "", ProductData)
+]]></Implementation>
+</Method>
 </Class>