Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFInschuifElementv001.cls.xml
===================================================================
diff -u -r2012 -r2069
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFInschuifElementv001.cls.xml	(.../HFInschuifElementv001.cls.xml)	(revision 2012)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFInschuifElementv001.cls.xml	(.../HFInschuifElementv001.cls.xml)	(revision 2069)
@@ -91,7 +91,7 @@
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeVariant,"LadeVariant")
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeDiepte,"LadeDiepte")
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijwandHoogte,"ZijwandHoogte")
-	Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijwandVerhogingKleur,"Kleur")
+	Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijwandVerhogingKleur,"ZijwandVerhogingKleur")
 	Quit SelectieKenmerken
 ]]></Implementation>
 </Method>
Index: zTryout/CSC/TAOOLade.cls.xml
===================================================================
diff -u -r1655 -r2069
--- zTryout/CSC/TAOOLade.cls.xml	(.../TAOOLade.cls.xml)	(revision 1655)
+++ zTryout/CSC/TAOOLade.cls.xml	(.../TAOOLade.cls.xml)	(revision 2069)
@@ -46,8 +46,8 @@
 	Do KostItem.Accept(KostItemWriterVisitor)
 	write !
 	
+	/*
 	
-	
 	Set ProductSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(Familie, Variant, IngegevenKenmerken)
 	
 	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
@@ -60,6 +60,7 @@
 	w "DossierNr: #"_Product.GeefDossierNr(),!
 	w "ProductSpecificatie: "_Product.GeefProductSpecificatie().%Id(),!
 	w "BerekeningsSpecificatie: "_Product.GeefBerekeningsSpecificatie().%Id(),!!
+	*/
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabBoxCover.cls.xml
===================================================================
diff -u -r1075 -r2069
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabBoxCover.cls.xml	(.../HalffabBoxCover.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabBoxCover.cls.xml	(.../HalffabBoxCover.cls.xml)	(revision 2069)
@@ -14,7 +14,7 @@
 <Type>DOM.PM.enu.TBXZijkantDesign</Type>
 </Property>
 
-<Property name="Kleur">
+<Property name="ZijwandVerhogingKleur">
 <Type>%String</Type>
 </Property>
 
@@ -43,7 +43,7 @@
 
 <Index name="BitKleur">
 <Type>bitmap</Type>
-<Properties>Kleur</Properties>
+<Properties>ZijwandVerhogingKleur</Properties>
 </Index>
 
 <Index name="BitLiRe">
@@ -88,6 +88,9 @@
 <Value name="7">
 <Value>LadeVariant</Value>
 </Value>
+<Value name="8">
+<Value>ZijwandVerhogingKleur</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFRugv001.cls.xml
===================================================================
diff -u -r1482 -r2069
--- vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFRugv001.cls.xml	(.../HFRugv001.cls.xml)	(revision 1482)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFRugv001.cls.xml	(.../HFRugv001.cls.xml)	(revision 2069)
@@ -16,7 +16,7 @@
 	Set Halffab.MateriaalType = "RUGSTRK"
 	Set Halffab.LadeBreedte = 2840
 	Set Halffab.RugHoogte = "D"
-	Set Halffab.Kleur = "LG"
+	Set Halffab.RugKleur = "LG"
 	Do Halffab.BewerkbareProperties.Insert("LadeBreedte")
 	Set Halffab.UnID = 86490
 	Do HalffabTabel.VoegToeHalffab(Halffab)
@@ -25,7 +25,7 @@
 	Set Halffab.MateriaalType = "RUGSTAAL"
 	Set Halffab.LadeBreedte = 863
 	Set Halffab.RugHoogte = "D"
-	Set Halffab.Kleur = "LG"
+	Set Halffab.RugKleur = "LG"
 	Set Halffab.UnID = 567902
 	Do HalffabTabel.VoegToeHalffab(Halffab)
 ]]></Implementation>
@@ -38,7 +38,7 @@
 	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
 	Set IngegevenKenmerken.RugKleur ="LG"
 	Set IngegevenKenmerken.RugHoogte = "D"
-	Set IngegevenKenmerken.InbouwBreedte = 863
+	Set IngegevenKenmerken.CorpusBinnenbreedte = 863
 	
 	Do Context.HalffabItemsBoom.AddHalffabItem(..GeefLadeZijkantHalffab(Context))
 
@@ -61,7 +61,7 @@
 	Set IngegevenKenmerken.RugKleur = "LG"
 	Set IngegevenKenmerken.RugMateriaal = ##class(DOM.PM.enu.TBXRugMateriaal).Staal()
 	Set IngegevenKenmerken.RugHoogte = "D"
-	Set IngegevenKenmerken.InbouwBreedte = 863
+	Set IngegevenKenmerken.CorpusBinnenbreedte = 863
 	
 	Do Context.HalffabItemsBoom.AddHalffabItem(..GeefLadeZijkantHalffab(Context))
 	
Index: DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFProfielv001.cls.xml
===================================================================
diff -u -r2012 -r2069
--- DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFProfielv001.cls.xml	(.../HFProfielv001.cls.xml)	(revision 2012)
+++ DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFProfielv001.cls.xml	(.../HFProfielv001.cls.xml)	(revision 2069)
@@ -33,12 +33,13 @@
 </Method>
 
 <Method name="GenereerKenmerken">
-<FormalSpec><![CDATA[IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,&SelectieKenmerken:%ArrayOfDataTypes]]></FormalSpec>
-<Private>1</Private>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	// SelectieKenmerken invullen 
+	Set SelectieKenmerken = ##class(%ArrayOfDataTypes).%New()
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.ProfielType,"ProfielType")
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.ProfielAfwerking,"Kleur")
+	Quit SelectieKenmerken
 ]]></Implementation>
 </Method>
 
Index: zTryout/FM/DOM/PM/Maatwerk/HalffabSelector.cls.xml
===================================================================
diff -u -r2020 -r2069
--- zTryout/FM/DOM/PM/Maatwerk/HalffabSelector.cls.xml	(.../HalffabSelector.cls.xml)	(revision 2020)
+++ zTryout/FM/DOM/PM/Maatwerk/HalffabSelector.cls.xml	(.../HalffabSelector.cls.xml)	(revision 2069)
@@ -1,16 +1,99 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="zTryout.FM.DOM.PM.Maatwerk.HalffabSelector">
+<Description>
+d ##class(zTryout.FM.DOM.PM.Maatwerk.HalffabSelector).Main()</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Property name="Beginlijsten">
+<Type>%ArrayOfObjects</Type>
+</Property>
+
+<Property name="Resultaten">
+<Type>%ArrayOfObjects</Type>
+</Property>
+
+<Property name="Domeinen">
+<Type>%ArrayOfObjects</Type>
+</Property>
+
+<Property name="Rollen">
+<Type>%ListOfDataTypes</Type>
+</Property>
+
+<Property name="Kenmerken">
+<Type>%ListOfDataTypes</Type>
+</Property>
+
+<Property name="PowerUserMode">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="Hoofdbuilder">
+<Type>DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder</Type>
+</Property>
+
+<Property name="IK">
+<Type>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Type>
+</Property>
+
 <Method name="Main">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	#define HeeftProperty(%PropertyNaam) ##class(%Dictionary.CompiledProperty).%ExistsId(Halffab.%ClassName(1)_"||%PropertyNaam")
-	
+	Set TestProg = ..%New()
+	Do TestProg.Bereken()
+]]></Implementation>
+</Method>
+
+<Method name="Bereken">
+<Implementation><![CDATA[
 	Set $ZT = "Error"
+	
+	// TODO
+	// Delete zTryout.FM.DOM.PM.Maatwerk.GeldigeKenmerkenBuilder
+
+	// 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
+	Set ..IK.ZijkantDesign=-9999
+	Set ..IK.RugHoogte=-9999
+	
+ 	Set ..PowerUserMode = 0
+
+	// Rollen die beperkingen kunnen opleggen
+	Set ..Rollen = ##class(%ListOfDataTypes).%New()
+	Do ..Rollen.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).LadeZijkant())
+	Do ..Rollen.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Bodem())
+	Do ..Rollen.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).RugHouder())
+	Do ..Rollen.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Rug())
+	
+	// Waarden in de beginlijsten:
+	// "1" = Initiele waarde
+	// "2" = Deze waarde werd overgenomen omdat ze voor de huidige rol ook bestaat
+	// "3" = Deze waarde werd integraal overgenomen omdat het kenmerk voor deze rol niet relevant is
+	
+	// Kenmerken die verwerkt moeten worden
+	// Zouden we uit de IK kunnen halen
+	// Hier halen we ze uit de Domeinen: als er een Domein gedefinieerd is, is het een te 
+	// controleren kenmerk.
+	Set ..Kenmerken = ##class(%ListOfDataTypes).%New()
+	Set KenmerkIterator = ##class(TECH.ListIterator).%New(..Domeinen)
+	while (KenmerkIterator.HasNext()) {
+		Set KenmerkNaam = KenmerkIterator.Next()
+		Write "Te controleren kenmerk:", KenmerkIterator.Key(), !
+		Do ..Kenmerken.Insert(KenmerkIterator.Key())
+	}
+
+	// Beginlijsten voor de mogelijke waarden
+	Set ..Beginlijsten = ##class(TECH.ListUtils).CloneArrayTweeDiep(..Domeinen)
+
+	//Do $system.OBJ.Dump(..Beginlijsten.GetAt("BodemKleur"))
+ 	
 	Set KlantID = 1000
 	Set Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
 
@@ -21,116 +104,163 @@
 	
 	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 !
