Index: vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol/TestDiepteVerstelling.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol/TestDiepteVerstelling.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol/TestDiepteVerstelling.cls.xml	(revision 37501)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol.TestDiepteVerstelling">
+<Super>vhUnitTest.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol.Base</Super>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..KorttekstUtilsStub = ..GeefKorttekstUtils()
+	Set ..OnderdeelLocatieDataRepositoryStub = ..GeefOnderdeelLocatieRepository()
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefOnderdelen voor DiepteVerstelling">
+<Implementation><![CDATA[
+	#dim BepalerVoorRol As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol).%New(..OnderdeelFactory, ..ProductDataRepositoryStub, ..KorttekstUtilsStub, ..OnderdeelLocatieDataRepositoryStub)
+	#dim Onderdelen As %ListOfObjects = BepalerVoorRol.GeefOnderdelen(..HalffabItemsBoomStub, ..Rol)
+	
+	Do $$$AssertEquals(Onderdelen.Count(), 1)
+	
+	#dim Onderdeel As WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.Onderdeel = Onderdelen.GetAt(1)
+
+	Do ..AssertOnderdeel(Onderdeel, ..RandomOmschrijving, ..RandomKorttekst, ..RandomAantal, ..RandomLocatie, ..RandomWeging, ..ProductData.GewichtGetInMilligrams(), ..ProductData.TolerantieGetInMilligrams())
+]]></Implementation>
+</Method>
+
+<Method name="GeefRol">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.enu.TAORRol</ReturnType>
+<Implementation><![CDATA[	Quit ..Enum.Rol.DiepteVerstelling
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol.cls.xml
===================================================================
diff -u -r37451 -r37501
--- WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol.cls.xml	(.../BepalerVoorRol.cls.xml)	(revision 37451)
+++ WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol.cls.xml	(.../BepalerVoorRol.cls.xml)	(revision 37501)
@@ -89,7 +89,7 @@
 	#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()
 
Index: vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol/TestBodemOndersteuning.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol/TestBodemOndersteuning.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol/TestBodemOndersteuning.cls.xml	(revision 37501)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol.TestBodemOndersteuning">
+<Super>vhUnitTest.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol.Base</Super>
+
+<Property name="RandomLadeDiepte">
+<Type>TECH.String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Set ..RandomLadeDiepte = "RandomLadeDiepte"
+	
+	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefOnderdelen voor BodemOndersteuning">
+<Implementation><![CDATA[
+	#dim BepalerVoorRol As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol).%New(..OnderdeelFactory, ..ProductDataRepositoryStub)
+	#dim Onderdelen As %ListOfObjects = BepalerVoorRol.GeefOnderdelen(..HalffabItemsBoomStub, ..Rol)
+	
+	Do $$$AssertEquals(Onderdelen.Count(), 1)
+	
+	#dim Onderdeel As WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.Onderdeel = Onderdelen.GetAt(1)
+
+	Do ..AssertOnderdeel(Onderdeel, ..Rol, ..RandomLadeDiepte _ "mm", ..RandomAantal, "", ..RandomWeging, ..ProductData.GewichtGetInMilligrams(), ..ProductData.TolerantieGetInMilligrams())
+]]></Implementation>
+</Method>
+
+<Method name="GeefRol">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.enu.TAORRol</ReturnType>
+<Implementation><![CDATA[	Quit ..Enum.Rol.BodemOndersteuning
+]]></Implementation>
+</Method>
+
+<Method name="GeefHalffab">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabBodemOndersteuning</ReturnType>
+<Implementation><![CDATA[
+	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabBodemOndersteuning = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabBodemOndersteuning).%New(..RandomProductId)
+	
+	Set Halffab.LadeDiepte = ..RandomLadeDiepte
+	
+	Quit Halffab
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol/TestAfdekkapBoven.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol/TestAfdekkapBoven.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol/TestAfdekkapBoven.cls.xml	(revision 37501)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol.TestAfdekkapBoven">
+<Super>vhUnitTest.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol.Base</Super>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..KorttekstUtilsStub = ..GeefKorttekstUtils()
+	Set ..OnderdeelLocatieDataRepositoryStub = ..GeefOnderdeelLocatieRepository()
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefOnderdelen voor AfdekkapBoven">
+<Implementation><![CDATA[
+	#dim BepalerVoorRol As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol).%New(..OnderdeelFactory, ..ProductDataRepositoryStub, ..KorttekstUtilsStub, ..OnderdeelLocatieDataRepositoryStub)
+	#dim Onderdelen As %ListOfObjects = BepalerVoorRol.GeefOnderdelen(..HalffabItemsBoomStub, ..Rol)
+	
+	Do $$$AssertEquals(Onderdelen.Count(), 1)
+	
+	#dim Onderdeel As WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.Onderdeel = Onderdelen.GetAt(1)
+
+	Do ..AssertOnderdeel(Onderdeel, ..RandomOmschrijving, ..RandomKorttekst, 1, ..RandomLocatie, ..RandomWeging, ..ProductData.GewichtGetInMilligrams(), ..ProductData.TolerantieGetInMilligrams())
+]]></Implementation>
+</Method>
+
+<Method name="GeefRol">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.enu.TAORRol</ReturnType>
+<Implementation><![CDATA[	Quit ..Enum.Rol.AfdekkapBoven
+]]></Implementation>
+</Method>
+
+<Method name="GeefHalffabItem">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabItem</ReturnType>
+<Implementation><![CDATA[
+	#dim HalffabItem As vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New("", ..Rol)
+	
+	Set HalffabItem.HalffabItems = ##class(%ListOfObjects).%New()
+
+	Do HalffabItem.VoegToe(##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New("", "KindRol1", ..HalffabStub))
+	Do HalffabItem.VoegToe(##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New("", "KindRol2", ..HalffabStub))
+
+	Quit HalffabItem
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol/TestKoppeling.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol/TestKoppeling.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol/TestKoppeling.cls.xml	(revision 37501)
@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol.TestKoppeling">
+<Super>vhUnitTest.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol.Base</Super>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..KorttekstUtilsStub = ..GeefKorttekstUtils()
+	Set ..OnderdeelLocatieDataRepositoryStub = ..GeefOnderdeelLocatieRepository()
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefOnderdelen voor Koppeling">
+<Implementation><![CDATA[
+	#dim BepalerVoorRol As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol).%New(..OnderdeelFactory, ..ProductDataRepositoryStub, ..KorttekstUtilsStub, ..OnderdeelLocatieDataRepositoryStub)
+	#dim Onderdelen As %ListOfObjects = BepalerVoorRol.GeefOnderdelen(..HalffabItemsBoomStub, ..Rol)
+	
+	Do $$$AssertEquals(Onderdelen.Count(), ..RandomAantal)
+	
+	#dim Onderdeel As WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.Onderdeel = Onderdelen.GetAt(1)
+
+	Do ..AssertOnderdeel(Onderdeel, ..RandomOmschrijving, ..RandomKorttekst, 1, ..RandomLocatie, ..RandomWeging, ..ProductData.GewichtGetInMilligrams(), ..ProductData.TolerantieGetInMilligrams())
+]]></Implementation>
+</Method>
+
+<Method name="GeefRol">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.enu.TAORRol</ReturnType>
+<Implementation><![CDATA[	Quit ..Enum.Rol.Koppeling
+]]></Implementation>
+</Method>
+
+<Method name="GeefHalffabItem">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabItem</ReturnType>
+<Implementation><![CDATA[
+	#dim Index As TECH.Integer
+	#dim HalffabItem As vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New("", ..Rol)
+	
+	Set HalffabItem.HalffabItems = ##class(%ListOfObjects).%New()
+
+	For Index = 1:1:..RandomAantal {
+		Do HalffabItem.VoegToe(##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New("", "KindRol" _ Index, ..HalffabStub))
+	}
+	
+	Quit HalffabItem
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol/Base.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol/Base.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/BepalerVoorRol/Base.cls.xml	(revision 37501)
@@ -0,0 +1,241 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.BepalerVoorRol.Base">
+<Abstract>1</Abstract>
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
+
+<Property name="Rol">
+<Type>DOM.PM.Maatwerk.Calc.HF.enu.TAORRol</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="RandomAantal">
+<Type>TECH.Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="RandomProductId">
+<Type>TECH.String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="RandomGewicht">
+<Type>TECH.Weight</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="RandomTolerantie">
+<Type>TECH.Weight</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="RandomWeging">
+<Type>TECH.String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="RandomKorttekst">
+<Type>TECH.String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="RandomLocatie">
+<Type>TECH.String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="RandomOmschrijving">
+<Type>TECH.String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OnderdeelFactory">
+<Type>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.OnderdeelFactory</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductData">
+<Type>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.ProductData</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HalffabStub">
+<Type>vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.Halffab</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DummyHalffabItem">
+<Type>vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HalffabItemsBoomStub">
+<Type>vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductDataRepositoryStub">
+<Type>vhTest.Mock.TECH.Persistentie.Repository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OnderdeelLocatieDataRepositoryStub">
+<Type>vhTest.Mock.TECH.Persistentie.Repository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KorttekstUtilsStub">
+<Type>vhTest.Mock.DOM.PM.KorttekstUtils</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Set ..RandomAantal = 3
+	Set ..RandomProductId = "RandomProductId"
+	Set ..RandomWeging = "RandomWeging"
+	Set ..RandomGewicht = 1234
+	Set ..RandomTolerantie = 56
+	Set ..RandomKorttekst = "RandomKorttekst"
+	Set ..RandomLocatie = "RandomLocatie"
+	Set ..RandomOmschrijving = "RandomOmschrijving"
+	
+	Set ..Rol = ..GeefRol()
+	Set ..OnderdeelFactory = ..GeefOnderdeelFactory()
+	Set ..ProductData = ..GeefProductData()
+	Set ..HalffabStub = ..GeefHalffab()
+	Set ..DummyHalffabItem = ..GeefHalffabItem()
+	Set ..HalffabItemsBoomStub = ..GeefHalffabItemsBoom()
+	Set ..ProductDataRepositoryStub = ..GeefProductDataRepository()
+]]></Implementation>
+</Method>
+
+<Method name="AssertOnderdeel">
+<FormalSpec>Onderdeel:WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.Onderdeel,VerwachteOmschrijving:TECH.String,VerwachteCode:TECH.String,VerwachtAantal:TECH.Integer,VerwachteLocatie:TECH.String,VerwachteWeging:TECH.Integer,VerwachtGewicht:TECH.Integer,VerwachteTolerantie:TECH.Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do $$$AssertEquals(Onderdeel.Omschrijving, VerwachteOmschrijving)
+	Do $$$AssertEquals(Onderdeel.Code, VerwachteCode)
+	Do $$$AssertEquals(Onderdeel.Aantal, VerwachtAantal)
+	Do $$$AssertEquals(Onderdeel.Locatie, VerwachteLocatie)
+	Do $$$AssertEquals(Onderdeel.Weging, VerwachteWeging)
+	Do $$$AssertEquals(Onderdeel.Kleuren, "")
+	Do $$$AssertEquals(Onderdeel.Gewicht, VerwachtGewicht)
+	Do $$$AssertEquals(Onderdeel.Tolerantie, VerwachteTolerantie)
+]]></Implementation>
+</Method>
+
+<Method name="GeefRol">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.enu.TAORRol</ReturnType>
+</Method>
+
+<Method name="GeefHalffab">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.Halffab</ReturnType>
+<Implementation><![CDATA[
+	#dim HalffabStub As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.Halffab = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.Halffab).%New(..RandomProductId)
+	
+	Do HalffabStub.IndienMethodCall("GeefProductID").DanReturn(..RandomProductId)
+	Do HalffabStub.IndienMethodCall("GeefOmschrijvingVoorDocs").DanReturn(..RandomOmschrijving)
+	
+	Quit HalffabStub
+]]></Implementation>
+</Method>
+
+<Method name="GeefHalffabItem">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabItem</ReturnType>
+<Implementation><![CDATA[
+	#dim HalffabItem As vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New("", ..Rol, ..HalffabStub)
+	
+	Set HalffabItem.Aantal = ..RandomAantal
+	
+	Quit HalffabItem
+]]></Implementation>
+</Method>
+
+<Method name="GeefHalffabItemsBoom">
+<Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
+<Implementation><![CDATA[
+	#dim HalffabItemsBoomStub As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	
+	Do HalffabItemsBoomStub.IndienMethodCall("BevatRol", ..Rol).DanReturn($$$True)
+	Do HalffabItemsBoomStub.IndienMethodCall("GeefHalffabItem", ..Rol).DanReturn(..DummyHalffabItem)
+	
+	Quit HalffabItemsBoomStub
+]]></Implementation>
+</Method>
+
+<Method name="GeefOnderdeelFactory">
+<Private>1</Private>
+<ReturnType>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.OnderdeelFactory</ReturnType>
+<Implementation><![CDATA[
+	#dim WegingBepalerStub As vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.WegingBepaler = ##class(vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.WegingBepaler).%New()
+	
+	Do WegingBepalerStub.IndienMethodCall("GeefWeging", ..Rol).DanReturn(..RandomWeging)
+	
+	Quit ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.OnderdeelFactory).%New(WegingBepalerStub)
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductData">
+<Private>1</Private>
+<ReturnType>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.ProductData</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductData As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.ProductData = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.ProductData).%New()
+	
+	Set ProductData.ProductId = ..RandomProductId
+	Set ProductData.Gewicht = ..RandomGewicht
+	Set ProductData.Tolerantie = ..RandomTolerantie
+	
+	Quit ProductData
+]]></Implementation>
+</Method>
+
+<Method name="GeefKorttekstUtils">
+<Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.PM.KorttekstUtils</ReturnType>
+<Implementation><![CDATA[
+	#dim KorttekstUtilsStub As vhTest.Mock.DOM.PM.KorttekstUtils = ##class(vhTest.Mock.DOM.PM.KorttekstUtils).%New()
+	
+	Do KorttekstUtilsStub.IndienMethodCall("GeefKorttekst", ..RandomProductId).DanReturn(..RandomKorttekst)
+	
+	Quit KorttekstUtilsStub
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductDataRepository">
+<Private>1</Private>
+<ReturnType>vhTest.Mock.TECH.Persistentie.Repository</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductDataRepositoryStub As vhTest.Mock.TECH.Persistentie.Repository = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
+	
+	Do ProductDataRepositoryStub.IndienMethodCall("GeefViaID", ..RandomProductId).DanReturn(..ProductData)
+	
+	Quit ProductDataRepositoryStub
+]]></Implementation>
+</Method>
+
+<Method name="GeefOnderdeelLocatieRepository">
+<Private>1</Private>
+<ReturnType>vhTest.Mock.TECH.Persistentie.Repository</ReturnType>
+<Implementation><![CDATA[
+	#dim OnderdeelLocatie As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.OnderdeelLocatie = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.OnderdeelLocatie).%New()
+	
+	Set OnderdeelLocatie.ProductId = ..RandomProductId
+	Set OnderdeelLocatie.Locatie = ..RandomLocatie
+	
+	#dim OnderdeelLocatieRepositoryStub As vhTest.Mock.TECH.Persistentie.Repository = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
+	
+	Do OnderdeelLocatieRepositoryStub.IndienMethodCall("GeefViaID", $$$ElkeWaarde).DanReturn(OnderdeelLocatie)
+	
+	Quit OnderdeelLocatieRepositoryStub
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>