Index: APPS/PM/Maatwerk/impl/VhConfig/Converter/LbxKenmerken.cls.xml
===================================================================
diff -u -r72739 -r72848
--- APPS/PM/Maatwerk/impl/VhConfig/Converter/LbxKenmerken.cls.xml	(.../LbxKenmerken.cls.xml)	(revision 72739)
+++ APPS/PM/Maatwerk/impl/VhConfig/Converter/LbxKenmerken.cls.xml	(.../LbxKenmerken.cls.xml)	(revision 72848)
@@ -3,12 +3,6 @@
 <Class name="APPS.PM.Maatwerk.impl.VhConfig.Converter.LbxKenmerken">
 <Super>DOM.PM.Maatwerk.LBX.impl.Base</Super>
 
-<Method name="%OnNew">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[	Quit $$$OK
-]]></Implementation>
-</Method>
-
 <UDLText name="T">
 <Content><![CDATA[
 // APPS.PM.Maatwerk.impl.DtoNaarKenmerkVisitor
@@ -44,7 +38,7 @@
 	Set LbxKenmerken.VerpakkingType = VhConfig.Kenmerken.GetAt("VerpakkingType")
 	Set LbxKenmerken.ProductieWijze = ..GeefProductieWijze(VhConfig.Kenmerken.GetAt("ProductieWijze"))
 	
-	Do ..BepaalVoorwandTypeKenmerken(.LbxKenmerken)
+	Do ..BepaalVoorwandTypeKenmerken(.LbxKenmerken, VhConfig.Kenmerken.GetAt("VoorwandType"))
 	
 	Set GUIKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LBXGUIKenmerken).%New()
 	Set GUIKenmerken.WandDikte = VhConfig.Kenmerken.GetAt("CorpusWanddikte")
@@ -54,7 +48,7 @@
 	Set LbxKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
 	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.AfdekkapBinnen") = "true") { Do LbxKenmerken.NietMeeleveren.Insert(..Enum.NietMeeleveren.AfdekkapBinnen)}
 	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.AfdekkapBuiten") = "true") { Do LbxKenmerken.NietMeeleveren.Insert(..Enum.NietMeeleveren.AfdekkapBuiten)}
-	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.AfdekkapRugwandHouder:") = "true") { Do LbxKenmerken.NietMeeleveren.Insert(..Enum.NietMeeleveren.AfdekkapRugWandHouder)}
+	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.AfdekkapRugwandHouder") = "true") { Do LbxKenmerken.NietMeeleveren.Insert(..Enum.NietMeeleveren.AfdekkapRugWandHouder)}
 	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.BevestigingBodemFront") = "true") { Do LbxKenmerken.NietMeeleveren.Insert(..Enum.NietMeeleveren.BevestigingBodemFront)}
 	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.FrontBevestiging") = "true") { Do LbxKenmerken.NietMeeleveren.Insert(..Enum.NietMeeleveren.FrontBevestiging)}
 	If (VhConfig.Kenmerken.GetAt("NietMeeleveren.Geleider") = "true") { Do LbxKenmerken.NietMeeleveren.Insert(..Enum.NietMeeleveren.Geleider)}
@@ -89,31 +83,31 @@
 </Method>
 
 <Method name="BepaalVoorwandTypeKenmerken">
-<FormalSpec><![CDATA[&LbxKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken]]></FormalSpec>
+<FormalSpec><![CDATA[&LbxKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,DtoVoorwandType:%String]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	If (LbxKenmerken.IsBinnenlade) {
 		If (LbxKenmerken.LadeHoogte = ..Enum.LadeHoogte.M) {
-			If (LbxKenmerken.VoorWandType = "GlasLaag") {
+			If (DtoVoorwandType = "GlasLaag") {
 				Set LbxKenmerken.VoorWandType = ..Enum.VoorWandType.Vulling
 				Set LbxKenmerken.VoorWandVerhogingMateriaal = ..Enum.VoorWandVerhogingMateriaal.GlasDiamant
-			} ElseIf (LbxKenmerken.VoorWandType = "Metaal") {
+			} ElseIf (DtoVoorwandType = "Metaal") {
 				Set LbxKenmerken.VoorWandType = ..Enum.VoorWandType.Voorstuk
 			}
 		} ElseIf (LbxKenmerken.LadeHoogte = ..Enum.LadeHoogte.C) {
-			If (LbxKenmerken.VoorWandType = "GlasLaag") {
+			If (DtoVoorwandType = "GlasLaag") {
 				Set LbxKenmerken.VoorWandType = ..Enum.VoorWandType.Vulling
 				Set LbxKenmerken.VoorWandVerhogingMateriaal = ..Enum.VoorWandVerhogingMateriaal.GlasDiamant
 				Set LbxKenmerken.VoorWandVerhogingHoogte = ..Enum.VoorWandVerhogingHoogte.Laag
-			} ElseIf (LbxKenmerken.VoorWandType = "GlasHoog") {
+			} ElseIf (DtoVoorwandType = "GlasHoog") {
 				Set LbxKenmerken.VoorWandType = ..Enum.VoorWandType.Voorstuk
 				Set LbxKenmerken.VoorWandVerhogingMateriaal = ..Enum.VoorWandVerhogingMateriaal.GlasDiamant
 				Set LbxKenmerken.VoorWandVerhogingHoogte = ..Enum.VoorWandVerhogingHoogte.Hoog
-			} ElseIf (LbxKenmerken.VoorWandType = "Reling") {
+			} ElseIf (DtoVoorwandType = "Reling") {
 				Set LbxKenmerken.VoorWandType = ..Enum.VoorWandType.Reling
 			}
 		} ElseIf (LbxKenmerken.LadeHoogte = ..Enum.LadeHoogte.K) {
-			If (LbxKenmerken.VoorWandType = "Metaal") {
+			If (DtoVoorwandType = "Metaal") {
 				Set LbxKenmerken.VoorWandType = ..Enum.VoorWandType.Voorstuk
 			}
 		}	
Index: vhUnitTest/APPS/PM/Maatwerk/impl/VhConfig/Converter/LbxKenmerken/Converteer/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/impl/VhConfig/Converter/LbxKenmerken/Converteer/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/VhConfig/Converter/LbxKenmerken/Converteer/Test.cls.xml	(revision 72848)
@@ -0,0 +1,264 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.impl.VhConfig.Converter.LbxKenmerken.Converteer.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Converter">
+<Type>APPS.PM.Maatwerk.impl.VhConfig.Converter.LbxKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..Converter = ##class(APPS.PM.Maatwerk.impl.VhConfig.Converter.LbxKenmerken).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Velden worden overgenomen van DTO kenmerken zonder conversie">
+<Implementation><![CDATA[
+	Do ..Assert("DwarsverdelingAantal", "1", "AantalDwarsverdelingen", "1")
+	Do ..Assert("Draagkracht", "RandomDraagkracht", "Draagkracht", "RandomDraagkracht")
+	Do ..Assert("DwarsverdelingType", "RandomDwarsverdelingType", "DwarsverdelingType", "RandomDwarsverdelingType")
+	Do ..Assert("Frontbevestiging", "RandomFrontBevestiging", "FrontBevestiging", "RandomFrontBevestiging")
+	Do ..Assert("GeleiderTechnologie", "RandomGeleiderTechnologie", "GeleiderTechnologie", "RandomGeleiderTechnologie")	
+	Do ..Assert("InterneBreedte", 500, "InterneBreedte", 500)
+	Do ..Assert("LadeDiepte", "RandomLadeDiepte", "LadeDiepte", "RandomLadeDiepte")
+	Do ..Assert("LadeHoogte", "RandomLadeHoogte", "LadeHoogte", "RandomLadeHoogte")
+	Do ..Assert("LadeKleur", "RandomLadeKleur", "LadeKleur", "RandomLadeKleur")
+	Do ..Assert("LadeKleurBuiten", "RandomLadeKleurBuiten", "LadeKleurBuiten", "RandomLadeKleurBuiten")
+	Do ..Assert("MeenemerSet", "RandomMeenemerSet", "MeenemerSet", "RandomMeenemerSet")
+	Do ..Assert("OpvullijstKleur", "RandomOpvullijstKleur", "OpvullijstKleur", "RandomOpvullijstKleur")
+	Do ..Assert("RugHoogte", "RandomRugHoogte", "RugHoogte", "RandomRugHoogte")
+	Do ..Assert("RugwandMateriaal", "RandomRugwandMateriaal", "RugWandMateriaal", "RandomRugwandMateriaal")
+	Do ..Assert("Toepassing", "RandomToepassing", "Klasse", "RandomToepassing")
+	Do ..Assert("VerpakkingType", "RandomVerpakkingType", "VerpakkingType", "RandomVerpakkingType")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Strings met een boolean worden naar boolean geconverteerd">
+<Implementation><![CDATA[
+	Do ..Assert("HeeftOpvullijstLinks", "true", "HeeftOpvullijstLinks", $$$True)
+	Do ..Assert("HeeftOpvullijstLinks", "false", "HeeftOpvullijstLinks", $$$False)
+	
+	Do ..Assert("HeeftOpvullijstRechts", "true", "HeeftOpvullijstRechts", $$$True)
+	Do ..Assert("HeeftOpvullijstRechts", "false", "HeeftOpvullijstRechts", $$$False)
+	
+	Do ..Assert("HeeftZijstabilisering", "true", "HeeftZijstabilisering", $$$True)
+	Do ..Assert("HeeftZijstabilisering", "false", "HeeftZijstabilisering", $$$False)
+	
+	Do ..Assert("IsBinnenlade", "true", "IsBinnenlade", $$$True)
+	Do ..Assert("IsBinnenlade", "false", "IsBinnenlade", $$$False)
+]]></Implementation>
+</Method>
+
+<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())
+	Do ..AssertProductieWijze(##class(DOM.PM.enu.LBXProductieWijze).Rug(), ##class(DOM.PM.enu.LBXProductieWijze).Rug())
+	Do ..AssertProductieWijze(##class(DOM.PM.enu.LBXProductieWijze).RugMetHouders(), ##class(DOM.PM.enu.LBXProductieWijze).RugMetHouders())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Conversie VoorwandType">
+<Implementation><![CDATA[
+	Set Kenmerken = ##class(%ArrayOfDataTypes).%New()
+	Do Kenmerken.SetAt("false", "IsBinnenlade")	
+	Do ..AssertVoorwandType(Kenmerken, "", "")
+	
+	Set Kenmerken = ##class(%ArrayOfDataTypes).%New()
+	Do Kenmerken.SetAt("true", "IsBinnenlade")
+	Do Kenmerken.SetAt("M", "LadeHoogte")
+	Do Kenmerken.SetAt("GlasLaag", "VoorwandType")
+	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")
+	Do ..AssertVoorwandType(Kenmerken, "", "")
+	
+	Set Kenmerken = ##class(%ArrayOfDataTypes).%New()
+	Do Kenmerken.SetAt("true", "IsBinnenlade")
+	Do Kenmerken.SetAt("M", "LadeHoogte")
+	Do Kenmerken.SetAt("Metaal", "VoorwandType")
+	Do ..AssertVoorwandType(Kenmerken, "Voorstuk", "")
+	
+	Set Kenmerken = ##class(%ArrayOfDataTypes).%New()
+	Do Kenmerken.SetAt("true", "IsBinnenlade")
+	Do Kenmerken.SetAt("M", "LadeHoogte")
+	Do Kenmerken.SetAt("Reling", "VoorwandType")
+	Do ..AssertVoorwandType(Kenmerken, "", "")
+	
+	Set Kenmerken = ##class(%ArrayOfDataTypes).%New()
+	Do Kenmerken.SetAt("true", "IsBinnenlade")
+	Do Kenmerken.SetAt("C", "LadeHoogte")
+	Do Kenmerken.SetAt("GlasLaag", "VoorwandType")
+	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")
+	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")
+	Do ..AssertVoorwandType(Kenmerken, "", "")
+	
+	Set Kenmerken = ##class(%ArrayOfDataTypes).%New()
+	Do Kenmerken.SetAt("true", "IsBinnenlade")
+	Do Kenmerken.SetAt("C", "LadeHoogte")
+	Do Kenmerken.SetAt("Reling", "VoorwandType")
+	Do ..AssertVoorwandType(Kenmerken, "Reling", "")
+	
+	Set Kenmerken = ##class(%ArrayOfDataTypes).%New()
+	Do Kenmerken.SetAt("true", "IsBinnenlade")
+	Do Kenmerken.SetAt("K", "LadeHoogte")
+	Do Kenmerken.SetAt("GlasLaag", "VoorwandType")
+	Do ..AssertVoorwandType(Kenmerken, "", "")
+	
+	Set Kenmerken = ##class(%ArrayOfDataTypes).%New()
+	Do Kenmerken.SetAt("true", "IsBinnenlade")
+	Do Kenmerken.SetAt("K", "LadeHoogte")
+	Do Kenmerken.SetAt("GlasHoog", "VoorwandType")
+	Do ..AssertVoorwandType(Kenmerken, "", "")
+	
+	Set Kenmerken = ##class(%ArrayOfDataTypes).%New()
+	Do Kenmerken.SetAt("true", "IsBinnenlade")
+	Do Kenmerken.SetAt("K", "LadeHoogte")
+	Do Kenmerken.SetAt("Metaal", "VoorwandType")
+	Do ..AssertVoorwandType(Kenmerken, "Voorstuk", "")
+	
+	Set Kenmerken = ##class(%ArrayOfDataTypes).%New()
+	Do Kenmerken.SetAt("true", "IsBinnenlade")
+	Do Kenmerken.SetAt("K", "LadeHoogte")
+	Do Kenmerken.SetAt("Reling", "VoorwandType")
+	Do ..AssertVoorwandType(Kenmerken, "", "")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Velden worden ingevuld op DOM GUI kenmerken">
+<Implementation><![CDATA[
+	Do ..AssertGuiKenmerk("CorpusWanddikte", 1234, "WandDikte", 1234)
+	Do ..AssertGuiKenmerk("IsBinnenbreedte", "true", "IsBinnenbreedte", $$$True)
+	Do ..AssertGuiKenmerk("IsBinnenbreedte", "false", "IsBinnenbreedte", $$$False)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Conversie niet-meeleveren">
+<Implementation><![CDATA[
+	Do ..AssertNietMeeleveren("NietMeeleveren.AfdekkapBinnen", "true", "AfdekkapBinnen", $$$True)
+	Do ..AssertNietMeeleveren("NietMeeleveren.AfdekkapBinnen", "false", "AfdekkapBinnen", $$$False)
+	
+	Do ..AssertNietMeeleveren("NietMeeleveren.AfdekkapBuiten", "true", "AfdekkapBuiten", $$$True)
+	Do ..AssertNietMeeleveren("NietMeeleveren.AfdekkapBuiten", "false", "AfdekkapBuiten", $$$False)
+	
+	Do ..AssertNietMeeleveren("NietMeeleveren.AfdekkapRugwandHouder", "true", "AfdekkapRugWandHouder", $$$True)
+	Do ..AssertNietMeeleveren("NietMeeleveren.AfdekkapRugwandHouder", "false", "AfdekkapRugWandHouder", $$$False)
+	
+	Do ..AssertNietMeeleveren("NietMeeleveren.BevestigingBodemFront", "true", "BevestigingBodemFront", $$$True)
+	Do ..AssertNietMeeleveren("NietMeeleveren.BevestigingBodemFront", "false", "BevestigingBodemFront", $$$False)
+	
+	Do ..AssertNietMeeleveren("NietMeeleveren.FrontBevestiging", "true", "FrontBevestiging", $$$True)
+	Do ..AssertNietMeeleveren("NietMeeleveren.FrontBevestiging", "false", "FrontBevestiging", $$$False)
+	
+	Do ..AssertNietMeeleveren("NietMeeleveren.Geleider", "true", "Geleider", $$$True)
+	Do ..AssertNietMeeleveren("NietMeeleveren.Geleider", "false", "Geleider", $$$False)
+	
+	Do ..AssertNietMeeleveren("NietMeeleveren.InschuifElementVoor", "true", "InschuifElementVoor", $$$True)
+	Do ..AssertNietMeeleveren("NietMeeleveren.InschuifElementVoor", "false", "InschuifElementVoor", $$$False)
+	
+	Do ..AssertNietMeeleveren("NietMeeleveren.InschuifElementZijkant", "true", "InschuifElementZijkant", $$$True)
+	Do ..AssertNietMeeleveren("NietMeeleveren.InschuifElementZijkant", "false", "InschuifElementZijkant", $$$False)
+	
+	Do ..AssertNietMeeleveren("NietMeeleveren.Opvullijst", "true", "Opvullijst", $$$True)
+	Do ..AssertNietMeeleveren("NietMeeleveren.Opvullijst", "false", "Opvullijst", $$$False)
+	
+	Do ..AssertNietMeeleveren("NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers", "true", "TiponBlumotionSetEenhedenEnMeenemers", $$$True)
+	Do ..AssertNietMeeleveren("NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers", "false", "TiponBlumotionSetEenhedenEnMeenemers", $$$False)
+	
+	Do ..AssertNietMeeleveren("NietMeeleveren.TiponBlumotionSynchronisatieStang", "true", "TiponBlumotionSynchronisatieStang", $$$True)
+	Do ..AssertNietMeeleveren("NietMeeleveren.TiponBlumotionSynchronisatieStang", "false", "TiponBlumotionSynchronisatieStang", $$$False)
+	
+	Do ..AssertNietMeeleveren("NietMeeleveren.Zijstabilisering", "true", "Zijstabilisering", $$$True)
+	Do ..AssertNietMeeleveren("NietMeeleveren.Zijstabilisering", "false", "Zijstabilisering", $$$False)
+]]></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)
+
+	#dim DomKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..Converter.Converteer(VhConfig)
+	Do $$$AssertEquals($Property(DomKenmerken, VerwachteDomKenmerkNaam), VerwachteDomKenmerkWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="AssertProductieWijze">
+<FormalSpec>DtoKenmerkWaarde:%String,VerwachteDomKenmerkWaarde:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..Assert("ProductieWijze", DtoKenmerkWaarde, "ProductieWijze", VerwachteDomKenmerkWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="AssertVoorwandType">
+<FormalSpec>DtoKenmerken:%ArrayOfDataTypes,VerwachteDomKenmerkWaardeVoorwandType:%String,VerwachteDomKenmerkWaardeVoorWandVerhogingMateriaal:%String</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)
+	Do $$$AssertEquals($Property(DomKenmerken, "VoorWandType"), VerwachteDomKenmerkWaardeVoorwandType)
+	Do $$$AssertEquals($Property(DomKenmerken, "VoorWandVerhogingMateriaal"), VerwachteDomKenmerkWaardeVoorWandVerhogingMateriaal)
+]]></Implementation>
+</Method>
+
+<Method name="AssertGuiKenmerk">
+<FormalSpec>DtoKenmerkNaam:%String,DtoKenmerkWaarde:%String,DomVerwachteGuiKenmerkNaam:%String,VerwachteDomGuiKenmerkWaarde:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set VhConfig = ##class(APPS.PM.Maatwerk.dto.VhConfig).%New()
+	Set VhConfig.Kenmerken = ..GeefKenmerkenArray(DtoKenmerkWaarde, DtoKenmerkNaam)
+	
+	#dim DomKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..Converter.Converteer(VhConfig)
+	
+	Do $$$AssertEquals($Property(DomKenmerken.GUIKenmerken, DomVerwachteGuiKenmerkNaam), VerwachteDomGuiKenmerkWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="AssertNietMeeleveren">
+<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)
+
+	#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="GeefKenmerkenArray">
+<FormalSpec>KenmerkWaarde:%String,KenmerkNaam:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Kenmerken = ##class(%ArrayOfDataTypes).%New()
+	Do Kenmerken.SetAt(KenmerkWaarde, KenmerkNaam)
+	
+	Quit Kenmerken
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>