Index: AXimpl/PM/Maatwerk/EconConverter.cls.xml
===================================================================
diff -u -r50439 -r52856
--- AXimpl/PM/Maatwerk/EconConverter.cls.xml	(.../EconConverter.cls.xml)	(revision 50439)
+++ AXimpl/PM/Maatwerk/EconConverter.cls.xml	(.../EconConverter.cls.xml)	(revision 52856)
@@ -8,20 +8,17 @@
 <ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	#dim EconConfiguratie As %ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()
-	#dim Data As TECH.MultiDim = ""
 	#dim AttributesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Attributes)
 	
-	Set Data("EconConfiguratieKey=""Data.Lijn.Isgeldig""") = "true"
+	Do EconConfiguratie.SetAt("true", "Data.Lijn.Isgeldig")
 	
 	While (AttributesIterator.HasNext()) {
 		#dim Attribute As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = AttributesIterator.Next()
 		#dim Value As %String = Attribute.ValueTxt
-		#dim Name As %String = "EconConfiguratieKey=""Data.Kenmerken."_Attribute.Name_""""
-		Set Data(Name) = Value
+		#dim Name As %String = "Data.Kenmerken."_Attribute.Name
+		Do EconConfiguratie.SetAt(Value, Name)
 	}
 	
-	Set EconConfiguratie.Data = Data
-	
 	Quit EconConfiguratie
 ]]></Implementation>
 </Method>
