Index: vhTest/Utils/AXimpl/PM/Maatwerk/LbxKenmerken.cls.xml
===================================================================
diff -u -r52876 -r53191
--- vhTest/Utils/AXimpl/PM/Maatwerk/LbxKenmerken.cls.xml	(.../LbxKenmerken.cls.xml)	(revision 52876)
+++ vhTest/Utils/AXimpl/PM/Maatwerk/LbxKenmerken.cls.xml	(.../LbxKenmerken.cls.xml)	(revision 53191)
@@ -16,33 +16,20 @@
 <Implementation><![CDATA[
 	#dim LbxKenmerken As %ListOfObjects = ..GeefLijstMetDefaultkenmerken()
 	
-	#dim Toepassing As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim IsBinnenlade As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim FrontBevestiging As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim LadeHoogte As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim RugHoogte As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim VoorWandTypeVanMBinnenlade As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set Toepassing = ##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 LadeHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set RugHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set VoorWandTypeVanMBinnenlade = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
 	
-	Set Toepassing.Name = "Toepassing"
-	Set Toepassing.ValueTxt = ##class(DOM.PM.enu.LBXKlasse).Lade()
-	Set IsBinnenlade.Name = "Isbinnenlade"
-	Set IsBinnenlade.ValueTxt = "false"
-	Set FrontBevestiging.Name = "Frontbevestiging"
-	Set FrontBevestiging.ValueTxt = ##class(DOM.PM.enu.LBXFrontBevestiging).EXPANDO()
-	Set LadeHoogte.Name = "Ladehoogte"
-	Set LadeHoogte.ValueTxt = ##class(DOM.PM.enu.LBXLadeHoogte).M()
-	Set RugHoogte.Name = "Rughoogte"
-	Set RugHoogte.ValueTxt = ##class(DOM.PM.enu.LBXRugHoogte).M()
-	Set VoorWandTypeVanMBinnenlade.Name = "Voorwandtypevanmbinnenlade"
-	Set VoorWandTypeVanMBinnenlade.ValueTxt = ""
+	Do ..SetAxdEntityAttributeEnInsertInLijst(Toepassing, "Toepassing", ##class(DOM.PM.enu.LBXKlasse).Lade(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenlade, "Isbinnenlade", "false", LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(FrontBevestiging, "Frontbevestiging", ##class(DOM.PM.enu.LBXFrontBevestiging).EXPANDO(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(LadeHoogte, "Ladehoogte", ##class(DOM.PM.enu.LBXLadeHoogte).M(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(RugHoogte, "Rughoogte", ##class(DOM.PM.enu.LBXRugHoogte).M(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(VoorWandTypeVanMBinnenlade, "Voorwandtypevanmbinnenlade", "", LbxKenmerken)
 	
-	Do LbxKenmerken.Insert(Toepassing)
-	Do LbxKenmerken.Insert(IsBinnenlade)
-	Do LbxKenmerken.Insert(FrontBevestiging)
-	Do LbxKenmerken.Insert(LadeHoogte)
-	Do LbxKenmerken.Insert(RugHoogte)
-	Do LbxKenmerken.Insert(VoorWandTypeVanMBinnenlade)
-	
 	Quit LbxKenmerken
 ]]></Implementation>
 </Method>
@@ -53,33 +40,20 @@
 <Implementation><![CDATA[
 	#dim LbxKenmerken As %ListOfObjects = ..GeefLijstMetDefaultkenmerken()
 	
-	#dim Toepassing As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim IsBinnenlade As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim FrontBevestiging As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim LadeHoogte As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim RugHoogte As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim VoorWandTypeVanMBinnenlade As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set Toepassing = ##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 LadeHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set RugHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set VoorWandTypeVanMBinnenlade = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
 	
-	Set Toepassing.Name = "Toepassing"
-	Set Toepassing.ValueTxt = ##class(DOM.PM.enu.LBXKlasse).Lade()
-	Set IsBinnenlade.Name = "Isbinnenlade"
-	Set IsBinnenlade.ValueTxt = "true"
-	Set FrontBevestiging.Name = "Frontbevestiging"
-	Set FrontBevestiging.ValueTxt = ""
-	Set LadeHoogte.Name = "Ladehoogte"
-	Set LadeHoogte.ValueTxt = ##class(DOM.PM.enu.LBXLadeHoogte).M()
-	Set RugHoogte.Name = "Rughoogte"
-	Set RugHoogte.ValueTxt = ##class(DOM.PM.enu.LBXRugHoogte).M()
-	Set VoorWandTypeVanMBinnenlade.Name = "Voorwandtypevanmbinnenlade"
-	Set VoorWandTypeVanMBinnenlade.ValueTxt = ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Metaal()
+	Do ..SetAxdEntityAttributeEnInsertInLijst(Toepassing, "Toepassing", ##class(DOM.PM.enu.LBXKlasse).Lade(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenlade, "Isbinnenlade", "true", LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(FrontBevestiging, "Frontbevestiging", "", LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(LadeHoogte, "Ladehoogte", ##class(DOM.PM.enu.LBXLadeHoogte).M(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(RugHoogte, "Rughoogte", ##class(DOM.PM.enu.LBXRugHoogte).M(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(VoorWandTypeVanMBinnenlade, "Voorwandtypevanmbinnenlade", ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Metaal(), LbxKenmerken)
 	
-	Do LbxKenmerken.Insert(Toepassing)
-	Do LbxKenmerken.Insert(IsBinnenlade)
-	Do LbxKenmerken.Insert(FrontBevestiging)
-	Do LbxKenmerken.Insert(LadeHoogte)
-	Do LbxKenmerken.Insert(RugHoogte)
-	Do LbxKenmerken.Insert(VoorWandTypeVanMBinnenlade)
-	
 	Quit LbxKenmerken
 ]]></Implementation>
 </Method>
@@ -90,33 +64,20 @@
 <Implementation><![CDATA[
 	#dim LbxKenmerken As %ListOfObjects = ..GeefLijstMetDefaultkenmerken()
 	
-	#dim Toepassing As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim IsBinnenlade As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim FrontBevestiging As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim LadeHoogte As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim RugHoogte As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim VoorWandTypeVanMBinnenlade As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set Toepassing = ##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 LadeHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set RugHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set VoorWandTypeVanMBinnenlade = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
 	
-	Set Toepassing.Name = "Toepassing"
-	Set Toepassing.ValueTxt = ##class(DOM.PM.enu.LBXKlasse).Spoelbak()
-	Set IsBinnenlade.Name = "Isbinnenlade"
-	Set IsBinnenlade.ValueTxt = "false"
-	Set FrontBevestiging.Name = "Frontbevestiging"
-	Set FrontBevestiging.ValueTxt = ##class(DOM.PM.enu.LBXFrontBevestiging).EXPANDO()
-	Set LadeHoogte.Name = "Ladehoogte"
-	Set LadeHoogte.ValueTxt = ##class(DOM.PM.enu.LBXLadeHoogte).M()
-	Set RugHoogte.Name = "Rughoogte"
-	Set RugHoogte.ValueTxt = ##class(DOM.PM.enu.LBXRugHoogte).M()
-	Set VoorWandTypeVanMBinnenlade.Name = "Voorwandtypevanmbinnenlade"
-	Set VoorWandTypeVanMBinnenlade.ValueTxt = ""
+	Do ..SetAxdEntityAttributeEnInsertInLijst(Toepassing, "Toepassing", ##class(DOM.PM.enu.LBXKlasse).Spoelbak(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenlade, "Isbinnenlade", "false", LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(FrontBevestiging, "Frontbevestiging", ##class(DOM.PM.enu.LBXFrontBevestiging).EXPANDO(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(LadeHoogte, "Ladehoogte", ##class(DOM.PM.enu.LBXLadeHoogte).M(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(RugHoogte, "Rughoogte", ##class(DOM.PM.enu.LBXRugHoogte).M(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(VoorWandTypeVanMBinnenlade, "Voorwandtypevanmbinnenlade", "", LbxKenmerken)
 	
-	Do LbxKenmerken.Insert(Toepassing)
-	Do LbxKenmerken.Insert(IsBinnenlade)
-	Do LbxKenmerken.Insert(FrontBevestiging)
-	Do LbxKenmerken.Insert(LadeHoogte)
-	Do LbxKenmerken.Insert(RugHoogte)
-	Do LbxKenmerken.Insert(VoorWandTypeVanMBinnenlade)
-	
 	Quit LbxKenmerken
 ]]></Implementation>
 </Method>
@@ -127,117 +88,62 @@
 <Implementation><![CDATA[
 	#dim LbxKenmerken As %ListOfObjects = ..LegeKenmerken()
 	
-	#dim Toepassing As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim IsBinnenlade As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim BodemKleur As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim CorpusBreedte As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim CorpusWandDikte As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim Draagkracht As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim DwarsverdelingAantal As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim GeleiderTechnologie As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim FrontBevestiging As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim HeeftOpvullijstLinks As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim HeeftOpvullijstRechts As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim HeeftZijstabilisering As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim IsBinnenbreedte As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim LadeDiepte As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim LadeHoogte As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim LadeKleur As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim Omschrijving As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim OpvullijstKleur As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim ProductieWijze As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim RugHoogte As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim RugwandMateriaal As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim Variant As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim VerpakkingType As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim VoorWandTypeVanCBinnenlade As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim ZijWandType As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim MatMateriaal As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim MatKleur As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set Toepassing = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set IsBinnenlade = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set BodemKleur = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set CorpusBreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set CorpusWandDikte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set Draagkracht = ##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 FrontBevestiging = ##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 HeeftZijstabilisering = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set IsBinnenbreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set LadeDiepte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set LadeHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set LadeKleur = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set Omschrijving = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set OpvullijstKleur = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set ProductieWijze = ##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 Variant = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set VerpakkingType = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set VoorWandTypeVanCBinnenlade = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set ZijWandType = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set MatMateriaal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set MatKleur = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
 	
-	Set Toepassing.Name = "Toepassing"
-	Set Toepassing.ValueTxt = ##class(DOM.PM.enu.LBXKlasse).Lade()
-	Set IsBinnenlade.Name = "Isbinnenlade"
-	Set IsBinnenlade.ValueTxt = "false"
-	Set BodemKleur.Name = "Bodemkleur"
-	Set BodemKleur.ValueTxt = ##class(DOM.PM.enu.LBXBodemKleur).Bruinzwart()
-	Set CorpusBreedte.Name = "Corpusbreedte"
-	Set CorpusBreedte.ValueTxt = "600"
-	Set CorpusWandDikte.Name = "Corpuswanddikte"
-	Set CorpusWandDikte.ValueTxt = "0"
-	Set Draagkracht.Name = "Draagkracht"
-	Set Draagkracht.ValueTxt = ##class(DOM.PM.enu.LBXDraagkracht).Draagkracht70()
-	Set DwarsverdelingAantal.Name = "Dwarsverdelingaantal"
-	Set DwarsverdelingAantal.ValueTxt = "3"
-	Set GeleiderTechnologie.Name = "Geleidertechnologie"
-	Set GeleiderTechnologie.ValueTxt = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION()
-	Set FrontBevestiging.Name = "Frontbevestiging"
-	Set FrontBevestiging.ValueTxt = ##class(DOM.PM.enu.LBXFrontBevestiging).Schroef()
-	Set HeeftOpvullijstLinks.Name = "Heeftopvullijstlinks"
-	Set HeeftOpvullijstLinks.ValueTxt = "true"
-	Set HeeftOpvullijstRechts.Name = "Heeftopvullijstrechts"
-	Set HeeftOpvullijstRechts.ValueTxt = "true"
-	Set HeeftZijstabilisering.Name = "Heeftzijstabilisering"
-	Set HeeftZijstabilisering.ValueTxt = "false"
-	Set IsBinnenbreedte.Name = "Isbinnenbreedte"
-	Set IsBinnenbreedte.ValueTxt = "false"
-	Set LadeDiepte.Name = "Ladediepte"
-	Set LadeDiepte.ValueTxt = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte500()
-	Set LadeHoogte.Name = "Ladehoogte"
-	Set LadeHoogte.ValueTxt = ##class(DOM.PM.enu.LBXLadeHoogte).C()
-	Set LadeKleur.Name = "Ladekleur"
-	Set LadeKleur.ValueTxt = ##class(DOM.PM.enu.LBXLadeKleur).Terrazwart()
-	Set Omschrijving.Name = "Omschrijving"
-	Set Omschrijving.ValueTxt = ""
-	Set OpvullijstKleur.Name = "Opvullijstkleur"
-	Set OpvullijstKleur.ValueTxt = ##class(DOM.PM.enu.LBXOpvullijstKleur).Zwart()
-	Set ProductieWijze.Name = "Productiewijze"
-	Set ProductieWijze.ValueTxt = ##class(ECON.PM.Maatwerk.enu.ProductieWijze).Volledig()
-	Set RugHoogte.Name = "Rughoogte"
-	Set RugHoogte.ValueTxt = ##class(DOM.PM.enu.LBXRugHoogte).C()
-	Set RugwandMateriaal.Name = "Rugwandmateriaal"
-	Set RugwandMateriaal.ValueTxt = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()
-	Set Variant.Name = "Variant"
-	Set Variant.ValueTxt = "LBX"
-	Set VerpakkingType.Name = "Verpakkingtype"
-	Set VerpakkingType.ValueTxt = ##class(DOM.PM.enu.LBXVerpakkingType).V1()
-	Set VoorWandTypeVanCBinnenlade.Name = "Voorwandtypevancbinnenlade"
-	Set VoorWandTypeVanCBinnenlade.ValueTxt = ""
-	Set ZijWandType.Name = "Zijwandtype"
-	Set ZijWandType.ValueTxt = ##class(DOM.PM.enu.LBXZijWandType).Free()
-	Set MatMateriaal.Name = "Matmateriaal"
-	Set MatMateriaal.ValueTxt = ##class(DOM.PM.enu.MATMateriaal).AntislipFiber()
-	Set MatKleur.Name = "Matkleur"
-	Set MatKleur.ValueTxt = ##class(DOM.PM.enu.MATKleur).AntiSlipFiberWit()
+	Do ..SetAxdEntityAttributeEnInsertInLijst(Toepassing, "Toepassing", ##class(DOM.PM.enu.LBXKlasse).Lade(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenlade, "Isbinnenlade", "false", LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(BodemKleur, "Bodemkleur", ##class(DOM.PM.enu.LBXBodemKleur).Bruinzwart(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusBreedte, "Corpusbreedte", "600", LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusWandDikte, "Corpuswanddikte", "0", LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(Draagkracht, "Draagkracht", ##class(DOM.PM.enu.LBXDraagkracht).Draagkracht70(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(DwarsverdelingAantal, "Dwarsverdelingaantal", "3", LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(GeleiderTechnologie, "Geleidertechnologie", ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(FrontBevestiging, "Frontbevestiging", ##class(DOM.PM.enu.LBXFrontBevestiging).Schroef(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstLinks, "Heeftopvullijstlinks", "true", LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstRechts, "Heeftopvullijstrechts", "true", LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftZijstabilisering, "Heeftzijstabilisering", "false", LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenbreedte, "Isbinnenbreedte", "false", LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(LadeDiepte, "Ladediepte", ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte500(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(LadeHoogte, "Ladehoogte", ##class(DOM.PM.enu.LBXLadeHoogte).C(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(LadeKleur, "Ladekleur", ##class(DOM.PM.enu.LBXLadeKleur).Terrazwart(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(Omschrijving, "Omschrijving", "", LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(OpvullijstKleur, "Opvullijstkleur", ##class(DOM.PM.enu.LBXOpvullijstKleur).Zwart(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(ProductieWijze, "Productiewijze", ##class(ECON.PM.Maatwerk.enu.ProductieWijze).Volledig(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(RugHoogte, "Rughoogte", ##class(DOM.PM.enu.LBXRugHoogte).C(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(RugwandMateriaal, "Rugwandmateriaal", ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(Variant, "Variant", "LBX", LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(VerpakkingType, "Verpakkingtype", ##class(DOM.PM.enu.LBXVerpakkingType).V1(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(VoorWandTypeVanCBinnenlade, "Voorwandtypevancbinnenlade", "", LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(ZijWandType, "Zijwandtype", ##class(DOM.PM.enu.LBXZijWandType).Free(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(MatMateriaal, "Matmateriaal", ##class(DOM.PM.enu.MATMateriaal).AntislipFiber(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(MatKleur, "Matkleur", ##class(DOM.PM.enu.MATKleur).AntiSlipFiberWit(), LbxKenmerken)
 	
-	Do LbxKenmerken.Insert(Toepassing)
-	Do LbxKenmerken.Insert(IsBinnenlade)
-	Do LbxKenmerken.Insert(BodemKleur)
-	Do LbxKenmerken.Insert(CorpusBreedte)
-	Do LbxKenmerken.Insert(CorpusWandDikte)
-	Do LbxKenmerken.Insert(Draagkracht)
-	Do LbxKenmerken.Insert(DwarsverdelingAantal)
-	Do LbxKenmerken.Insert(GeleiderTechnologie)
-	Do LbxKenmerken.Insert(FrontBevestiging)
-	Do LbxKenmerken.Insert(HeeftOpvullijstLinks)
-	Do LbxKenmerken.Insert(HeeftOpvullijstRechts)
-	Do LbxKenmerken.Insert(HeeftZijstabilisering)
-	Do LbxKenmerken.Insert(IsBinnenbreedte)
-	Do LbxKenmerken.Insert(LadeDiepte)
-	Do LbxKenmerken.Insert(LadeHoogte)
-	Do LbxKenmerken.Insert(LadeKleur)
-	Do LbxKenmerken.Insert(Omschrijving)
-	Do LbxKenmerken.Insert(OpvullijstKleur)
-	Do LbxKenmerken.Insert(ProductieWijze)
-	Do LbxKenmerken.Insert(RugHoogte)
-	Do LbxKenmerken.Insert(RugwandMateriaal)
-	Do LbxKenmerken.Insert(Variant)
-	Do LbxKenmerken.Insert(VerpakkingType)
-	Do LbxKenmerken.Insert(VoorWandTypeVanCBinnenlade)
-	Do LbxKenmerken.Insert(ZijWandType)
-	Do LbxKenmerken.Insert(MatMateriaal)
-	Do LbxKenmerken.Insert(MatKleur)
-	
 	Quit LbxKenmerken
 ]]></Implementation>
 </Method>
@@ -248,33 +154,20 @@
 <Implementation><![CDATA[
 	#dim LbxKenmerken As %ListOfObjects = ..GeefLijstMetDefaultkenmerken()
 	
-	#dim Toepassing As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim IsBinnenlade As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim FrontBevestiging As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim LadeHoogte As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim RugHoogte As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim VoorWandTypeVanMBinnenlade As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set Toepassing = ##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 LadeHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set RugHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set VoorWandTypeVanMBinnenlade = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
 	
-	Set Toepassing.Name = "Toepassing"
-	Set Toepassing.ValueTxt = ##class(DOM.PM.enu.LBXKlasse).Lade()
-	Set IsBinnenlade.Name = "Isbinnenlade"
-	Set IsBinnenlade.ValueTxt = "false"
-	Set FrontBevestiging.Name = "Frontbevestiging"
-	Set FrontBevestiging.ValueTxt = ##class(DOM.PM.enu.LBXFrontBevestiging).EXPANDO()
-	Set LadeHoogte.Name = "Ladehoogte"
-	Set LadeHoogte.ValueTxt = ##class(DOM.PM.enu.LBXLadeHoogte).C()
-	Set RugHoogte.Name = "Rughoogte"
-	Set RugHoogte.ValueTxt = ##class(DOM.PM.enu.LBXRugHoogte).M()
-	Set VoorWandTypeVanMBinnenlade.Name = "Voorwandtypevanmbinnenlade"
-	Set VoorWandTypeVanMBinnenlade.ValueTxt = ""
+	Do ..SetAxdEntityAttributeEnInsertInLijst(Toepassing, "Toepassing", ##class(DOM.PM.enu.LBXKlasse).Lade(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenlade, "Isbinnenlade", "false", LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(FrontBevestiging, "Frontbevestiging", ##class(DOM.PM.enu.LBXFrontBevestiging).EXPANDO(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(LadeHoogte, "Ladehoogte", ##class(DOM.PM.enu.LBXLadeHoogte).C(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(RugHoogte, "Rughoogte", ##class(DOM.PM.enu.LBXRugHoogte).M(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(VoorWandTypeVanMBinnenlade, "Voorwandtypevanmbinnenlade", "", LbxKenmerken)
 	
-	Do LbxKenmerken.Insert(Toepassing)
-	Do LbxKenmerken.Insert(IsBinnenlade)
-	Do LbxKenmerken.Insert(FrontBevestiging)
-	Do LbxKenmerken.Insert(LadeHoogte)
-	Do LbxKenmerken.Insert(RugHoogte)
-	Do LbxKenmerken.Insert(VoorWandTypeVanMBinnenlade)
-	
 	Quit LbxKenmerken
 ]]></Implementation>
 </Method>
@@ -285,92 +178,62 @@
 <Implementation><![CDATA[
 	#dim LbxKenmerken As %ListOfObjects = ..LegeKenmerken()
 	
-	#dim BodemKleur As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim CorpusBreedte As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim CorpusWandDikte As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim Draagkracht As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim DwarsverdelingAantal As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim GeleiderTechnologie As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim HeeftOpvullijstLinks As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim HeeftOpvullijstRechts As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim HeeftZijstabilisering As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim IsBinnenbreedte As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim LadeDiepte As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim LadeKleur As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim Omschrijving As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim OpvullijstKleur As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim ProductieWijze As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim RugwandMateriaal As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim Variant As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim VerpakkingType As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim VoorWandTypeVanCBinnenlade As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
-	#dim ZijWandType As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set BodemKleur = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set CorpusBreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set CorpusWandDikte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set Draagkracht = ##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 HeeftZijstabilisering = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set IsBinnenbreedte = ##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 Omschrijving = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set OpvullijstKleur = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set ProductieWijze = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set RugwandMateriaal = ##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()
+	Set VoorWandTypeVanCBinnenlade = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+	Set ZijWandType = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
 	
-	Set BodemKleur.Name = "Bodemkleur"
-	Set BodemKleur.ValueTxt = ##class(DOM.PM.enu.LBXBodemKleur).Wit()
-	Set CorpusBreedte.Name = "Corpusbreedte"
-	Set CorpusBreedte.ValueTxt = "600"
-	Set CorpusWandDikte.Name = "Corpuswanddikte"
-	Set CorpusWandDikte.ValueTxt = "0"
-	Set Draagkracht.Name = "Draagkracht"
-	Set Draagkracht.ValueTxt = ##class(DOM.PM.enu.LBXDraagkracht).Draagkracht40()
-	Set DwarsverdelingAantal.Name = "Dwarsverdelingaantal"
-	Set DwarsverdelingAantal.ValueTxt = ""
-	Set GeleiderTechnologie.Name = "Geleidertechnologie"
-	Set GeleiderTechnologie.ValueTxt = ##class(DOM.PM.enu.LBXGeleiderTechnologie).BLUMOTION()
-	Set HeeftOpvullijstLinks.Name = "Heeftopvullijstlinks"
-	Set HeeftOpvullijstLinks.ValueTxt = "false"
-	Set HeeftOpvullijstRechts.Name = "Heeftopvullijstrechts"
-	Set HeeftOpvullijstRechts.ValueTxt = "false"
-	Set HeeftZijstabilisering.Name = "Heeftzijstabilisering"
-	Set HeeftZijstabilisering.ValueTxt = "false"
-	Set IsBinnenbreedte.Name = "Isbinnenbreedte"
-	Set IsBinnenbreedte.ValueTxt = "true"
-	Set LadeDiepte.Name = "Ladediepte"
-	Set LadeDiepte.ValueTxt = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte500()
-	Set LadeKleur.Name = "Ladekleur"
-	Set LadeKleur.ValueTxt = ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit()
-	Set Omschrijving.Name = "Omschrijving"
-	Set Omschrijving.ValueTxt = ""
-	Set OpvullijstKleur.Name = "Opvullijstkleur"
-	Set OpvullijstKleur.ValueTxt = ""
-	Set ProductieWijze.Name = "Productiewijze"
-	Set ProductieWijze.ValueTxt = ##class(ECON.PM.Maatwerk.enu.ProductieWijze).Volledig()
-	Set RugwandMateriaal.Name = "Rugwandmateriaal"
-	Set RugwandMateriaal.ValueTxt = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
-	Set Variant.Name = "Variant"
-	Set Variant.ValueTxt = "LBX"
-	Set VerpakkingType.Name = "Verpakkingtype"
-	Set VerpakkingType.ValueTxt = ##class(DOM.PM.enu.LBXVerpakkingType).V1()
-	Set VoorWandTypeVanCBinnenlade.Name = "Voorwandtypevancbinnenlade"
-	Set VoorWandTypeVanCBinnenlade.ValueTxt = ""
-	Set ZijWandType.Name = "Zijwandtype"
-	Set ZijWandType.ValueTxt = ##class(DOM.PM.enu.LBXZijWandType).Pure()
+	Do ..SetAxdEntityAttributeEnInsertInLijst(BodemKleur, "Bodemkleur", ##class(DOM.PM.enu.LBXBodemKleur).Wit(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusBreedte, "Corpusbreedte", "600", LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusWandDikte, "Corpuswanddikte", "0", LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(Draagkracht, "Draagkracht", ##class(DOM.PM.enu.LBXDraagkracht).Draagkracht40(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(DwarsverdelingAantal, "Dwarsverdelingaantal", "", LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(GeleiderTechnologie, "Geleidertechnologie", ##class(DOM.PM.enu.LBXGeleiderTechnologie).BLUMOTION(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstLinks, "Heeftopvullijstlinks", "false", LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstRechts, "Heeftopvullijstrechts", "false", LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftZijstabilisering, "Heeftzijstabilisering", "false", LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenbreedte, "Isbinnenbreedte", "true", LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(LadeDiepte, "Ladediepte", ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte500(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(LadeKleur, "Ladekleur", ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(Omschrijving, "Omschrijving", "", LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(OpvullijstKleur, "Opvullijstkleur", "", LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(ProductieWijze, "Productiewijze", ##class(ECON.PM.Maatwerk.enu.ProductieWijze).Volledig(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(RugwandMateriaal, "Rugwandmateriaal", ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(Variant, "Variant", "LBX", LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(VerpakkingType, "Verpakkingtype", ##class(DOM.PM.enu.LBXVerpakkingType).V1(), LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(VoorWandTypeVanCBinnenlade, "Voorwandtypevancbinnenlade", "", LbxKenmerken)
+	Do ..SetAxdEntityAttributeEnInsertInLijst(ZijWandType, "Zijwandtype", ##class(DOM.PM.enu.LBXZijWandType).Pure(), LbxKenmerken)
 	
-	Do LbxKenmerken.Insert(BodemKleur)
-	Do LbxKenmerken.Insert(CorpusBreedte)
-	Do LbxKenmerken.Insert(CorpusWandDikte)
-	Do LbxKenmerken.Insert(Draagkracht)
-	Do LbxKenmerken.Insert(DwarsverdelingAantal)
-	Do LbxKenmerken.Insert(GeleiderTechnologie)
-	Do LbxKenmerken.Insert(HeeftOpvullijstLinks)
-	Do LbxKenmerken.Insert(HeeftOpvullijstRechts)
-	Do LbxKenmerken.Insert(HeeftZijstabilisering)
-	Do LbxKenmerken.Insert(IsBinnenbreedte)
-	Do LbxKenmerken.Insert(LadeDiepte)
-	Do LbxKenmerken.Insert(LadeKleur)
-	Do LbxKenmerken.Insert(Omschrijving)
-	Do LbxKenmerken.Insert(OpvullijstKleur)
-	Do LbxKenmerken.Insert(ProductieWijze)
-	Do LbxKenmerken.Insert(RugwandMateriaal)
-	Do LbxKenmerken.Insert(Variant)
-	Do LbxKenmerken.Insert(VerpakkingType)
-	Do LbxKenmerken.Insert(VoorWandTypeVanCBinnenlade)
-	Do LbxKenmerken.Insert(ZijWandType)
-	
 	Quit LbxKenmerken
 ]]></Implementation>
 </Method>
+
+<Method name="SetAxdEntityAttributeEnInsertInLijst">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>AxdEntityAttribute:AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute,AxdEntityAttributeName:%String,AxdEntityAttributeValueTxt:%String,LbxKenmerken:%ListOfObjects</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set AxdEntityAttribute.Name = AxdEntityAttributeName
+	Set AxdEntityAttribute.ValueTxt = AxdEntityAttributeValueTxt
+	Do LbxKenmerken.Insert(AxdEntityAttribute)
+]]></Implementation>
+</Method>
 </Class>