+	// Werkt enkel juist als de IK volledig zijn
+	/*
+	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")
+	Set RolIterator = ##class(TECH.ListIterator).%New(..Rollen)
+	while (RolIterator.HasNext()) {
+		Set Rol = RolIterator.Next()
+		Set ..Resultaten = ##class(%ArrayOfObjects).%New()
 
-	// 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 Builder = ..Hoofdbuilder.HalffabItemBuilders.GetAt(Rol)
+		Set Halffabs = Builder.BerekenHalffabLijst(..IK, Context)
+		Write "Rol ", Rol, ": ", Halffabs.Count(), " items gevonden", !
+		Set it = ##class(TECH.ListIterator).%New(Halffabs)
+		while (it.HasNext()) {
+			Set Halffab = it.Next()
+			Set KenmerkIterator = ##class(TECH.ListIterator).%New(..Kenmerken)
+			while (KenmerkIterator.HasNext()) {
+				Set KenmerkNaam = KenmerkIterator.Next()
+				Do ..VerwerkHalffabKenmerk(Halffab, KenmerkNaam)
+			}
+		}
 
-	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)
+		Write "Resultaat na verwerking van rol '", Rol, "':", !
+		Set KenmerkIterator = ##class(TECH.ListIterator).%New(..Kenmerken)
+		while (KenmerkIterator.HasNext()) {
+			Set KenmerkNaam = KenmerkIterator.Next()
+			Do ..ToonWaarden(KenmerkNaam)
+			Do ..ToonWegfiltering(KenmerkNaam, Rol)
+		}
+		
+		// Begin verwerking voor volgende rol met de resultaten van deze rol
+		Set ..Beginlijsten = ##class(TECH.ListUtils).CloneArrayTweeDiep(..Resultaten)
 	}
-	
-	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="VerwerkHalffabKenmerk">
+<FormalSpec>Halffab:DOM.PM.Maatwerk.Calc.HF.Halffab,KenmerkNaam:%String</FormalSpec>
+<Implementation><![CDATA[
+	#define HeeftProperty(%PropertyNaam) ##class(%Dictionary.CompiledProperty).%ExistsId(Halffab.%ClassName(1)_"||"_%PropertyNaam)
+
+	Set Beginlijst = ..Beginlijsten.GetAt(KenmerkNaam)
+	// Als de property bestaat in de halffab-klasse dan nemen we enkel de kenmerkwaarden
+	// over van de vorige ronde die ook in de halffablijst zitten.
+	If $$$HeeftProperty(KenmerkNaam) {
+		Set Domein = ..Domeinen.GetAt(KenmerkNaam)
+		Set Resultaat = ..Resultaten.GetAt(KenmerkNaam)
+		If (Resultaat = "") Set Resultaat = ##class(%ArrayOfDataTypes).%New()
+		Set Waarde = $zobjProperty(Halffab, KenmerkNaam)
+		//W "[VerwerkHalffabKenmerk] Halffab=", Halffab.%Id(), ", Waarde=", Waarde, ", Domein=", Domein.GetAt(Waarde), ", Beginlijst=", Beginlijst.GetAt(Waarde)
+		//Do $system.OBJ.Dump(Halffab)
+		Set DomeinHeeftWaarde = (Domein.GetAt(Waarde) = 1)
+		// Als waarde niet in het domein zit, dan gebruiken we ze toch als we in power user mode
+		// zitten.  Als we niet in power user mode zitten, dan negeren we de waarde.
+		// Als de waarde wel in het domein zit, dan nemen we ze over als ze ook in de beginlijst zat.
+		If ('DomeinHeeftWaarde) {
+			If (..PowerUserMode) {
+				// Voeg toe aan het domein en ook aan het resultaat.  Vanaf nu kan het
+				// wegfilteren beginnen in volgende rollen.  Daar zal de waarde wel al
+				// in het domein zitten.
+				Do Domein.SetAt("1", Waarde)
+				Do Resultaat.SetAt("1", Waarde)
+			}
+		} Else {
+			If (Beginlijst.GetAt(Waarde) = "1") {
+				Do Resultaat.SetAt("1", Waarde)
+				// Markeren in de beginlijst dat we deze waarde hebben overgenomen
+				Do Beginlijst.SetAt("2", Waarde)
+			} Else {
+				Write "Kenmerk ", KenmerkNaam, " met waarde ", Waarde, " niet overgenomen (", Beginlijst.GetAt(Waarde), ")", !
+			}
+		}
+		//W ", Resultaat=", Resultaat.GetAt(Waarde),!
+		Do ..Resultaten.SetAt(Resultaat, KenmerkNaam)
+	} Else {
+		// Als we de beginlijst nog niet hadden overgenomen, neem ze over
+		If (..Resultaten.GetAt(KenmerkNaam) = "") {
+			Write "Integrale overname lijst voor ", KenmerkNaam, !
+			// Als het halffab-object geen relevante info heeft over dit kenmerk,
+			// dan nemen we de lijst mogelijke kenmerkwaarde gewoon over.
+			Do ..Resultaten.SetAt(Beginlijst.%ConstructClone(), KenmerkNaam)
+			// We markeren alle waarden uit de beginlijst als "integraal overgenomen"
+			Set it = ##class(TECH.ListIterator).%New(Beginlijst)
+			while (it.HasNext()) {
+				Set Lijstwaarde = it.Next()
+				Set Lijstkey = it.Key()
+				Do Beginlijst.SetAt("3", Lijstkey)
+			}
+		}
+
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ToonWegfiltering">
+<FormalSpec>KenmerkNaam:%String,Rol:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Beginlijst = ..Beginlijsten.GetAt(KenmerkNaam)
+	Set AantalWeggefilterd = 0
+	Set it = ##class(TECH.ListIterator).%New(Beginlijst)
+	while (it.HasNext()) {
+		Set Lijstwaarde = it.Next()
+		Set Lijstkey = it.Key()
+		If (Lijstwaarde = "1") {
+			Write "Weggefilterde waarde: ", Lijstkey, !
+			Set AantalWeggefilterd = AantalWeggefilterd + 1
+		}
+	}
+	// Als er kenmerken weggevallen zijn, geef suggesties hoe dit kan vermeden worden
+	If (
+			(AantalWeggefilterd > 0) &&
+			 ((..Resultaten.GetAt(KenmerkNaam) = "") || (..Resultaten.GetAt(KenmerkNaam).Count() = 0))
+			 ) {
+		Write "Geen resultaten meer voor kenmerk ", KenmerkNaam, !
+		Set SelectieKenmerken = ..GeefSelectieKenmerken(Rol, ..IK)
+		Do SelectieKenmerken.RemoveAt(KenmerkNaam)
+		Set SelKenm = ##class(TECH.ListIterator).%New(SelectieKenmerken)
+		while (SelKenm.HasNext()) {
+			Set Lijstwaarde = SelKenm.Next()
+			Set Lijstkey = SelKenm.Key()
+			Write "Suggestie: kies voor ", Lijstkey, " een andere waarde dan ", Lijstwaarde, !
+		}					
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefSelectieKenmerken">
+<FormalSpec>Rol:%String,IngegevenKenmerken</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set Builder = ..Hoofdbuilder.HalffabItemBuilders.GetAt(Rol)
+	Set SelectieKenmerken = Builder.GenereerKenmerken(IngegevenKenmerken)
+	Quit SelectieKenmerken
+]]></Implementation>
+</Method>
+
 <Method name="ToonWaarden">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Naam,Lijst</FormalSpec>
+<FormalSpec>Naam</FormalSpec>
 <Implementation><![CDATA[
+	Set Lijst = ..Resultaten.GetAt(Naam)
 	Write Naam, !
+	If (Lijst="") {
+		Write !
+		Quit
+	}
 	Set it = ##class(TECH.ListIterator).%New(Lijst)
 	while (it.HasNext()) {
 		Set Value = it.Next()
@@ -139,5 +269,108 @@
 	Write !
 ]]></Implementation>
 </Method>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Hoofdbuilder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.BuilderPlusHFv001).%New()
+	
+	// Initiele kenmerken
+	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.CorpusBinnenbreedte=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()
+	
+	// Mogelijke waarden voor alle kenmerken.  Enkel in power user mode kunnen extra waarden
+	// worden toegevoegd vanuit de halffab tabellen.	
+	Set ..Domeinen = ##class(%ArrayOfObjects).%New()
+	Do ..Domeinen.SetAt(##class(%ArrayOfDataTypes).%New(), "Draagkracht")
+	Do ..Domeinen.SetAt(##class(%ArrayOfDataTypes).%New(), "ZijkantKleur")
+	Do ..Domeinen.SetAt(##class(%ArrayOfDataTypes).%New(), "ZijkantDesign")
+	Do ..Domeinen.SetAt(##class(%ArrayOfDataTypes).%New(), "ZijkantHoogte")
+	Do ..Domeinen.SetAt(##class(%ArrayOfDataTypes).%New(), "Uittrekbaarheid")
+	Do ..Domeinen.SetAt(##class(%ArrayOfDataTypes).%New(), "Verpakking")
+	Do ..Domeinen.SetAt(##class(%ArrayOfDataTypes).%New(), "ZijwandHoogte")
+	Do ..Domeinen.SetAt(##class(%ArrayOfDataTypes).%New(), "BodemKleur")
+	Do ..Domeinen.SetAt(##class(%ArrayOfDataTypes).%New(), "LadeDiepte")
+	Do ..Domeinen.SetAt(##class(%ArrayOfDataTypes).%New(), "RugHoogte")
+
+	Set Domein = ..Domeinen.GetAt("Draagkracht")
+	Do Domein.SetAt("1", 25)
+	Do Domein.SetAt("1", 30)
+	Do Domein.SetAt("1", 50)
+	Do Domein.SetAt("1", 65)
+	
+	Set Domein = ..Domeinen.GetAt("ZijkantKleur")
+	Do Domein.SetAt("1", "UTLG")
+	Do Domein.SetAt("1", "LG")
+	Do Domein.SetAt("1", "MG")
+	
+	Set Domein = ..Domeinen.GetAt("ZijkantDesign")
+	Do Domein.SetAt("1", "S")
+	Do Domein.SetAt("1", "F")
+
+	Set Domein = ..Domeinen.GetAt("ZijkantHoogte")
+	Do Domein.SetAt("1", "M")
+	Do Domein.SetAt("1", "L")
+
+	Set Domein = ..Domeinen.GetAt("Uittrekbaarheid")
+	Do Domein.SetAt("1", "V")
+	Do Domein.SetAt("1", "G")
+
+	Set Domein = ..Domeinen.GetAt("Verpakking")
+	Do Domein.SetAt("1", "I")
+	Do Domein.SetAt("1", "E")
+	Do Domein.SetAt("1", "V1")
+
+
+	Set Domein = ..Domeinen.GetAt("ZijwandHoogte")
+	Do Domein.SetAt("1", "M")
+	Do Domein.SetAt("1", "D")
+	Do Domein.SetAt("1", "B")
+
+	Set Domein = ..Domeinen.GetAt("BodemKleur")
+	Do Domein.SetAt("1", "UTLG")
+	Do Domein.SetAt("1", "LG")
+
+	Set Domein = ..Domeinen.GetAt("LadeDiepte")
+	Do Domein.SetAt("1", 300)
+	Do Domein.SetAt("1", 350)
+	Do Domein.SetAt("1", 400)
+	Do Domein.SetAt("1", 450)
+	Do Domein.SetAt("1", 500)
+	Do Domein.SetAt("1", 550)
+
+	Set Domein = ..Domeinen.GetAt("RugHoogte")
+	Do Domein.SetAt("1", "M")
+	Do Domein.SetAt("1", "B")
+	Do Domein.SetAt("1", "C")
+	Do Domein.SetAt("1", "D")
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFVullingv001.cls.xml
===================================================================
diff -u -r2012 -r2069
--- DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFVullingv001.cls.xml	(.../HFVullingv001.cls.xml)	(revision 2012)
+++ DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFVullingv001.cls.xml	(.../HFVullingv001.cls.xml)	(revision 2069)
@@ -37,12 +37,13 @@
 </Method>
 
 <Method name="GenereerKenmerken">
-<FormalSpec><![CDATA[IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,&SelectieKenmerken:%ArrayOfDataTypes]]></FormalSpec>
-<Private>1</Private>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	// SelectieKenmerken invullen 
+	Set SelectieKenmerken = ##class(%ArrayOfDataTypes).%New()
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.Vulling.VullingType,"VullingSoort")
 	;Do SelectieKenmerken.SetAt("4mm","Dikte")
+	Quit SelectieKenmerken
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabInschuifElement.cls.xml
===================================================================
diff -u -r1075 -r2069
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabInschuifElement.cls.xml	(.../HalffabInschuifElement.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabInschuifElement.cls.xml	(.../HalffabInschuifElement.cls.xml)	(revision 2069)
@@ -22,7 +22,7 @@
 <Type>%Integer</Type>
 </Property>
 
-<Property name="Kleur">
+<Property name="ZijwandVerhogingKleur">
 <Type>%String</Type>
 </Property>
 
@@ -61,7 +61,7 @@
 
 <Index name="BitKleur">
 <Type>bitmap</Type>
-<Properties>Kleur</Properties>
+<Properties>ZijwandVerhogingKleur</Properties>
 </Index>
 
 <Index name="BitLiRe">
@@ -112,6 +112,9 @@
 <Value name="9">
 <Value>LadeVariant</Value>
 </Value>
+<Value name="10">
+<Value>ZijwandVerhogingKleur</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: DOM/PM/Maatwerk/Calc/HF/Halffab.cls.xml
===================================================================
diff -u -r1719 -r2069
--- DOM/PM/Maatwerk/Calc/HF/Halffab.cls.xml	(.../Halffab.cls.xml)	(revision 1719)
+++ DOM/PM/Maatwerk/Calc/HF/Halffab.cls.xml	(.../Halffab.cls.xml)	(revision 2069)
@@ -20,9 +20,7 @@
 <Property name="ActiefVoorKlanten">
 <Description>
 a.k.a kenmerk "Actief"; 
-Mogelijke waarden:  "A" Alle klanten of opsomming van KlantNrs 
-[FMA] vermits we met een aparte tabel per klant werken zou deze property
-[FMA] niet moeten nodig zijn.</Description>
+Mogelijke waarden:  "A" Alle klanten of opsomming van KlantNrs </Description>
 <Type>%String</Type>
 </Property>
 
@@ -52,6 +50,10 @@
 <Type>DOM.PM.enu.Familie</Type>
 </Property>
 
+<Property name="Variant">
+<Type>DOM.PM.enu.Variant</Type>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -133,6 +135,9 @@
 <Value name="11">
 <Value>UnID</Value>
 </Value>
+<Value name="12">
+<Value>Variant</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: zTryout/FM/TAOOLade.cls.xml
===================================================================
diff -u
--- zTryout/FM/TAOOLade.cls.xml	(revision 0)
+++ zTryout/FM/TAOOLade.cls.xml	(revision 2069)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="zTryout.FM.TAOOLade">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="Produceer">
+<Description>
+Do ##class(zTryout.CSC.TAOOLade).Produceer()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set $ZTrap = "Error"
+	
+	Set Familie=##class(DOM.PM.enu.Familie).Lade()
+	Set Variant=##class(DOM.PM.enu.LadeVariant).TAOO()
+	
+	Set KlantID = 7587
+	Set Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
+	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,KlantID,Personality)
+	Set Context=##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(Familie,Variant,BerekeningsSpecificatie)
+	
+	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%New()
+	Set IngegevenKenmerken.LadeDiepte = 250
+	Set IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAOOLadeKleur).SmokedWalnut()
+	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAOOLadeHoogte).N()
+	Set IngegevenKenmerken.IsBinnenlade = 0
+	Set IngegevenKenmerken.Draagkracht = 30
+	Set IngegevenKenmerken.CorpusBinnenbreedte = 650
+	Set IngegevenKenmerken.HeeftOpvullijstLinks = 0
+	Set IngegevenKenmerken.HeeftOpvullijstRechts = 0
+	Set IngegevenKenmerken.HeeftTipon = 0
+	Set IngegevenKenmerken.HeeftZijstabilisering = 0
+	
+	
+	Do Context.GeefHalffabSpec().BerekenHalffabDetails(Context,IngegevenKenmerken)
+	Set WriterVisitor=##class(DOM.PM.Maatwerk.Calc.HF.impl.WriterVisitor).%New()
+	
+	Set HalffabItemsBoom = Context.HalffabItemsBoom
+	Set HalffabItems=HalffabItemsBoom.Wortel
+	
+	write !
+	Do HalffabItems.Accept(WriterVisitor)
+	write !
+	
+	
+	Set KostContext = ##class(DOM.PM.Maatwerk.Calc.Kost.KostContext).%New(Familie, Variant, BerekeningsSpecificatie)
+	
+	Set KostItem = KostContext.GeefKostSpec().BerekenKostDetails(KostContext,HalffabItemsBoom,IngegevenKenmerken)
+	Set KostItemWriterVisitor = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KostItemWriterVisitor).%New()
+	
+	write !
+	Do KostItem.Accept(KostItemWriterVisitor)
+	write !
+	
+	Quit
+	
+Error
+	Write ##class(TECH.ExceptionHandler).Catch().ToString()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFLadeZijkantv001.cls.xml
===================================================================
diff -u -r2020 -r2069
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFLadeZijkantv001.cls.xml	(.../HFLadeZijkantv001.cls.xml)	(revision 2020)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFLadeZijkantv001.cls.xml	(.../HFLadeZijkantv001.cls.xml)	(revision 2069)
@@ -28,15 +28,16 @@
 </Method>
 
 <Method name="GenereerKenmerken">
-<FormalSpec><![CDATA[IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,&SelectieKenmerken:%ArrayOfDataTypes]]></FormalSpec>
-<Private>1</Private>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
+	Set SelectieKenmerken = ##class(%ArrayOfDataTypes).%New()
 	// SelectieKenmerken invullen
 	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.ZijkantKleur '= -9999) SelectieKenmerken.SetAt(IngegevenKenmerken.ZijkantKleur,"ZijkantKleur")
 	Do:(IngegevenKenmerken.ZijkantHoogte '= -9999) SelectieKenmerken.SetAt(IngegevenKenmerken.ZijkantHoogte,"ZijkantHoogte")
 	Do:(IngegevenKenmerken.Uittrekbaarheid '= -9999) SelectieKenmerken.SetAt(IngegevenKenmerken.Uittrekbaarheid,"Uittrekbaarheid")
 	
@@ -48,6 +49,7 @@
 
 	; '@`$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))"))
+	Quit SelectieKenmerken
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/Maatwerk/Calc/HF/IHalffabItemBuilder.cls.xml
===================================================================
diff -u -r2020 -r2069
--- DOM/PM/Maatwerk/Calc/HF/IHalffabItemBuilder.cls.xml	(.../IHalffabItemBuilder.cls.xml)	(revision 2020)
+++ DOM/PM/Maatwerk/Calc/HF/IHalffabItemBuilder.cls.xml	(.../IHalffabItemBuilder.cls.xml)	(revision 2069)
@@ -117,7 +117,14 @@
 
 <Method name="Bereken">
 <Description>
-</Description>
+Hoofdfunctionaliteit van een builder: het produceren van 1 HalffabItem.  Dit wordt gebruikt bij het
+samenstellen van het maatwerkproduct.  Deze method legt het stramien vast van dergelijke functionaliteit:
+- Bepaal de selectiekenmerken
+- Bepaal de lijst van passende halffabs
+- Filter halffabs eruit
+- Valideer de overblijvende lijst halffabs
+- Genereer het HalffabItem
+- Naverwerking van het HalffabItem</Description>
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabItem</ReturnType>
 <Implementation><![CDATA[
@@ -137,34 +144,33 @@
 FoutBereken
 	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)
+	Set HFItemBerekenException = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HFItemBerekenException).%New(##this,HalffabList,Exception)
 	Do Context.LogExceptie(HFItemBerekenException)
 	Do ##class(TECH.ExceptionHandler).Throw(HFItemBerekenException)
 ]]></Implementation>
 </Method>
 
 <Method name="BerekenHalffabLijst">
 <Description>
-Geeft de lijst van halffabs die voldoen aan de selectiekenmerken op voorwaarde dar "de builder moet werken".
+Geeft de lijst van halffabs die voldoen aan de selectiekenmerken op voorwaarde dat "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 SelectieKenmerken = ..GenereerKenmerken(IngegevenKenmerken)
 		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)
+	Set Exception = ##class(TECH.ExceptionHandler).Catch("DOM.PM.Maatwerk.Calc.HF.impl.HFItemBuilderException")
+	Set HFItemBerekenException = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBerekenHalffabLijstException).%New(##this,SelectieKenmerken,Exception)
 	Do Context.LogExceptie(HFItemBerekenException)
 	Do ##class(TECH.ExceptionHandler).Throw(HFItemBerekenException)
 ]]></Implementation>
@@ -179,9 +185,21 @@
 </Method>
 
 <Method name="GenereerKenmerken">
-<FormalSpec><![CDATA[IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,&SelectieKenmerken:%ArrayOfDataTypes]]></FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[	// SelectieKenmerken invullen
+<Description>
+Elke builder moet deze method implementeren.  Wordt gebruikt voor drie doeleinden:
+1 Voor het bepalen van mogelijke ingegeven kenmerken.  In dit geval mogen de IngegevenKenmerken
+  die als parameter meegegeven worden onvolledig zijn.
+2 Voor het bouwen van het maatwerkproduct.  In dit geval moeten de IngegevenKenmerken
+  die meegegeven worden volledig zijn.
+3 Voor het rapporteren van kenmerken die eventueel een andere waarde zouden moeten krijgen
+  indien er met de huidige IngegevenKenmerken geen maatwerkproduct kan gebouwd worden.
+Wanneer een builder deze method niet implementeert zullen er geen geldige IngegevenKenmerken
+gevonden worden in use case 1 en kunnen er geen alternatieven voorgesteld worden in use case 3.</Description>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	// SelectieKenmerken invullen
+	Quit ""
 ]]></Implementation>
 </Method>
 
@@ -238,6 +256,15 @@
 <FormalSpec><![CDATA[&HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext,&HalffabList:%ListOfObjects]]></FormalSpec>
 </Method>
 
+<Method name="ZetSelectieKenmerk">
+<Description>
+Helper functie die de selectiekenmerken zet als de waarde is ingevuld.</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Selectiekenmerken:%ArrayOfDataTypes,KenmerkNaam:%String,Waarde</FormalSpec>
+<Implementation><![CDATA[	Do:(Waarde '= "") SelectieKenmerken.setAt(Waarde, KenmerkNaam)
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^DOM.PM.Maat772.IHalffabItem743D</DataLocation>
Index: DOM/PM/Maatwerk/Calc/HF/impl/HFBerekenHalffabLijstException.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/HF/impl/HFBerekenHalffabLijstException.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/HF/impl/HFBerekenHalffabLijstException.cls.xml	(revision 2069)
@@ -0,0 +1,62 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.Maatwerk.Calc.HF.impl.HFBerekenHalffabLijstException">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Exceptions.Exception</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="HFItemBuilder">
+<Type>DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SelectieKenmerken">
+<Type>%ArrayOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>HFItemBuilder:DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder,SelectieKenmerken:%ArrayOfDataTypes,InnerException:TECH.IException</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##super()
+	Set ..HFItemBuilder = HFItemBuilder
+	Set ..SelectieKenmerken = SelectieKenmerken
+	Set ..InnerException = InnerException
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefOmschrijving">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "Fout bij het berekenen van de halffabitems"
+]]></Implementation>
+</Method>
+
+<Method name="GeefExceptionCode">
+<ReturnType>TECH.enu.ExceptionCode</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.enu.ExceptionCode).InvalidInput()
+]]></Implementation>
+</Method>
+
+<Method name="ToString">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	
+	Set ExceptieString = "Fout bij het berekenen van halffabitems voor rol "_..HFItemBuilder.GeefRol()_$C(10,13)
+						_"Inner exception: "_..InnerException.ToString()_$C(10,13)_
+						 "SelectieKenmerken: "
+	Set Iterator = ##class(TECH.ListIterator).%New(..SelectieKenmerken)
+	While (Iterator.HasNext())
+	{
+		Set Waarde = Iterator.Next()
+		Set ExceptieString = ExceptieString_$C(10,13)_"    "_Iterator.Key()_": "_Waarde
+	}
+	Set ExceptieString = ExceptieString _ $C(10,13)_##super() _ $C(10,13)
+	Quit ExceptieString
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFLadeZijkantv001.cls.xml
===================================================================
diff -u -r1482 -r2069
--- vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFLadeZijkantv001.cls.xml	(.../HFLadeZijkantv001.cls.xml)	(revision 1482)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFLadeZijkantv001.cls.xml	(.../HFLadeZijkantv001.cls.xml)	(revision 2069)
@@ -13,7 +13,7 @@
 	Set Halffab.ZijkantDesign = "S"
 	Set Halffab.LadeDiepte = 500
 	Set Halffab.Draagkracht = 30
-	Set Halffab.Kleur = "MG"
+	Set Halffab.ZijkantKleur = "MG"
 	Set Halffab.ZijkantHoogte = "M"
 	Set Halffab.Uittrekbaarheid = "V"
 	Set Halffab.LiRe = "LI+RE"
@@ -25,7 +25,7 @@
 	Set Halffab.ZijkantDesign = "S"
 	Set Halffab.LadeDiepte = 450
 	Set Halffab.Draagkracht = 30
-	Set Halffab.Kleur = "MG"
+	Set Halffab.ZijkantKleur = "MG"
 	Set Halffab.ZijkantHoogte = "M"
 	Set Halffab.Uittrekbaarheid = "V"
 	Set Halffab.LiRe = "LI"
@@ -37,7 +37,7 @@
 	Set Halffab.ZijkantDesign = "S"
 	Set Halffab.LadeDiepte = 450
 	Set Halffab.Draagkracht = 30
-	Set Halffab.Kleur = "MG"
+	Set Halffab.ZijkantKleur = "MG"
 	Set Halffab.ZijkantHoogte = "M"
 	Set Halffab.Uittrekbaarheid = "V"
 	Set Halffab.LiRe = "RE"
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFBodemv001.cls.xml
===================================================================
diff -u -r1719 -r2069
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFBodemv001.cls.xml	(.../HFBodemv001.cls.xml)	(revision 1719)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFBodemv001.cls.xml	(.../HFBodemv001.cls.xml)	(revision 2069)
@@ -18,12 +18,14 @@
 </Method>
 
 <Method name="GenereerKenmerken">
-<FormalSpec><![CDATA[IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,&SelectieKenmerken:%ArrayOfDataTypes]]></FormalSpec>
-<Private>1</Private>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
+	Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeDiepte,"LadeDiepte")
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeKleur,"BodemKleur")
 	Do SelectieKenmerken.SetAt(##class(DOM.PM.enu.TAOOBodemBewerkbaar).Lengte(),"BewerkbaarOp")
+	Quit SelectieKenmerken
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/Maatwerk/TBX/HaluxWerkoverzichtHelper.cls.xml
===================================================================
diff -u -r1881 -r2069
--- DOM/PM/Maatwerk/TBX/HaluxWerkoverzichtHelper.cls.xml	(.../HaluxWerkoverzichtHelper.cls.xml)	(revision 1881)
+++ DOM/PM/Maatwerk/TBX/HaluxWerkoverzichtHelper.cls.xml	(.../HaluxWerkoverzichtHelper.cls.xml)	(revision 2069)
@@ -105,7 +105,7 @@
 <ReturnType>DOM.PM.Maatwerk.TBX.enu.LadeBeoordeling</ReturnType>
 <Implementation><![CDATA[
 	Set Beoordeling = ""
-	If (TBXKenmerken.InbouwBreedte <= 700)
+	If (TBXKenmerken.CorpusBinnenbreedte <= 700)
 	{
 		If ('TBXKenmerken.IsBinnenLade)
 		{
Index: DOM/PM/impl/DataM/DataMTBXLadeCreator.cls.xml
===================================================================
diff -u -r1516 -r2069
--- DOM/PM/impl/DataM/DataMTBXLadeCreator.cls.xml	(.../DataMTBXLadeCreator.cls.xml)	(revision 1516)
+++ DOM/PM/impl/DataM/DataMTBXLadeCreator.cls.xml	(.../DataMTBXLadeCreator.cls.xml)	(revision 2069)
@@ -3,14 +3,14 @@
 <Class name="DOM.PM.impl.DataM.DataMTBXLadeCreator">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.impl.DataM.DataMProductCreator</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefGenerischPRNr">
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
 	// Er zijn meerdere gevallen te dekken, zie de method GenerischPRNr() in Prod.GAData.Product
 	Quit 89322
-
 ]]></Implementation>
 </Method>
 
@@ -33,7 +33,7 @@
 	
 	Set IngegevenKenmerken = ..ProductSpecificatie.GeefIngegevenKenmerken()
 	
-	Set $E(KortTekst,12) = IngegevenKenmerken.LadeDiepte_"x"_IngegevenKenmerken.InbouwBreedte
+	Set $E(KortTekst,12) = IngegevenKenmerken.LadeDiepte_"x"_IngegevenKenmerken.CorpusBinnenbreedte
 	
 	Set $E(KortTekst,22)=LadeZijkantHalffab.Kleur
 	
@@ -42,7 +42,6 @@
 	// Zie ktxTBX() method in Prod.GAData.Product.tmpKPRCreate.MAC
 	
 	Quit KortTekst
-
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFLadeZijkantv001.cls.xml
===================================================================
diff -u -r1494 -r2069
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFLadeZijkantv001.cls.xml	(.../HFLadeZijkantv001.cls.xml)	(revision 1494)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFLadeZijkantv001.cls.xml	(.../HFLadeZijkantv001.cls.xml)	(revision 2069)
@@ -18,12 +18,14 @@
 </Method>
 
 <Method name="GenereerKenmerken">
-<FormalSpec><![CDATA[IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,&SelectieKenmerken:%ArrayOfDataTypes]]></FormalSpec>
-<Private>1</Private>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
+	Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeDiepte,"LadeDiepte")
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeHoogte,"ZijkantHoogte")
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeKleur,"ZijkantKleur")
+	Quit SelectieKenmerken
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFGlijderv001.cls.xml
===================================================================
diff -u -r1496 -r2069
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFGlijderv001.cls.xml	(.../HFGlijderv001.cls.xml)	(revision 1496)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFGlijderv001.cls.xml	(.../HFGlijderv001.cls.xml)	(revision 2069)
@@ -18,11 +18,13 @@
 </Method>
 
 <Method name="GenereerKenmerken">
-<FormalSpec><![CDATA[IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,&SelectieKenmerken:%ArrayOfDataTypes]]></FormalSpec>
-<Private>1</Private>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
+	Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeDiepte,"LadeDiepte")
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.Draagkracht,"Draagkracht")
+	Quit SelectieKenmerken
 ]]></Implementation>
 </Method>
 
Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r1554 -r2069
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 1554)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 2069)
@@ -83,6 +83,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="CloneArrayTweeDiep">
+<Description>
+Maakt een diepe copy (2 diep) van een aray.  De elementen van de array moeten %RegisteredObjects zijn.</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Source:%AbstractArray</FormalSpec>
+<ReturnType>%AbstractArray</ReturnType>
+<Implementation><![CDATA[
+	 Set Result = Source.%ConstructClone()
+	 Set Iterator = ##class(TECH.ListIterator).%New(Source)
+	 While (Iterator.HasNext()) {
+		 Set Item = Iterator.Next()
+		 Do Result.SetAt(Item.%ConstructClone(), Iterator.Key())
+	 }
+	 Quit Result
+]]></Implementation>
+</Method>
+
 <Method name="CopyListOfDataTypes">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>sourceList:%ListOfDataTypes,targetList:%ListOfDataTypes</FormalSpec>
Index: DOM/PM/Maatwerk/Calc/HF/impl/HFItemBerekenException.cls.xml
===================================================================
diff -u -r1969 -r2069
--- DOM/PM/Maatwerk/Calc/HF/impl/HFItemBerekenException.cls.xml	(.../HFItemBerekenException.cls.xml)	(revision 1969)
+++ DOM/PM/Maatwerk/Calc/HF/impl/HFItemBerekenException.cls.xml	(.../HFItemBerekenException.cls.xml)	(revision 2069)
@@ -10,28 +10,28 @@
 <Private>1</Private>
 </Property>
 
-<Property name="SelectieKenmerken">
-<Type>%ArrayOfDataTypes</Type>
+<Property name="HalffabLijst">
+<Type>%ListOfObjects</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>HFItemBuilder:DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder,SelectieKenmerken:%ArrayOfDataTypes,InnerException:TECH.IException</FormalSpec>
+<FormalSpec>HFItemBuilder:DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder,HalffabLijst:%ListOfObjects,InnerException:TECH.IException</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Do ##super()
 	Set ..HFItemBuilder = HFItemBuilder
-	Set ..SelectieKenmerken = SelectieKenmerken
+	Set ..HalffabLijst = HalffabLijst
 	Set ..InnerException = InnerException
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="GeefOmschrijving">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "Fout bij het berekenen van de halffabitems"
+<Implementation><![CDATA[	Quit "Fout bij het verwerken van de lijst met mogelijke halffabrikaten"
 ]]></Implementation>
 </Method>
 
@@ -46,15 +46,15 @@
 <Implementation><![CDATA[
 	
 	Set ExceptieString = "Fout bij het berekenen van halffabitems voor rol "_..HFItemBuilder.GeefRol()_$C(10,13)
-						_"Inner exception: "_..InnerException.ToString()_$C(10,13)_
-						 "SelectieKenmerken: "
-	Set Iterator = ##class(TECH.ListIterator).%New(..SelectieKenmerken)
+		//				_"Inner exception: "_..InnerException.ToString()_$C(10,13)
+						_ "Geselecteerde halffabrikaten (ID's):"
+	Set Iterator = ##class(TECH.ListIterator).%New(..HalffabLijst)
 	While (Iterator.HasNext())
 	{
-		Set Waarde = Iterator.Next()
-		Set ExceptieString = ExceptieString_$C(10,13)_"    "_Iterator.Key()_": "_Waarde
+		Set Halffab = Iterator.Next()
+		Set ExceptieString = ExceptieString_" "_Halffab.UnID
 	}
-	Set ExceptieString = ##super()	
+	Set ExceptieString =  ExceptieString _ $C(10,13)_##super() _ $C(10,13)
 	Quit ExceptieString
 ]]></Implementation>
 </Method>
Index: vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFBodemv001.cls.xml
===================================================================
diff -u -r1494 -r2069
--- vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFBodemv001.cls.xml	(.../HFBodemv001.cls.xml)	(revision 1494)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFBodemv001.cls.xml	(.../HFBodemv001.cls.xml)	(revision 2069)
@@ -16,15 +16,15 @@
 	Set Halffab.MateriaalType = "BODEM"
 	Set Halffab.LadeDiepte = 500
 	Set Halffab.LadeBreedte = 863
-	Set Halffab.Kleur = "LG"
+	Set Halffab.BodemKleur = "LG"
 	Set Halffab.UnID = 567902
 	Do HalffabTabel.VoegToeHalffab(Halffab)
 	
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabBodem).%New()
 	Set Halffab.MateriaalType = "BODEMSTRK"
 	Set Halffab.LadeDiepte = 500
 	Set Halffab.LadeBreedte = 2840
-	Set Halffab.Kleur = "LG"
+	Set Halffab.BodemKleur = "LG"
 	Do Halffab.BewerkbareProperties.Insert("LadeBreedte")
 	Set Halffab.UnID = 561591
 	Do HalffabTabel.VoegToeHalffab(Halffab)
@@ -37,7 +37,7 @@
 	
 	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
 	Set IngegevenKenmerken.LadeDiepte = 500
-	Set IngegevenKenmerken.InbouwBreedte = 863
+	Set IngegevenKenmerken.CorpusBinnenbreedte = 863
 	Set IngegevenKenmerken.BodemKleur = "LG"
 	
 	Do Context.HalffabItemsBoom.AddHalffabItem(..GeefLadeZijkantHalffab(Context))
@@ -60,7 +60,7 @@
 	
 	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
 	Set IngegevenKenmerken.LadeDiepte = 500
-	Set IngegevenKenmerken.InbouwBreedte = 863
+	Set IngegevenKenmerken.CorpusBinnenbreedte = 863
 	Set IngegevenKenmerken.BodemKleur = "LG"
 	Set IngegevenKenmerken.PlaatMateriaal="HZ" 
 	
Index: DOM/PM/impl/DataM/DataMLadeKenmerkenCreator.cls.xml
===================================================================
diff -u -r1075 -r2069
--- DOM/PM/impl/DataM/DataMLadeKenmerkenCreator.cls.xml	(.../DataMLadeKenmerkenCreator.cls.xml)	(revision 1075)
+++ DOM/PM/impl/DataM/DataMLadeKenmerkenCreator.cls.xml	(.../DataMLadeKenmerkenCreator.cls.xml)	(revision 2069)
@@ -45,7 +45,7 @@
 <Method name="GenereerKenmerken">
 <Implementation><![CDATA[
 	// Sommige kenmerken worden beter afgeleid uit de halffabitemsboom
-	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",..PRNr,"IB",..ProductSpecificatie.GeefIngegevenKenmerken().InbouwBreedte)
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",..PRNr,"IB",..ProductSpecificatie.GeefIngegevenKenmerken().CorpusBinnenbreedte)
 	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",..PRNr,"LT",$S(..ProductSpecificatie.GeefIngegevenKenmerken().IsBinnenLade=1:"B",1:"L"))
 	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",..PRNr,"KB",..ProductSpecificatie.GeefIngegevenKenmerken().BodemKleur)
 ]]></Implementation>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabFrontHouder.cls.xml
===================================================================
diff -u -r1075 -r2069
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabFrontHouder.cls.xml	(.../HalffabFrontHouder.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabFrontHouder.cls.xml	(.../HalffabFrontHouder.cls.xml)	(revision 2069)
@@ -22,7 +22,7 @@
 <Type>DOM.PM.enu.Verpakking</Type>
 </Property>
 
-<Property name="Kleur">
+<Property name="FronthouderKleur">
 <Type>%String</Type>
 </Property>
 
@@ -66,7 +66,7 @@
 
 <Index name="BitKleur">
 <Type>bitmap</Type>
-<Properties>Kleur</Properties>
+<Properties>FronthouderKleur</Properties>
 </Index>
 
 <Index name="BitLiRe">
@@ -125,6 +125,9 @@
 <Value name="10">
 <Value>LadeVariant</Value>
 </Value>
+<Value name="11">
+<Value>FronthouderKleur</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: zTryout/WV/PM/Maatwerk/HF/HalffabImportTBX.cls.xml
===================================================================
diff -u -r1641 -r2069
--- zTryout/WV/PM/Maatwerk/HF/HalffabImportTBX.cls.xml	(.../HalffabImportTBX.cls.xml)	(revision 1641)
+++ zTryout/WV/PM/Maatwerk/HF/HalffabImportTBX.cls.xml	(.../HalffabImportTBX.cls.xml)	(revision 2069)
@@ -25,7 +25,7 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ResultSet = ##class(%ResultSet).%New()
-	Do ResultSet.Prepare("SELECT ID FROM DOM_PM_Maatwerk_Calc_HF.Halffab WHERE Familie = Lade")
+	Do ResultSet.Prepare("SELECT ID FROM DOM_PM_Maatwerk_Calc_HF.Halffab WHERE Familie = 'Lade'")
 	Do ResultSet.Execute()
 	While (ResultSet.Next())
 	{
@@ -66,6 +66,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakLeeg">
+<Description>
+Oproepen via 
+   set sc=##class(zTryout.WV.PM.Maatwerk.HF.HalffabImportTBX).MaakLeeg()   w sc,! </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Aantal:%Integer=20</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..%New("VBA").KillHFGlobalsVBA()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="CreateHalffabTBX">
 <Description>
 Oproepen via 
Index: APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml
===================================================================
diff -u -r1898 -r2069
--- APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml	(.../KenmerkConvertor.cls.xml)	(revision 1898)
+++ APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml	(.../KenmerkConvertor.cls.xml)	(revision 2069)
@@ -20,8 +20,8 @@
 	Do ..Controleer(TBXKenmerken.LadeVariant,Product.GeefVariant(),"LadeVariant", ErrorLijst)
 	Do ..IsValid(TBXKenmerken.LadeVariant,"DOM.PM.enu.LadeVariant", ErrorLijst)
 
-	Set TBXKenmerken.InbouwBreedte = Product.GeefInbouwBreedte()
-	Do ..Controleer(TBXKenmerken.InbouwBreedte,Product.GeefInbouwBreedte(),"InbouwBreedte", ErrorLijst)
+	Set TBXKenmerken.CorpusBinnenbreedte = Product.GeefInbouwBreedte()
+	Do ..Controleer(TBXKenmerken.CorpusBinnenbreedte,Product.GeefInbouwBreedte(),"CorpusBinnenbreedte", ErrorLijst)
 
 	Set TBXKenmerken.LadeDiepte = Product.GeefLadeDiepte()
 	Do ..Controleer(TBXKenmerken.LadeDiepte,Product.GeefLadeDiepte(),"LadeDiepte", ErrorLijst)
Index: vhUnitTest/DOM/PM/Maatwerk/TBX/TestWerkoverzichtHelper.cls.xml
===================================================================
diff -u -r1881 -r2069
--- vhUnitTest/DOM/PM/Maatwerk/TBX/TestWerkoverzichtHelper.cls.xml	(.../TestWerkoverzichtHelper.cls.xml)	(revision 1881)
+++ vhUnitTest/DOM/PM/Maatwerk/TBX/TestWerkoverzichtHelper.cls.xml	(.../TestWerkoverzichtHelper.cls.xml)	(revision 2069)
@@ -10,15 +10,15 @@
 <Method name="TestGeefLadeBeoordeling">
 <Implementation><![CDATA[
 	Set TBXKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
-	Set TBXKenmerken.InbouwBreedte = 650
+	Set TBXKenmerken.CorpusBinnenbreedte = 650
 	Set TBXKenmerken.IsBinnenLade = 0
 	
 	Set LadeBeoordeling = ##class(DOM.PM.Maatwerk.TBX.HaluxWerkoverzichtHelper).GeefLadeBeoordeling(TBXKenmerken)
 	Do $$$AssertEquals(LadeBeoordeling, ##class(DOM.PM.Maatwerk.TBX.enu.LadeBeoordeling).Categorie1(),"Lade van categorie 1")
 	
 	
 	Set TBXKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
-	Set TBXKenmerken.InbouwBreedte = 650
+	Set TBXKenmerken.CorpusBinnenbreedte = 650
 	Set TBXKenmerken.IsBinnenLade = 1
 	Set TBXKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Laag()
 	
@@ -27,7 +27,7 @@
 	
 	
 	Set TBXKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
-	Set TBXKenmerken.InbouwBreedte = 650
+	Set TBXKenmerken.CorpusBinnenbreedte = 650
 	Set TBXKenmerken.IsBinnenLade = 1
 	Set TBXKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Boxside()
 	
@@ -36,15 +36,15 @@
 	
 	
 	Set TBXKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
-	Set TBXKenmerken.InbouwBreedte = 750
+	Set TBXKenmerken.CorpusBinnenbreedte = 750
 	Set TBXKenmerken.IsBinnenLade = 0
 	
 	Set LadeBeoordeling = ##class(DOM.PM.Maatwerk.TBX.HaluxWerkoverzichtHelper).GeefLadeBeoordeling(TBXKenmerken)
 	Do $$$AssertEquals(LadeBeoordeling, ##class(DOM.PM.Maatwerk.TBX.enu.LadeBeoordeling).Categorie4(),"Lade van categorie 1")
 	
 	
 	Set TBXKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
-	Set TBXKenmerken.InbouwBreedte = 750
+	Set TBXKenmerken.CorpusBinnenbreedte = 750
 	Set TBXKenmerken.IsBinnenLade = 1
 	Set TBXKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Laag()
 	
@@ -53,7 +53,7 @@
 	
 	
 	Set TBXKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
-	Set TBXKenmerken.InbouwBreedte = 750
+	Set TBXKenmerken.CorpusBinnenbreedte = 750
 	Set TBXKenmerken.IsBinnenLade = 1
 	Set TBXKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Boxside()
 	
Index: DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFDichtingv001.cls.xml
===================================================================
diff -u -r2012 -r2069
--- DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFDichtingv001.cls.xml	(.../HFDichtingv001.cls.xml)	(revision 2012)
+++ DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFDichtingv001.cls.xml	(.../HFDichtingv001.cls.xml)	(revision 2069)
@@ -40,14 +40,16 @@
 </Method>
 
 <Method name="GenereerKenmerken">
-<FormalSpec><![CDATA[IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,&SelectieKenmerken:%ArrayOfDataTypes]]></FormalSpec>
-<Private>1</Private>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	Set Opties=$S(IngegevenKenmerken.Vulling.VullingType?1(1"NY",1"MC",1"MP"):"D",1:"S")
 
+	Set SelectieKenmerken = ##class(%ArrayOfDataTypes).%New()
 	// SelectieKenmerken invullen 
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.ProfielType,"ProfielType")
 	Do SelectieKenmerken.SetAt(Opties,"Opties")   ; S of D
+	Quit SelectieKenmerken
 ]]></Implementation>
 </Method>
 
Index: zTryout/WV/PM/Maatwerk/HF/HalffabImport.cls.xml
===================================================================
diff -u -r1482 -r2069
--- zTryout/WV/PM/Maatwerk/HF/HalffabImport.cls.xml	(.../HalffabImport.cls.xml)	(revision 1482)
+++ zTryout/WV/PM/Maatwerk/HF/HalffabImport.cls.xml	(.../HalffabImport.cls.xml)	(revision 2069)
@@ -159,6 +159,7 @@
 <Private>1</Private>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	//d WLIP^vhDBG(204,"[CreateOneHalffab] PRNr="_PRNr_", ClassName="_ClassName)
 	Set objHalffab=$zobjclassmethod(ClassName,"%New")
 	Set objHalffab.UnID=PRNr
 
@@ -178,6 +179,7 @@
 		
 		If (Value '= "")
 		{
+			//d WLIP^vhDBG(204,"    Property "_ProptName_"="_Value)
 			Set $zobjProperty(objHalffab,ProptName)=Value
 		}
 	}
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabRugHouder.cls.xml
===================================================================
diff -u -r1075 -r2069
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabRugHouder.cls.xml	(.../HalffabRugHouder.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabRugHouder.cls.xml	(.../HalffabRugHouder.cls.xml)	(revision 2069)
@@ -10,7 +10,7 @@
 <Type>DOM.PM.enu.Verpakking</Type>
 </Property>
 
-<Property name="Kleur">
+<Property name="RughouderKleur">
 <Type>%String</Type>
 </Property>
 
@@ -39,7 +39,7 @@
 
 <Index name="BitKleur">
 <Type>bitmap</Type>
-<Properties>Kleur</Properties>
+<Properties>RughouderKleur</Properties>
 </Index>
 
 <Index name="BitLiRe">
@@ -73,6 +73,9 @@
 <Value name="5">
 <Value>ZijwandHoogte</Value>
 </Value>
+<Value name="6">
+<Value>RughouderKleur</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml
===================================================================
diff -u -r2010 -r2069
--- DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml	(.../IKCanonischeWaardeGenerator.cls.xml)	(revision 2010)
+++ DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml	(.../IKCanonischeWaardeGenerator.cls.xml)	(revision 2069)
@@ -28,7 +28,7 @@
 	Set ..CanonischeWaarde = ""
 	Do ..VerwerkIngegevenKenmerken(TBXKenmerken)
 	
-	Set ..CanonischeWaarde = ..CanonischeWaarde_";"_TBXKenmerken.InbouwBreedte_";"_TBXKenmerken.LadeDiepte_";"_TBXKenmerken.LadeVariant_";"_TBXKenmerken.IsBinnenLade_";"_TBXKenmerken.Antislipmat_";"_TBXKenmerken.Blumotion_";"_TBXKenmerken.TipOn_";"_TBXKenmerken.BodemKleur_";"_TBXKenmerken.Draagkracht_";"_TBXKenmerken.Dwarsverdeling_";"_TBXKenmerken.FrontBevestiging_";"_TBXKenmerken.FrontHouderKleur_
+	Set ..CanonischeWaarde = ..CanonischeWaarde_";"_TBXKenmerken.CorpusBinnenbreedte_";"_TBXKenmerken.LadeDiepte_";"_TBXKenmerken.LadeVariant_";"_TBXKenmerken.IsBinnenLade_";"_TBXKenmerken.Antislipmat_";"_TBXKenmerken.Blumotion_";"_TBXKenmerken.TipOn_";"_TBXKenmerken.BodemKleur_";"_TBXKenmerken.Draagkracht_";"_TBXKenmerken.Dwarsverdeling_";"_TBXKenmerken.FrontBevestiging_";"_TBXKenmerken.FrontHouderKleur_
 		";"_TBXKenmerken.FrontOndersteuningAantal_";"_TBXKenmerken.FrontOndersteuningType_";"_TBXKenmerken.HangmapBoringen_";"_TBXKenmerken.Klasse_";"_TBXKenmerken.OpvullijstLinks_";"_TBXKenmerken.OpvullijstRechts_";"_TBXKenmerken.PlaatMateriaal_";"_TBXKenmerken.RugKleur_";"_TBXKenmerken.RugHouderKleur_";"_TBXKenmerken.RugHoogte_";"_TBXKenmerken.RugMateriaal_
 		";"_TBXKenmerken.SpoelbakBinnenzijwandHoogte_";"_TBXKenmerken.TussenrugMateriaal_";"_TBXKenmerken.UitsparingZijkantKleur_";"_TBXKenmerken.Stabilisator_";"_TBXKenmerken.UitsparingBreedte1_";"_TBXKenmerken.UitsparingBreedte2_";"_TBXKenmerken.UitsparingDiepte_";"_TBXKenmerken.UitsparingPositie1_";"_TBXKenmerken.UitsparingPositie2_";"_TBXKenmerken.Uittrekbaarheid_";"_TBXKenmerken.Verpakking_";"_TBXKenmerken.VoorwandMetMeenemer_
 		";"_TBXKenmerken.VoorwandMetGreep_";"_TBXKenmerken.VoorwandVerhogingType_";"_TBXKenmerken.VoorwandVerhogingMateriaal_";"_TBXKenmerken.VoorwandVerhogingKleur_";"_TBXKenmerken.ZijkantDesign_";"_TBXKenmerken.ZijkantHoogte_";"_TBXKenmerken.ZijkantKleur_";"_TBXKenmerken.ZijwandHoogte_";"_TBXKenmerken.ZijwandVerhogingType_";"_TBXKenmerken.ZijwandVerhogingMateriaal_
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabBoxCap.cls.xml
===================================================================
diff -u -r1075 -r2069
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabBoxCap.cls.xml	(.../HalffabBoxCap.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabBoxCap.cls.xml	(.../HalffabBoxCap.cls.xml)	(revision 2069)
@@ -18,7 +18,7 @@
 <Type>%Integer</Type>
 </Property>
 
-<Property name="Kleur">
+<Property name="ZijwandVerhogingKleur">
 <Type>%String</Type>
 </Property>
 
@@ -52,7 +52,7 @@
 
 <Index name="BitKleur">
 <Type>bitmap</Type>
-<Properties>Kleur</Properties>
+<Properties>ZijwandVerhogingKleur</Properties>
 </Index>
 
 <Index name="BitLiRe">
@@ -100,6 +100,9 @@
 <Value name="8">
 <Value>LadeVariant</Value>
 </Value>
+<Value name="9">
+<Value>ZijwandVerhogingKleur</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFRugHouderv001.cls.xml
===================================================================
diff -u -r1482 -r2069
--- vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFRugHouderv001.cls.xml	(.../HFRugHouderv001.cls.xml)	(revision 1482)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFRugHouderv001.cls.xml	(.../HFRugHouderv001.cls.xml)	(revision 2069)
@@ -14,7 +14,7 @@
 <Implementation><![CDATA[
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabRugHouder).%New()
 	Set Halffab.RugHoogte = "B"
-	Set Halffab.Kleur = "SW"
+	Set Halffab.RughouderKleur = "SW"
 	Set Halffab.ZijwandHoogte = "B"
 	Set Halffab.Verpakking = "I"
 	Set Halffab.LiRe = "LI"
@@ -23,7 +23,7 @@
 	
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabRugHouder).%New()
 	Set Halffab.RugHoogte = "B"
-	Set Halffab.Kleur = "SW"
+	Set Halffab.RughouderKleur = "SW"
 	Set Halffab.ZijwandHoogte = "B"
 	Set Halffab.Verpakking = "I"
 	Set Halffab.LiRe = "RE"
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabReling.cls.xml
===================================================================
diff -u -r1075 -r2069
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabReling.cls.xml	(.../HalffabReling.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabReling.cls.xml	(.../HalffabReling.cls.xml)	(revision 2069)
@@ -18,7 +18,7 @@
 <Type>%Integer</Type>
 </Property>
 
-<Property name="Kleur">
+<Property name="ZijwandVerhogingKleur">
 <Type>%String</Type>
 </Property>
 
@@ -44,7 +44,7 @@
 
 <Index name="BitKleur">
 <Type>bitmap</Type>
-<Properties>Kleur</Properties>
+<Properties>ZijwandVerhogingKleur</Properties>
 </Index>
 
 <Index name="BitLiRe">
@@ -76,6 +76,9 @@
 <Value name="6">
 <Value>LadeVariant</Value>
 </Value>
+<Value name="7">
+<Value>ZijwandVerhogingKleur</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugHouderv001.cls.xml
===================================================================
diff -u -r1482 -r2069
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugHouderv001.cls.xml	(.../HFRugHouderv001.cls.xml)	(revision 1482)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugHouderv001.cls.xml	(.../HFRugHouderv001.cls.xml)	(revision 2069)
@@ -28,18 +28,18 @@
 </Method>
 
 <Method name="GenereerKenmerken">
-<FormalSpec><![CDATA[IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,&SelectieKenmerken:%ArrayOfDataTypes]]></FormalSpec>
-<Private>1</Private>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	// SelectieKenmerken invullen
-	Do SelectieKenmerken.SetAt(IngegevenKenmerken.RugHouderKleur,"Kleur")
-	Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijwandHoogte,"ZijwandHoogte")
-	Do SelectieKenmerken.SetAt(IngegevenKenmerken.RugHoogte,"RugHoogte")
-	;Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeVariant,"LadeVariant")
+	Set SelectieKenmerken = ##class(%ArrayOfDataTypes).%New()
+	Do:(IngegevenKenmerken.RugHouderKleur '= -9999) SelectieKenmerken.SetAt(IngegevenKenmerken.RugHouderKleur,"RughouderKleur")
+	Do:(IngegevenKenmerken.ZijwandHoogte '= -9999) SelectieKenmerken.SetAt(IngegevenKenmerken.ZijwandHoogte,"ZijwandHoogte")
+	Do:(IngegevenKenmerken.RugHoogte '= -9999) SelectieKenmerken.SetAt(IngegevenKenmerken.RugHoogte,"RugHoogte")
 	
 	; '@`$LB($LB("BasisType","RUGH"),$LB("tB","1"),$LB("Kleur",Self.Val("KR")),$LB("RugHoogte",Self.Val("RH") _ $S($L(Self.Val("RSTL")):"-"_Self.Val("RSTL"),1:"")  ) 
 	;       ,$LB("$COMB$","($CASE({Verpakking},""E"":1,""I"":10,:20)+$CASE({LiRe},""LI"":0,:1))"))
 	;
+	Quit SelectieKenmerken
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/DOM/PM/Maatwerk/HF/CreateDataTBX.cls.xml
===================================================================
diff -u -r1482 -r2069
--- vhUnitTest/DOM/PM/Maatwerk/HF/CreateDataTBX.cls.xml	(.../CreateDataTBX.cls.xml)	(revision 1482)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/CreateDataTBX.cls.xml	(.../CreateDataTBX.cls.xml)	(revision 2069)
@@ -40,7 +40,7 @@
 	Set TBX.RugHouderKleur="MG"
 	Set TBX.Draagkracht=30
 	Set TBX.LadeDiepte=500
-	Set TBX.InbouwBreedte=863
+	Set TBX.CorpusBinnenbreedte=863
 	Set TBX.IsBinnenLade=0
 	Set TBX.Uittrekbaarheid="V"
 	Set TBX.ZijkantHoogte="M"
@@ -82,7 +82,7 @@
 	Set TBX.RugHouderKleur="SW"
 	Set TBX.Draagkracht=30
 	Set TBX.LadeDiepte=500
-	Set TBX.InbouwBreedte=863
+	Set TBX.CorpusBinnenbreedte=863
 	Set TBX.IsBinnenLade=1
 	Set TBX.Uittrekbaarheid="V"
 	Set TBX.ZijkantHoogte="L"
@@ -145,7 +145,7 @@
 	Set TBX.RelingKleur="SW"
 	Set TBX.Draagkracht=30
 	Set TBX.LadeDiepte=500
-	Set TBX.InbouwBreedte=863
+	Set TBX.CorpusBinnenbreedte=863
 	Set TBX.IsBinnenLade = 0
 	Set TBX.Uittrekbaarheid="V"
 	Set TBX.ZijkantHoogte="M"
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFFrontv001.cls.xml
===================================================================
diff -u -r1719 -r2069
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFFrontv001.cls.xml	(.../HFFrontv001.cls.xml)	(revision 1719)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFFrontv001.cls.xml	(.../HFFrontv001.cls.xml)	(revision 2069)
@@ -18,12 +18,14 @@
 </Method>
 
 <Method name="GenereerKenmerken">
-<FormalSpec><![CDATA[IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,&SelectieKenmerken:%ArrayOfDataTypes]]></FormalSpec>
-<Private>1</Private>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
+	Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeHoogte,"FrontHoogte")
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeKleur,"FrontKleur")
 	Do SelectieKenmerken.SetAt(##class(DOM.PM.enu.TAOOFrontBewerkbaar).Lengte(),"BewerkbaarOp")
+	Quit SelectieKenmerken
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/DOM/PM/impl/TestIKCanonischeWaarde.cls.xml
===================================================================
diff -u -r2010 -r2069
--- vhUnitTest/DOM/PM/impl/TestIKCanonischeWaarde.cls.xml	(.../TestIKCanonischeWaarde.cls.xml)	(revision 2010)
+++ vhUnitTest/DOM/PM/impl/TestIKCanonischeWaarde.cls.xml	(.../TestIKCanonischeWaarde.cls.xml)	(revision 2069)
@@ -111,7 +111,7 @@
 	Do TBXKenmerken.Onderdelen.Insert("Bodem")
 	Do TBXKenmerken.Onderdelen.Insert("Rug")
 	
-	Set TBXKenmerken.InbouwBreedte = 200
+	Set TBXKenmerken.CorpusBinnenbreedte = 200
 	Set TBXKenmerken.LadeDiepte = 250
 	Set TBXKenmerken.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus()
 	Set TBXKenmerken.IsBinnenLade = 1
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabRug.cls.xml
===================================================================
diff -u -r1075 -r2069
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabRug.cls.xml	(.../HalffabRug.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabRug.cls.xml	(.../HalffabRug.cls.xml)	(revision 2069)
@@ -10,7 +10,7 @@
 <Type>%Integer</Type>
 </Property>
 
-<Property name="Kleur">
+<Property name="RugKleur">
 <Type>%String</Type>
 </Property>
 
@@ -34,7 +34,7 @@
 
 <Index name="BitKleur">
 <Type>bitmap</Type>
-<Properties>Kleur</Properties>
+<Properties>RugKleur</Properties>
 </Index>
 
 <Index name="BitMateriaalType">
@@ -60,6 +60,9 @@
 <Value name="4">
 <Value>RugHoogte</Value>
 </Value>
+<Value name="5">
+<Value>RugKleur</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFFrontHouderv002.cls.xml
===================================================================
diff -u -r1482 -r2069
--- vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFFrontHouderv002.cls.xml	(.../HFFrontHouderv002.cls.xml)	(revision 1482)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFFrontHouderv002.cls.xml	(.../HFFrontHouderv002.cls.xml)	(revision 2069)
@@ -17,7 +17,7 @@
 	Set Halffab.ZijkantDesign = "A"
 	Set Halffab.ZijwandHoogte = "C"
 	Set Halffab.FrontType = "B"
-	Set Halffab.Kleur = "SW"
+	Set Halffab.FronthouderKleur = "SW"
 	Set Halffab.Verpakking = "I"
 	Set Halffab.LiRe = "LI"
 	Set Halffab.Frontbevestiging = "GLAS"
@@ -29,7 +29,7 @@
 	Set Halffab.ZijkantDesign = "A"
 	Set Halffab.ZijwandHoogte = "C"
 	Set Halffab.FrontType = "B"
-	Set Halffab.Kleur = "SW"
+	Set Halffab.FronthouderKleur = "SW"
 	Set Halffab.Verpakking = "I"
 	Set Halffab.LiRe = "RE"
 	Set Halffab.Frontbevestiging = "GLAS"
@@ -41,7 +41,7 @@
 	Set Halffab.ZijkantDesign = "A"
 	Set Halffab.ZijwandHoogte = "C"
 	Set Halffab.FrontType = "B"
-	Set Halffab.Kleur = "SW"
+	Set Halffab.FronthouderKleur = "SW"
 	Set Halffab.Verpakking = "I"
 	Set Halffab.LiRe = "LI"
 	Set Halffab.Frontbevestiging = "RELING"
@@ -53,7 +53,7 @@
 	Set Halffab.ZijkantDesign = "A"
 	Set Halffab.ZijwandHoogte = "C"
 	Set Halffab.FrontType = "B"
-	Set Halffab.Kleur = "SW"
+	Set Halffab.FronthouderKleur = "SW"
 	Set Halffab.Verpakking = "I"
 	Set Halffab.LiRe = "RE"
 	Set Halffab.Frontbevestiging = "RELING"
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBodemv001.cls.xml
===================================================================
diff -u -r2020 -r2069
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBodemv001.cls.xml	(.../HFBodemv001.cls.xml)	(revision 2020)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBodemv001.cls.xml	(.../HFBodemv001.cls.xml)	(revision 2069)
@@ -39,15 +39,12 @@
 		Set Halffab=HalffabItemZijkant.Halffab
 		Set AftrekVoorBodem=Halffab.AftrekVoorBodem
 	 
-		Set LadeBreedte=IngegevenKenmerken.InbouwBreedte
+		Set LadeBreedte=IngegevenKenmerken.CorpusBinnenbreedte
 		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 SelectieKenmerken = ..GenereerKenmerken(IngegevenKenmerken)
+		Set HalffabList = Context.SelecteerHalffabrikaten(##this, SelectieKenmerken)
 
 		Set BodemViaStrook=(IngegevenKenmerken.PlaatMateriaal?1(1"HS",1"KS"))
 		
@@ -97,29 +94,32 @@
 </Method>
 
 <Method name="GenereerKenmerken">
-<FormalSpec><![CDATA[IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,&SelectieKenmerken:%ArrayOfDataTypes]]></FormalSpec>
-<Private>1</Private>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-		// TODO FMA BewerkbareProperties gebruiken ipv MateriaalType
+	// TODO FMA BewerkbareProperties gebruiken ipv MateriaalType
+	
+	Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
+
+	Set BodemViaStrook=(IngegevenKenmerken.PlaatMateriaal?1(1"HS",1"KS"))
+	
+	If ($$$Not(BodemViaStrook)) 
+	{
+		// Bodem reeds op maat gezaagd (exact, standaard halffab) 
 		
-		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")
-		}
+		// 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,"BodemKleur")
+		Do:(IngegevenKenmerken.CorpusBinnenbreedte '= -9999) SelectieKenmerken.SetAt(IngegevenKenmerken.CorpusBinnenbreedte,"LadeBreedte")
+	}
+	Else
+	{
+		Do SelectieKenmerken.SetAt("BODEMSTRK","MateriaalType")
+		Do:(IngegevenKenmerken.LadeDiepte '= -9999) SelectieKenmerken.SetAt(IngegevenKenmerken.LadeDiepte,"LadeDiepte")
+		Do:(IngegevenKenmerken.BodemKleur '= -9999) SelectieKenmerken.SetAt(IngegevenKenmerken.BodemKleur,"BodemKleur")
+	}
+	Quit SelectieKenmerken
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabLadeZijkant.cls.xml
===================================================================
diff -u -r1555 -r2069
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabLadeZijkant.cls.xml	(.../HalffabLadeZijkant.cls.xml)	(revision 1555)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabLadeZijkant.cls.xml	(.../HalffabLadeZijkant.cls.xml)	(revision 2069)
@@ -26,7 +26,7 @@
 <Type>DOM.PM.enu.Verpakking</Type>
 </Property>
 
-<Property name="Kleur">
+<Property name="ZijkantKleur">
 <Type>%String</Type>
 </Property>
 
@@ -79,7 +79,7 @@
 
 <Index name="BitKleur">
 <Type>bitmap</Type>
-<Properties>Kleur</Properties>
+<Properties>ZijkantKleur</Properties>
 </Index>
 
 <Index name="BitLiRe">
@@ -138,6 +138,9 @@
 <Value name="12">
 <Value>LadeVariant</Value>
 </Value>
+<Value name="13">
+<Value>ZijkantKleur</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFInschuifElementv001.cls.xml
===================================================================
diff -u -r1482 -r2069
--- vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFInschuifElementv001.cls.xml	(.../HFInschuifElementv001.cls.xml)	(revision 1482)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFInschuifElementv001.cls.xml	(.../HFInschuifElementv001.cls.xml)	(revision 2069)
@@ -16,7 +16,7 @@
 	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()
 	Set Halffab.LadeDiepte = 500
 	Set Halffab.ZijwandHoogte = "D"
-	Set Halffab.Kleur = "DIA"
+	Set Halffab.ZijwandVerhogingKleur = "DIA"
 	Set Halffab.UnID = 425414
 	Do HalffabTabel.VoegToeHalffab(Halffab)
 
@@ -25,7 +25,7 @@
 	Set Halffab.LadeDiepte = 1050
 	Set Halffab.LadeBreedte = 1145
 	Set Halffab.ZijwandHoogte = "D"
-	Set Halffab.Kleur = "DIA"
+	Set Halffab.ZijwandVerhogingKleur = "DIA"
 	Do Halffab.BewerkbareProperties.Insert("LadeDiepte")
 	Set Halffab.UnID = 454732
 	Do HalffabTabel.VoegToeHalffab(Halffab)
@@ -34,7 +34,7 @@
 	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()
 	Set Halffab.LadeDiepte = 500
 	Set Halffab.ZijwandHoogte = "D"
-	Set Halffab.Kleur = "DBR"
+	Set Halffab.ZijwandVerhogingKleur = "DBR"
 	Do Halffab.BewerkbareProperties.Insert("LadeDiepte")
 	Do Halffab.BewerkbareProperties.Insert("ZijwandHoogte")
 	Set Halffab.UnID = 506222
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontRelingHouderv001.cls.xml
===================================================================
diff -u -r2012 -r2069
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontRelingHouderv001.cls.xml	(.../HFFrontRelingHouderv001.cls.xml)	(revision 2012)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontRelingHouderv001.cls.xml	(.../HFFrontRelingHouderv001.cls.xml)	(revision 2069)
@@ -52,17 +52,18 @@
 </Method>
 
 <Method name="GenereerKenmerken">
-<FormalSpec><![CDATA[IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,&SelectieKenmerken:%ArrayOfDataTypes]]></FormalSpec>
-<Private>1</Private>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	// SelectieKenmerken invullen 
+	Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
 	;Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeVariant,"LadeVariant")
 	;Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijkantDesign,"ZijkantDesign")
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijwandHoogte,"ZijwandHoogte")
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.FrontHouderKleur,"Kleur")
 	;Do SelectieKenmerken.SetAt("FRONTB_RH","MateriaalType")   ; BasisType OLD 	
 	
 	//  OPGELET :  BIJ  GenereerHalffabItem  MOET HET AANTAL OP 2 GEZET WORDEN !!!
+	Quit SelectieKenmerken
 ]]></Implementation>
 </Method>
 
@@ -91,8 +92,7 @@
 	Set HalffabItem = ""
 	If (..BuilderMoetWerken(IngegevenKenmerken,Context))
 	{
-		Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
-		Do ..GenereerKenmerken(IngegevenKenmerken, .SelectieKenmerken)
+		Set SelectieKenmerken= ..GenereerKenmerken(IngegevenKenmerken)
 		Set HalffabList = Context.SelecteerHalffabrikaten(##this,SelectieKenmerken)
 		Do ..FilterHalffabList(.HalffabList, IngegevenKenmerken, Context)
 		Do ..ValideerHalffabList(.HalffabList)
Index: DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml
===================================================================
diff -u -r2004 -r2069
--- DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml	(.../TBXKenmerken.cls.xml)	(revision 2004)
+++ DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml	(.../TBXKenmerken.cls.xml)	(revision 2069)
@@ -7,7 +7,7 @@
 <Super>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Property name="InbouwBreedte">
+<Property name="CorpusBinnenbreedte">
 <Type>%Float</Type>
 </Property>
 
@@ -248,7 +248,7 @@
 	Do TBXKenmerken.ZetKenmerkenHoutKleur(BodemKleur)
 	Set TBXKenmerken.LadeDiepte = LadeDiepte
 	Set TBXKenmerken.Draagkracht = Draagkracht
-	Set TBXKenmerken.InbouwBreedte = InbouwBreedte
+	Set TBXKenmerken.CorpusBinnenbreedte = InbouwBreedte
 
 	Quit TBXKenmerken
 ]]></Implementation>
@@ -644,7 +644,7 @@
 <Value>HangmapBoringen</Value>
 </Value>
 <Value name="11">
-<Value>InbouwBreedte</Value>
+<Value>CorpusBinnenbreedte</Value>
 </Value>
 <Value name="12">
 <Value>IsBinnenLade</Value>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabBodem.cls.xml
===================================================================
diff -u -r1719 -r2069
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabBodem.cls.xml	(.../HalffabBodem.cls.xml)	(revision 1719)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HalffabBodem.cls.xml	(.../HalffabBodem.cls.xml)	(revision 2069)
@@ -14,7 +14,7 @@
 <Type>%Integer</Type>
 </Property>
 
-<Property name="Kleur">
+<Property name="BodemKleur">
 <Type>%String</Type>
 </Property>
 
@@ -34,7 +34,7 @@
 
 <Index name="BitKleur">
 <Type>bitmap</Type>
-<Properties>Kleur</Properties>
+<Properties>BodemKleur</Properties>
 </Index>
 
 <Index name="BitMateriaalType">
@@ -59,6 +59,9 @@
 <Value name="4">
 <Value>MateriaalType</Value>
 </Value>
+<Value name="5">
+<Value>BodemKleur</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontHouderv001.cls.xml
===================================================================
diff -u -r2012 -r2069
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontHouderv001.cls.xml	(.../HFFrontHouderv001.cls.xml)	(revision 2012)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontHouderv001.cls.xml	(.../HFFrontHouderv001.cls.xml)	(revision 2069)
@@ -26,21 +26,21 @@
 </Method>
 
 <Method name="GenereerKenmerken">
-<FormalSpec><![CDATA[IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,&SelectieKenmerken:%ArrayOfDataTypes]]></FormalSpec>
-<Private>1</Private>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	/*   DIT IS DE TOESTAND vóór de nieuwe ZIF-intivo,           */
 	/*   m.a.w. geen onderscheid tussen RELING of GLAZEN front   */
 	
