Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBodemv001.cls.xml
===================================================================
diff -u -r2012 -r2020
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBodemv001.cls.xml	(.../HFBodemv001.cls.xml)	(revision 2012)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBodemv001.cls.xml	(.../HFBodemv001.cls.xml)	(revision 2020)
@@ -42,24 +42,17 @@
 		Set LadeBreedte=IngegevenKenmerken.InbouwBreedte
 		Set BodemBreedte=LadeBreedte-AftrekVoorBodem
 		Set BodemBreedteSQL=LadeBreedte   ; Tijdelijk omdat afmetingen in Excel gebaseerd zijn op LadeBreedte 
-		
+
+		// FMA We zorgen ervoor dat GenereerKenmerken werkt los van de Bereken method
+		// zodat we deze kenmerken ook kunnen gebruiken voor de method BerekenHalffabLijst		
+		Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
+		Do ..GenereerKenmerken(IngegevenKenmerken, .SelectieKenmerken)
+		Set HalffabList = Context.SelecteerHalffabrikaten(##this,SelectieKenmerken)
+
 		Set BodemViaStrook=(IngegevenKenmerken.PlaatMateriaal?1(1"HS",1"KS"))
 		
 		If ($$$Not(BodemViaStrook)) 
 		{
-			// Bodem reeds op maat gezaagd (exact, standaard halffab) 
-			
-			// HalffabList via SQL met SelectieKenmerken 
-			Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
-			Do SelectieKenmerken.SetAt("BODEM","MateriaalType")
-			Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeDiepte,"LadeDiepte")
-			Do SelectieKenmerken.SetAt(IngegevenKenmerken.BodemKleur,"Kleur")
-			Do SelectieKenmerken.SetAt(BodemBreedteSQL,"LadeBreedte")
-			Set HalffabList = Context.SelecteerHalffabrikaten(##this,SelectieKenmerken)
-	
-			// Filter HalffabList 
-			; Geen verdere filtering nodig   ;Do ..FilterHalffabList(.HalffabList, IngegevenKenmerken, Context)
-			
 			// Valideer en Genereer HalffabItem 
 			Set HFItemProcessor=##class(DOM.PM.Maatwerk.Calc.HF.impl.Processor.HFItemProcessorExactEen).%New()
 			Do HFItemProcessor.ValideerHalffabList(.HalffabList)
@@ -68,15 +61,6 @@
 		}
 		Else  
 		{
-			// Bodem via Strook (bewerkt halffab) 
-
-			// HalffabList via SQL met SelectieKenmerken 
-			Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
-			Do SelectieKenmerken.SetAt("BODEMSTRK","MateriaalType")
-			Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeDiepte,"LadeDiepte")
-			Do SelectieKenmerken.SetAt(IngegevenKenmerken.BodemKleur,"Kleur")
-			Set HalffabList = Context.SelecteerHalffabrikaten(##this,SelectieKenmerken)
-	
 			// Filter HalffabList : alleen stroken met Breedte >= Exacte BodemBreedte
 			If (HalffabList.Count()>0) { 
 				Set GefilterdeHalffabList=HalffabList.%New()   ; Maak een nieuwe instantie van dezelfde klasse als HalffabList 
@@ -112,6 +96,33 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GenereerKenmerken">
+<FormalSpec><![CDATA[IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,&SelectieKenmerken:%ArrayOfDataTypes]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+		// TODO FMA BewerkbareProperties gebruiken ipv MateriaalType
+		
+		Set BodemViaStrook=(IngegevenKenmerken.PlaatMateriaal?1(1"HS",1"KS"))
+		
+		If ($$$Not(BodemViaStrook)) 
+		{
+			// Bodem reeds op maat gezaagd (exact, standaard halffab) 
+			
+			// HalffabList via SQL met SelectieKenmerken 
+			Do SelectieKenmerken.SetAt("BODEM","MateriaalType")
+			Do:(IngegevenKenmerken.LadeDiepte '= -9999) SelectieKenmerken.SetAt(IngegevenKenmerken.LadeDiepte,"LadeDiepte")
+			Do:(IngegevenKenmerken.BodemKleur '= -9999) SelectieKenmerken.SetAt(IngegevenKenmerken.BodemKleur,"Kleur")
+			Do:(IngegevenKenmerken.InbouwBreedte '= -9999) SelectieKenmerken.SetAt(IngegevenKenmerken.InbouwBreedte,"LadeBreedte")
+		}
+		Else
+		{
+			Do SelectieKenmerken.SetAt("BODEMSTRK","MateriaalType")
+			Do:(IngegevenKenmerken.LadeDiepte '= -9999) SelectieKenmerken.SetAt(IngegevenKenmerken.LadeDiepte,"LadeDiepte")
+			Do:(IngegevenKenmerken.BodemKleur '= -9999) SelectieKenmerken.SetAt(IngegevenKenmerken.BodemKleur,"Kleur")
+		}
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 </Storage>
Index: DOM/PM/Maatwerk/Calc/HF/IHalffabItemBuilder.cls.xml
===================================================================
diff -u -r1511 -r2020
--- DOM/PM/Maatwerk/Calc/HF/IHalffabItemBuilder.cls.xml	(.../IHalffabItemBuilder.cls.xml)	(revision 1511)
+++ DOM/PM/Maatwerk/Calc/HF/IHalffabItemBuilder.cls.xml	(.../IHalffabItemBuilder.cls.xml)	(revision 2020)
@@ -124,10 +124,8 @@
 	Set HalffabItem = ""
 	If (..BuilderMoetWerken(IngegevenKenmerken))
 	{
-		Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
 		Set $ZTRAP = "FoutBereken"
-		Do ..GenereerKenmerken(IngegevenKenmerken, .SelectieKenmerken)
-		Set HalffabList = Context.SelecteerHalffabrikaten(##this,SelectieKenmerken)
+		Set HalffabList = ..BerekenHalffabLijst(IngegevenKenmerken, Context)
 		Do ..FilterHalffabList(.HalffabList, IngegevenKenmerken, Context)
 		Do ..ValideerHalffabList(.HalffabList)
 		Set HalffabItem = ..GenereerHalffabItem(.HalffabList, IngegevenKenmerken, Context)
@@ -145,6 +143,33 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BerekenHalffabLijst">
+<Description>
+Geeft de lijst van halffabs die voldoen aan de selectiekenmerken op voorwaarde dar "de builder moet werken".
+Wordt gebruikt door Bereken maar ook om de mogelijke IngegevenKenmerken te bepalen.</Description>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set Lijst = ##class(%ListOfObjects).%New()
+	If (..BuilderMoetWerken(IngegevenKenmerken))
+	{
+		Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
+		Set $ZTRAP = "FoutBerekenHalffabLijst"
+		Do ..GenereerKenmerken(IngegevenKenmerken, .SelectieKenmerken)
+		Set Lijst = Context.SelecteerHalffabrikaten(##this,SelectieKenmerken)
+		Set $ZTRAP = ""
+	}
+	Quit Lijst
+	
+FoutBerekenHalffabLijst
+	Set $ZTRAP = ""
+	Set Exception = ##class(TECH.ExceptionHandler).Catch("DOM.PM.Maatwerk.Calc.HF.impl.HFItemBuilderException","DOM.PM.Maatwerk.Calc.HF.impl.Processor.ValidatieException")
+	Set HFItemBerekenException = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HFItemBerekenException).%New(##this,SelectieKenmerken,Exception)
+	Do Context.LogExceptie(HFItemBerekenException)
+	Do ##class(TECH.ExceptionHandler).Throw(HFItemBerekenException)
+]]></Implementation>
+</Method>
+
 <Method name="BuilderMoetWerken">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <Private>1</Private>
Index: zTryout/FM/DOM/PM/Maatwerk/GeldigeKenmerkenBuilder.cls.xml
===================================================================
diff -u
--- zTryout/FM/DOM/PM/Maatwerk/GeldigeKenmerkenBuilder.cls.xml	(revision 0)
+++ zTryout/FM/DOM/PM/Maatwerk/GeldigeKenmerkenBuilder.cls.xml	(revision 2020)
@@ -0,0 +1,71 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="zTryout.FM.DOM.PM.Maatwerk.GeldigeKenmerkenBuilder">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="SelectieKenmerken">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Rol=##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Bodem()
+	Quit ##super(SamengesteldHalffabItemBuilder)
+]]></Implementation>
+</Method>
+
+<Method name="Bereken">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:HalffabContext</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabItem</ReturnType>
+<Implementation><![CDATA[
+	Set HalffabItem = ""
+	// HalffabList via SQL met SelectieKenmerken 
+	Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
+	Do SelectieKenmerken.SetAt("BODEM","MateriaalType")
+	Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeDiepte,"LadeDiepte")
+	Do SelectieKenmerken.SetAt(IngegevenKenmerken.BodemKleur,"Kleur")
+	Do SelectieKenmerken.SetAt(BodemBreedteSQL,"LadeBreedte")
+	Set HalffabList = Context.SelecteerHalffabrikaten(##this, ..SelectieKenmerken)
+	
+	// Valideer en Genereer HalffabItem 
+	Set HFItemProcessor=##class(DOM.PM.Maatwerk.Calc.HF.impl.Processor.HFItemProcessorExactEen).%New()
+	Do HFItemProcessor.ValideerHalffabList(.HalffabList)
+	Set HalffabItem = HFItemProcessor.GenereerHalffabItem(HalffabList, IngegevenKenmerken, Context, ..Rol)
+			
+	Quit HalffabItem
+]]></Implementation>
+</Method>
+
+<Method name="GeefHalffabListToItemProcessor">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabListToItemProcessor</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="ZetRol">
+<FormalSpec>Rol:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..Rol = Rol
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>GeldigeKenmerkenBuilderDefaultData</DefaultData>
+<Data name="GeldigeKenmerkenBuilderDefaultData">
+<Structure>listnode</Structure>
+<Subscript>"GeldigeKenmerkenBuilder"</Subscript>
+<Value name="1">
+<Value>SelectieKenmerken</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: zTryout/FM/DOM/PM/Maatwerk/HalffabSelector.cls.xml
===================================================================
diff -u
--- zTryout/FM/DOM/PM/Maatwerk/HalffabSelector.cls.xml	(revision 0)
+++ zTryout/FM/DOM/PM/Maatwerk/HalffabSelector.cls.xml	(revision 2020)
@@ -0,0 +1,143 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="zTryout.FM.DOM.PM.Maatwerk.HalffabSelector">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="Main">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#define HeeftProperty(%PropertyNaam) ##class(%Dictionary.CompiledProperty).%ExistsId(Halffab.%ClassName(1)_"||%PropertyNaam")
+	
+	Set $ZT = "Error"
+	Set KlantID = 1000
+	Set Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
+
+	Set Familie=##class(DOM.PM.enu.Familie).Lade()
+	Set Variant=##class(DOM.PM.enu.LadeVariant).TBXPlus()
+	
+	Set Hoeveelheid = 1
+	
+	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(Hoeveelheid, KlantID, Personality)
+	Set Context=##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(Familie, Variant, BerekeningsSpecificatie)
+	
+	Set IK = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	Set IK.LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXPlus()
+	Set IK.ZijkantDesign="S"
+	Set IK.ZijkantKleur="MG"
+	Set IK.FrontHouderKleur="MG"
+	Set IK.RugHouderKleur="MG"
+	Set IK.Draagkracht=30
+	Set IK.LadeDiepte=500
+	Set IK.InbouwBreedte=863
+	Set IK.IsBinnenLade=0
+	Set IK.Uittrekbaarheid="V"
+	Set IK.ZijkantHoogte="M"
+	Set IK.ZijwandHoogte="D"
+	Set IK.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Reling()
+	Set IK.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Metaal()
+	Set IK.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).MetallicGrijs()
+	Set IK.ZijwandVerhogingAantal = 2
+	Set IK.VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Reling()
+	Set IK.PlaatMateriaal="HS"
+	Set IK.BodemKleur="UTLG"       ; = UnitTest LichtGrijs 
+	Set IK.RugHoogte="D"
+	Set IK.RugKleur="UTLG"       ; = UnitTest LichtGrijs 
+	Set IK.RugMateriaal=##class(DOM.PM.enu.TBXRugMateriaal).Hout()
+	
+	// Lade berekenen
+	//Do Context.GeefHalffabSpec().BerekenHalffabDetails(Context, IK)
+	//Set WriterVisitor=##class(DOM.PM.Maatwerk.Calc.HF.impl.WriterVisitor).%New()
+	//Set HalffabItems = Context.HalffabItemsBoom.Wortel
+	//Do HalffabItems.Accept(WriterVisitor)
+	//write !
+	
+	// Nog effe wachten met algemene code.  Kan pas als de builders aangepast zijn om voor hun rol
+	// de juiste selectiekenmerken te gebruiken.  Voorlopig doen we het werk vd builders hier.
+	//Set Rollen = ##class(%ListOfDataTypes).%New()
+	//Do Rollen.Insert("LadeZijkant")
+
+	// Bepaalde zaken open laten
+	Set IK.Draagkracht=-9999
+	//Set IK.LadeDiepte=-9999
+	Set IK.Uittrekbaarheid=-9999
+	Set IK.BodemKleur= -9999
+	Set IK.PlaatMateriaal="H"	// Zo vermijd je dat ie uit strook wil nemen
+	
+	// Bijhouden welke de mogelijke opties zijn	
+	Set Draagkracht = ##class(%ArrayOfDataTypes).%New()
+	Set Kleur = ##class(%ArrayOfDataTypes).%New()
+	Set Uittrekbaarheid = ##class(%ArrayOfDataTypes).%New()
+	Set ZijkantDesign = ##class(%ArrayOfDataTypes).%New()
+	Set ZijkantHoogte = ##class(%ArrayOfDataTypes).%New()
+	Set Verpakking = ##class(%ArrayOfDataTypes).%New()
+	Set ZijwandHoogte = ##class(%ArrayOfDataTypes).%New()
+	Set BodemKleur = ##class(%ArrayOfDataTypes).%New()
+
+	Set HalffabRepository = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabRepository).%New()
+	
+	Set Hoofdbuilder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.BuilderPlusHFv001).%New()
+	
+	// Via de echte builder
+	//Set Builder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFLadeZijkantv001).%New("")
+	Set Builder = Hoofdbuilder.HalffabItemBuilders.GetAt("Bodem")
+	Set Halffabs = Builder.BerekenHalffabLijst(IK, Context)
+	
+	// We gebruiken een generische builder die we zelf kunnen aansturen
+	//Set Builder = ##class(zTryout.FM.DOM.PM.Maatwerk.GeldigeKenmerkenBuilder).%New("")
+	//Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
+	//Do SelectieKenmerken.SetAt(IK.LadeDiepte,"LadeDiepte")
+	//Do SelectieKenmerken.SetAt(IK.ZijkantKleur,"Kleur")
+	//Do SelectieKenmerken.SetAt(IK.LadeVariant,"LadeVariant")
+	//Set Builder.SelectieKenmerken = SelectieKenmerken
+	//Do Builder.ZetRol("LadeZijkant")
+	//Set Halffabs = Context.SelecteerHalffabrikaten(Builder, SelectieKenmerken)
+	
+	
+	// BIG TODO: de properties van de halffabs moeten dezelfde naam hebben als de properties uit IK
+	// VB ipv Kleur moet het BodemKleur resp ZijkantKleur zijn.  Anders komt alles hier op kleur terecht
+	
+	Set it = ##class(TECH.ListIterator).%New(Halffabs)
+	while (it.HasNext()) {
+		Set Halffab = it.Next()
+		//Do $system.OBJ.Dump(Halffab)
+		Do:($$$HeeftProperty(Draagkracht)) Draagkracht.SetAt("1", Halffab.Draagkracht)
+		Do:($$$HeeftProperty(Kleur)) Kleur.SetAt("1", Halffab.Kleur)
+		Do:($$$HeeftProperty(Uittrekbaarheid)) Uittrekbaarheid.SetAt("1", Halffab.Uittrekbaarheid)
+		Do:($$$HeeftProperty(ZijkantDesign)) ZijkantDesign.SetAt("1", Halffab.ZijkantDesign)
+		Do:($$$HeeftProperty(ZijkantHoogte)) ZijkantHoogte.SetAt("1", Halffab.ZijkantHoogte)
+		Do:($$$HeeftProperty(Verpakking)) Verpakking.SetAt("1", Halffab.Verpakking)
+		Do:($$$HeeftProperty(ZijwandHoogte)) ZijwandHoogte.SetAt("1", Halffab.ZijwandHoogte)
+		Do:($$$HeeftProperty(BodemKleur)) ZijwandHoogte.SetAt("1", Halffab.BodemKleur)
+	}
+	
+	Do ..ToonWaarden("Draagkracht", Draagkracht)
+	Do ..ToonWaarden("Kleur", Kleur)
+	Do ..ToonWaarden("Uittrekbaarheid", Uittrekbaarheid)
+	Do ..ToonWaarden("ZijkantDesign", ZijkantDesign)
+	Do ..ToonWaarden("ZijkantHoogte", ZijkantHoogte)
+	Do ..ToonWaarden("Verpakking", Verpakking)
+	Do ..ToonWaarden("BodemKleur", BodemKleur)
+	Quit
+	
+Error
+	Write ##class(TECH.ExceptionHandler).Catch().ToString()
+]]></Implementation>
+</Method>
+
+<Method name="ToonWaarden">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Naam,Lijst</FormalSpec>
+<Implementation><![CDATA[
+	Write Naam, !
+	Set it = ##class(TECH.ListIterator).%New(Lijst)
+	while (it.HasNext()) {
+		Set Value = it.Next()
+		Write it.Key(),!
+	}
+	Write !
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/Maatwerk/Calc/HF/HalffabSelectorResultSet.cls.xml
===================================================================
diff -u -r1075 -r2020
--- DOM/PM/Maatwerk/Calc/HF/HalffabSelectorResultSet.cls.xml	(.../HalffabSelectorResultSet.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/HF/HalffabSelectorResultSet.cls.xml	(.../HalffabSelectorResultSet.cls.xml)	(revision 2020)
@@ -44,9 +44,9 @@
 	Set Datum = $Piece(Datum,",")
 	Set SQLWhereClause=SQLWhereClause_" AND GeldigVan <= ? AND GeldigTot >= ? "
 	Set lbSQLParams=lbSQLParams_$LB(Datum)_$LB(Datum)	
-	
+
 	// Volledige SQL query opbouwen 
-	Set SQLQuery="SELECT ID, UnID  FROM "_..HalffabSQLTableName_" "_SQLWhereClause_" GROUP BY UnID "
+	Set SQLQuery="SELECT ID, UnID  FROM "_..HalffabSQLTableName_" "_SQLWhereClause
 	//d WLIP^vhDBG(191,SQLQuery_" || "_$$LCVT^vhLib(lbSQLParams))
 	
 	Set ..ResultSet=$$ExecDynQuery^vhQUERYLIB(SQLQuery,lbSQLParams)
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFLadeZijkantv001.cls.xml
===================================================================
diff -u -r1482 -r2020
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFLadeZijkantv001.cls.xml	(.../HFLadeZijkantv001.cls.xml)	(revision 1482)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFLadeZijkantv001.cls.xml	(.../HFLadeZijkantv001.cls.xml)	(revision 2020)
@@ -32,14 +32,20 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	// SelectieKenmerken invullen
-	Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeVariant,"LadeVariant")
-	Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijkantDesign,"ZijkantDesign")
-	Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeDiepte,"LadeDiepte")
-	Do SelectieKenmerken.SetAt(IngegevenKenmerken.Draagkracht,"Draagkracht")
-	Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijkantKleur,"Kleur")
-	Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijkantHoogte,"ZijkantHoogte")
-	Do SelectieKenmerken.SetAt(IngegevenKenmerken.Uittrekbaarheid,"Uittrekbaarheid")
+	Do:(IngegevenKenmerken.LadeVariant '= -9999) SelectieKenmerken.SetAt(IngegevenKenmerken.LadeVariant,"LadeVariant")
+	Do:(IngegevenKenmerken.ZijkantDesign '= -9999) SelectieKenmerken.SetAt(IngegevenKenmerken.ZijkantDesign,"ZijkantDesign")
+	Do:(IngegevenKenmerken.LadeDiepte '= -9999) SelectieKenmerken.SetAt(IngegevenKenmerken.LadeDiepte,"LadeDiepte")
+	Do:(IngegevenKenmerken.Draagkracht '= -9999) SelectieKenmerken.SetAt(IngegevenKenmerken.Draagkracht,"Draagkracht")
+	Do:(IngegevenKenmerken.ZijkantKleur '= -9999) SelectieKenmerken.SetAt(IngegevenKenmerken.ZijkantKleur,"Kleur")
+	Do:(IngegevenKenmerken.ZijkantHoogte '= -9999) SelectieKenmerken.SetAt(IngegevenKenmerken.ZijkantHoogte,"ZijkantHoogte")
+	Do:(IngegevenKenmerken.Uittrekbaarheid '= -9999) SelectieKenmerken.SetAt(IngegevenKenmerken.Uittrekbaarheid,"Uittrekbaarheid")
 	
+	Set it = ##class(TECH.ListIterator).%New(SelectieKenmerken)
+	while (it.HasNext()) {
+		Set Value = it.Next()
+		d WLIP^vhDBG(204, it.Key() _ " - " _ Value)
+	}
+
 	; '@`$LB($LB("BasisType","LA"),$LB("tB","1"),$LB("Design",Self.Val("DC")),$LB("LadeDiepte",Self.Val("LD")),$LB("Kleur",Self.Val("KL")),$LB("GlijderType",Self.Val("GT")),$LB("ZijwandHoogte",Self.Val("ZW")) 
 	;       ,$LB("$COMB$","($CASE({Verpakking},""E"":1,""I"":10,:20)+$CASE({LiRe},""LI"":0,:1))"))
 ]]></Implementation>