Index: APPS/PM/Maatwerk/impl/VhConfig/Converter/LbxKenmerken.cls.xml
===================================================================
diff -u -r72849 -r72863
--- APPS/PM/Maatwerk/impl/VhConfig/Converter/LbxKenmerken.cls.xml	(.../LbxKenmerken.cls.xml)	(revision 72849)
+++ APPS/PM/Maatwerk/impl/VhConfig/Converter/LbxKenmerken.cls.xml	(.../LbxKenmerken.cls.xml)	(revision 72863)
@@ -22,9 +22,12 @@
 	Set LbxKenmerken.GUIKenmerken = ..GeefGUIKenmerken(VhConfig)	
 	Set LbxKenmerken.NietMeeleveren = ..GeefNietMeeleveren(VhConfig)
 	
-	//Set LbxKenmerken = VhConfig.Kenmerken.GetAt("HeeftMat")
+	#dim HeeftMat As %Boolean = VhConfig.Kenmerken.GetAt("HeeftMat")	
+	If (HeeftMat = "true") {
+		#dim MatKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ..ConverteerMatKenmerken(.LbxKenmerken, VhConfig)
+		Do LbxKenmerken.GekoppeldeIngegevenKenmerken.SetAt(MatKenmerken, ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX())
+	}
 	
-	//Mat
 	//SST
 	//Uitsparingdata
 	
@@ -139,6 +142,22 @@
 	Quit NietMeeleveren
 ]]></Implementation>
 </Method>