-	// SelectieKenmerken invullen
+	Set SelectieKenmerken = ##class(%ArrayOfDataTypes).%New()
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeVariant,"LadeVariant")
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijkantDesign,"ZijkantDesign")
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijwandHoogte,"ZijwandHoogte")
 	Do SelectieKenmerken.SetAt($S(IngegevenKenmerken.IsBinnenLade=1:"B",1:"L"),"FrontType")
 	;Do SelectieKenmerken.SetAt("FRONTB_OLD","MateriaalType")   ; BasisType OLD 
 	;Do SelectieKenmerken.SetAt("ZIF_OLD","Opties")
 	If (IngegevenKenmerken.LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXIntivo())||(IngegevenKenmerken.LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXAntaro()) {
-		Do SelectieKenmerken.SetAt(IngegevenKenmerken.FrontHouderKleur,"Kleur")
+		Do SelectieKenmerken.SetAt(IngegevenKenmerken.FrontHouderKleur,"FronthouderKleur")
 	}
 	Else {
 		// [CSC] Deze else is nooit getest geworden en zal ook niet werken omdat de variabele opties niet gezet werd
@@ -57,6 +57,7 @@
 	;                                     	   )
 	;           )
 	;        _ $LB($LB("$COMB$","($CASE({Verpakking},""E"":1,""I"":10,:20)+$CASE({LiRe},""LI"":0,:1))"))
