Index: vhTest/Fake/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorLadeOnderdeel.cls.xml
===================================================================
diff -u
--- vhTest/Fake/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorLadeOnderdeel.cls.xml	(revision 0)
+++ vhTest/Fake/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorLadeOnderdeel.cls.xml	(revision 37107)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorLadeOnderdeel">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorLadeOnderdeel</Super>
+
+<Method name="GeefOnderdelen">
+<FormalSpec>LadeOnderdelenIterator:TECH.Iterator,Rol:TECH.String</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorVerpakking.cls.xml
===================================================================
diff -u
--- vhTest/Fake/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorVerpakking.cls.xml	(revision 0)
+++ vhTest/Fake/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorVerpakking.cls.xml	(revision 37107)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorVerpakking">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorVerpakking</Super>
+
+<Method name="GeefOnderdelen">
+<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem,Rol:%String</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol.cls.xml
===================================================================
diff -u
--- vhTest/Fake/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol.cls.xml	(revision 0)
+++ vhTest/Fake/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol.cls.xml	(revision 37107)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol</Super>
+
+<Method name="GeefOnderdelen">
+<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol.cls.xml
===================================================================
diff -u
--- vhTest/Mock/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol.cls.xml	(revision 0)
+++ vhTest/Mock/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol.cls.xml	(revision 37107)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefOnderdelen">
+<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefOnderdelen",HalffabItemsBoom,Rol)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol/Test.cls.xml	(revision 37107)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Methods worden opgeroepen door GeefOnderdelen-method">
+<Implementation><![CDATA[
+	#dim Locatie As TECH.String = ""
+	#dim Aantal As TECH.Integer = 1
+	#dim DummyRol As TECH.String = "DummyRol"
+	#dim DummyProductId As TECH.String = "ProductId"
+	#dim DummyKorttekst As TECH.String = "DummyKorttekst"
+	
+	#dim DummyHalffab As vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.Halffab = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.Halffab).%New(DummyProductId)
+	#dim DummyHalffabItem As vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New("", DummyRol, DummyHalffab)
+	
+	#dim HalffabItemsBoomMock As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	Do HalffabItemsBoomMock.IndienMethodCall("BevatRol", DummyRol).DanReturn($$$True)
+	Do HalffabItemsBoomMock.VerwachtMethodCall("GeefHalffabItem", DummyRol).DanReturn(DummyHalffabItem)
+	
+	#dim ProductData As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.ProductData = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.ProductData).%New()
+	Set ProductData.ProductId = DummyProductId
+	
+	#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)
+	
+	#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)
+	
+	Do HalffabItemsBoomMock.Verifieer()
+	Do OnderdeelFactoryMock.Verifieer()
+	Do KorttekstUtilsMock.Verifieer()
+	Do ProductDataRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorLadeOnderdeel/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorLadeOnderdeel/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorLadeOnderdeel/Test.cls.xml	(revision 37107)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorLadeOnderdeel.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Methods worden opgeroepen door GeefOnderdelen-method">
+<Implementation><![CDATA[
+	#dim Code As TECH.String = ""
+	#dim Locatie As TECH.String = ""
+	#dim Rol As TECH.String = "EenRol"
+	#dim Aantal As TECH.Integer = 1
+	#dim Kleurcode As TECH.String = "Kleurcode"
+	#dim DummyGewicht as TECH.Weight = 123
+	
+	#dim PlaatMock As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Plaat = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Plaat).%New()	
+	Do PlaatMock.VerwachtMethodCall("GeefGewicht").DanReturn(DummyGewicht)
+	
+	#dim Platen As DOM.PM.Maatwerk.LadeInfo.Platen = ##class(DOM.PM.Maatwerk.LadeInfo.Platen).%New()
+	Do Platen.Insert(PlaatMock)
+	
+	#dim LadeOnderdeelMock As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel).%New()
+	Do LadeOnderdeelMock.VerwachtMethodCall("GeefPlaten").DanReturn(Platen)
+	
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(LadeOnderdeelMock)
+	#dim ProductData As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.ProductData = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.ProductData).%New()
+	Set ProductData.Gewicht = DummyGewicht
+		
+	#dim ProductDataRepositoryMock As vhTest.Mock.TECH.Persistentie.Repository = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
+	Do ProductDataRepositoryMock.VerwachtMethodCall("Maak").DanReturn(ProductData)
+	
+	#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", Rol, Code, Aantal, Locatie, Rol, Kleurcode, ProductData).DanReturn("bla")
+	
+	#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()
+	Do KleurcodeStringBepalerMock.VerwachtMethodCall("GeefKleurcodeString", LadeOnderdeelMock, $$$ElkeWaarde).DanReturn(Kleurcode) // elke waarde ier oplossen met nen matcher?
+	
+	#dim BepalerVoorLadeOnderdeel As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorLadeOnderdeel = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorLadeOnderdeel).%New(OnderdeelFactoryMock, ProductDataRepositoryMock, KleurcodeStringBepalerMock)
+	Do BepalerVoorLadeOnderdeel.GeefOnderdelen(Iterator, Rol)
+	
+	Do KleurcodeStringBepalerMock.Verifieer()
+	Do OnderdeelFactoryMock.Verifieer()
+	Do ProductDataRepositoryMock.Verifieer()
+	Do LadeOnderdeelMock.Verifieer()
+	Do PlaatMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorLadeOnderdeel.cls.xml
===================================================================
diff -u
--- WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorLadeOnderdeel.cls.xml	(revision 0)
+++ WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorLadeOnderdeel.cls.xml	(revision 37107)
@@ -0,0 +1,61 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorLadeOnderdeel">
+<Super>DOM.PM.Maatwerk.TAX.impl.Base,TECH.Mockable</Super>
+
+<Property name="OnderdeelFactory">
+<Type>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.OnderdeelFactory</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductDataRepository">
+<Type>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.ProductDataRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KleurcodeStringBepaler">
+<Type>APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.KleurcodeStringBepaler</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="",KleurcodeStringBepaler:APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.KleurcodeStringBepaler=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	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 ..KleurcodeStringBepaler = $$$Inject(KleurcodeStringBepaler, ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.KleurcodeStringBepaler).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefOnderdelen">
+<FormalSpec>LadeOnderdelenIterator:TECH.Iterator,Rol:TECH.String</FormalSpec>
+<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()
+		#dim KleurcodeString As TECH.String = ..KleurcodeStringBepaler.GeefKleurcodeString(LadeOnderdeel, "/")
+		#dim ProductData As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.ProductData = ..ProductDataRepository.Maak()
+		#dim Plaat As DOM.PM.Maatwerk.LadeInfo.Plaat = LadeOnderdeel.GeefPlaten().GetAt(1)
+
+		Set Plaat = LadeOnderdeel.GeefPlaten().GetAt(1)
+		Set ProductData.Gewicht = Plaat.GeefGewicht()
+		//Set ProductData.Tolerantie = "123" //TolerantieVoorPlaatBepaler.GeefTolerantie()
+		
+		Do Onderdelen.Insert(..OnderdeelFactory.GeefOnderdeel(Rol, "", 1, "", Rol, KleurcodeString, ProductData))
+	}
+	
+	Quit Onderdelen
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol.cls.xml
===================================================================
diff -u
--- WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol.cls.xml	(revision 0)
+++ WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol.cls.xml	(revision 37107)
@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol">
+<Super>DOM.PM.Maatwerk.TAX.impl.Base,TECH.Mockable</Super>
+
+<Property name="OnderdeelFactory">
+<Type>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.OnderdeelFactory</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductDataRepository">
+<Type>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.ProductDataRepository</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>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	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())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefOnderdelen">
+<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	#dim Onderdelen As %ListOfObjects = ##class(%ListOfObjects).%New()
+	
+	If (HalffabItemsBoom.BevatRol(Rol)) {
+		#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemsBoom.GeefHalffabItem(Rol)
+		
+		If (Rol = ..Enum.Rol.Koppeling) {
+			Set Onderdelen = ..GeefOnderdelenVoorKoppeling(HalffabItem)
+		} ElseIf (Rol = ..Enum.Rol.AfdekkapBoven) {
+			Set Onderdelen = ..GeefOnderdelenVoorAfdekkapBoven(HalffabItem)
+		} Else {
+			Set Onderdelen = ..GeefOnderdelenVoorRol(HalffabItem, Rol)
+		}
+	}
+	
+	Quit Onderdelen
+]]></Implementation>
+</Method>
+
+<Method name="GeefOnderdelenVoorKoppeling">
+<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	#dim Onderdelen As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim Iterator As TECH.Iterator = HalffabItem.GeefKindIterator()
+		
+	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))	
+	}
+	
+	Quit Onderdelen
+]]></Implementation>
+</Method>
+
+<Method name="GeefOnderdelenVoorAfdekkapBoven">
+<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	#dim Onderdelen As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim Iterator As TECH.Iterator = HalffabItem.GeefKindIterator()
+	#dim KindHalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = ""
+		
+	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))
+	}
+	
+	Quit Onderdelen
+]]></Implementation>
+</Method>
+
+<Method name="GeefOnderdelenVoorRol">
+<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<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))
+		
+	Quit Onderdelen
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorLadeOnderdeel.cls.xml
===================================================================
diff -u
--- vhTest/Mock/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorLadeOnderdeel.cls.xml	(revision 0)
+++ vhTest/Mock/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorLadeOnderdeel.cls.xml	(revision 37107)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorLadeOnderdeel">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorLadeOnderdeel,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefOnderdelen">
+<FormalSpec>LadeOnderdelenIterator:TECH.Iterator,Rol:TECH.String</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefOnderdelen",LadeOnderdelenIterator,Rol)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorVerpakking.cls.xml
===================================================================
diff -u
--- vhTest/Mock/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorVerpakking.cls.xml	(revision 0)
+++ vhTest/Mock/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorVerpakking.cls.xml	(revision 37107)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorVerpakking">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorVerpakking,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefOnderdelen">
+<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem,Rol:%String</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefOnderdelen",HalffabItem,Rol)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorVerpakking.cls.xml
===================================================================
diff -u
--- WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorVerpakking.cls.xml	(revision 0)
+++ WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorVerpakking.cls.xml	(revision 37107)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorVerpakking">
+<Super>TECH.Mockable</Super>
+
+<Property name="OnderdeelFactory">
+<Type>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.OnderdeelFactory</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductDataRepository">
+<Type>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.ProductDataRepository</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=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	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())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefOnderdelen">
+<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem,Rol:%String</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	#dim Onderdelen As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim Iterator As TECH.Iterator = HalffabItem.GeefKindIterator()
+	
+	While (Iterator.HasNext()) {
+		#dim KindHalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = Iterator.Next()
+		
+		If (KindHalffabItem.GeefRol() = Rol) {
+			Set Onderdelen = ..GeefOnderdelenVoorHalffabItem(KindHalffabItem, Rol)
+		}
+	}
+	
+	Quit Onderdelen
+]]></Implementation>
+</Method>
+
+<Method name="GeefOnderdelenVoorHalffabItem">
+<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem,Rol:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	#dim Onderdelen As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = HalffabItem.GeefHalffab()
+	#dim ProductData As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.ProductData = ..ProductDataRepository.GeefViaID(Halffab.GeefProductID())
+	
+	Do Onderdelen.Insert(..OnderdeelFactory.GeefOnderdeel(Rol, Halffab.GeefProductID(), HalffabItem.Aantal, "", Rol, "", ProductData))
+	
+	Quit Onderdelen
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorVerpakking/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorVerpakking/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorVerpakking/Test.cls.xml	(revision 37107)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorVerpakking.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Methods worden opgeroepen door GeefOnderdelen-method">
+<Implementation><![CDATA[
+	#dim Aantal As TECH.Integer = 1
+	#dim Locatie As TECH.String = ""
+	#dim DummyProductId As TECH.String = "DummyProductId"
+	#dim DummyRol AS TECH.String = "DummyRol"
+	
+	#dim DummyProductData As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.ProductData = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.ProductData).%New()
+	Set DummyProductData.ProductId = DummyProductId
+
+	#dim DummyHalffab As vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.Halffab = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.Halffab).%New(DummyProductId)
+	#dim DummyKindHalffabItem As vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New("", DummyRol, DummyHalffab)
+	
+	#dim HalffabItemMock As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New("", "SamengesteldeRol")
+	#dim KindIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DummyKindHalffabItem)
+
+	Do HalffabItemMock.VerwachtMethodCall("GeefKindIterator").DanReturn(KindIterator)
+	
+	#dim ProductDataRepositoryMock As vhTest.Mock.TECH.Persistentie.Repository = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
+	Do ProductDataRepositoryMock.VerwachtMethodCall("GeefViaID", DummyProductId).DanReturn(DummyProductData)
+	
+	#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", DummyRol, DummyProductId, Aantal, Locatie, DummyRol, "", DummyProductData)
+	
+	#dim BepalerVoorVerpakking As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorVerpakking = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorVerpakking).%New(OnderdeelFactoryMock, ProductDataRepositoryMock)
+	Do BepalerVoorVerpakking.GeefOnderdelen(HalffabItemMock, DummyRol)
+	
+	Do HalffabItemMock.Verifieer()
+	Do OnderdeelFactoryMock.Verifieer()
+	Do ProductDataRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>