Index: vhTest/Mock/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler.cls.xml	(revision 35837)
@@ -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">
+<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,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefOnderdelen">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefOnderdelen",TAORKenmerken)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ControleService.cls.xml
===================================================================
diff -u -r35836 -r35837
--- WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ControleService.cls.xml	(.../ControleService.cls.xml)	(revision 35836)
+++ WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ControleService.cls.xml	(.../ControleService.cls.xml)	(revision 35837)
@@ -13,15 +13,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="OnderdelenBepaler">
+<Type>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>Repository:APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository="",ProductInfoBepaler:WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoBepaler=""</FormalSpec>
+<FormalSpec>Repository:APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository="",ProductInfoBepaler:WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoBepaler="",OnderdelenBepaler:WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..Repository = $$$Inject(Repository, ##class(APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository).%New(##class(APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository).#DataClassName))
 	Set ..ProductInfoBepaler = $$$Inject(ProductInfoBepaler, ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoBepaler).%New())
+	Set ..OnderdelenBepaler = $$$Inject(OnderdelenBepaler, ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -42,6 +48,8 @@
 	#dim Data As WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.Data = ##class(WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.Data).%New()
 	
 	Set Data.ProductInfo = ..ProductInfoBepaler.GeefProductInfo(UitvoeringInfo, Product.GeefIngegevenKenmerken())
+	Set Data.Onderdelen = ..OnderdelenBepaler.GeefOnderdelen(Product.GeefIngegevenKenmerken())
+	Set Data.Draagplaat = ""
 	
 	Quit Data
 ]]></Implementation>
Index: vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ControleService/Test.cls.xml
===================================================================
diff -u -r35836 -r35837
--- vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ControleService/Test.cls.xml	(.../Test.cls.xml)	(revision 35836)
+++ vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ControleService/Test.cls.xml	(.../Test.cls.xml)	(revision 35837)
@@ -3,30 +3,27 @@
 <Class name="vhUnitTest.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ControleService.Test">
 <Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
 
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<Implementation><![CDATA[	Do ##super(aTestName)
-]]></Implementation>
-</Method>
-
 <Method name="Test: Methods worden opgeroepen door GeefData-method">
 <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()
 	#dim RepositoryMock As vhTest.Mock.APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository = ##class(vhTest.Mock.APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository).%New()
 	#dim ProductInfoBepalerMock As vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoBepaler = ##class(vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoBepaler).%New()
-	
-	#dim ControleService As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ControleService = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ControleService).%New(RepositoryMock, ProductInfoBepalerMock)
+	#dim OnderdelenBepalerMock As vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler = ##class(vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler).%New()
+
+	#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)
 	
 	Do ProductMock.VerwachtMethodCall("GeefIngegevenKenmerken").DanReturn(TAORKenmerken)
 	Do ProductAPIMock.VerwachtMethodCall("GeefProduct", UitvoeringInfo.ProductID).DanReturn(ProductMock)
 	Do RepositoryMock.VerwachtMethodCall("GeefViaVerwerkingId", $$$DummyInteger).DanReturn(UitvoeringInfo)
 	Do ProductInfoBepalerMock.VerwachtMethodCall("GeefProductInfo", UitvoeringInfo, TAORKenmerken)
+	Do OnderdelenBepalerMock.VerwachtMethodCall("GeefOnderdelen", TAORKenmerken)
 	
 	Do ControleService.GeefData($$$DummyInteger)
-	
+		
+	Do OnderdelenBepalerMock.Verifieer()
 	Do ProductInfoBepalerMock.Verifieer()
 	Do RepositoryMock.Verifieer()
 	Do ProductAPIMock.Verifieer()
Index: vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler/Test.cls.xml	(revision 35837)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
+
+<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 LadeOnderdeelMock As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Zijkant = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Zijkant).%New()
+	
+	#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)
+	
+	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)
+	
+	Do OnderdelenBepaler.GeefOnderdelen(TAORKenmerken)
+	
+	Do KleurcodeStringBepalerMock.Verifieer()
+	Do LadeOnderdeelMock.Verifieer()
+	Do LadeMock.Verifieer()
+	Do MaatwerkCalcAPIMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler.cls.xml	(revision 0)
+++ vhTest/Fake/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler.cls.xml	(revision 35837)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.OnderdelenBepaler">
+<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</Super>
+
+<Method name="GeefOnderdeelZijkantenLinks">
+<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
+<ReturnType>WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.Onderdeel</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefOnderdelen">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler.cls.xml
===================================================================
diff -u
--- WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler.cls.xml	(revision 0)
+++ WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/OnderdelenBepaler.cls.xml	(revision 35837)
@@ -0,0 +1,113 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<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>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>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 ..KleurcodeStringBepaler = $$$Inject(KleurcodeStringBepaler, ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.KleurcodeStringBepaler).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefOnderdelen">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	#dim Onderdelen As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#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(zTryout.MVI.Tools.ObjectDumper).Dump(HalffabItemVerpakking)
+
+	#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))
+	
+	Quit Onderdelen
+]]></Implementation>
+</Method>
+
+<Method name="GeefZijkantenIteratorVoorRol">
+<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,ZijkantRol:DOM.PM.Maatwerk.Lade.enu.ZijkantRol</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim Zijkanten As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim Iterator As TECH.Iterator = Lade.GeefZijkantIterator()
+	
+	While (Iterator.HasNext()) {
+		#dim Zijkant As DOM.PM.Maatwerk.LadeInfo.Zijkant = Iterator.Next()
+		
+		If (Zijkant.GeefZijkantRol() = ZijkantRol) {
+			Do Zijkanten.Insert(Zijkant)
+		}
+	}
+	
+	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>
+
+
+</Export>