Index: APPS/PM/Maatwerk/impl/KenmerkMogelijkhedenNaarGUIKenmerkenVisitor.cls.xml
===================================================================
diff -u -r29059 -r29812
--- APPS/PM/Maatwerk/impl/KenmerkMogelijkhedenNaarGUIKenmerkenVisitor.cls.xml	(.../KenmerkMogelijkhedenNaarGUIKenmerkenVisitor.cls.xml)	(revision 29059)
+++ APPS/PM/Maatwerk/impl/KenmerkMogelijkhedenNaarGUIKenmerkenVisitor.cls.xml	(.../KenmerkMogelijkhedenNaarGUIKenmerkenVisitor.cls.xml)	(revision 29812)
@@ -5,179 +5,178 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerkenVisitor</Super>
 
-<Property name="Mogelijkheden">
-<Type>APPS.PM.Maatwerk.dto.KenmerkMogelijkheden</Type>
+<Property name="LBXKenmerkNaam">
+<Type>DOM.PM.enu.LBXKenmerkNaam.AutoComplete</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="KenmerkMogelijkhedenUtils">
-<Type>APPS.PM.Maatwerk.impl.KenmerkMogelijkhedenUtils</Type>
+<Property name="MATKenmerkNaam">
+<Type>DOM.PM.enu.MATKenmerkNaam.AutoComplete</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="TAORKenmerkNaam">
+<Type>DOM.PM.enu.TAORKenmerkNaam.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Mogelijkheden">
+<Type>APPS.PM.Maatwerk.dto.KenmerkMogelijkheden</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>Mogelijkheden:APPS.PM.Maatwerk.dto.KenmerkMogelijkheden,KenmerkMogelijkhedenUtils:APPS.PM.Maatwerk.impl.KenmerkMogelijkhedenUtils=""</FormalSpec>
+<FormalSpec>Mogelijkheden:APPS.PM.Maatwerk.dto.KenmerkMogelijkheden</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..Mogelijkheden = Mogelijkheden
-	Set ..KenmerkMogelijkhedenUtils = $$$Implementation(KenmerkMogelijkhedenUtils, ##class(APPS.PM.Maatwerk.impl.KenmerkMogelijkhedenUtils).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkLBXKenmerken">
 <FormalSpec>LBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
 <Implementation><![CDATA[
-	Do ..ZetOmVoorWandKenmerkenNaarVoorWandTypeVanMBinnenlade( LBXKenmerken )
-	Do ..ZetOmVoorWandKenmerkenNaarVoorWandTypeVanCBinnenlade( LBXKenmerken )
+	Do ..ZetOmVoorWandKenmerkenNaarVoorWandTypeVanMBinnenlade(LBXKenmerken)
+	Do ..ZetOmVoorWandKenmerkenNaarVoorWandTypeVanCBinnenlade(LBXKenmerken)
 		
 	Do ..ZetKenmerkMogelijkhedenVoorIsBinnenbreedte()
-	Do ..ZetKenmerkMogelijkhedenVoorCorpusBreedte(LBXKenmerken)
-	Do ..ZetKenmerkMogelijkhedenVoorCorpusWandDikte()
 	Do ..ZetKenmerkMogelijkhedenVoorDwarsverdeling(LBXKenmerken)
 	
-	Do ..KenmerkMogelijkhedenUtils.VerwijderMogelijkeWaarden(..Mogelijkheden, "HeeftDiepteVerstelling")
-	Do ..KenmerkMogelijkhedenUtils.VerwijderMogelijkeWaarden(..Mogelijkheden, "VoorWandType")
-	Do ..KenmerkMogelijkhedenUtils.VerwijderMogelijkeWaarden(..Mogelijkheden, "VoorWandVerhogingHoogte")
-	Do ..KenmerkMogelijkhedenUtils.VerwijderMogelijkeWaarden(..Mogelijkheden, "VoorWandVerhogingMateriaal")
+	Do ..ZetBereikVoorCorpusBreedte(LBXKenmerken)
+	Do ..ZetBereikVoorCorpusWandDikte()
+	
+	Do ..Mogelijkheden.VerwijderMogelijkeWaarden(..LBXKenmerkNaam.HeeftDiepteVerstelling)
+	Do ..Mogelijkheden.VerwijderMogelijkeWaarden(..LBXKenmerkNaam.VoorWandType)
+	Do ..Mogelijkheden.VerwijderMogelijkeWaarden(..LBXKenmerkNaam.VoorWandVerhogingHoogte)
+	Do ..Mogelijkheden.VerwijderMogelijkeWaarden(..LBXKenmerkNaam.VoorWandVerhogingMateriaal)
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkTAORKenmerken">
 <FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
 <Implementation><![CDATA[
 	Do ..ZetKenmerkMogelijkhedenVoorIsBinnenbreedte()
-	Do ..ZetKenmerkMogelijkhedenVoorCorpusBreedte(TAORKenmerken)
-	Do ..ZetKenmerkMogelijkhedenVoorCorpusWandDikte()
+	
+	Do ..ZetBereikVoorCorpusBreedte(TAORKenmerken)
+	Do ..ZetBereikVoorCorpusWandDikte()
 ]]></Implementation>
 </Method>
 
 <Method name="ZetKenmerkMogelijkhedenVoorIsBinnenbreedte">
 <Private>1</Private>
 <Implementation><![CDATA[
 	; Moet hier eerst gecontroleerd worden of er reeds KenmerkMogelijkheden aanwezig zijn ? 
-
-	Do ..VoegToeMogelijkeWaarde( "IsBinnenbreedte", "true"  )
-	Do ..VoegToeMogelijkeWaarde( "IsBinnenbreedte", "false" )
+	Do ..Mogelijkheden.ZetMogelijkeWaarden("IsBinnenbreedte", ##class(TECH.ListUtils).CreateListOfDataTypes("true", "false"))
 ]]></Implementation>
 </Method>
 
 <Method name="ZetKenmerkMogelijkhedenVoorDwarsverdeling">
 <FormalSpec>LBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#define MaxAantalDwarsverdelingen 4
-	#dim i As TECH.Integer
+	#Define MaxAantalDwarsverdelingen 4
+	#Dim i As TECH.Integer
+	
 	For i=1:1:$$$MaxAantalDwarsverdelingen {
-		Do ..VoegToeMogelijkeWaarde( "AantalDwarsverdelingen",i  )
+		Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..LBXKenmerkNaam.AantalDwarsverdelingen, i)
 	}
-	Do:(LBXKenmerken.ZijWandType '= ##class(DOM.PM.enu.LBXZijWandType).Free()) ..VoegToeMogelijkeWaarde( "HeeftDwarsverdeling", "true"  )
-	Do ..VoegToeMogelijkeWaarde( "HeeftDwarsverdeling", "false"  )
 	
-	If LBXKenmerken.GUIKenmerken.HeeftDwarsverdeling {
-		Do ..KenmerkMogelijkhedenUtils.VerwijderMogelijkeWaarde(..Mogelijkheden, "ZijWandType", ##class(DOM.PM.enu.LBXZijWandType).Free())
+	Do ..Mogelijkheden.ZetMogelijkeWaarden(..LBXKenmerkNaam.HeeftDwarsverdeling, ##class(TECH.ListUtils).CreateListOfDataTypes("true", "false"))
+	Do:(LBXKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Free()) ..Mogelijkheden.VerwijderMogelijkeWaarde(..LBXKenmerkNaam.HeeftDwarsverdeling, "true")
+	
+	If (LBXKenmerken.GUIKenmerken.HeeftDwarsverdeling) {
+		Do ..Mogelijkheden.VerwijderMogelijkeWaarde(..LBXKenmerkNaam.ZijWandType, ##class(DOM.PM.enu.LBXZijWandType).Free())
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="ZetKenmerkMogelijkhedenVoorCorpusBreedte">
+<Method name="ZetBereikVoorCorpusBreedte">
 <FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim CorpusBreedteWaardeBereik As APPS.PM.Maatwerk.dto.KenmerkWaardeBereik = ##class(APPS.PM.Maatwerk.dto.KenmerkWaardeBereik).%New()
-	#dim MaatwerkCalcAPI As DOM.PM.MaatwerkCalcAPI = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI()
-	#dim ExtremaBreedteBepaler As DOM.PM.Maatwerk.Lade.ExtremaBreedteBepaler = MaatwerkCalcAPI.GeefLadeExtremaBreedteBepaler()
+	#Dim MaatwerkCalcAPI As DOM.PM.MaatwerkCalcAPI = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI()
+	#Dim ExtremaBreedteBepaler As DOM.PM.Maatwerk.Lade.ExtremaBreedteBepaler = MaatwerkCalcAPI.GeefLadeExtremaBreedteBepaler()
+	#Dim CorpusBreedteBepaler As DOM.PM.Maatwerk.Lade.CorpusBreedteBepaler = MaatwerkCalcAPI.GeefLadeCorpusBreedteBepaler()
+	#Dim Minimum As %Decimal = CorpusBreedteBepaler.GeefCorpusBreedte(Kenmerken, ExtremaBreedteBepaler.GeefMinimumBreedte(Kenmerken))
+	#Dim Maximum As %Decimal = CorpusBreedteBepaler.GeefCorpusBreedte(Kenmerken, ExtremaBreedteBepaler.GeefMaximumBreedte(Kenmerken))
 	
-	#dim CorpusBreedteBepaler As DOM.PM.Maatwerk.Lade.CorpusBreedteBepaler = MaatwerkCalcAPI.GeefLadeCorpusBreedteBepaler()
-	
-	Set CorpusBreedteWaardeBereik.Minimum =  CorpusBreedteBepaler.GeefCorpusBreedte(Kenmerken,ExtremaBreedteBepaler.GeefMinimumBreedte(Kenmerken))
-	Set CorpusBreedteWaardeBereik.Maximum =  CorpusBreedteBepaler.GeefCorpusBreedte(Kenmerken,ExtremaBreedteBepaler.GeefMaximumBreedte(Kenmerken))
-	Do ..Mogelijkheden.MogelijkeWaardenVanContinueKenmerken.SetAt( CorpusBreedteWaardeBereik, "CorpusBreedte" )
+	Do ..Mogelijkheden.ZetBereik("CorpusBreedte", Minimum, Maximum)
 ]]></Implementation>
 </Method>
 
-<Method name="ZetKenmerkMogelijkhedenVoorCorpusWandDikte">
+<Method name="ZetBereikVoorCorpusWandDikte">
 <Private>1</Private>
-<Implementation><![CDATA[
-	#dim CorpusWandDikteWaardeBereik As APPS.PM.Maatwerk.dto.KenmerkWaardeBereik = ##class(APPS.PM.Maatwerk.dto.KenmerkWaardeBereik).%New()
-	Set CorpusWandDikteWaardeBereik.Minimum = 1
-	Set CorpusWandDikteWaardeBereik.Maximum = 1000
-	Do ..Mogelijkheden.MogelijkeWaardenVanContinueKenmerken.SetAt( CorpusWandDikteWaardeBereik, "CorpusWandDikte" )
+<Implementation><![CDATA[	Do ..Mogelijkheden.ZetBereik("CorpusWandDikte", 1, 1000)
 ]]></Implementation>
 </Method>
 
 <Method name="ZetOmVoorWandKenmerkenNaarVoorWandTypeVanMBinnenlade">
 <FormalSpec>LBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	// Let op: in de GeefDomein...-call moeten we zeker alle mogelijkheden meegeven.
-	If ( (""=LBXKenmerken.LadeHoogte) || ( (LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()) && (LBXKenmerken.IsBinnenlade) ) ) {
- 		If ..IsMogelijkeWaarde( "VoorWandType", ##class(DOM.PM.enu.LBXVoorWandType).Vulling() ) {
-			If ..IsMogelijkeWaarde( "VoorWandVerhogingMateriaal", ##class(DOM.PM.enu.LBXVoorWandVerhogingMateriaal).GlasDiamant() ) {
-				Do ..VoegToeMogelijkeWaarde( "VoorWandTypeVanMBinnenlade", ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Glas() )
+	
+	If (..HeeftNodigVoorWandTypeMogelijkheden(LBXKenmerken, ##class(DOM.PM.enu.LBXLadeHoogte).M())) {
+		
+		If (..Mogelijkheden.IsMogelijkeWaarde(..LBXKenmerkNaam.VoorWandType, ##class(DOM.PM.enu.LBXVoorWandType).Vulling())) {
+			
+			If (..Mogelijkheden.IsMogelijkeWaarde(..LBXKenmerkNaam.VoorWandVerhogingMateriaal, ##class(DOM.PM.enu.LBXVoorWandVerhogingMateriaal).GlasDiamant())) {				
+				Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..LBXKenmerkNaam.VoorWandTypeVanMBinnenlade,  ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Glas())
+				Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..LBXKenmerkNaam.VoorWandTypeVanMBinnenlade,  ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Metaal()) // zie opmerking	
 			}
-			/* Omdat het mogelijke waarden algoritme geen Voorstuk toelaat indien men op de webshop gekozen heeft voor glas, 
-			   en omdat PM bevestigd heeft dat metaal altijd kan, als glas ook kan, is volgende IF in commentaar gezet.
 		}
-		If ..IsMogelijkeWaarde( "VoorWandType", ##class(DOM.PM.enu.LBXVoorWandType).Voorstuk() ) {
-			*/
-			Do ..VoegToeMogelijkeWaarde( "VoorWandTypeVanMBinnenlade", ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Metaal() )
+		
+		/*
+		// Opmerking: Het MogelijkeWaarden-algoritme laat geen Voorstuk toe indien gekozen is voor glas op de webshop gekozen, PM heeft bevestigd dat metaal altijd kan als glas kan.
+		If (..Mogelijkheden.IsMogelijkeWaarde(..LBXKenmerkNaam.VoorWandType, ##class(DOM.PM.enu.LBXVoorWandType).Voorstuk())) {
+			Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..LBXKenmerkNaam.VoorWandTypeVanMBinnenlade,  ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Metaal())
 		}
+		*/	
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="HeeftNodigVoorWandTypeMogelijkheden">
+<FormalSpec>LBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,LadeHoogte:DOM.PM.enu.LBXLadeHoogte</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	// Let op: in de GeefDomein call moeten we zeker alle mogelijkheden meegeven.
+	Quit (LBXKenmerken.LadeHoogte = "") || ((LBXKenmerken.LadeHoogte = LadeHoogte) && (LBXKenmerken.IsBinnenlade))
+]]></Implementation>
+</Method>
+
 <Method name="ZetOmVoorWandKenmerkenNaarVoorWandTypeVanCBinnenlade">
 <FormalSpec>LBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	// Let op: in de GeefDomein...-call moeten we zeker alle mogelijkheden meegeven.
-	If ( (""=LBXKenmerken.LadeHoogte) || ( (LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()) && (LBXKenmerken.IsBinnenlade) ) ) {
-		If ..IsMogelijkeWaarde( "VoorWandType", ##class(DOM.PM.enu.LBXVoorWandType).Vulling() ) {
-			If ..IsMogelijkeWaarde( "VoorWandVerhogingMateriaal", ##class(DOM.PM.enu.LBXVoorWandVerhogingMateriaal).GlasDiamant() ) {
-				If ..IsMogelijkeWaarde( "VoorWandVerhogingHoogte", ##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Hoog() ) {
-					Do ..VoegToeMogelijkeWaarde( "VoorWandTypeVanCBinnenlade", ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).GlasHoog() )
+	If (..HeeftNodigVoorWandTypeMogelijkheden(LBXKenmerken, ##class(DOM.PM.enu.LBXLadeHoogte).C())) {
+		
+		If (..Mogelijkheden.IsMogelijkeWaarde(..LBXKenmerkNaam.VoorWandType, ##class(DOM.PM.enu.LBXVoorWandType).Vulling())) {
+			If (..Mogelijkheden.IsMogelijkeWaarde(..LBXKenmerkNaam.VoorWandVerhogingMateriaal, ##class(DOM.PM.enu.LBXVoorWandVerhogingMateriaal).GlasDiamant())) {
+				If (..Mogelijkheden.IsMogelijkeWaarde(..LBXKenmerkNaam.VoorWandVerhogingHoogte, ##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Hoog())) {
+					Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..LBXKenmerkNaam.VoorWandTypeVanCBinnenlade, ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).GlasHoog())
 				}
-				If ..IsMogelijkeWaarde( "VoorWandVerhogingHoogte", ##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Laag() ) {
-					Do ..VoegToeMogelijkeWaarde( "VoorWandTypeVanCBinnenlade", ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).GlasLaag() )
-				}			}
+				
+				If (..Mogelijkheden.IsMogelijkeWaarde(..LBXKenmerkNaam.VoorWandVerhogingHoogte, ##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Laag())) {
+					Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..LBXKenmerkNaam.VoorWandTypeVanCBinnenlade, ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).GlasLaag())
+				}
+			}
 		}
-		If ..IsMogelijkeWaarde( "VoorWandType", ##class(DOM.PM.enu.LBXVoorWandType).Reling() ) {
-			Do ..VoegToeMogelijkeWaarde( "VoorWandTypeVanCBinnenlade", ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).Reling() )
+		
+		If (..Mogelijkheden.IsMogelijkeWaarde(..LBXKenmerkNaam.VoorWandType, ##class(DOM.PM.enu.LBXVoorWandType).Reling())) {
+			Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..LBXKenmerkNaam.VoorWandTypeVanCBinnenlade,  ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).Reling())
 		}
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="IsMogelijkeWaarde">
-<FormalSpec>KenmerkNaam:%String,KenmerkWaarde:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[	Quit ..Mogelijkheden.MogelijkeWaarden.IsDefined(KenmerkNaam) && ..Mogelijkheden.MogelijkeWaarden.GetAt(KenmerkNaam).Waarden.Find(KenmerkWaarde)
-]]></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 )
-	}
-]]></Implementation>
-</Method>
-
 <Method name="VerwerkMATKenmerken">
 <FormalSpec>MATKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken</FormalSpec>
 <Implementation><![CDATA[
-	Do ..VoegToeMogelijkeWaarde("Materiaal", ##class(DOM.PM.enu.MATMateriaal).Antislip())
-	Do ..VoegToeMogelijkeWaarde("Materiaal", ##class(DOM.PM.enu.MATMateriaal).VinylFiberglass())
-	Do ..VoegToeMogelijkeWaarde("Materiaal", ##class(DOM.PM.enu.MATMateriaal).Wolvilt())
+	Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..MATKenmerkNaam.Materiaal, ##class(DOM.PM.enu.MATMateriaal).Antislip())
+	Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..MATKenmerkNaam.Materiaal, ##class(DOM.PM.enu.MATMateriaal).VinylFiberglass())
+	Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..MATKenmerkNaam.Materiaal, ##class(DOM.PM.enu.MATMateriaal).Wolvilt())
 ]]></Implementation>
 </Method>
 </Class>