Index: vhUnitTest/AXimpl/PM/Maatwerk/TBX/AxNaarEconConverter/Test.cls.xml
===================================================================
diff -u -r53400 -r53618
--- vhUnitTest/AXimpl/PM/Maatwerk/TBX/AxNaarEconConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 53400)
+++ vhUnitTest/AXimpl/PM/Maatwerk/TBX/AxNaarEconConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 53618)
@@ -68,11 +68,11 @@
 <FormalSpec>SoortLade:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim AxKenmerken As %ListOfDataTypes = $ClassMethod("vhTest.Utils.AXimpl.PM.Maatwerk.TbxKenmerken", SoortLade)
+	#dim AxKenmerken As %ListOfDataTypes = $ClassMethod(##class(vhTest.Utils.AXimpl.PM.Maatwerk.TbxKenmerken).%ClassName(1), SoortLade)
 	#dim GeconverteerdeKenmerken As ECON.PM.Maatwerk.dto.EconConfiguratie = ..Converter.Convert(AxKenmerken)
 	#dim IngegevenKenmerken As ECON.PM.Maatwerk.dto.EconConfiguratieKenmerken = GeconverteerdeKenmerken.IngegevenKenmerken
 	
-	Do $$$AssertEmptyList(..Differenciator.GetDifferences(IngegevenKenmerken, $ClassMethod("vhTest.Utils.ECON.PM.Maatwerk.dto.TbxKenmerken", SoortLade)))
+	Do $$$AssertEmptyList(..Differenciator.GetDifferences(IngegevenKenmerken, $ClassMethod(##class(vhTest.Utils.ECON.PM.Maatwerk.dto.TbxKenmerken).%ClassName(1), SoortLade)))
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Utils/AXimpl/PM/Maatwerk/TbxKenmerken.cls.xml
===================================================================
diff -u -r53400 -r53618
--- vhTest/Utils/AXimpl/PM/Maatwerk/TbxKenmerken.cls.xml	(.../TbxKenmerken.cls.xml)	(revision 53400)
+++ vhTest/Utils/AXimpl/PM/Maatwerk/TbxKenmerken.cls.xml	(.../TbxKenmerken.cls.xml)	(revision 53618)
@@ -14,44 +14,42 @@
 <ClassMethod>1</ClassMethod>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
-	#dim TbxKenmerken As %ListOfObjects = ..GeefLijstMetDefaultkenmerken()
+	#dim TbxKenmerken As %ListOfObjects = ..LegeKenmerken()
 	
-	Set CorpusBreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set CorpusWandDikte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set DwarsverdelingAantal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set FrontBevestiging = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set GeleiderTechnologie = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set HeeftOpvullijstLinks = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set HeeftOpvullijstRechts = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set InbouwHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set InterneBreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set IsBinnenbreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set IsBinnenlade = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set RugHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set RugwandMateriaal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set Toepassing = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set ZijkantHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set ZijwandHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set ZijwandVerhogingType = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Do ..VoegToeKenmerk("BodemKleur", ##class(ECON.PM.Maatwerk.enu.TBXBodemKleur).Wit(), TbxKenmerken)
+	Do ..VoegToeKenmerk("CorpusBreedte", "600", TbxKenmerken)
+	Do ..VoegToeKenmerk("CorpusWandDikte", "0", TbxKenmerken)
+	Do ..VoegToeKenmerk("Draagkracht", ##class(ECON.PM.Maatwerk.enu.TBXDraagkracht).Draagkracht30(), TbxKenmerken)
+	Do ..VoegToeKenmerk("DwarsverdelingAantal", ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).Zonder(), TbxKenmerken)
+	Do ..VoegToeKenmerk("Familie", "Lade", TbxKenmerken)
+	Do ..VoegToeKenmerk("FrontBevestiging", ##class(ECON.PM.Maatwerk.enu.TBXFrontBevestiging).Inserta(), TbxKenmerken)
+	Do ..VoegToeKenmerk("FrontHouderKleur", "", TbxKenmerken)
+	Do ..VoegToeKenmerk("FrontOndersteuningType", ##class(ECON.PM.Maatwerk.enu.TBXFrontOndersteuningType).Auto(), TbxKenmerken)
+	Do ..VoegToeKenmerk("FrontStabilisatorAantal", "", TbxKenmerken)
+	Do ..VoegToeKenmerk("GeleiderTechnologie", ##class(ECON.PM.Maatwerk.enu.TBXGeleiderTechnologie).Blumotion(), TbxKenmerken)
+	Do ..VoegToeKenmerk("GreepEnMeenemer", ##class(ECON.PM.Maatwerk.enu.TBXGreepEnMeenemer).Zonder(), TbxKenmerken)
+	Do ..VoegToeKenmerk("HangmapBoringAantal", ##class(ECON.PM.Maatwerk.enu.TBXHangmapBoringAantal).Zonder(), TbxKenmerken)
+	Do ..VoegToeKenmerk("HeeftAfwijkendeRughoogte", "false", TbxKenmerken)
+	Do ..VoegToeKenmerk("HeeftOpvullijstLinks", "false", TbxKenmerken)
+	Do ..VoegToeKenmerk("HeeftOpvullijstRechts", "false", TbxKenmerken)
+	Do ..VoegToeKenmerk("HeeftZijstabilisering", "false", TbxKenmerken)
+	Do ..VoegToeKenmerk("InbouwHoogte", "M", TbxKenmerken)
+	Do ..VoegToeKenmerk("InterneBreedte", "600", TbxKenmerken)
+	Do ..VoegToeKenmerk("IsBinnenbreedte", "true", TbxKenmerken)
+	Do ..VoegToeKenmerk("IsBinnenlade", "false", TbxKenmerken)
+	Do ..VoegToeKenmerk("LadeDesign", ##class(ECON.PM.Maatwerk.enu.TBXLadeDesign).ZijdeWitAntaro(), TbxKenmerken)
+	Do ..VoegToeKenmerk("LadeDiepte", ##class(ECON.PM.Maatwerk.enu.TBXLadeDiepte).LadeDiepte500(), TbxKenmerken)
+	Do ..VoegToeKenmerk("LadeKleur", ##class(ECON.PM.Maatwerk.enu.TBXLadeKleur).ZijdeWit(), TbxKenmerken)
+	Do ..VoegToeKenmerk("ProductieWijze", ##class(ECON.PM.Maatwerk.enu.ProductieWijze).Volledig(), TbxKenmerken)
+	Do ..VoegToeKenmerk("RugHoogte", ##class(ECON.PM.Maatwerk.enu.TBXRugHoogte).M(), TbxKenmerken)
+	Do ..VoegToeKenmerk("RugwandMateriaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken)
+	Do ..VoegToeKenmerk("Toepassing", ##class(ECON.PM.Maatwerk.enu.TBXToepassing).Lade(), TbxKenmerken)
+	Do ..VoegToeKenmerk("Variant", "TBX", TbxKenmerken)
+	Do ..VoegToeKenmerk("VerpakkingType", ##class(ECON.PM.Maatwerk.enu.TBXVerpakkingType).V1(), TbxKenmerken)
+	Do ..VoegToeKenmerk("ZijkantHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M(), TbxKenmerken)
+	Do ..VoegToeKenmerk("ZijwandHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).M(), TbxKenmerken)
+	Do ..VoegToeKenmerk("ZijwandVerhogingType", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Zonder(), TbxKenmerken)
 	
-	Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusBreedte, "CorpusBreedte", "600", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusWandDikte, "CorpusWandDikte", "0", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(DwarsverdelingAantal, "DwarsverdelingAantal", ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).Zonder(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(GeleiderTechnologie, "GeleiderTechnologie", ##class(ECON.PM.Maatwerk.enu.TBXGeleiderTechnologie).Blumotion(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(FrontBevestiging, "FrontBevestiging", ##class(ECON.PM.Maatwerk.enu.TBXFrontBevestiging).Inserta(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstLinks, "HeeftOpvullijstLinks", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstRechts, "HeeftOpvullijstRechts", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(InbouwHoogte, "InbouwHoogte", "M", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(InterneBreedte, "InterneBreedte", "600", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenbreedte, "IsBinnenbreedte", "true", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenlade, "IsBinnenlade", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(RugHoogte, "RugHoogte", ##class(ECON.PM.Maatwerk.enu.TBXRugHoogte).M(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(RugwandMateriaal, "RugwandMateriaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(Toepassing, "Toepassing", ##class(ECON.PM.Maatwerk.enu.TBXToepassing).Lade(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(ZijkantHoogte, "ZijkantHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandHoogte, "ZijwandHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).M(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingType, "ZijwandVerhogingType", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Zonder(), TbxKenmerken)
-	
 	Do ..ZetDefaultNietMeeleverenKenmerken(TbxKenmerken)
 	
 	Quit TbxKenmerken
@@ -62,44 +60,15 @@
 <ClassMethod>1</ClassMethod>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
-	#dim TbxKenmerken As %ListOfObjects = ..GeefLijstMetDefaultkenmerken()
+	#dim TbxKenmerken As %ListOfObjects = ..StandaardLade()
 	
-	Set CorpusBreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set CorpusWandDikte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set DwarsverdelingAantal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set GeleiderTechnologie = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set HeeftOpvullijstLinks = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set HeeftOpvullijstRechts = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set InbouwHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set InterneBreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set IsBinnenbreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set IsBinnenlade = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set FrontBevestiging = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set RugHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set RugwandMateriaal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set Toepassing = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set ZijkantHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set ZijwandHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set ZijwandVerhogingType = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Do ..VoegToeKenmerk("InbouwHoogte", "DM", TbxKenmerken)
+	Do ..VoegToeKenmerk("IsBinnenlade", "true", TbxKenmerken)
+	Do ..VoegToeKenmerk("FrontBevestiging", "", TbxKenmerken)
+	Do ..VoegToeKenmerk("RugHoogte", ##class(ECON.PM.Maatwerk.enu.TBXRugHoogte).D(), TbxKenmerken)
+	Do ..VoegToeKenmerk("ZijwandHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).D(), TbxKenmerken)
+	Do ..VoegToeKenmerk("ZijwandVerhogingType", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Reling(), TbxKenmerken)
 	
-	Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusBreedte, "CorpusBreedte", "600", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusWandDikte, "CorpusWandDikte", "0", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(DwarsverdelingAantal, "DwarsverdelingAantal", ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).Zonder(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(GeleiderTechnologie, "GeleiderTechnologie", ##class(ECON.PM.Maatwerk.enu.TBXGeleiderTechnologie).Blumotion(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstLinks, "HeeftOpvullijstLinks", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstRechts, "HeeftOpvullijstRechts", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(InbouwHoogte, "InbouwHoogte", "DM", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(InterneBreedte, "InterneBreedte", "600", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenbreedte, "IsBinnenbreedte", "true", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenlade, "IsBinnenlade", "true", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(FrontBevestiging, "FrontBevestiging", "", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(RugHoogte, "RugHoogte", ##class(ECON.PM.Maatwerk.enu.TBXRugHoogte).D(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(RugwandMateriaal, "RugwandMateriaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(Toepassing, "Toepassing", ##class(ECON.PM.Maatwerk.enu.TBXToepassing).Lade(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(ZijkantHoogte, "ZijkantHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandHoogte, "ZijwandHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).D(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingType, "ZijwandVerhogingType", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Reling(), TbxKenmerken)
-	
 	Do ..ZetDefaultNietMeeleverenKenmerken(TbxKenmerken)
 	
 	Quit TbxKenmerken
@@ -110,68 +79,23 @@
 <ClassMethod>1</ClassMethod>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
-	#dim TbxKenmerken As %ListOfObjects = ..GeefLijstMetDefaultkenmerken()
+	#dim TbxKenmerken As %ListOfObjects = ..StandaardLade()
 	
-	Set CorpusBreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set CorpusWandDikte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set DwarsverdelingAantal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set FrontBevestiging = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set GeleiderTechnologie = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set HeeftOpvullijstLinks = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set HeeftOpvullijstRechts = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set InbouwHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set InterneBreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set IsBinnenbreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set IsBinnenlade = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set RugHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set RugwandMateriaal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set Toepassing = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataUitsparingAantal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataXBreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataXHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataXMateriaal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataYBreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataYHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataYMateriaal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataZ1Breedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataZ1Diepte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataZ1Hoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataZ1Materiaal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataZ1Vorm = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set ZijkantHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set ZijwandHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set ZijwandVerhogingType = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Do ..VoegToeKenmerk("RugwandMateriaal", "", TbxKenmerken)
+	Do ..VoegToeKenmerk("Toepassing", ##class(ECON.PM.Maatwerk.enu.TBXToepassing).Spoelbak(), TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_UitsparingAantal", ##class(ECON.PM.Maatwerk.enu.TBXUitsparingAantal).Enkel(), TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_X_Breedte", "147", TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_X_Hoogte", "M", TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_X_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Staal(), TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Y_Breedte", "147", TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Y_Hoogte", "M", TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Y_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Staal(), TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Z1_Breedte", "306", TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Z1_Diepte", "0", TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Z1_Hoogte", "M", TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Z1_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Z1_Vorm", "Recht", TbxKenmerken)
 	
-	Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusBreedte, "CorpusBreedte", "600", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusWandDikte, "CorpusWandDikte", "0", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(DwarsverdelingAantal, "DwarsverdelingAantal", ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).Zonder(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(FrontBevestiging, "FrontBevestiging", ##class(ECON.PM.Maatwerk.enu.TBXFrontBevestiging).Inserta(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(GeleiderTechnologie, "GeleiderTechnologie", ##class(ECON.PM.Maatwerk.enu.TBXGeleiderTechnologie).Blumotion(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstLinks, "HeeftOpvullijstLinks", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstRechts, "HeeftOpvullijstRechts", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(InbouwHoogte, "InbouwHoogte", "M", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(InterneBreedte, "InterneBreedte", "600", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenbreedte, "IsBinnenbreedte", "true", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenlade, "IsBinnenlade", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(RugHoogte, "RugHoogte", ##class(ECON.PM.Maatwerk.enu.TBXRugHoogte).M(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(RugwandMateriaal, "RugwandMateriaal", "", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(Toepassing, "Toepassing", ##class(ECON.PM.Maatwerk.enu.TBXToepassing).Spoelbak(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataUitsparingAantal, "UitsparingData_UitsparingAantal", ##class(ECON.PM.Maatwerk.enu.TBXUitsparingAantal).Enkel(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataXBreedte, "UitsparingData_X_Breedte", "147", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataXHoogte, "UitsparingData_X_Hoogte", "M", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataXMateriaal, "UitsparingData_X_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Staal(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataYBreedte, "UitsparingData_Y_Breedte", "147", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataYHoogte, "UitsparingData_Y_Hoogte", "M", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataYMateriaal, "UitsparingData_Y_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Staal(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Breedte, "UitsparingData_Z1_Breedte", "306", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Diepte, "UitsparingData_Z1_Diepte", "0", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Hoogte, "UitsparingData_Z1_Hoogte", "M", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Materiaal, "UitsparingData_Z1_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Vorm, "UitsparingData_Z1_Vorm", "Recht", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(ZijkantHoogte, "ZijkantHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandHoogte, "ZijwandHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).M(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingType, "ZijwandVerhogingType", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Zonder(), TbxKenmerken)
-	
 	Do ..ZetDefaultNietMeeleverenKenmerken(TbxKenmerken)
 	
 	Quit TbxKenmerken
@@ -182,68 +106,23 @@
 <ClassMethod>1</ClassMethod>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
-	#dim TbxKenmerken As %ListOfObjects = ..GeefLijstMetDefaultkenmerken()
+	#dim TbxKenmerken As %ListOfObjects = ..StandaardLade()
 	
-	Set CorpusBreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set CorpusWandDikte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set DwarsverdelingAantal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set FrontBevestiging = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set GeleiderTechnologie = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set HeeftOpvullijstLinks = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set HeeftOpvullijstRechts = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set InbouwHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set InterneBreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set IsBinnenbreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set IsBinnenlade = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set RugHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set RugwandMateriaal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set Toepassing = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataUitsparingAantal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataXBreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataXHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataXMateriaal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataYBreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataYHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataYMateriaal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataZ1Breedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataZ1Diepte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataZ1Hoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataZ1Materiaal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataZ1Vorm = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set ZijkantHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set ZijwandHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set ZijwandVerhogingType = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Do ..VoegToeKenmerk("RugwandMateriaal", "", TbxKenmerken)
+	Do ..VoegToeKenmerk("Toepassing", ##class(ECON.PM.Maatwerk.enu.TBXToepassing).SifonType2(), TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_UitsparingAantal", ##class(ECON.PM.Maatwerk.enu.TBXUitsparingAantal).Enkel(), TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_X_Breedte", "225", TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_X_Hoogte", "M", TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_X_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Y_Breedte", "225", TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Y_Hoogte", "M", TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Y_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Z1_Breedte", "150", TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Z1_Diepte", "0", TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Z1_Hoogte", "M", TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Z1_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Staal(), TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Z1_Vorm", "Recht", TbxKenmerken)
 	
-	Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusBreedte, "CorpusBreedte", "600", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusWandDikte, "CorpusWandDikte", "0", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(DwarsverdelingAantal, "DwarsverdelingAantal", ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).Zonder(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(FrontBevestiging, "FrontBevestiging", ##class(ECON.PM.Maatwerk.enu.TBXFrontBevestiging).Inserta(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(GeleiderTechnologie, "GeleiderTechnologie", ##class(ECON.PM.Maatwerk.enu.TBXGeleiderTechnologie).Blumotion(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstLinks, "HeeftOpvullijstLinks", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstRechts, "HeeftOpvullijstRechts", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(InbouwHoogte, "InbouwHoogte", "M", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(InterneBreedte, "InterneBreedte", "600", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenbreedte, "IsBinnenbreedte", "true", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenlade, "IsBinnenlade", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(RugHoogte, "RugHoogte", ##class(ECON.PM.Maatwerk.enu.TBXRugHoogte).M(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(RugwandMateriaal, "RugwandMateriaal", "", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(Toepassing, "Toepassing", ##class(ECON.PM.Maatwerk.enu.TBXToepassing).SifonType2(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataUitsparingAantal, "UitsparingData_UitsparingAantal", ##class(ECON.PM.Maatwerk.enu.TBXUitsparingAantal).Enkel(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataXBreedte, "UitsparingData_X_Breedte", "225", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataXHoogte, "UitsparingData_X_Hoogte", "M", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataXMateriaal, "UitsparingData_X_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataYBreedte, "UitsparingData_Y_Breedte", "225", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataYHoogte, "UitsparingData_Y_Hoogte", "M", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataYMateriaal, "UitsparingData_Y_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Breedte, "UitsparingData_Z1_Breedte", "150", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Diepte, "UitsparingData_Z1_Diepte", "0", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Hoogte, "UitsparingData_Z1_Hoogte", "M", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Materiaal, "UitsparingData_Z1_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Staal(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Vorm, "UitsparingData_Z1_Vorm", "Recht", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(ZijkantHoogte, "ZijkantHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandHoogte, "ZijwandHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).M(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingType, "ZijwandVerhogingType", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Zonder(), TbxKenmerken)
-	
 	Do ..ZetDefaultNietMeeleverenKenmerken(TbxKenmerken)
 	
 	Quit TbxKenmerken
@@ -254,84 +133,33 @@
 <ClassMethod>1</ClassMethod>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
-	#dim TbxKenmerken As %ListOfObjects = ..GeefLijstMetDefaultkenmerken()
+	#dim TbxKenmerken As %ListOfObjects = ..StandaardLade()
 	
-	Set CorpusBreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set CorpusWandDikte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set DwarsverdelingAantal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set FrontBevestiging = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set GeleiderTechnologie = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set HeeftOpvullijstLinks = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set HeeftOpvullijstRechts = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set InbouwHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set InterneBreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set IsBinnenbreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set IsBinnenlade = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set RugHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set RugwandMateriaal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set Toepassing = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataUitsparingAantal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataMBreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataMHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataMMateriaal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataXBreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataXHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataXMateriaal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataYBreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataYHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataYMateriaal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataZ1Breedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataZ1Diepte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataZ1Hoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataZ1Materiaal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataZ1Vorm = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataZ2Breedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataZ2Diepte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataZ2Hoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataZ2Materiaal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set UitsparingDataZ2Vorm = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set ZijkantHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set ZijwandHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set ZijwandVerhogingType = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Do ..VoegToeKenmerk("CorpusBreedte", "900", TbxKenmerken)
+	Do ..VoegToeKenmerk("InterneBreedte", "900", TbxKenmerken)
+	Do ..VoegToeKenmerk("RugwandMateriaal", "", TbxKenmerken)
+	Do ..VoegToeKenmerk("Toepassing", ##class(ECON.PM.Maatwerk.enu.TBXToepassing).SifonType2(), TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_UitsparingAantal", ##class(ECON.PM.Maatwerk.enu.TBXUitsparingAantal).Dubbel(), TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_M_Breedte", "240", TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_M_Hoogte", "M", TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_M_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_X_Breedte", "180", TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_X_Hoogte", "M", TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_X_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Y_Breedte", "180", TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Y_Hoogte", "M", TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Y_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Z1_Breedte", "150", TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Z1_Diepte", "0", TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Z1_Hoogte", "M", TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Z1_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Staal(), TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Z1_Vorm", "Recht", TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Z2_Breedte", "150", TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Z2_Diepte", "0", TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Z2_Hoogte", "M", TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Z2_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Staal(), TbxKenmerken)
+	Do ..VoegToeKenmerk("UitsparingData_Z2_Vorm", "Recht", TbxKenmerken)
 	
-	Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusBreedte, "CorpusBreedte", "900", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusWandDikte, "CorpusWandDikte", "0", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(DwarsverdelingAantal, "DwarsverdelingAantal", ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).Zonder(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(FrontBevestiging, "FrontBevestiging", ##class(ECON.PM.Maatwerk.enu.TBXFrontBevestiging).Inserta(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(GeleiderTechnologie, "GeleiderTechnologie", ##class(ECON.PM.Maatwerk.enu.TBXGeleiderTechnologie).Blumotion(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstLinks, "HeeftOpvullijstLinks", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstRechts, "HeeftOpvullijstRechts", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(InbouwHoogte, "InbouwHoogte", "M", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(InterneBreedte, "InterneBreedte", "900", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenbreedte, "IsBinnenbreedte", "true", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenlade, "IsBinnenlade", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(RugHoogte, "RugHoogte", ##class(ECON.PM.Maatwerk.enu.TBXRugHoogte).M(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(RugwandMateriaal, "RugwandMateriaal", "", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(Toepassing, "Toepassing", ##class(ECON.PM.Maatwerk.enu.TBXToepassing).SifonType2(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataUitsparingAantal, "UitsparingData_UitsparingAantal", ##class(ECON.PM.Maatwerk.enu.TBXUitsparingAantal).Dubbel(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataMBreedte, "UitsparingData_M_Breedte", "240", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataMHoogte, "UitsparingData_M_Hoogte", "M", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataMMateriaal, "UitsparingData_M_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataXBreedte, "UitsparingData_X_Breedte", "180", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataXHoogte, "UitsparingData_X_Hoogte", "M", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataXMateriaal, "UitsparingData_X_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataYBreedte, "UitsparingData_Y_Breedte", "180", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataYHoogte, "UitsparingData_Y_Hoogte", "M", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataYMateriaal, "UitsparingData_Y_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Breedte, "UitsparingData_Z1_Breedte", "150", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Diepte, "UitsparingData_Z1_Diepte", "0", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Hoogte, "UitsparingData_Z1_Hoogte", "M", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Materiaal, "UitsparingData_Z1_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Staal(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Vorm, "UitsparingData_Z1_Vorm", "Recht", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ2Breedte, "UitsparingData_Z2_Breedte", "150", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ2Diepte, "UitsparingData_Z2_Diepte", "0", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ2Hoogte, "UitsparingData_Z2_Hoogte", "M", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ2Materiaal, "UitsparingData_Z2_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Staal(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ2Vorm, "UitsparingData_Z2_Vorm", "Recht", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(ZijkantHoogte, "ZijkantHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandHoogte, "ZijwandHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).M(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingType, "ZijwandVerhogingType", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Zonder(), TbxKenmerken)
-	
 	Do ..ZetDefaultNietMeeleverenKenmerken(TbxKenmerken)
 	
 	Quit TbxKenmerken
@@ -342,56 +170,26 @@
 <ClassMethod>1</ClassMethod>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
-	#dim TbxKenmerken As %ListOfObjects = ..GeefLijstMetDefaultkenmerken()
+	#dim TbxKenmerken As %ListOfObjects = ..StandaardLade()
 	
-	Set CorpusBreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set CorpusWandDikte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set DwarsverdelingAantal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set FrontBevestiging = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set GeleiderTechnologie = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set HeeftOpvullijstLinks = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set HeeftOpvullijstRechts = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set InbouwHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set InterneBreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set IsBinnenbreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set IsBinnenlade = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set MatKleur = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set MatMateriaal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set OpvullijstKleur = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set RugHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set RugwandMateriaal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set Toepassing = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set ZijkantHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set ZijwandHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set ZijwandVerhogingMateriaal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set ZijwandVerhogingInschuifelementKleur = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set ZijwandVerhogingType = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set ZijwandVerhogingRelingKleur = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Do ..VoegToeKenmerk("CorpusWandDikte", "18", TbxKenmerken)
+	Do ..VoegToeKenmerk("DwarsverdelingAantal", ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).Drie(), TbxKenmerken)
+	Do ..VoegToeKenmerk("GeleiderTechnologie", ##class(ECON.PM.Maatwerk.enu.TBXGeleiderTechnologie).TiponBlumotion(), TbxKenmerken)
+	Do ..VoegToeKenmerk("HeeftOpvullijstLinks", "true", TbxKenmerken)
+	Do ..VoegToeKenmerk("HeeftOpvullijstRechts", "true", TbxKenmerken)
+	Do ..VoegToeKenmerk("InbouwHoogte", "CM", TbxKenmerken)
+	Do ..VoegToeKenmerk("InterneBreedte", "514", TbxKenmerken)
+	Do ..VoegToeKenmerk("IsBinnenbreedte", "false", TbxKenmerken)
+	Do ..VoegToeKenmerk("MatKleur", ##class(DOM.PM.enu.MATKleur).AntiSlipFiberWit(), TbxKenmerken)
+	Do ..VoegToeKenmerk("MatMateriaal", ##class(DOM.PM.enu.MATMateriaal).AntislipFiber(), TbxKenmerken)
+	Do ..VoegToeKenmerk("OpvullijstKleur", ##class(ECON.PM.Maatwerk.enu.TBXOpvullijstKleur).Wit(), TbxKenmerken)
+	Do ..VoegToeKenmerk("RugHoogte", ##class(ECON.PM.Maatwerk.enu.TBXRugHoogte).C(), TbxKenmerken)
+	Do ..VoegToeKenmerk("ZijwandHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).C(), TbxKenmerken)
+	Do ..VoegToeKenmerk("ZijwandVerhogingMateriaal", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementMateriaal).Glas(), TbxKenmerken)
+	Do ..VoegToeKenmerk("ZijwandVerhogingInschuifelementKleur", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementKleur).FloatGezuurd8mm(), TbxKenmerken)
+	Do ..VoegToeKenmerk("ZijwandVerhogingType", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).InschuifElement(), TbxKenmerken)
+	Do ..VoegToeKenmerk("ZijwandVerhogingRelingKleur", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingRelingKleur).ZijdeWit(), TbxKenmerken)
 	
-	Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusBreedte, "CorpusBreedte", "600", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusWandDikte, "CorpusWandDikte", "18", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(DwarsverdelingAantal, "DwarsverdelingAantal", ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).Drie(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(GeleiderTechnologie, "GeleiderTechnologie", ##class(ECON.PM.Maatwerk.enu.TBXGeleiderTechnologie).TiponBlumotion(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(FrontBevestiging, "FrontBevestiging", ##class(ECON.PM.Maatwerk.enu.TBXFrontBevestiging).Inserta(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstLinks, "HeeftOpvullijstLinks", "true", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstRechts, "HeeftOpvullijstRechts", "true", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(InbouwHoogte, "InbouwHoogte", "CM", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(InterneBreedte, "InterneBreedte", "514", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenbreedte, "IsBinnenbreedte", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenlade, "IsBinnenlade", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(MatKleur, "MatKleur", ##class(DOM.PM.enu.MATKleur).AntiSlipFiberWit(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(MatMateriaal, "MatMateriaal", ##class(DOM.PM.enu.MATMateriaal).AntislipFiber(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(OpvullijstKleur, "OpvullijstKleur", ##class(ECON.PM.Maatwerk.enu.TBXOpvullijstKleur).Wit(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(RugHoogte, "RugHoogte", ##class(ECON.PM.Maatwerk.enu.TBXRugHoogte).C(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(RugwandMateriaal, "RugwandMateriaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(Toepassing, "Toepassing", ##class(ECON.PM.Maatwerk.enu.TBXToepassing).Lade(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(ZijkantHoogte, "ZijkantHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandHoogte, "ZijwandHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).C(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingMateriaal, "ZijwandVerhogingMateriaal", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementMateriaal).Glas(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingInschuifelementKleur, "ZijwandVerhogingInschuifelementKleur", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementKleur).FloatGezuurd8mm(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingType, "ZijwandVerhogingType", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).InschuifElement(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingRelingKleur, "ZijwandVerhogingRelingKleur", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingRelingKleur).ZijdeWit(), TbxKenmerken)
-	
 	Do ..ZetDefaultNietMeeleverenKenmerken(TbxKenmerken)
 	
 	Quit TbxKenmerken
@@ -402,70 +200,22 @@
 <ClassMethod>1</ClassMethod>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
-	#dim TbxKenmerken As %ListOfObjects = ..GeefLijstMetDefaultkenmerken()
+	#dim TbxKenmerken As %ListOfObjects = ..StandaardLade()
 	
-	Set CorpusBreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set CorpusWandDikte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set DwarsverdelingAantal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set GeleiderTechnologie = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set HeeftOpvullijstLinks = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set HeeftOpvullijstRechts = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set InbouwHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set InterneBreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set IsBinnenbreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set IsBinnenlade = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set FrontBevestiging = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set RugHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set RugwandMateriaal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set Toepassing = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set ZijkantHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set ZijwandHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set ZijwandVerhogingType = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set NietMeeleverenAfdekkap = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set NietMeeleverenAntislipmat = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set NietMeeleverenBodemsteun = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set NietMeeleverenFrontBevestiging = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set NietMeeleverenGeleider = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set NietMeeleverenInschuifElement = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set NietMeeleverenOpvullijst = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set NietMeeleverenReling = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set NietMeeleverenSpoelbakdwarslat = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set NietMeeleverenTOBOnderdelen = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set NietMeeleverenTOBSet = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set NietMeeleverenTOBSyncToebehoren = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set NietMeeleverenTOBSyncStang = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Do ..VoegToeKenmerk("NM_Afdekkap", "true", TbxKenmerken)
+	Do ..VoegToeKenmerk("NM_Antislipmat", "true", TbxKenmerken)
+	Do ..VoegToeKenmerk("NM_Bodemsteun", "true", TbxKenmerken)
+	Do ..VoegToeKenmerk("NM_FrontBevestiging", "true", TbxKenmerken)
+	Do ..VoegToeKenmerk("NM_Geleider", "true", TbxKenmerken)
+	Do ..VoegToeKenmerk("NM_InschuifElement", "true", TbxKenmerken)
+	Do ..VoegToeKenmerk("NM_Opvullijst", "true", TbxKenmerken)
+	Do ..VoegToeKenmerk("NM_Reling", "true", TbxKenmerken)
+	Do ..VoegToeKenmerk("NM_Spoelbakdwarslat", "true", TbxKenmerken)
+	Do ..VoegToeKenmerk("NM_TOBOnderdelen", "true", TbxKenmerken)
+	Do ..VoegToeKenmerk("NM_TOBSet", "true", TbxKenmerken)
+	Do ..VoegToeKenmerk("NM_TOBSynchronisatieToebehoren", "true", TbxKenmerken)
+	Do ..VoegToeKenmerk("NM_TOBSynchronisatieStang", "true", TbxKenmerken)
 	
-	Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusBreedte, "CorpusBreedte", "600", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusWandDikte, "CorpusWandDikte", "0", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(DwarsverdelingAantal, "DwarsverdelingAantal", ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).Zonder(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(GeleiderTechnologie, "GeleiderTechnologie", ##class(ECON.PM.Maatwerk.enu.TBXGeleiderTechnologie).Blumotion(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstLinks, "HeeftOpvullijstLinks", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstRechts, "HeeftOpvullijstRechts", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(InbouwHoogte, "InbouwHoogte", "M", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(InterneBreedte, "InterneBreedte", "600", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenbreedte, "IsBinnenbreedte", "true", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenlade, "IsBinnenlade", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(FrontBevestiging, "FrontBevestiging", ##class(ECON.PM.Maatwerk.enu.TBXFrontBevestiging).Inserta(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(RugHoogte, "RugHoogte", ##class(ECON.PM.Maatwerk.enu.TBXRugHoogte).M(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(RugwandMateriaal, "RugwandMateriaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(Toepassing, "Toepassing", ##class(ECON.PM.Maatwerk.enu.TBXToepassing).Lade(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(ZijkantHoogte, "ZijkantHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandHoogte, "ZijwandHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).M(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingType, "ZijwandVerhogingType", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Zonder(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenAfdekkap, "NM_Afdekkap", "true", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenAntislipmat, "NM_Antislipmat", "true", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenBodemsteun, "NM_Bodemsteun", "true", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenFrontBevestiging, "NM_FrontBevestiging", "true", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenGeleider, "NM_Geleider", "true", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenInschuifElement, "NM_InschuifElement", "true", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenOpvullijst, "NM_Opvullijst", "true", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenReling, "NM_Reling", "true", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenSpoelbakdwarslat, "NM_Spoelbakdwarslat", "true", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenTOBOnderdelen, "NM_TOBOnderdelen", "true", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenTOBSet, "NM_TOBSet", "true", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenTOBSyncToebehoren, "NM_TOBSynchronisatieToebehoren", "true", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenTOBSyncStang, "NM_TOBSynchronisatieStang", "true", TbxKenmerken)
-	
 	Quit TbxKenmerken
 ]]></Implementation>
 </Method>
@@ -474,137 +224,60 @@
 <ClassMethod>1</ClassMethod>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
-	#dim TbxKenmerken As %ListOfObjects = ..GeefLijstMetDefaultkenmerken()
+	#dim TbxKenmerken As %ListOfObjects = ..StandaardLade()
 	
-	Set CorpusBreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set CorpusWandDikte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set DwarsverdelingAantal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set GeleiderTechnologie = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set HeeftOpvullijstLinks = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set HeeftOpvullijstRechts = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set InbouwHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set InterneBreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set IsBinnenbreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set IsBinnenlade = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set FrontBevestiging = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set RugHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set RugwandMateriaal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set Toepassing = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set ZijkantHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set ZijwandHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set ZijwandVerhogingType = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Do ..VoegToeKenmerk("InbouwHoogte", "CM", TbxKenmerken)
+	Do ..VoegToeKenmerk("ZijwandHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).C(), TbxKenmerken)
 	
-	Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusBreedte, "CorpusBreedte", "600", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusWandDikte, "CorpusWandDikte", "0", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(DwarsverdelingAantal, "DwarsverdelingAantal", ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).Zonder(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(GeleiderTechnologie, "GeleiderTechnologie", ##class(ECON.PM.Maatwerk.enu.TBXGeleiderTechnologie).Blumotion(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstLinks, "HeeftOpvullijstLinks", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstRechts, "HeeftOpvullijstRechts", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(InbouwHoogte, "InbouwHoogte", "CM", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(InterneBreedte, "InterneBreedte", "600", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenbreedte, "IsBinnenbreedte", "true", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenlade, "IsBinnenlade", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(FrontBevestiging, "FrontBevestiging", ##class(ECON.PM.Maatwerk.enu.TBXFrontBevestiging).Inserta(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(RugHoogte, "RugHoogte", ##class(ECON.PM.Maatwerk.enu.TBXRugHoogte).M(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(RugwandMateriaal, "RugwandMateriaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(Toepassing, "Toepassing", ##class(ECON.PM.Maatwerk.enu.TBXToepassing).Lade(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(ZijkantHoogte, "ZijkantHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandHoogte, "ZijwandHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).C(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingType, "ZijwandVerhogingType", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Zonder(), TbxKenmerken)
-	
 	Do ..ZetDefaultNietMeeleverenKenmerken(TbxKenmerken)
 	
 	Quit TbxKenmerken
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLijstMetDefaultkenmerken">
-<ClassMethod>1</ClassMethod>
-<ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[
-	#dim TbxKenmerken As %ListOfObjects = ..LegeKenmerken()
-	
-	Set BodemKleur = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set Draagkracht = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set Familie = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set FrontHouderKleur = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set FrontOndersteuningType = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set FrontStabilisatorAantal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set GreepEnMeenemer = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set HangmapBoringAantal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set HeeftAfwijkendeRughoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set HeeftZijstabilisering = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set LadeDesign = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set LadeDiepte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set LadeKleur = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set ProductieWijze = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set Variant = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set VerpakkingType = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	
-	Do ..SetAxdEntityAttributeEnInsertInLijst(BodemKleur, "BodemKleur", ##class(ECON.PM.Maatwerk.enu.TBXBodemKleur).Wit(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(Draagkracht, "Draagkracht", ##class(ECON.PM.Maatwerk.enu.TBXDraagkracht).Draagkracht30(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(Familie, "Familie", "Lade", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(FrontHouderKleur, "FrontHouderKleur", "", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(FrontOndersteuningType, "FrontOndersteuningType", ##class(ECON.PM.Maatwerk.enu.TBXFrontOndersteuningType).Auto(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(FrontStabilisatorAantal, "FrontStabilisatorAantal", "", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(GreepEnMeenemer, "GreepEnMeenemer", ##class(ECON.PM.Maatwerk.enu.TBXGreepEnMeenemer).Zonder(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(HangmapBoringAantal, "HangmapBoringAantal", ##class(ECON.PM.Maatwerk.enu.TBXHangmapBoringAantal).Zonder(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftAfwijkendeRughoogte, "HeeftAfwijkendeRughoogte", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftZijstabilisering, "HeeftZijstabilisering", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(LadeDesign, "LadeDesign", ##class(ECON.PM.Maatwerk.enu.TBXLadeDesign).ZijdeWitAntaro(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(LadeDiepte, "LadeDiepte", ##class(ECON.PM.Maatwerk.enu.TBXLadeDiepte).LadeDiepte500(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(LadeKleur, "LadeKleur", ##class(ECON.PM.Maatwerk.enu.TBXLadeKleur).ZijdeWit(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(ProductieWijze, "ProductieWijze", ##class(ECON.PM.Maatwerk.enu.ProductieWijze).Volledig(), TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(Variant, "Variant", "TBX", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(VerpakkingType, "VerpakkingType", ##class(ECON.PM.Maatwerk.enu.TBXVerpakkingType).V1(), TbxKenmerken)
-	
-	Quit TbxKenmerken
-]]></Implementation>
-</Method>
-
 <Method name="ZetDefaultNietMeeleverenKenmerken">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>TbxKenmerken:%ListOfObjects</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set NietMeeleverenAfdekkap = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set NietMeeleverenAntislipmat = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set NietMeeleverenBodemsteun = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set NietMeeleverenFrontBevestiging = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set NietMeeleverenGeleider = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set NietMeeleverenInschuifElement = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set NietMeeleverenOpvullijst = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set NietMeeleverenReling = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set NietMeeleverenSpoelbakdwarslat = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set NietMeeleverenTOBOnderdelen = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set NietMeeleverenTOBSet = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set NietMeeleverenTOBSyncToebehoren = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	Set NietMeeleverenTOBSyncStang = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	
-	Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenAfdekkap, "NM_Afdekkap", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenAntislipmat, "NM_Antislipmat", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenBodemsteun, "NM_Bodemsteun", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenFrontBevestiging, "NM_FrontBevestiging", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenGeleider, "NM_Geleider", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenInschuifElement, "NM_InschuifElement", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenOpvullijst, "NM_Opvullijst", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenReling, "NM_Reling", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenSpoelbakdwarslat, "NM_Spoelbakdwarslat", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenTOBOnderdelen, "NM_TOBOnderdelen", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenTOBSet, "NM_TOBSet", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenTOBSyncToebehoren, "NM_TOBSynchronisatieToebehoren", "false", TbxKenmerken)
-	Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenTOBSyncStang, "NM_TOBSynchronisatieStang", "false", TbxKenmerken)
+	Do ..VoegToeKenmerk("NM_Afdekkap", "false", TbxKenmerken)
+	Do ..VoegToeKenmerk("NM_Antislipmat", "false", TbxKenmerken)
+	Do ..VoegToeKenmerk("NM_Bodemsteun", "false", TbxKenmerken)
+	Do ..VoegToeKenmerk("NM_FrontBevestiging", "false", TbxKenmerken)
+	Do ..VoegToeKenmerk("NM_Geleider", "false", TbxKenmerken)
+	Do ..VoegToeKenmerk("NM_InschuifElement", "false", TbxKenmerken)
+	Do ..VoegToeKenmerk("NM_Opvullijst", "false", TbxKenmerken)
+	Do ..VoegToeKenmerk("NM_Reling", "false", TbxKenmerken)
+	Do ..VoegToeKenmerk("NM_Spoelbakdwarslat", "false", TbxKenmerken)
+	Do ..VoegToeKenmerk("NM_TOBOnderdelen", "false", TbxKenmerken)
+	Do ..VoegToeKenmerk("NM_TOBSet", "false", TbxKenmerken)
+	Do ..VoegToeKenmerk("NM_TOBSynchronisatieToebehoren", "false", TbxKenmerken)
+	Do ..VoegToeKenmerk("NM_TOBSynchronisatieStang", "false", TbxKenmerken)
 ]]></Implementation>
 </Method>
 
-<Method name="SetAxdEntityAttributeEnInsertInLijst">
+<Method name="VoegToeKenmerk">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>AxdEntityAttribute:AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute,AxdEntityAttributeName:%String,AxdEntityAttributeValueTxt:%String,TbxKenmerken:%ListOfObjects</FormalSpec>
+<FormalSpec>AxdEntityAttributeName:%String,AxdEntityAttributeValueTxt:%String,TbxKenmerken:%ListOfObjects</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set AxdEntityAttribute.Name = AxdEntityAttributeName
-	Set AxdEntityAttribute.ValueTxt = AxdEntityAttributeValueTxt
-	Do TbxKenmerken.Insert(AxdEntityAttribute)
+	#dim AxdEntityAttribute As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute
+	
+	If ##class(TECH.ListUtils).ExistsPropertyWithValue(TbxKenmerken,"Name",AxdEntityAttributeName) {
+		Set AxdEntityAttribute = ##class(TECH.ObjectListUtils).FindPropertyWithValue(TbxKenmerken,"Name",AxdEntityAttributeName)
+		
+		If $IsObject(AxdEntityAttribute) {
+			Set AxdEntityAttribute.ValueTxt = AxdEntityAttributeValueTxt
+		} Else {
+			Do ##class(TECH.Exceptions.InvalidInputException).Throw("Geen AxdEntityAttribute met name = '"_AxdEntityAttributeName_"' gevonden in TbxKenmerken. De waarde kan dus niet vervangen worden.")
+		}
+	} Else {
+		Set AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+		Set AxdEntityAttribute.Name = AxdEntityAttributeName
+		Set AxdEntityAttribute.ValueTxt = AxdEntityAttributeValueTxt
+		
+		Do TbxKenmerken.Insert(AxdEntityAttribute)
+	}
 ]]></Implementation>
 </Method>
 </Class>