+
+<Method name="ConverteerMatKenmerken">
+<FormalSpec><![CDATA[&LbxKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,VhConfig:APPS.PM.Maatwerk.dto.VhConfig]]></FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken</ReturnType>
+<Implementation><![CDATA[
+	Set MatKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).%New()
+
+	Set MatKenmerken.Breedte = VhConfig.Kenmerken.GetAt("InterneBreedte")
+	Set MatKenmerken.Diepte = VhConfig.Kenmerken.GetAt("LadeDiepte")
+	Set MatKenmerken.Materiaal = VhConfig.Kenmerken.GetAt("MatMateriaal")
+	Set MatKenmerken.Kleur = VhConfig.Kenmerken.GetAt("MatKleur")
+	Set MatKenmerken.Type = ##class(DOM.PM.enu.MatType).Basis()
+	
+	Quit MatKenmerken
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/PM/Maatwerk/impl/VhConfig/Converter/LbxKenmerken/Converteer/Test.cls.xml
===================================================================
diff -u -r72853 -r72863
--- vhUnitTest/APPS/PM/Maatwerk/impl/VhConfig/Converter/LbxKenmerken/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 72853)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/VhConfig/Converter/LbxKenmerken/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 72863)
@@ -56,7 +56,6 @@
 <Method name="Test: Conversie ProductieWijze">
 <Implementation><![CDATA[
 	Do ..AssertProductieWijze("V", ##class(DOM.PM.enu.LBXProductieWijze).Volledig())
-	
 	Do ..AssertProductieWijze(##class(DOM.PM.enu.LBXProductieWijze).Bodem(), ##class(DOM.PM.enu.LBXProductieWijze).Bodem())
 	Do ..AssertProductieWijze(##class(DOM.PM.enu.LBXProductieWijze).BodemEnRug(), ##class(DOM.PM.enu.LBXProductieWijze).BodemEnRug())
 	Do ..AssertProductieWijze(##class(DOM.PM.enu.LBXProductieWijze).Front(), ##class(DOM.PM.enu.LBXProductieWijze).Front())
@@ -67,80 +66,43 @@
 
 <Method name="Test: Conversie VoorwandType">
 <Implementation><![CDATA[
-	Set Kenmerken = ##class(%ArrayOfDataTypes).%New()
-	Do Kenmerken.SetAt("false", "IsBinnenlade")	
+	#dim Kenmerken As %ArrayOfDataTypes = ..GeefKenmerkenArray("IsBinnenlade", "false")
 	Do ..AssertVoorwandType(Kenmerken, "", "")
 	
-	Set Kenmerken = ##class(%ArrayOfDataTypes).%New()
-	Do Kenmerken.SetAt("true", "IsBinnenlade")
-	Do Kenmerken.SetAt("M", "LadeHoogte")
-	Do Kenmerken.SetAt("GlasLaag", "VoorwandType")
+	Set Kenmerken = ..GeefKenmerkenArray("IsBinnenlade", "true", "LadeHoogte", "M", "VoorwandType", "GlasLaag")
 	Do ..AssertVoorwandType(Kenmerken, "Vulling", "DIA10")
 	
-	Set Kenmerken = ##class(%ArrayOfDataTypes).%New()
-	Do Kenmerken.SetAt("true", "IsBinnenlade")
-	Do Kenmerken.SetAt("M", "LadeHoogte")
-	Do Kenmerken.SetAt("GlasHoog", "VoorwandType")
+	Set Kenmerken = ..GeefKenmerkenArray("IsBinnenlade", "true", "LadeHoogte", "M", "VoorwandType", "GlasHoog")
 	Do ..AssertVoorwandType(Kenmerken, "", "")
 	
-	Set Kenmerken = ##class(%ArrayOfDataTypes).%New()
-	Do Kenmerken.SetAt("true", "IsBinnenlade")
-	Do Kenmerken.SetAt("M", "LadeHoogte")
-	Do Kenmerken.SetAt("Metaal", "VoorwandType")
+	Set Kenmerken = ..GeefKenmerkenArray("IsBinnenlade", "true", "LadeHoogte", "M", "VoorwandType", "Metaal")
 	Do ..AssertVoorwandType(Kenmerken, "Voorstuk", "")
 	
-	Set Kenmerken = ##class(%ArrayOfDataTypes).%New()
-	Do Kenmerken.SetAt("true", "IsBinnenlade")
-	Do Kenmerken.SetAt("M", "LadeHoogte")
-	Do Kenmerken.SetAt("Reling", "VoorwandType")
+	Set Kenmerken = ..GeefKenmerkenArray("IsBinnenlade", "true", "LadeHoogte", "M", "VoorwandType", "Reling")
 	Do ..AssertVoorwandType(Kenmerken, "", "")
 	
-	Set Kenmerken = ##class(%ArrayOfDataTypes).%New()
-	Do Kenmerken.SetAt("true", "IsBinnenlade")
-	Do Kenmerken.SetAt("C", "LadeHoogte")
-	Do Kenmerken.SetAt("GlasLaag", "VoorwandType")
+	Set Kenmerken = ..GeefKenmerkenArray("IsBinnenlade", "true", "LadeHoogte", "C", "VoorwandType", "GlasLaag")
 	Do ..AssertVoorwandType(Kenmerken, "Vulling", "DIA10")
 	
-	Set Kenmerken = ##class(%ArrayOfDataTypes).%New()
-	Do Kenmerken.SetAt("true", "IsBinnenlade")
-	Do Kenmerken.SetAt("C", "LadeHoogte")
-	Do Kenmerken.SetAt("GlasHoog", "VoorwandType")
+	Set Kenmerken = ..GeefKenmerkenArray("IsBinnenlade", "true", "LadeHoogte", "C", "VoorwandType", "GlasHoog")
 	Do ..AssertVoorwandType(Kenmerken, "Voorstuk", "DIA10")
 	
-	Set Kenmerken = ##class(%ArrayOfDataTypes).%New()
-	Do Kenmerken.SetAt("true", "IsBinnenlade")
-	Do Kenmerken.SetAt("C", "LadeHoogte")
-	Do Kenmerken.SetAt("Metaal", "VoorwandType")
+	Set Kenmerken = ..GeefKenmerkenArray("IsBinnenlade", "true", "LadeHoogte", "C", "VoorwandType", "Metaal")
 	Do ..AssertVoorwandType(Kenmerken, "", "")
 	
-	Set Kenmerken = ##class(%ArrayOfDataTypes).%New()
-	Do Kenmerken.SetAt("true", "IsBinnenlade")
-	Do Kenmerken.SetAt("C", "LadeHoogte")
-	Do Kenmerken.SetAt("Reling", "VoorwandType")
+	Set Kenmerken = ..GeefKenmerkenArray("IsBinnenlade", "true", "LadeHoogte", "C", "VoorwandType", "Reling")
 	Do ..AssertVoorwandType(Kenmerken, "Reling", "")
 	
-	Set Kenmerken = ##class(%ArrayOfDataTypes).%New()
-	Do Kenmerken.SetAt("true", "IsBinnenlade")
-	Do Kenmerken.SetAt("K", "LadeHoogte")
-	Do Kenmerken.SetAt("GlasLaag", "VoorwandType")
+	Set Kenmerken = ..GeefKenmerkenArray("IsBinnenlade", "true", "LadeHoogte", "K", "VoorwandType", "GlasLaag")
 	Do ..AssertVoorwandType(Kenmerken, "", "")
 	
-	Set Kenmerken = ##class(%ArrayOfDataTypes).%New()
-	Do Kenmerken.SetAt("true", "IsBinnenlade")
-	Do Kenmerken.SetAt("K", "LadeHoogte")
-	Do Kenmerken.SetAt("GlasHoog", "VoorwandType")
+	Set Kenmerken = ..GeefKenmerkenArray("IsBinnenlade", "true", "LadeHoogte", "K", "VoorwandType", "GlasHoog")
 	Do ..AssertVoorwandType(Kenmerken, "", "")
 	
-	Set Kenmerken = ##class(%ArrayOfDataTypes).%New()
-	Do Kenmerken.SetAt("true", "IsBinnenlade")
-	Do Kenmerken.SetAt("K", "LadeHoogte")
-	Do Kenmerken.SetAt("Metaal", "VoorwandType")
+	Set Kenmerken = ..GeefKenmerkenArray("IsBinnenlade", "true", "LadeHoogte", "K", "VoorwandType", "Metaal")
 	Do ..AssertVoorwandType(Kenmerken, "Voorstuk", "")
 	
-	Set Kenmerken = ##class(%ArrayOfDataTypes).%New()
-	Do Kenmerken.SetAt("true", "IsBinnenlade")
-	Do Kenmerken.SetAt("K", "LadeHoogte")
-	Do Kenmerken.SetAt("Reling", "VoorwandType")
+	Set Kenmerken = ..GeefKenmerkenArray("IsBinnenlade", "true", "LadeHoogte", "K", "VoorwandType", "Reling")
 	Do ..AssertVoorwandType(Kenmerken, "", "")
 ]]></Implementation>
 </Method>
@@ -194,17 +156,28 @@
 </Method>
 
 <Method name="Test: Conversie mat kenmerken">
+<Implementation><![CDATA[
+	#dim Kenmerken As %ArrayOfDataTypes = ..GeefKenmerkenArray("HeeftMat", "false")
+	Do ..AssertMat(Kenmerken, "MatX", $$$False)
+	
+	Set Kenmerken = ..GeefKenmerkenArray("HeeftMat", "true", "InterneBreedte", 1234, "LadeDiepte", "RandomLadeDiepte", "MatMateriaal", "RandomMatMateriaal", "MatKleur", "RandomMatKleur")
+	#dim VerwachteKenmerken As %ArrayOfDataTypes = ..GeefKenmerkenArray("Breedte", 1234, "Diepte", "RandomLadeDiepte", "Kleur", "RandomMatKleur", "Materiaal", "RandomMatMateriaal")
+	
+	Do ..AssertMat(Kenmerken, "MatX", $$$True, VerwachteKenmerken)
+]]></Implementation>
 </Method>
 
 <Method name="Assert">
 <FormalSpec>DtoKenmerkNaam:%String,DtoKenmerkWaarde:%String,VerwachteDomKenmerkNaam:%String,VerwachteDomKenmerkWaarde:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set VhConfig = ##class(APPS.PM.Maatwerk.dto.VhConfig).%New()
-	Set VhConfig.Kenmerken = ..GeefKenmerkenArray(DtoKenmerkWaarde, DtoKenmerkNaam)
+	Set VhConfig.Kenmerken = ..GeefKenmerkenArray(DtoKenmerkNaam, DtoKenmerkWaarde)
 
 	#dim DomKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..Converter.Converteer(VhConfig)
-	Do $$$AssertEquals($Property(DomKenmerken, VerwachteDomKenmerkNaam), VerwachteDomKenmerkWaarde)
+	#dim VerwachteKenmerken As %ArrayOfDataTypes = ..GeefKenmerkenArray(VerwachteDomKenmerkNaam, VerwachteDomKenmerkWaarde)
+	
+	Do ..AssertDomKenmerken(DomKenmerken, VerwachteKenmerken)
 ]]></Implementation>
 </Method>
 
@@ -232,7 +205,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set VhConfig = ##class(APPS.PM.Maatwerk.dto.VhConfig).%New()
-	Set VhConfig.Kenmerken = ..GeefKenmerkenArray(DtoKenmerkWaarde, DtoKenmerkNaam)
+	Set VhConfig.Kenmerken = ..GeefKenmerkenArray(DtoKenmerkNaam, DtoKenmerkWaarde)
 	
 	#dim DomKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..Converter.Converteer(VhConfig)
 	
@@ -244,23 +217,69 @@
 <FormalSpec>DtoKenmerkNaam:%String,DtoKenmerkWaarde:%String,VerwachteDomNietMeeleverenRol:%String,IsAanwezig:%Boolean</FormalSpec>
 <Implementation><![CDATA[
 	Set VhConfig = ##class(APPS.PM.Maatwerk.dto.VhConfig).%New()
-	Set VhConfig.Kenmerken = ..GeefKenmerkenArray(DtoKenmerkWaarde, DtoKenmerkNaam)
+	Set VhConfig.Kenmerken = ..GeefKenmerkenArray(DtoKenmerkNaam, DtoKenmerkWaarde)
 
 	#dim DomKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..Converter.Converteer(VhConfig)
 	Do $$$AssertEquals(##class(TECH.ListUtils).Contains(DomKenmerken.NietMeeleveren, VerwachteDomNietMeeleverenRol), IsAanwezig)
 ]]></Implementation>
 </Method>
 
+<Method name="AssertMat">
+<FormalSpec>DtoKenmerken:%ArrayOfDataTypes,GekoppeldIKType:%String,IsAanwezig:%Boolean,VerwachteDomKenmerken:TECH.KeyValue.List=""</FormalSpec>
+<Implementation><![CDATA[
+	Set VhConfig = ##class(APPS.PM.Maatwerk.dto.VhConfig).%New()
+	Set VhConfig.Kenmerken = DtoKenmerken
+	
+	#dim DomKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..Converter.Converteer(VhConfig)	
+	#dim GekoppeldeIngegevenKenmerken As %Collection.ArrayOfObj = DomKenmerken.GekoppeldeIngegevenKenmerken
+	Do $$$AssertEquals($IsObject(GekoppeldeIngegevenKenmerken.GetAt(GekoppeldIKType)), IsAanwezig)
+	
+	If IsAanwezig {
+		#dim MatKenmerken = GekoppeldeIngegevenKenmerken.GetAt(GekoppeldIKType)
+		Do ..AssertDomKenmerken(MatKenmerken, VerwachteDomKenmerken)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefKenmerkenArray">
-<FormalSpec>KenmerkWaarde:%String,KenmerkNaam:%String</FormalSpec>
+<FormalSpec>DomKenmerken...:%List</FormalSpec>
 <Private>1</Private>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	Set Kenmerken = ##class(%ArrayOfDataTypes).%New()
-	Do Kenmerken.SetAt(KenmerkWaarde, KenmerkNaam)
 	
+	If $$$Not($Get(DomKenmerken, 0) # 2 = 0) {
+		Do ##class(TECH.ExceptionHandler).Throw("ExtraKenmerken moeten als KeyValuePair komen")
+	} ElseIf ($Get(DomKenmerken, 0) > 1) {
+		#dim i As %Integer
+		
+		For i = 1 : 2 : $Get(DomKenmerken, 0)
+		{
+			#dim Key As %String = $Get(DomKenmerken(i))
+			#dim Value As %String = $Get(DomKenmerken(i + 1))
+			Do Kenmerken.SetAt(Value, Key)
+		}
+	}
+	
 	Quit Kenmerken
 ]]></Implementation>
 </Method>
+
+<Method name="AssertDomKenmerken">
+<FormalSpec>DomKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,VerwachteDomKenmerken:%ArrayOfDataTypes</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim VerwachteDomKenmerkenLijst As %ListOfDataTypes = ##class(TECH.ArrayUtils).ArrayKeysToList(VerwachteDomKenmerken)
+	Set VerwachteDomKenmerkenIterator = ##class(TECH.ListIterator).%New(VerwachteDomKenmerkenLijst)
+	
+	While VerwachteDomKenmerkenIterator.HasNext() {
+		#dim VerwachteDomKenmerkNaam As %String = VerwachteDomKenmerkenIterator.Next()
+		#dim VerwachteDomKenmerkWaarde = VerwachteDomKenmerken.GetAt(VerwachteDomKenmerkNaam)
+		
+		Do $$$AssertEquals($Property(DomKenmerken, VerwachteDomKenmerkNaam), VerwachteDomKenmerkWaarde)
+	}
+]]></Implementation>
+</Method>
 </Class>