+	Quit SelectieKenmerken
 ]]></Implementation>
 </Method>
 
@@ -86,8 +87,7 @@
 	Set HalffabItem = ""
 	If (..BuilderMoetWerken(IngegevenKenmerken))
 	{
-		Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
-		Do ..GenereerKenmerken(IngegevenKenmerken, .SelectieKenmerken)
+		Set SelectieKenmerken = ..GenereerKenmerken(IngegevenKenmerken)
 		Set HalffabList = Context.SelecteerHalffabrikaten(##this,SelectieKenmerken)
 		Do ..FilterHalffabList(.HalffabList, IngegevenKenmerken, Context)
 		Do ..ValideerHalffabList(.HalffabList)
Index: DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFHoekVerbinderv001.cls.xml
===================================================================
diff -u -r2012 -r2069
--- DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFHoekVerbinderv001.cls.xml	(.../HFHoekVerbinderv001.cls.xml)	(revision 2012)
+++ DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFHoekVerbinderv001.cls.xml	(.../HFHoekVerbinderv001.cls.xml)	(revision 2069)
@@ -33,11 +33,12 @@
 </Method>
 
 <Method name="GenereerKenmerken">
-<FormalSpec><![CDATA[IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,&SelectieKenmerken:%ArrayOfDataTypes]]></FormalSpec>
-<Private>1</Private>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	// SelectieKenmerken invullen 
+	Set SelectieKenmerken = ##class(%ArrayOfDataTypes).%New()
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.ProfielType,"ProfielType")
+	Quit SelectieKenmerken
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontHouderv002.cls.xml
===================================================================
diff -u -r1075 -r2069
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontHouderv002.cls.xml	(.../HFFrontHouderv002.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontHouderv002.cls.xml	(.../HFFrontHouderv002.cls.xml)	(revision 2069)
@@ -7,13 +7,13 @@
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GenereerKenmerken">
-<FormalSpec><![CDATA[IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,&SelectieKenmerken:%ArrayOfDataTypes]]></FormalSpec>
-<Private>1</Private>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	/*   DIT IS DE TOESTAND met de nieuwe ZIF-intivo,                          */
 	/*   m.a.w. opsplitsing van de fronthouders voor  RELING of GLAZEN front   */
 	
-	Do ##super(IngegevenKenmerken,.SelectieKenmerken)
+	Set SelectieKenmerken = ##super(IngegevenKenmerken)
 	
 	// Kenmerken GEWIJZIGD t.o.v. de vorige versie 
  ;	Do SelectieKenmerken.SetAt("FRONTB","MateriaalType")   ; in v001 : "FRONTB_OLD" 
@@ -27,7 +27,7 @@
 	// Kenmerken VERWIJDERD t.o.v. de vorige versie 
  ;	Do SelectieKenmerken.RemoveAt(KenmerkNaamXX)
 	
-	Quit
+	Quit SelectieKenmerken
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFFrontHouderv001.cls.xml
===================================================================
diff -u -r1482 -r2069
--- vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFFrontHouderv001.cls.xml	(.../HFFrontHouderv001.cls.xml)	(revision 1482)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFFrontHouderv001.cls.xml	(.../HFFrontHouderv001.cls.xml)	(revision 2069)
@@ -17,7 +17,7 @@
 	Set Halffab.ZijkantDesign = "A"
 	Set Halffab.ZijwandHoogte = "C"
 	Set Halffab.FrontType = "B"
-	Set Halffab.Kleur = "SW"
+	Set Halffab.FronthouderKleur = "SW"
 	Set Halffab.Verpakking = "I"
 	Set Halffab.LiRe = "LI"
 	Set Halffab.UnID = 1001
@@ -28,7 +28,7 @@
 	Set Halffab.ZijkantDesign = "A"
 	Set Halffab.ZijwandHoogte = "C"
 	Set Halffab.FrontType = "B"
-	Set Halffab.Kleur = "SW"
+	Set Halffab.FronthouderKleur = "SW"
 	Set Halffab.Verpakking = "I"
 	Set Halffab.LiRe = "RE"
 	Set Halffab.UnID = 1002
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFRugv001.cls.xml
===================================================================
diff -u -r1719 -r2069
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFRugv001.cls.xml	(.../HFRugv001.cls.xml)	(revision 1719)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFRugv001.cls.xml	(.../HFRugv001.cls.xml)	(revision 2069)
@@ -18,12 +18,14 @@
 </Method>
 
 <Method name="GenereerKenmerken">
-<FormalSpec><![CDATA[IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,&SelectieKenmerken:%ArrayOfDataTypes]]></FormalSpec>
-<Private>1</Private>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
+	Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeHoogte,"RugHoogte")
 	Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeKleur,"RugKleur")
 	Do SelectieKenmerken.SetAt(##class(DOM.PM.enu.TAOORugBewerkbaar).Lengte(),"BewerkbaarOp")
+	Quit SelectieKenmerken
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugv001.cls.xml
===================================================================
diff -u -r2012 -r2069
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugv001.cls.xml	(.../HFRugv001.cls.xml)	(revision 2012)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugv001.cls.xml	(.../HFRugv001.cls.xml)	(revision 2069)
@@ -35,33 +35,27 @@
 <Implementation><![CDATA[
 	Set HalffabItem = ""
 	Set BuilderMoetWerken=(1)  ; && ($$$Not(LosseOnderdelen))
+
+	Set HalffabItemZijkant=Context.HalffabItemsBoom.GeefHalffabItem("LadeZijkant").GeefHalffabItem("Links")
+	Set Halffab=HalffabItemZijkant.Halffab
+	Set AftrekVoorRug=Halffab.AftrekVoorRug
+ 
+	Set LadeBreedte=IngegevenKenmerken.CorpusBinnenbreedte
+	Set Rugbreedte=LadeBreedte-AftrekVoorRug
 	
 	If (BuilderMoetWerken)
 	{
-		Set HalffabItemZijkant=Context.HalffabItemsBoom.GeefHalffabItem("LadeZijkant").GeefHalffabItem("Links")
-		Set Halffab=HalffabItemZijkant.Halffab
-		Set AftrekVoorRug=Halffab.AftrekVoorRug
-	 
-		Set LadeBreedte=IngegevenKenmerken.InbouwBreedte
-		Set RugBreedte=LadeBreedte-AftrekVoorRug
+		Set SelectieKenmerken = ..GenereerKenmerkenVoorRugbreedte(IngegevenKenmerken, Rugbreedte)
+		Set HalffabList = Context.SelecteerHalffabrikaten(##this,SelectieKenmerken)
+
 		
 		Set IsStalenRug=(IngegevenKenmerken.RugMateriaal=##class(DOM.PM.enu.TBXRugMateriaal).Staal())
 		
 		If (IsStalenRug) 
 		{
 			// Stalen Rug, reeds op maat in de DB (exact, standaard halffab) 
+			// Geen verdere filtering nodig
 			
-			// HalffabList via SQL met SelectieKenmerken 
-			Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
-			Do SelectieKenmerken.SetAt("RUGSTAAL","MateriaalType")
-			Do SelectieKenmerken.SetAt(IngegevenKenmerken.RugKleur,"Kleur")
-			Do SelectieKenmerken.SetAt(IngegevenKenmerken.RugHoogte,"RugHoogte")
-			Do SelectieKenmerken.SetAt(RugBreedte,"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)
@@ -72,21 +66,14 @@
 		{
 			// Rug via Strook (bewerkt halffab) 
 
-			// HalffabList via SQL met SelectieKenmerken 
-			Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
-			Do SelectieKenmerken.SetAt("RUGSTRK","MateriaalType")
-			Do SelectieKenmerken.SetAt(IngegevenKenmerken.RugKleur,"Kleur")   ; Kleur Bodem gebruiken voor houten rug! 
-			Do SelectieKenmerken.SetAt(IngegevenKenmerken.RugHoogte,"RugHoogte")
-			Set HalffabList = Context.SelecteerHalffabrikaten(##this,SelectieKenmerken)
-	
 			// Filter HalffabList : alleen stroken met Breedte >= Exacte RugBreedte
 			If (HalffabList.Count()>0) { 
 				Set GefilterdeHalffabList=HalffabList.%New()   ; Maak een nieuwe instantie van dezelfde klasse als HalffabList 
 				Set Iterator=##class(TECH.ListIterator).%New(HalffabList)
 				While (Iterator.HasNext()) { 
 					Set Halffab=Iterator.Next()
 					;Do:(Halffab.LadeBreedte="") GefilterdeHalffabList.Insert(Halffab)   ; Tijdelijk, totdat BewerkbareProperties List geïmplementeerd is. 
-					Do:(Halffab.IsBewerkbaarOp("LadeBreedte"))&&(Halffab.LadeBreedte'<RugBreedte) GefilterdeHalffabList.Insert(Halffab)
+					Do:(Halffab.IsBewerkbaarOp("LadeBreedte"))&&(Halffab.LadeBreedte'<Rugbreedte) GefilterdeHalffabList.Insert(Halffab)
 				}
 				If (GefilterdeHalffabList.Count()<HalffabList.Count()) {
 					// HalffabList vervangen door de GefilterdeHalffabList 
@@ -121,6 +108,48 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GenereerKenmerkenVoorRugbreedte">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Rugbreedte:%Float</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	// Bij het effectief bouwen van een lade gebruiken we de rugbreedte als selectiecriterium
+	Set SelectieKenmerken = ..GenereerKenmerken(IngegevenKenmerken)
+	Set IsStalenRug=(IngegevenKenmerken.RugMateriaal=##class(DOM.PM.enu.TBXRugMateriaal).Staal())
+	If (IsStalenRug) 
+	{
+		Do SelectieKenmerken.SetAt(Rugbreedte,"LadeBreedte")
+	}
+	Quit SelectieKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="GenereerKenmerken">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	// Bij het bepalen van de mogelijke kenmerken negeren we de rugbreedte vermits die afhankelijk is
+	// van een ladezijkant en er kunnen meerdere ladezijkanten nog in de running zijn.
+	Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New()
+	Do:(IngegevenKenmerken.RugKleur '= -9999) SelectieKenmerken.SetAt(IngegevenKenmerken.RugKleur,"RugKleur")
+	Do:(IngegevenKenmerken.RugHoogte '= -9999) SelectieKenmerken.SetAt(IngegevenKenmerken.RugHoogte,"RugHoogte")
+
+	Set IsStalenRug=(IngegevenKenmerken.RugMateriaal=##class(DOM.PM.enu.TBXRugMateriaal).Staal())
+	If (IsStalenRug) 
+	{
+		// Stalen Rug, reeds op maat in de DB (exact, standaard halffab) 
+		// HalffabList via SQL met SelectieKenmerken 
+		Do SelectieKenmerken.SetAt("RUGSTAAL","MateriaalType")
+	}
+	Else  
+	{
+		// Rug via Strook (bewerkt halffab) 
+		// HalffabList via SQL met SelectieKenmerken 
+		Do SelectieKenmerken.SetAt("RUGSTRK","MateriaalType")
+	}
+	Quit SelectieKenmerken
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 </Storage>