Index: vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkMogelijkhedenNaarGUIKenmerkenVisitor/TestLBX.cls.xml
===================================================================
diff -u -r29059 -r29816
--- vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkMogelijkhedenNaarGUIKenmerkenVisitor/TestLBX.cls.xml	(.../TestLBX.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkMogelijkhedenNaarGUIKenmerkenVisitor/TestLBX.cls.xml	(.../TestLBX.cls.xml)	(revision 29816)
@@ -1,8 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.PM.Maatwerk.impl.KenmerkMogelijkhedenNaarGUIKenmerkenVisitor.TestLBX">
-<Description>
-Do ##class(vhUnitTest.Manager).RunTest("/display=all/debug","APPS.PM.Maatwerk.impl.KenmerkMogelijkhedenNaarGUIKenmerkenVisitor")</Description>
 <Super>vhUnitTest.APPS.PM.Maatwerk.impl.KenmerkMogelijkhedenNaarGUIKenmerkenVisitor.TestBase</Super>
 
 <Parameter name="MBinnenladeKenmerk">
@@ -13,113 +11,105 @@
 <Default>VoorWandTypeVanCBinnenlade</Default>
 </Parameter>
 
-<Method name="TestMBinnenlade">
+<Property name="LBXKenmerkNaam">
+<Type>DOM.PM.enu.LBXKenmerkNaam.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
+	Do ##super(aTestName)
+	
 	Set ..Mogelijkheden = ##class(APPS.PM.Maatwerk.dto.KenmerkMogelijkheden).%New()
-	Do ..VoegToeMogelijkeWaarde( "LadeHoogte", ##class(DOM.PM.enu.LBXLadeHoogte).M() )
-	Do ..VoegToeMogelijkeWaarde( "IsBinnenlade", 1 )
-	Do ..VoegToeMogelijkeWaarde( "VoorWandVerhogingMateriaal", ##class(DOM.PM.enu.LBXVoorWandVerhogingMateriaal).GlasDiamant() )
-	Do ..VoegToeMogelijkeWaarde( "VoorWandType", ##class(DOM.PM.enu.LBXVoorWandType).Vulling() )
-	Do ..VoegToeMogelijkeWaarde( "VoorWandType", ##class(DOM.PM.enu.LBXVoorWandType).Voorstuk() )
+	
+	Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..LBXKenmerkNaam.IsBinnenlade, "true")
+	Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..LBXKenmerkNaam.VoorWandVerhogingMateriaal, ##class(DOM.PM.enu.LBXVoorWandVerhogingMateriaal).GlasDiamant())
+	Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..LBXKenmerkNaam.VoorWandType, ##class(DOM.PM.enu.LBXVoorWandType).Vulling())
+]]></Implementation>
+</Method>
+
+<Method name="TestMBinnenlade">
+<Implementation><![CDATA[
+	Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..LBXKenmerkNaam.LadeHoogte, ##class(DOM.PM.enu.LBXLadeHoogte).M())
+	Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..LBXKenmerkNaam.VoorWandType, ##class(DOM.PM.enu.LBXVoorWandType).Voorstuk())	
+	
+	Do ..ConverteerKenmerkMogelijkhedenNaarGUIKenmerken(..Mogelijkheden)
 		
-	do ..ConverteerKenmerkMogelijkhedenNaarGUIKenmerken(..Mogelijkheden)
-		
-	#Dim MVoorwandMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkWaardenLijst = ..Mogelijkheden.MogelijkeWaarden.GetAt( ..#MBinnenladeKenmerk )
-	Do $$$AssertTrue( MVoorwandMogelijkheden )
-	Do $$$AssertTrue( MVoorwandMogelijkheden.Waarden.Find( ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Glas() ) )
-	Do $$$AssertTrue( MVoorwandMogelijkheden.Waarden.Find( ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Metaal() ) )
-		
-	Do $$$AssertFalse( ..Mogelijkheden.MogelijkeWaarden.GetAt( ..#CBinnenladeKenmerk ) )
+	#Dim MVoorWandMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkWaardenLijst = ..Mogelijkheden.MogelijkeWaarden.GetAt(..#MBinnenladeKenmerk)
+	
+	Do $$$AssertTrue(MVoorWandMogelijkheden)
+	Do $$$AssertTrue(MVoorWandMogelijkheden.Waarden.Find(##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Glas()))
+	Do $$$AssertTrue(MVoorWandMogelijkheden.Waarden.Find(##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Metaal()))
+	
+	Do $$$AssertFalse(..Mogelijkheden.MogelijkeWaarden.GetAt(..#CBinnenladeKenmerk))
 ]]></Implementation>
 </Method>
 
 <Method name="TestCBinnenladeGlasHoog">
 <Implementation><![CDATA[
-	Set ..Mogelijkheden = ##class(APPS.PM.Maatwerk.dto.KenmerkMogelijkheden).%New()
-	Do ..VoegToeMogelijkeWaarde( "LadeHoogte", ##class(DOM.PM.enu.LBXLadeHoogte).C() )
-	Do ..VoegToeMogelijkeWaarde( "IsBinnenlade", 1 )
-	Do ..VoegToeMogelijkeWaarde( "VoorWandVerhogingHoogte", ##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Hoog() )
-	Do ..VoegToeMogelijkeWaarde( "VoorWandVerhogingHoogte", ##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Laag() )
-	Do ..VoegToeMogelijkeWaarde( "VoorWandVerhogingMateriaal", ##class(DOM.PM.enu.LBXVoorWandVerhogingMateriaal).GlasDiamant() )
-	Do ..VoegToeMogelijkeWaarde( "VoorWandType", ##class(DOM.PM.enu.LBXVoorWandType).Vulling() )
-	Do ..VoegToeMogelijkeWaarde( "VoorWandType", ##class(DOM.PM.enu.LBXVoorWandType).Reling() )
+	Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..LBXKenmerkNaam.LadeHoogte, ##class(DOM.PM.enu.LBXLadeHoogte).C())
+	Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..LBXKenmerkNaam.VoorWandVerhogingHoogte, ##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Hoog())
+	Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..LBXKenmerkNaam.VoorWandVerhogingHoogte, ##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Laag())
+	Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..LBXKenmerkNaam.VoorWandType, ##class(DOM.PM.enu.LBXVoorWandType).Reling())
+
+	Do ..ConverteerKenmerkMogelijkhedenNaarGUIKenmerken(..Mogelijkheden)
 	
-	do ..ConverteerKenmerkMogelijkhedenNaarGUIKenmerken(..Mogelijkheden)
-		
-	#dim CVoorwandMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkWaardenLijst = ..Mogelijkheden.MogelijkeWaarden.GetAt( ..#CBinnenladeKenmerk )
-	Do $$$AssertTrue( CVoorwandMogelijkheden )
-	Do $$$AssertTrue( CVoorwandMogelijkheden.Waarden.Find( ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).GlasHoog() ) )
-	Do $$$AssertTrue( CVoorwandMogelijkheden.Waarden.Find( ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).GlasLaag() ) )
-	Do $$$AssertTrue( CVoorwandMogelijkheden.Waarden.Find( ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).Reling() ) )
+	#Dim CVoorwandMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkWaardenLijst = ..Mogelijkheden.MogelijkeWaarden.GetAt(..#CBinnenladeKenmerk)
+	
+	Do $$$AssertTrue(CVoorwandMogelijkheden)
+	Do $$$AssertTrue(CVoorwandMogelijkheden.Waarden.Find( ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).GlasHoog()))
+	Do $$$AssertTrue(CVoorwandMogelijkheden.Waarden.Find( ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).GlasLaag()))
+	Do $$$AssertTrue(CVoorwandMogelijkheden.Waarden.Find( ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).Reling()))
 ]]></Implementation>
 </Method>
 
 <Method name="TestDomeinNietGUIdtos">
 <Implementation><![CDATA[
-	#dim Domein As APPS.PM.Maatwerk.dto.KenmerkMogelijkheden =##class(APPS.PM.Maatwerk.dto.KenmerkMogelijkheden).%New()
-	do Domein.MogelijkeWaarden.SetAt(..MaakLegeKenmerkWaardenLijst(),"HeeftDiepteVerstelling")
-	do Domein.MogelijkeWaarden.SetAt(..MaakLegeKenmerkWaardenLijst(),"VoorWandType")
-	do Domein.MogelijkeWaarden.SetAt(..MaakLegeKenmerkWaardenLijst(),"VoorWandVerhogingHoogte")
-	do Domein.MogelijkeWaarden.SetAt(..MaakLegeKenmerkWaardenLijst(),"VoorWandVerhogingMateriaal")
+	#Dim DomeinKenmerkMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkMogelijkheden = ##class(APPS.PM.Maatwerk.dto.KenmerkMogelijkheden).%New()
 	
-	do ..ConverteerKenmerkMogelijkhedenNaarGUIKenmerken(Domein)
+	Do DomeinKenmerkMogelijkheden.ZetMogelijkeWaarden(..LBXKenmerkNaam.HeeftDiepteVerstelling, ##class(%ListOfDataTypes).%New())
+	Do DomeinKenmerkMogelijkheden.ZetMogelijkeWaarden(..LBXKenmerkNaam.VoorWandType, ##class(%ListOfDataTypes).%New())
+	Do DomeinKenmerkMogelijkheden.ZetMogelijkeWaarden(..LBXKenmerkNaam.VoorWandVerhogingHoogte, ##class(%ListOfDataTypes).%New())
+	Do DomeinKenmerkMogelijkheden.ZetMogelijkeWaarden(..LBXKenmerkNaam.VoorWandVerhogingMateriaal, ##class(%ListOfDataTypes).%New())
 	
-	Do $$$AssertFalse(Domein.MogelijkeWaarden.IsDefined("VoorWandType"))
-	Do $$$AssertFalse(Domein.MogelijkeWaarden.IsDefined("VoorWandVerhogingHoogte"))
-	Do $$$AssertFalse(Domein.MogelijkeWaarden.IsDefined("VoorWandVerhogingMateriaal"))
-	Do $$$AssertFalse(Domein.MogelijkeWaarden.IsDefined("HeeftDiepteVerstelling"))
+	Do ..ConverteerKenmerkMogelijkhedenNaarGUIKenmerken(DomeinKenmerkMogelijkheden)
+	
+	Do $$$AssertFalse(DomeinKenmerkMogelijkheden.MogelijkeWaarden.IsDefined(..LBXKenmerkNaam.HeeftDiepteVerstelling))
+	Do $$$AssertFalse(DomeinKenmerkMogelijkheden.MogelijkeWaarden.IsDefined(..LBXKenmerkNaam.VoorWandType))
+	Do $$$AssertFalse(DomeinKenmerkMogelijkheden.MogelijkeWaarden.IsDefined(..LBXKenmerkNaam.VoorWandVerhogingHoogte))
+	Do $$$AssertFalse(DomeinKenmerkMogelijkheden.MogelijkeWaarden.IsDefined(..LBXKenmerkNaam.VoorWandVerhogingMateriaal))
 ]]></Implementation>
 </Method>
 
 <Method name="TestDomeinNietDOMdtos">
 <Implementation><![CDATA[
-	set Domein = ##class(APPS.PM.Maatwerk.dto.KenmerkMogelijkheden).%New()
+	#Dim DomeinKenmerkMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkMogelijkheden = ##class(APPS.PM.Maatwerk.dto.KenmerkMogelijkheden).%New()
 	 
-	do ..ConverteerKenmerkMogelijkhedenNaarGUIKenmerken(Domein)
+	Do ..ConverteerKenmerkMogelijkhedenNaarGUIKenmerken(DomeinKenmerkMogelijkheden)
 	
-	#dim IsBinnenbreedteMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkWaardenLijst = Domein.MogelijkeWaarden.GetAt("IsBinnenbreedte")
-	If $$$AssertTrue( $IsObject(IsBinnenbreedteMogelijkheden) ) {
-		Do $$$AssertEquals( IsBinnenbreedteMogelijkheden.Waarden.GetAt(1),( "true"  ) )
-		Do $$$AssertEquals( IsBinnenbreedteMogelijkheden.Waarden.GetAt(2),( "false" ) )
+	#Dim IsBinnenbreedteMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkWaardenLijst = DomeinKenmerkMogelijkheden.MogelijkeWaarden.GetAt("IsBinnenbreedte")
+	
+	If ($$$AssertTrue($IsObject(IsBinnenbreedteMogelijkheden))) {
+		Do $$$AssertEquals(IsBinnenbreedteMogelijkheden.Waarden.GetAt(1), ("true"))
+		Do $$$AssertEquals(IsBinnenbreedteMogelijkheden.Waarden.GetAt(2), ("false"))
 	}
-
-	#dim CorpusWandDikteMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkWaardeBereik = Domein.MogelijkeWaardenVanContinueKenmerken.GetAt("CorpusWandDikte")
-	If $$$AssertTrue( $IsObject(CorpusWandDikteMogelijkheden) ) {
-		Do $$$AssertTrue( CorpusWandDikteMogelijkheden.Minimum > 0 )
-		Do $$$AssertTrue( CorpusWandDikteMogelijkheden.Maximum > CorpusWandDikteMogelijkheden.Minimum )
-	}
-]]></Implementation>
-</Method>
-
-<Method name="VoegToeMogelijkeWaarde">
-<FormalSpec>KenmerkNaam:%String,KenmerkWaarde:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#Dim MogelijkeWaardenVoorKenmerk As APPS.PM.Maatwerk.dto.KenmerkWaardenLijst = ..Mogelijkheden.MogelijkeWaarden.GetAt( KenmerkNaam )
-	If ("" = MogelijkeWaardenVoorKenmerk) {
-		Set MogelijkeWaardenVoorKenmerk = ##class(APPS.PM.Maatwerk.dto.KenmerkWaardenLijst).%New()
-		Do ..Mogelijkheden.MogelijkeWaarden.SetAt( MogelijkeWaardenVoorKenmerk, KenmerkNaam )
-	} 
 	
-	If (' MogelijkeWaardenVoorKenmerk.Waarden.Find( KenmerkWaarde )) {
-		Do MogelijkeWaardenVoorKenmerk.Waarden.Insert( KenmerkWaarde )
+	#Dim CorpusWandDikteMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkWaardeBereik = DomeinKenmerkMogelijkheden.MogelijkeWaardenVanContinueKenmerken.GetAt("CorpusWandDikte")
+	
+	If ($$$AssertTrue($IsObject(CorpusWandDikteMogelijkheden))) {
+		Do $$$AssertTrue(CorpusWandDikteMogelijkheden.Minimum > 0)
+		Do $$$AssertTrue(CorpusWandDikteMogelijkheden.Maximum > CorpusWandDikteMogelijkheden.Minimum)
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="GeefLegeIngegevenKenmerken">
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
-<Implementation><![CDATA[	quit ##class(vhTest.Utils.Maatwerk.LBXIngegevenKenmerken).GeefLegeLBXKenmerken()
+<Implementation><![CDATA[	Quit ##class(vhTest.Utils.Maatwerk.LBXIngegevenKenmerken).GeefLegeLBXKenmerken()
 ]]></Implementation>
 </Method>
-
-<Method name="MaakLegeKenmerkWaardenLijst">
-<Private>1</Private>
-<ReturnType>APPS.PM.Maatwerk.dto.KenmerkWaardenLijst</ReturnType>
-<Implementation><![CDATA[	Quit ##class(APPS.PM.Maatwerk.dto.KenmerkWaardenLijst).%New()
-]]></Implementation>
-</Method>
 </Class>