Index: vhTest/Utils/AXimpl/PM/Maatwerk/LBXKenmerken.cls.xml
===================================================================
diff -u
--- vhTest/Utils/AXimpl/PM/Maatwerk/LBXKenmerken.cls.xml	(revision 0)
+++ vhTest/Utils/AXimpl/PM/Maatwerk/LBXKenmerken.cls.xml	(revision 52856)
@@ -0,0 +1,132 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.AXimpl.PM.Maatwerk.LBXKenmerken">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="LegeKenmerken">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	Quit ##class(%ListOfDataTypes).%New()
+]]></Implementation>
+</Method>
+
+<Method name="StandaardLade">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim LBXKenmerken As %ListOfDataTypes = ..LegeKenmerken()
+	
+	#dim Toepassing 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 FrontBevestiging 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 IsBinnenlade 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 VoorWandTypeVanMBinnenlade 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 Toepassing.Name = "Toepassing"
+	Set Toepassing.ValueTxt = ##class(DOM.PM.enu.LBXKlasse).Lade()
+	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 FrontBevestiging.Name = "FrontBevestiging"
+	Set FrontBevestiging.ValueTxt = ##class(DOM.PM.enu.LBXFrontBevestiging).EXPANDO()
+	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 IsBinnenlade.Name = "IsBinnenlade"
+	Set IsBinnenlade.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).M()
+	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 RugHoogte.Name = "RugHoogte"
+	Set RugHoogte.ValueTxt = ##class(DOM.PM.enu.LBXRugHoogte).M()
+	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 VoorWandTypeVanMBinnenlade.Name = "VoorwandTypeVanMBinnenlade"
+	Set VoorWandTypeVanMBinnenlade.ValueTxt = ""
+	Set ZijWandType.Name = "ZijWandType"
+	Set ZijWandType.ValueTxt = ##class(DOM.PM.enu.LBXZijWandType).Pure()
+	
+	Do LBXKenmerken.Insert(Toepassing)
+	Do LBXKenmerken.Insert(BodemKleur)
+	Do LBXKenmerken.Insert(CorpusBreedte)
+	Do LBXKenmerken.Insert(CorpusWandDikte)
+	Do LBXKenmerken.Insert(Draagkracht)
+	Do LBXKenmerken.Insert(DwarsverdelingAantal)
+	Do LBXKenmerken.Insert(FrontBevestiging)
+	Do LBXKenmerken.Insert(GeleiderTechnologie)
+	Do LBXKenmerken.Insert(HeeftOpvullijstLinks)
+	Do LBXKenmerken.Insert(HeeftOpvullijstRechts)
+	Do LBXKenmerken.Insert(HeeftZijstabilisering)
+	Do LBXKenmerken.Insert(IsBinnenbreedte)
+	Do LBXKenmerken.Insert(IsBinnenlade)
+	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(VoorWandTypeVanMBinnenlade)
+	Do LBXKenmerken.Insert(ZijWandType)
+	
+	Quit LBXKenmerken
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AXimpl/PM/Maatwerk/EconConverter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/PM/Maatwerk/EconConverter/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/PM/Maatwerk/EconConverter/Test.cls.xml	(revision 52856)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.PM.Maatwerk.EconConverter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: De AXLBXKenmerkenList wordt naar een array geconverteerd">
+<Implementation><![CDATA[
+	#dim AXNaarEconConverter As AXimpl.PM.Maatwerk.EconConverter = ##class(AXimpl.PM.Maatwerk.EconConverter).%New()
+	#dim AXLBXKenmerkenList As %ListOfDataTypes = ##class(vhTest.Utils.AXimpl.PM.Maatwerk.LBXKenmerken).StandaardLade()
+	
+	#dim Result As %ArrayOfDataTypes = AXNaarEconConverter.ConvertAxConfiguratieToEconConfiguratie(AXLBXKenmerkenList)
+	
+	Do $$$AssertEquals(Result.Count(), 27)
+	Do $$$AssertEquals(Result.GetAt("Data.Lijn.Isgeldig"), "true")
+	Do $$$AssertEquals(Result.GetAt("Data.Kenmerken.Toepassing"), ##class(DOM.PM.enu.LBXKlasse).Lade())
+	Do $$$AssertEquals(Result.GetAt("Data.Kenmerken.BodemKleur"), ##class(DOM.PM.enu.LBXBodemKleur).Wit())
+	Do $$$AssertEquals(Result.GetAt("Data.Kenmerken.CorpusBreedte"), "600")
+	Do $$$AssertEquals(Result.GetAt("Data.Kenmerken.CorpusWandDikte"), "0")
+	Do $$$AssertEquals(Result.GetAt("Data.Kenmerken.Draagkracht"), ##class(DOM.PM.enu.LBXDraagkracht).Draagkracht40())
+	Do $$$AssertEquals(Result.GetAt("Data.Kenmerken.DwarsverdelingAantal"), "")
+	Do $$$AssertEquals(Result.GetAt("Data.Kenmerken.FrontBevestiging"), ##class(DOM.PM.enu.LBXFrontBevestiging).EXPANDO())
+	Do $$$AssertEquals(Result.GetAt("Data.Kenmerken.GeleiderTechnologie"), ##class(DOM.PM.enu.LBXGeleiderTechnologie).BLUMOTION())
+	Do $$$AssertEquals(Result.GetAt("Data.Kenmerken.HeeftOpvullijstLinks"), "false")
+	Do $$$AssertEquals(Result.GetAt("Data.Kenmerken.HeeftOpvullijstRechts"), "false")
+	Do $$$AssertEquals(Result.GetAt("Data.Kenmerken.HeeftZijstabilisering"), "false")
+	Do $$$AssertEquals(Result.GetAt("Data.Kenmerken.IsBinnenbreedte"), "true")
+	Do $$$AssertEquals(Result.GetAt("Data.Kenmerken.IsBinnenlade"), "false")
+	Do $$$AssertEquals(Result.GetAt("Data.Kenmerken.LadeDiepte"), ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte500())
+	Do $$$AssertEquals(Result.GetAt("Data.Kenmerken.LadeHoogte"), ##class(DOM.PM.enu.LBXLadeHoogte).M())
+	Do $$$AssertEquals(Result.GetAt("Data.Kenmerken.LadeKleur"), ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit())
+	Do $$$AssertEquals(Result.GetAt("Data.Kenmerken.Omschrijving"), "")
+	Do $$$AssertEquals(Result.GetAt("Data.Kenmerken.OpvullijstKleur"), "")
+	Do $$$AssertEquals(Result.GetAt("Data.Kenmerken.ProductieWijze"), ##class(ECON.PM.Maatwerk.enu.ProductieWijze).Volledig())
+	Do $$$AssertEquals(Result.GetAt("Data.Kenmerken.RugHoogte"), ##class(DOM.PM.enu.LBXRugHoogte).M())
+	Do $$$AssertEquals(Result.GetAt("Data.Kenmerken.RugwandMateriaal"), ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout())
+	Do $$$AssertEquals(Result.GetAt("Data.Kenmerken.Variant"), "LBX")
+	Do $$$AssertEquals(Result.GetAt("Data.Kenmerken.VerpakkingType"), ##class(DOM.PM.enu.LBXVerpakkingType).V1())
+	Do $$$AssertEquals(Result.GetAt("Data.Kenmerken.VoorwandTypeVanCBinnenlade"), "")
+	Do $$$AssertEquals(Result.GetAt("Data.Kenmerken.VoorwandTypeVanMBinnenlade"), "")
+	Do $$$AssertEquals(Result.GetAt("Data.Kenmerken.ZijWandType"), ##class(DOM.PM.enu.LBXZijWandType).Pure())
+	
+	Do ##class(Tools.Wlip).%New(191).ArrayOfDataTypes(Result)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>