Index: vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ControleService/Test.cls.xml
===================================================================
diff -u -r35868 -r37635
--- vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ControleService/Test.cls.xml	(.../Test.cls.xml)	(revision 35868)
+++ vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ControleService/Test.cls.xml	(.../Test.cls.xml)	(revision 37635)
@@ -3,34 +3,163 @@
 <Class name="vhUnitTest.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ControleService.Test">
 <Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
 
-<Method name="Test: Methods worden opgeroepen door GeefData-method">
+<Property name="ControleService">
+<Type>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ControleService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TAORKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductId">
+<Type>TECH.String</Type>
+<InitialExpression>"WillekeurigeProductId"</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Property name="UitvoeringInfo">
+<Type>APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
-	#dim ProductMock As vhTest.Mock.DOM.PM.MaatwerkProduct = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
-	#dim ProductAPIMock As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
+	Do ##super()
+	
+	Set ..TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLadeVerpaktIn(..Enum.VerpakkingType.FlatpackV1)
+	Set ..UitvoeringInfo = ##class(APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo).%New()
+	Set ..UitvoeringInfo.ProductID = ..ProductId
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	#dim ProductStub As vhTest.Mock.DOM.PM.MaatwerkProduct = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
+	Do ProductStub.IndienMethodCall("GeefIngegevenKenmerken").DanReturn(..TAORKenmerken)
+	
+	#dim ProductApiStub As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
+	Do ProductApiStub.IndienMethodCall("GeefProduct", ..ProductId).DanReturn(ProductStub)
+]]></Implementation>
+</Method>
+
+<Method name="Test: SequentieGebaseerdeUitvoeringInfoRepository wordt opgeroepen door GeefData-method voor het ophalen van de UitvoeringInfo">
+<Implementation><![CDATA[
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects()
 	#dim RepositoryMock As vhTest.Mock.APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository = ##class(vhTest.Mock.APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository).%New()
+	Do RepositoryMock.VerwachtMethodCall("ZoekViaVerwerkingId", ..ProductId).DanReturn(Iterator)
+	
+	Set ..ControleService = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ControleService).%New(RepositoryMock)
+	#dim Data As WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.Data = ..ControleService.GeefData(..ProductId)
+	
+	Do RepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductInfoBepaler wordt opgeroepen door GeefData-method voor het bepalen van de ProductInfo">
+<Implementation><![CDATA[
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(..UitvoeringInfo)
+	#dim RepositoryStub As vhTest.Mock.APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository = ##class(vhTest.Mock.APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository).%New()
+	Do RepositoryStub.IndienMethodCall("ZoekViaVerwerkingId", ..ProductId).DanReturn(Iterator)
+	
+	#dim OnderdelenBepalerStub As vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler = ##class(vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler).%New()
+	Do OnderdelenBepalerStub.IndienMethodCall("GeefOnderdelen", ..TAORKenmerken).DanDoeNiks()
+	
+	#dim HalffabItemsBoomDummy As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	#dim MaatwerkCalcApiStub As vhTest.Mock.DOM.PM.MaatwerkCalcAPI = ##class(vhTest.Mock.DOM.PM.MaatwerkCalcAPI).MockInstance()
+	Do MaatwerkCalcApiStub.IndienMethodCall("GeefHalffabItemsBoom", ..TAORKenmerken, $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(HalffabItemsBoomDummy)
+	Do MaatwerkCalcApiStub.IndienMethodCall("GeefLadeInfo", HalffabItemsBoomDummy, ..TAORKenmerken).DanDoeNiks()
+
+	#dim FlatpackV1ServiceStub As vhTest.Mock.zTryout.WV.FPV1.DOM.FlatpackV1Service = ##class(vhTest.Mock.zTryout.WV.FPV1.DOM.FlatpackV1Service).%New()
+	Do FlatpackV1ServiceStub.IndienMethodCall("GeefDraagPlaatVoorOnderdelen", $$$ElkeWaarde).DanDoeNiks()
+	Do FlatpackV1ServiceStub.IndienMethodCall("GeefDoosVariant", $$$ElkeWaarde).DanDoeNiks()
+	
+	#dim ProductInfo As %ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()
+	Do ProductInfo.SetAt("ProductInfo1", "Key1")
+	Do ProductInfo.SetAt("ProductInfo2", "Key2")
+	
 	#dim ProductInfoBepalerMock As vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoBepaler = ##class(vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoBepaler).%New()
-	#dim OnderdelenBepalerMock As vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler = ##class(vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler).%New()
+	Do ProductInfoBepalerMock.VerwachtMethodCall("GeefProductInfo", ..UitvoeringInfo, ..TAORKenmerken).DanReturn(ProductInfo)
+	
+	Set ..ControleService = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ControleService).%New(RepositoryStub, ProductInfoBepalerMock, OnderdelenBepalerStub, FlatpackV1ServiceStub)
+	#dim Data As WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.Data = ..ControleService.GeefData(..ProductId)
+	
+	Do $$$AssertEqualsList(Data.ProductInfo, ProductInfo)
+	
+	Do ProductInfoBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
 
-	#dim ControleService As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ControleService = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ControleService).%New(RepositoryMock, ProductInfoBepalerMock, OnderdelenBepalerMock)
-	#dim UitvoeringInfo As APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo = ##class(APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo).%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 Iterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(UitvoeringInfo)
+<Method name="Test: OnderdelenBepaler wordt opgeroepen door GeefData-method voor het bepalen van de onderdelen">
+<Implementation><![CDATA[
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(..UitvoeringInfo)
+	#dim RepositoryStub As vhTest.Mock.APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository = ##class(vhTest.Mock.APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository).%New()
+	Do RepositoryStub.IndienMethodCall("ZoekViaVerwerkingId", ..ProductId).DanReturn(Iterator)
 	
-	Do ProductMock.VerwachtMethodCall("GeefIngegevenKenmerken").DanReturn(TAORKenmerken)
-	Do ProductAPIMock.VerwachtMethodCall("GeefProduct", UitvoeringInfo.ProductID).DanReturn(ProductMock)
-	Do RepositoryMock.VerwachtMethodCall("ZoekViaVerwerkingId", $$$DummyInteger).DanReturn(Iterator)
-	Do ProductInfoBepalerMock.VerwachtMethodCall("GeefProductInfo", UitvoeringInfo, TAORKenmerken)
-	Do OnderdelenBepalerMock.VerwachtMethodCall("GeefOnderdelen", TAORKenmerken)
+	#dim HalffabItemsBoomDummy As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	#dim MaatwerkCalcApiStub As vhTest.Mock.DOM.PM.MaatwerkCalcAPI = ##class(vhTest.Mock.DOM.PM.MaatwerkCalcAPI).MockInstance()
+	Do MaatwerkCalcApiStub.IndienMethodCall("GeefHalffabItemsBoom", ..TAORKenmerken, $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(HalffabItemsBoomDummy)
+	Do MaatwerkCalcApiStub.IndienMethodCall("GeefLadeInfo", HalffabItemsBoomDummy, ..TAORKenmerken).DanDoeNiks()
 	
-	Do ControleService.GeefData($$$DummyInteger)
+	#dim ProductInfoBepalerStub As vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoBepaler = ##class(vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoBepaler).%New()
+	Do ProductInfoBepalerStub.IndienMethodCall("GeefProductInfo", ..UitvoeringInfo, ..TAORKenmerken).DanDoeNiks()
 	
+	#dim FlatpackV1ServiceStub As vhTest.Mock.zTryout.WV.FPV1.DOM.FlatpackV1Service = ##class(vhTest.Mock.zTryout.WV.FPV1.DOM.FlatpackV1Service).%New()
+	Do FlatpackV1ServiceStub.IndienMethodCall("GeefDraagPlaatVoorOnderdelen", $$$ElkeWaarde).DanDoeNiks()
+	Do FlatpackV1ServiceStub.IndienMethodCall("GeefDoosVariant", $$$ElkeWaarde).DanDoeNiks()
+	
+	#dim Onderdelen As %ListOfObjects = ##class(%ListOfObjects).%New()
+	Do Onderdelen.Insert(##class(vhTest.Dummy.TECH.DataTransferObject).%New())
+	Do Onderdelen.Insert(##class(vhTest.Dummy.TECH.DataTransferObject).%New())
+	
+	#dim OnderdelenBepalerMock As vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler = ##class(vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler).%New()
+	Do OnderdelenBepalerMock.VerwachtMethodCall("GeefOnderdelen", ..TAORKenmerken).DanReturn(Onderdelen)
+	
+	Set ..ControleService = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ControleService).%New(RepositoryStub, ProductInfoBepalerStub, OnderdelenBepalerMock, FlatpackV1ServiceStub)
+	#dim Data As WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.Data = ..ControleService.GeefData(..ProductId)
+	
+	Do $$$AssertEqualsList(Data.Onderdelen, Onderdelen)
+	
 	Do OnderdelenBepalerMock.Verifieer()
-	Do ProductInfoBepalerMock.Verifieer()
-	Do RepositoryMock.Verifieer()
-	Do ProductAPIMock.Verifieer()
-	Do ProductMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: FlatpackV1Service wordt opgeroepen door GeefData-method voor het bepalen van de DraagPlaat">
+<Implementation><![CDATA[
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(..UitvoeringInfo)
+	#dim RepositoryStub As vhTest.Mock.APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository = ##class(vhTest.Mock.APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository).%New()
+	Do RepositoryStub.IndienMethodCall("ZoekViaVerwerkingId", ..ProductId).DanReturn(Iterator)
+	
+	#dim OnderdelenBepalerStub As vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler = ##class(vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler).%New()
+	Do OnderdelenBepalerStub.IndienMethodCall("GeefOnderdelen", ..TAORKenmerken).DanDoeNiks()
+	
+	#dim HalffabItemsBoomDummy As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	#dim LadeDummy As vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New()
+	#dim MaatwerkCalcApiStub As vhTest.Mock.DOM.PM.MaatwerkCalcAPI = ##class(vhTest.Mock.DOM.PM.MaatwerkCalcAPI).MockInstance()
+	Do MaatwerkCalcApiStub.IndienMethodCall("GeefHalffabItemsBoom", ..TAORKenmerken, $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(HalffabItemsBoomDummy)
+	Do MaatwerkCalcApiStub.IndienMethodCall("GeefLadeInfo", HalffabItemsBoomDummy, ..TAORKenmerken).DanReturn(LadeDummy)
+	
+	#dim ProductInfoBepalerStub As vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoBepaler = ##class(vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoBepaler).%New()
+	Do ProductInfoBepalerStub.IndienMethodCall("GeefProductInfo", ..UitvoeringInfo, ..TAORKenmerken).DanDoeNiks()
+	
+	#dim DoosVariant As TECH.String = "WillekeurigeDoosVariant"
+	#dim DraagPlaat As zTryout.WV.FPV1.DOM.dto.DraagPlaat = ##class(zTryout.WV.FPV1.DOM.dto.DraagPlaat).%New()
+	#dim FlatpackV1ServiceMock As vhTest.Mock.zTryout.WV.FPV1.DOM.FlatpackV1Service = ##class(vhTest.Mock.zTryout.WV.FPV1.DOM.FlatpackV1Service).%New()
+	Do FlatpackV1ServiceMock.VerwachtMethodCall("GeefDraagPlaatVoorOnderdelen", LadeDummy).DanReturn(DraagPlaat)
+	Do FlatpackV1ServiceMock.VerwachtMethodCall("GeefDoosVariant", DraagPlaat).DanReturn(DoosVariant)
+	
+	Set ..ControleService = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ControleService).%New(RepositoryStub, ProductInfoBepalerStub, OnderdelenBepalerStub, FlatpackV1ServiceMock)
+	#dim Data As WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.Data = ..ControleService.GeefData(..ProductId)
+	
+	Do $$$AssertEquals(Data.Draagplaat, DoosVariant)
+	
+	Do FlatpackV1ServiceMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ControleService.cls.xml
===================================================================
diff -u -r35868 -r37635
--- WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ControleService.cls.xml	(.../ControleService.cls.xml)	(revision 35868)
+++ WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ControleService.cls.xml	(.../ControleService.cls.xml)	(revision 37635)
@@ -3,16 +3,21 @@
 <Class name="WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ControleService">
 <Super>TECH.RegisteredObject</Super>
 
-<Property name="Repository">
-<Type>APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository</Type>
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="ProductAPI">
-<Type>DOM.PM.ProductAPI</Type>
+<Property name="MaatwerkCalcApi">
+<Type>DOM.PM.MaatwerkCalcAPI</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="Repository">
+<Type>APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="ProductInfoBepaler">
 <Type>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoBepaler</Type>
 <Private>1</Private>
@@ -23,8 +28,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="FlatpackV1Service">
+<Type>zTryout.WV.FPV1.DOM.impl.FlatpackV1Service</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>Repository:APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository="",ProductInfoBepaler:WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoBepaler="",OnderdelenBepaler:WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler=""</FormalSpec>
+<FormalSpec>Repository:APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository="",ProductInfoBepaler:WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoBepaler="",OnderdelenBepaler:WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler="",FlatpackV1Service:zTryout.WV.FPV1.DOM.impl.FlatpackV1Service=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -33,7 +43,9 @@
 	Set ..Repository = $$$Inject(Repository, ##class(APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository).%New())
 	Set ..ProductInfoBepaler = $$$Inject(ProductInfoBepaler, ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoBepaler).%New())
 	Set ..OnderdelenBepaler = $$$Inject(OnderdelenBepaler, ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler).%New())
-	Set ..ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set ..FlatpackV1Service = $$$Inject(FlatpackV1Service, ##class(zTryout.WV.FPV1.DOM.impl.FlatpackV1Service).%New())
+	Set ..ProductApi = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set ..MaatwerkCalcApi = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -54,11 +66,14 @@
 	
 	If (Iterator.HasNext()) {
 		#dim UitvoeringInfo As APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo = Iterator.Next()
-		#dim Product As DOM.PM.MaatwerkProduct = ..ProductAPI.GeefProduct(UitvoeringInfo.ProductID)	
-	
+		#dim Product As DOM.PM.MaatwerkProduct = ..ProductApi.GeefProduct(UitvoeringInfo.ProductID)
+		#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..MaatwerkCalcApi.GeefHalffabItemsBoom(Product.GeefIngegevenKenmerken(), 1, ##class(DOM.VKP.enu.Klant).Halux(), ##class(DOM.common.VanHoeckePersonality).Instance())
+		#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ..MaatwerkCalcApi.GeefLadeInfo(HalffabItemsBoom, Product.GeefIngegevenKenmerken())
+		#dim DraagPlaat As zTryout.WV.FPV1.DOM.dto.DraagPlaat = ..FlatpackV1Service.GeefDraagPlaatVoorOnderdelen(Lade)
+		
 		Set Data.ProductInfo = ..ProductInfoBepaler.GeefProductInfo(UitvoeringInfo, Product.GeefIngegevenKenmerken())
 		Set Data.Onderdelen = ..OnderdelenBepaler.GeefOnderdelen(Product.GeefIngegevenKenmerken())
-		Set Data.Draagplaat = ""
+		Set Data.Draagplaat = ..FlatpackV1Service.GeefDoosVariant(DraagPlaat)
 	}
 	
 	Quit Data