Index: APPS/PM/Maatwerk/dto/TBXKenmerken.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/dto/TBXKenmerken.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/dto/TBXKenmerken.cls.xml	(revision 2180)
@@ -0,0 +1,247 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.PM.Maatwerk.dto.TBXKenmerken">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.PM.Maatwerk.dto.IngegevenKenmerken</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Familie = ##class(DOM.PM.enu.Familie).Lade()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Property name="CorpusBreedte">
+<Type>%Float</Type>
+</Property>
+
+<Property name="CorpusWandDikte">
+<Type>%Float</Type>
+</Property>
+
+<Property name="IsBinnenbreedte">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="LadeDiepte">
+<Type>%Float</Type>
+</Property>
+
+<Property name="LadeVariant">
+<Type>DOM.PM.enu.LadeVariant</Type>
+</Property>
+
+<Property name="IsBinnenlade">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="Antislipmat">
+<Type>DOM.PM.enu.TBXAntislipmat</Type>
+</Property>
+
+<Property name="Blumotion">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="HeeftTipon">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="BodemKleur">
+<Type>%String</Type>
+</Property>
+
+<Property name="Draagkracht">
+<Type>DOM.PM.enu.TBXDraagkracht</Type>
+</Property>
+
+<Property name="Dwarsverdeling">
+<Type>DOM.PM.enu.TBXDwarsverdeling</Type>
+</Property>
+
+<Property name="FrontBevestiging">
+<Type>DOM.PM.enu.TBXFrontBevestiging</Type>
+</Property>
+
+<Property name="FrontHouderKleur">
+<Type>%String</Type>
+</Property>
+
+<Property name="FrontOndersteuningAantal">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="FrontOndersteuningType">
+<Type>DOM.PM.enu.TBXFrontOndersteuningType</Type>
+</Property>
+
+<Property name="HangmapBoringen">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Klasse">
+<Type>DOM.PM.enu.TBXKlas</Type>
+</Property>
+
+<Property name="HeeftOpvullijstLinks">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="HeeftOpvullijstRechts">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="HeeftZijstabilisering">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="PlaatMateriaal">
+<Type>%String</Type>
+<InitialExpression>"HS"</InitialExpression>
+</Property>
+
+<Property name="RugKleur">
+<Type>%String</Type>
+</Property>
+
+<Property name="RugHouderKleur">
+<Type>%String</Type>
+</Property>
+
+<Property name="RugHoogte">
+<Type>DOM.PM.enu.TBXRugHoogte</Type>
+</Property>
+
+<Property name="RugMateriaal">
+<Type>DOM.PM.enu.TBXRugMateriaal</Type>
+</Property>
+
+<Property name="SpoelbakBinnenzijwandHoogte">
+<Description>
+!!! nog niet geconverteerd, kanshebber om te vervallen
+(SPZBINHOOGTE) </Description>
+<Type>%String</Type>
+<Parameter name="VALUELIST" value=";M;B;C;D"/>
+</Property>
+
+<Property name="Stabilisator">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="TussenrugMateriaal">
+<Type>DOM.PM.enu.TBXRugMateriaal</Type>
+</Property>
+
+<Property name="UitsparingBreedte1">
+<Type>%Float</Type>
+</Property>
+
+<Property name="UitsparingBreedte2">
+<Type>%Float</Type>
+</Property>
+
+<Property name="UitsparingDiepte">
+<Type>%Float</Type>
+</Property>
+
+<Property name="UitsparingPositie1">
+<Type>%Float</Type>
+</Property>
+
+<Property name="UitsparingPositie2">
+<Type>%Float</Type>
+</Property>
+
+<Property name="UitsparingZijkantKleur">
+<Type>DOM.PM.enu.TBXZijkantKleur</Type>
+</Property>
+
+<Property name="Uittrekbaarheid">
+<Type>DOM.PM.enu.TBXUittrekbaarheid</Type>
+</Property>
+
+<Property name="Verpakking">
+<Type>DOM.PM.enu.TBXVerpakking</Type>
+</Property>
+
+<Property name="VoorwandMetMeenemer">
+<Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Property name="VoorwandMetGreep">
+<Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Property name="VoorwandVerhogingType">
+<Type>DOM.PM.enu.TBXVoorwandVerhogingType</Type>
+</Property>
+
+<Property name="VoorwandVerhogingMateriaal">
+<Type>DOM.PM.enu.TBXVoorwandVerhogingMateriaal</Type>
+</Property>
+
+<Property name="VoorwandVerhogingKleur">
+<Type>DOM.PM.enu.TBXVoorwandVerhogingKleur</Type>
+</Property>
+
+<Property name="ZijkantDesign">
+<Type>DOM.PM.enu.TBXZijkantDesign</Type>
+</Property>
+
+<Property name="ZijkantHoogte">
+<Type>DOM.PM.enu.TBXZijkantHoogte</Type>
+</Property>
+
+<Property name="ZijkantKleur">
+<Type>DOM.PM.enu.TBXZijkantKleur</Type>
+</Property>
+
+<Property name="ZijwandHoogte">
+<Type>DOM.PM.enu.TBXZijwandHoogte</Type>
+</Property>
+
+<Property name="ZijwandVerhogingType">
+<Type>DOM.PM.enu.TBXZijwandVerhogingType</Type>
+</Property>
+
+<Property name="ZijwandVerhogingMateriaal">
+<Type>DOM.PM.enu.TBXZijwandVerhogingMateriaal</Type>
+</Property>
+
+<Property name="ZijwandVerhogingKleur">
+<Type>DOM.PM.enu.TBXZijwandVerhogingKleur</Type>
+</Property>
+
+<Property name="ZijwandVerhogingAantal">
+<Type>%Integer</Type>
+</Property>
+
+<Method name="Accept">
+<FormalSpec>Visitor:APPS.PM.Maatwerk.IngegevenKenmerkenVisitor</FormalSpec>
+<Implementation><![CDATA[	Do Visitor.VerwerkTBXKenmerken(##this)
+]]></Implementation>
+</Method>
+
+<Method name="IsVolledig">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	// TODO IsVolledig is onvolledig
+	Quit (..CorpusBreedte '= "") &&
+		(..IsBinnenbreedte || (..CorpusWandDikte '= "")) && // CorpusWandDikte moet enkel ingevuld zijn indien geen binnenmaat
+		(..Draagkracht '= "") &&
+		(..IsBinnenbreedte '= "") &&
+		(..IsBinnenlade '= "") &&
+		(..HeeftOpvullijstLinks '= "") &&
+		(..HeeftOpvullijstRechts '= "") &&
+		(..HeeftTipon '= "") &&
+		(..HeeftZijstabilisering '= "")
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/enu/TBXLadeKleur.cls.xml
===================================================================
diff -u
--- DOM/PM/enu/TBXLadeKleur.cls.xml	(revision 0)
+++ DOM/PM/enu/TBXLadeKleur.cls.xml	(revision 2180)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.enu.TBXLadeKleur">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>;CO;DO;SW</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>;Chocolate Oak;Desert Oak;Smoked Walnut</Default>
+</Parameter>
+
+<Method name="ChocolateOak">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.TAOOLadeKleur</ReturnType>
+<Implementation><![CDATA[	Quit "CO"
+]]></Implementation>
+</Method>
+
+<Method name="DesertOak">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.TAOOLadeKleur</ReturnType>
+<Implementation><![CDATA[	Quit "DO"
+]]></Implementation>
+</Method>
+
+<Method name="SmokedWalnut">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.TAOOLadeKleur</ReturnType>
+<Implementation><![CDATA[	Quit "SW"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/PM/Maatwerk/dto/IngegevenKenmerken.cls.xml
===================================================================
diff -u -r2057 -r2180
--- APPS/PM/Maatwerk/dto/IngegevenKenmerken.cls.xml	(.../IngegevenKenmerken.cls.xml)	(revision 2057)
+++ APPS/PM/Maatwerk/dto/IngegevenKenmerken.cls.xml	(.../IngegevenKenmerken.cls.xml)	(revision 2180)
@@ -20,6 +20,13 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="NietIngegeven">
+<Description>
+Lijst van propertynamen die nog niet als ingegeven kenmerken beschouwd
+mogen worden omdat de gebruiker nog niet expliciet een waarde heeft toegekend.</Description>
+<Type>%ListOfDataTypes</Type>
+</Property>
+
 <Method name="GeefFamilie">
 <ReturnType>DOM.PM.enu.Familie</ReturnType>
 <Implementation><![CDATA[	Quit ..Familie
Index: WS/EC/Winkelkar/WinkelkarService.cls.xml
===================================================================
diff -u -r2085 -r2180
--- WS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 2085)
+++ WS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 2180)
@@ -70,7 +70,7 @@
 <Method name="Dummy">
 <Description>
   Deze method laten staan aub, nodig om fiber de juiste types te laten genereren</Description>
-<FormalSpec>MaatwerkLijn:APPS.EC.Winkelkar.dto.MaatwerkLijn,GroepLijn:APPS.EC.Winkelkar.dto.GroepLijn</FormalSpec>
+<FormalSpec>MaatwerkLijn:APPS.EC.Winkelkar.dto.MaatwerkLijn,GroepLijn:APPS.EC.Winkelkar.dto.GroepLijn,TAOOKenmerken:APPS.PM.Maatwerk.dto.TAOOKenmerken</FormalSpec>
 <WebMethod>1</WebMethod>
 </Method>
 </Class>
Index: DOM/PM/Maatwerk/Calc/HF/IHalffabItemBuilder.cls.xml
===================================================================
diff -u -r2069 -r2180
--- DOM/PM/Maatwerk/Calc/HF/IHalffabItemBuilder.cls.xml	(.../IHalffabItemBuilder.cls.xml)	(revision 2069)
+++ DOM/PM/Maatwerk/Calc/HF/IHalffabItemBuilder.cls.xml	(.../IHalffabItemBuilder.cls.xml)	(revision 2180)
@@ -256,15 +256,6 @@
 <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: FMA TBX Configurator.prj.xml
===================================================================
diff -u
--- FMA TBX Configurator.prj.xml	(revision 0)
+++ FMA TBX Configurator.prj.xml	(revision 2180)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Project name="FMA TBX Configurator" LastModified="2011-09-23 13:49:48">
+  <Items>
+    <ProjectItem name="APPS.PM.Maatwerk.IngegevenKenmerkenVisitor" type="CLS"/>
+    <ProjectItem name="APPS.PM.Maatwerk.dto.IngegevenKenmerken" type="CLS"/>
+    <ProjectItem name="APPS.PM.Maatwerk.dto.TAOOKenmerken" type="CLS"/>
+    <ProjectItem name="APPS.PM.Maatwerk.dto.TBXKenmerken" type="CLS"/>
+    <ProjectItem name="APPS.PM.Maatwerk.impl.DtoNaarKenmerkVisitor" type="CLS"/>
+    <ProjectItem name="APPS.VKP.Maatwerk.ConfiguratorService" type="CLS"/>
+    <ProjectItem name="APPS.VKP.Maatwerk.impl.WinkelkarToProductVisitor" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken" type="CLS"/>
+    <ProjectItem name="DOM.PM.enu.TBXDraagkracht" type="CLS"/>
+    <ProjectItem name="WS.EC.Winkelkar.WinkelkarService" type="CLS"/>
+    <ProjectItem name="WS.VKP.Maatwerk.ConfiguratorService" type="CLS"/>
+    <ProjectItem name="zTryout.FM.DOM.PM.Maatwerk.HalffabSelector" type="CLS"/>
+    <ProjectItem name="zTryout.FM.DOM.PM.Maatwerk.dto.KenmerkMogelijkheden" type="CLS"/>
+    <ProjectItem name="zTryout.FM.DOM.PM.Maatwerk.dto.KenmerkWaardenLijst" type="CLS"/>
+  </Items>
+</Project>
+</Export>
FishEye: Tag 2180 refers to a dead (removed) revision in file `zTryout/FM/DOM/PM/Maatwerk/GeldigeKenmerkenBuilder.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/VKP/Maatwerk/impl/WinkelkarToProductVisitor.cls.xml
===================================================================
diff -u -r2015 -r2180
--- APPS/VKP/Maatwerk/impl/WinkelkarToProductVisitor.cls.xml	(.../WinkelkarToProductVisitor.cls.xml)	(revision 2015)
+++ APPS/VKP/Maatwerk/impl/WinkelkarToProductVisitor.cls.xml	(.../WinkelkarToProductVisitor.cls.xml)	(revision 2180)
@@ -15,13 +15,19 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KlantID">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%String</FormalSpec>
+<FormalSpec>DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%String,KlantID:%Integer</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..BesteldeProducten = ##class(APPS.VKP.Maatwerk.impl.BesteldeProducten).%New(DocumentType, DocumentID)
+	Set ..KlantID = KlantID
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -42,33 +48,45 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VerwerkTAOOKenmerken">
-<FormalSpec>TAOOKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken</FormalSpec>
-<ReturnType>%Status</ReturnType>
+<Method name="VerwerkMaatwerkKenmerken">
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-	Set Familie=##class(DOM.PM.enu.Familie).Lade()
-	Set Variant=##class(DOM.PM.enu.LadeVariant).TAOO()
+	Set Familie=Kenmerken.Familie
+	Set Variant=Kenmerken.Variant
 	
-	Set KlantID = 7587
 	Set Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
-	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(..HuidigeLijn.GeefAantal(),KlantID,Personality)
+	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(..HuidigeLijn.GeefAantal(),..KlantID,Personality)
 	Set Context=##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(Familie,Variant,BerekeningsSpecificatie)
 	
-	Do Context.GeefHalffabSpec().BerekenHalffabDetails(Context,TAOOKenmerken)
+	Do Context.GeefHalffabSpec().BerekenHalffabDetails(Context,Kenmerken)
 	Set HalffabItemsBoom = Context.HalffabItemsBoom
 	
 	Set KostContext = ##class(DOM.PM.Maatwerk.Calc.Kost.KostContext).%New(Familie, Variant, BerekeningsSpecificatie)
-	Set KostItem = KostContext.GeefKostSpec().BerekenKostDetails(KostContext,HalffabItemsBoom,TAOOKenmerken)
+	Set KostItem = KostContext.GeefKostSpec().BerekenKostDetails(KostContext,HalffabItemsBoom,Kenmerken)
 	
-	Set ProductSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(Familie, Variant, TAOOKenmerken)
+	Set ProductSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(Familie, Variant, Kenmerken)
 	
 	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	Set Product = ProductAPI.MaakProduct(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
 	
 	Do ..BesteldeProducten.Lijst.Insert(##class(APPS.VKP.Maatwerk.impl.BesteldProduct).%New(Product.GeefPRNr(),..HuidigeLijn.GeefAantal(),..HuidigeLijn.GeefProjectReferentie()))
-	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkTAOOKenmerken">
+<FormalSpec>TAOOKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit ..VerwerkMaatwerkKenmerken(TAOOKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTBXKenmerken">
+<FormalSpec>TBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit ..VerwerkMaatwerkKenmerken(TBXKenmerken)
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: zTryout/FM/DOM/PM/Maatwerk/dto/KenmerkMogelijkheden.cls.xml
===================================================================
diff -u
--- zTryout/FM/DOM/PM/Maatwerk/dto/KenmerkMogelijkheden.cls.xml	(revision 0)
+++ zTryout/FM/DOM/PM/Maatwerk/dto/KenmerkMogelijkheden.cls.xml	(revision 2180)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="zTryout.FM.DOM.PM.Maatwerk.dto.KenmerkMogelijkheden">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="MogelijkeWaarden">
+<Type>KenmerkWaardenLijst</Type>
+<Collection>array</Collection>
+<Parameter name="XMLKEYNAME" value="Kenmerk"/>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+//Property Conflicten As %ArrayOfObjects;
+
+]]></Content>
+</UDLText>
+</Class>
+</Export>
Index: DOM/PM/Maatwerk/Calc/Common/IngegevenKenmerken.cls.xml
===================================================================
diff -u -r2004 -r2180
--- DOM/PM/Maatwerk/Calc/Common/IngegevenKenmerken.cls.xml	(.../IngegevenKenmerken.cls.xml)	(revision 2004)
+++ DOM/PM/Maatwerk/Calc/Common/IngegevenKenmerken.cls.xml	(.../IngegevenKenmerken.cls.xml)	(revision 2180)
@@ -110,6 +110,9 @@
 <Value name="5">
 <Value>VersieNr</Value>
 </Value>
+<Value name="6">
+<Value>NietIngegeven</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: zTryout/FM/DOM/PM/Maatwerk/dto/KenmerkWaardenLijst.cls.xml
===================================================================
diff -u
--- zTryout/FM/DOM/PM/Maatwerk/dto/KenmerkWaardenLijst.cls.xml	(revision 0)
+++ zTryout/FM/DOM/PM/Maatwerk/dto/KenmerkWaardenLijst.cls.xml	(revision 2180)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="zTryout.FM.DOM.PM.Maatwerk.dto.KenmerkWaardenLijst">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Waarde">
+<Type>%String</Type>
+<Collection>list</Collection>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+</Class>
+</Export>
Index: DOM/PM/Maatwerk/Calc/HF/Halffab.cls.xml
===================================================================
diff -u -r2069 -r2180
--- DOM/PM/Maatwerk/Calc/HF/Halffab.cls.xml	(.../Halffab.cls.xml)	(revision 2069)
+++ DOM/PM/Maatwerk/Calc/HF/Halffab.cls.xml	(.../Halffab.cls.xml)	(revision 2180)
@@ -50,10 +50,6 @@
 <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>
@@ -100,8 +96,6 @@
 <IndexLocation>^DOM.PM.Maatwerk.Cal772.HalffabI</IndexLocation>
 <StreamLocation>^DOM.PM.Maatwerk.Cal772.HalffabS</StreamLocation>
 <Data name="HalffabDefaultData">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>%%CLASSNAME</Value>
 </Value>
@@ -135,9 +129,6 @@
 <Value name="11">
 <Value>UnID</Value>
 </Value>
-<Value name="12">
-<Value>Variant</Value>
-</Value>
 </Data>
 </Storage>
 </Class>
Index: DOM/PM/enu/TBXDraagkracht.cls.xml
===================================================================
diff -u
--- DOM/PM/enu/TBXDraagkracht.cls.xml	(revision 0)
+++ DOM/PM/enu/TBXDraagkracht.cls.xml	(revision 2180)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.enu.TBXDraagkracht">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%Integer</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>;25;30;50;65</Default>
+</Parameter>
+</Class>
+</Export>
Index: APPS/PM/Maatwerk/TBX/Probox/Calculator.cls.xml
===================================================================
diff -u -r2023 -r2180
--- APPS/PM/Maatwerk/TBX/Probox/Calculator.cls.xml	(.../Calculator.cls.xml)	(revision 2023)
+++ APPS/PM/Maatwerk/TBX/Probox/Calculator.cls.xml	(.../Calculator.cls.xml)	(revision 2180)
@@ -170,11 +170,11 @@
 	#define MinHoogteAandeel   0.5
 	
 	Set HoogteAandeel=""
-	If LadeBreedte'>600 {
+	If LadeBreedte'>450 {
 		Set HoogteAandeel = $$$MinHoogteAandeel
 	}
 	Else {
-		Set HoogteAandeel = ((LadeBreedte-600)*(1/1200)) + $$$MinHoogteAandeel
+		Set HoogteAandeel = ((LadeBreedte-450)*(1/1200)) + $$$MinHoogteAandeel
 	}
 	Set:(HoogteAandeel>1) HoogteAandeel=1
 	Quit HoogteAandeel
Index: zTryout/FM/DOM/PM/Maatwerk/HalffabSelector.cls.xml
===================================================================
diff -u -r2069 -r2180
--- zTryout/FM/DOM/PM/Maatwerk/HalffabSelector.cls.xml	(.../HalffabSelector.cls.xml)	(revision 2069)
+++ zTryout/FM/DOM/PM/Maatwerk/HalffabSelector.cls.xml	(.../HalffabSelector.cls.xml)	(revision 2180)
@@ -27,6 +27,14 @@
 <Type>%ListOfDataTypes</Type>
 </Property>
 
+<Property name="Suggesties">
+<Type>%ArrayOfDataTypes</Type>
+</Property>
+
+<Property name="RolDieGeenKenmerkenOverhoudt">
+<Type>%String</Type>
+</Property>
+
 <Property name="PowerUserMode">
 <Type>%Boolean</Type>
 </Property>
@@ -39,39 +47,43 @@
 <Type>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Type>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+</Property>
+
+<Property name="IsDebug">
+<Type>%Boolean</Type>
+</Property>
+
 <Method name="Main">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	Set TestProg = ..%New()
+	Set IK = ..MaakDefaultKenmerken()
+	// Bepaalde zaken open laten
+	Do IK.NietIngegeven.Insert("Draagkracht")
+	Do IK.NietIngegeven.Insert("LadeDiepte")
+	Do IK.NietIngegeven.Insert("Uittrekbaarheid")
+	Do IK.NietIngegeven.Insert("BodemKleur")
+	Do IK.NietIngegeven.Insert("RugHoogte")
+	Do IK.NietIngegeven.Insert("RugKleur")
+	Do IK.NietIngegeven.Insert("ZijwandHoogte")
+	//Set ..IK.PlaatMateriaal = "H"	// Zo vermijd je dat ie uit strook wil nemen
+	Set IK.ZijkantDesign = "F"
+	Set TestProg = ..%New(IK)
+	Set TestProg.IsDebug = 1
 	Do TestProg.Bereken()
 ]]></Implementation>
 </Method>
 
 <Method name="Bereken">
+<ReturnType>%ArrayOfObjects</ReturnType>
 <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
+	Do ..Logger.Info("Bereken IN", ..DumpIK())
 	
  	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
@@ -81,27 +93,15 @@
 	// 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()
 
+	// TODO moet uit de IK komen
 	Set Familie=##class(DOM.PM.enu.Familie).Lade()
 	Set Variant=##class(DOM.PM.enu.LadeVariant).TBXPlus()
 	
 	Set Hoeveelheid = 1
-	
 	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(Hoeveelheid, KlantID, Personality)
 	Set Context=##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(Familie, Variant, BerekeningsSpecificatie)
 
@@ -114,6 +114,9 @@
 	Do HalffabItems.Accept(WriterVisitor)
 	write !
 	*/
+
+	// Beginlijsten voor de mogelijke waarden
+	Set ..Beginlijsten = ##class(TECH.ListUtils).CloneArrayTweeDiep(..Domeinen)
 	
 	Set RolIterator = ##class(TECH.ListIterator).%New(..Rollen)
 	while (RolIterator.HasNext()) {
@@ -122,7 +125,7 @@
 
 		Set Builder = ..Hoofdbuilder.HalffabItemBuilders.GetAt(Rol)
 		Set Halffabs = Builder.BerekenHalffabLijst(..IK, Context)
-		Write "Rol ", Rol, ": ", Halffabs.Count(), " items gevonden", !
+		Do:..IsDebug ..Logger.Debug("Bereken", "Rol " _ Rol _ ": " _ Halffabs.Count() _ " items gevonden")
 		Set it = ##class(TECH.ListIterator).%New(Halffabs)
 		while (it.HasNext()) {
 			Set Halffab = it.Next()
@@ -133,31 +136,90 @@
 			}
 		}
 
-		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)
+			Do ..VerwerkWegfiltering(KenmerkNaam, Rol)
 		}
-		
+
 		// Begin verwerking voor volgende rol met de resultaten van deze rol
 		Set ..Beginlijsten = ##class(TECH.ListUtils).CloneArrayTweeDiep(..Resultaten)
 	}
-		
-	Quit
+
+	// Eindresultaat	
+	Set KenmerkMogelijkheden = ##class(zTryout.FM.DOM.PM.Maatwerk.dto.KenmerkMogelijkheden).%New()
+	Do ..LogEnVerwerkResultaat(KenmerkMogelijkheden.MogelijkeWaarden)
+
+ /*
+	If (..Suggesties.Count() > 0) {
+		Set KenmerkMogelijkheden.Conflicten = ..Suggesties 
+		Write "Met de huidige ingegeven kenmerken kan geen product worden opgebouwd", !
+		Write "Eerst rol die problemen gaf: ", ..RolDieGeenKenmerkenOverhoudt, !
+		Set SuggestieKenmerken = ##class(TECH.ListIterator).%New(..Suggesties)
+		while (SuggestieKenmerken.HasNext()) {
+			Set Waarde = SuggestieKenmerken.Next()
+			Set Key = SuggestieKenmerken.Key()
+			// TODO: de IK waar we geen waarde voor gaven uit deze lijst halen.
+			// Nu krijg je bv. geef RugHoogte andere waarde dan D terwijl RugHoogte = ""
+			Write "Suggestie: kies voor ", Key, " een andere waarde dan ", Waarde, !
+		}					
+	}
+ */		
+	Quit KenmerkMogelijkheden
 	
 Error
 	Write ##class(TECH.ExceptionHandler).Catch().ToString()
 ]]></Implementation>
 </Method>
 
+<Method name="DumpIK">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set LogMsg = ""
+	Set LijnTeller = 0
+	Set LegeProperties = ##class(%ListOfDataTypes).%New()
+	Set KlasseNaam = ..IK.%ClassName(1)
+	Set CompiledClass = ##class(%Dictionary.CompiledClass).%OpenId(KlasseNaam)
+	Set PropertiesIterator = ##class(TECH.ListIterator).%New(CompiledClass.Properties)
+		
+	While (PropertiesIterator.HasNext()) {
+		Set Property = PropertiesIterator.Next()
+		Continue:(Property.Private)
+		Set PropertyNaam = Property.Name
+		Set PropertyWaarde = $zobjproperty(..IK, PropertyNaam)
+		Continue:(PropertyNaam = "NietIngegeven")
+		Continue:(PropertyNaam = "NietMeeleveren")
+		Continue:(PropertyNaam = "Onderdelen")
+		If (PropertyWaarde = "") {
+			Do LegeProperties.Insert(PropertyNaam)
+		} Else {
+			Set LogMsg = LogMsg _ Property.Name _ " " _ PropertyWaarde _ "; "
+			Set LijnTeller = LijnTeller + 1
+			Set:(LijnTeller = 4) LogMsg = LogMsg _ $C(13)
+			Set LijnTeller = LijnTeller # 4
+		}
+	}
+	Set LogMsg = LogMsg _ "Leeg: "
+	Set it=##class(TECH.ListIterator).%New(LegeProperties)
+	While (it.HasNext()) {
+		Set PropertyNaam = it.Next()
+		Set LogMsg = LogMsg _ PropertyNaam _ " "
+			Set LijnTeller = LijnTeller + 1
+			Set:(LijnTeller = 4) LogMsg = LogMsg _ $C(13)
+			Set LijnTeller = LijnTeller # 4
+	}
+	Quit LogMsg
+]]></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)
+	Quit:(Beginlijst = "")
+
 	// 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) {
@@ -185,17 +247,20 @@
 				// 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), ")", !
+				// Redenen om iets niet over te nemen:
+				// - Was al overgenomen: Beginlijst.GetAt(Waarde) = 2
+				// - Kenmerk zat niet in de beginlijst: Beginlijst.GetAt(Waarde) = ""
+				//Do:((Beginlijst.GetAt(Waarde) = "") && ..IsDebug) ..Logger.Debug("VerwerkHalffabKenmerk", "Kenmerk " _ KenmerkNaam _ " met waarde " _ Waarde _ " niet overgenomen")
 			}
 		}
 		//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.
+		//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)
@@ -210,33 +275,40 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ToonWegfiltering">
+<Method name="VerwerkWegfiltering">
 <FormalSpec>KenmerkNaam:%String,Rol:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set Beginlijst = ..Beginlijsten.GetAt(KenmerkNaam)
+	Quit:(Beginlijst = "")
+	Set LogMsg = "Weggefilterd voor kenmerk " _ 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 LogMsg = LogMsg _ Lijstkey _ " "
 			Set AantalWeggefilterd = AantalWeggefilterd + 1
 		}
 	}
+	Do:((AantalWeggefilterd > 0) && ..IsDebug) ..Logger.Debug("VerwerkWegfiltering", LogMsg)
 	// 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, !
+		//Do:..IsDebug ..Logger.Debug("VerwerkWegfiltering", "Geen resultaten meer voor kenmerk " _ KenmerkNaam)
+		Set ..RolDieGeenKenmerkenOverhoudt = Rol
 		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, !
+			// Kenmerken met lege waarden overslaan
+			Continue:(Lijstwaarde = "")
+			Do ..Suggesties.SetAt(Lijstwaarde, Lijstkey)
+			//Write "Wegfiltering: ", Lijstkey, " - ", Lijstwaarde, !
 		}					
 	}
 ]]></Implementation>
@@ -252,57 +324,75 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ToonWaarden">
-<FormalSpec>Naam</FormalSpec>
+<Method name="LogEnVerwerkResultaat">
+<FormalSpec>MogelijkeWaarden:%ArrayOfObjects</FormalSpec>
 <Implementation><![CDATA[
-	Set Lijst = ..Resultaten.GetAt(Naam)
-	Write Naam, !
-	If (Lijst="") {
-		Write !
-		Quit
+	Set LogMsg = ""
+	Set LijnTeller = 0
+	Set ResultaatIterator = ##class(TECH.ListIterator).%New(..Resultaten)
+	while (ResultaatIterator.HasNext()) {
+		Set Resultaat = ResultaatIterator.Next()
+		Set KenmerkWaardenLijst = ##class(zTryout.FM.DOM.PM.Maatwerk.dto.KenmerkWaardenLijst).%New()
+		Set LogMsg = LogMsg _ ResultaatIterator.Key() _ ": "
+		Set it = ##class(TECH.ListIterator).%New(Resultaat)
+		while (it.HasNext()) {
+			Set Value = it.Next()
+			Set LogMsg = LogMsg _ it.Key() _ " "
+			Do KenmerkWaardenLijst.Waarde.Insert(it.Key())
+		}
+		Do MogelijkeWaarden.SetAt(KenmerkWaardenLijst, ResultaatIterator.Key())
+		Set LogMsg = LogMsg _ "; "
+		Set LijnTeller = LijnTeller + 1
+		Set:(LijnTeller = 4) LogMsg = LogMsg _ $C(13)
+		Set LijnTeller = LijnTeller # 4
 	}
-	Set it = ##class(TECH.ListIterator).%New(Lijst)
-	while (it.HasNext()) {
-		Set Value = it.Next()
-		Write it.Key(),!
-	}
-	Write !
+	Do ..Logger.Info("Bereken OUT", LogMsg)
 ]]></Implementation>
 </Method>
 
+<Method name="MaakDefaultKenmerken">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	// 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()
+	Quit IK
+]]></Implementation>
+</Method>
+
 <Method name="%OnNew">
-<FormalSpec>initvalue:%CacheString</FormalSpec>
+<FormalSpec>IK:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Set ..IK = IK
+	Set ..Logger = ##class(vhLib.Logger).%New("Maatwerk_IK_Calc")
+	
 	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()
@@ -316,6 +406,7 @@
 	Do ..Domeinen.SetAt(##class(%ArrayOfDataTypes).%New(), "BodemKleur")
 	Do ..Domeinen.SetAt(##class(%ArrayOfDataTypes).%New(), "LadeDiepte")
 	Do ..Domeinen.SetAt(##class(%ArrayOfDataTypes).%New(), "RugHoogte")
+	Do ..Domeinen.SetAt(##class(%ArrayOfDataTypes).%New(), "RugKleur")
 
 	Set Domein = ..Domeinen.GetAt("Draagkracht")
 	Do Domein.SetAt("1", 25)
@@ -331,6 +422,7 @@
 	Set Domein = ..Domeinen.GetAt("ZijkantDesign")
 	Do Domein.SetAt("1", "S")
 	Do Domein.SetAt("1", "F")
+	Do Domein.SetAt("1", "A")
 
 	Set Domein = ..Domeinen.GetAt("ZijkantHoogte")
 	Do Domein.SetAt("1", "M")
@@ -347,9 +439,11 @@
 
 
 	Set Domein = ..Domeinen.GetAt("ZijwandHoogte")
+	Do Domein.SetAt("1", "N")
 	Do Domein.SetAt("1", "M")
-	Do Domein.SetAt("1", "D")
 	Do Domein.SetAt("1", "B")
+	Do Domein.SetAt("1", "C")
+	Do Domein.SetAt("1", "D")
 
 	Set Domein = ..Domeinen.GetAt("BodemKleur")
 	Do Domein.SetAt("1", "UTLG")
@@ -369,6 +463,28 @@
 	Do Domein.SetAt("1", "C")
 	Do Domein.SetAt("1", "D")
 	
+	Set Domein = ..Domeinen.GetAt("RugKleur")
+	Do Domein.SetAt("1", "UTLG")
+	Do Domein.SetAt("1", "UTDG")
+	Do Domein.SetAt("1", "LG")
+
+	// 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())
+
+	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())
+	}
+
+	Set ..Suggesties = ##class(%ArrayOfDataTypes).%New()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: WS/VKP/Maatwerk/ConfiguratorService.cls.xml
===================================================================
diff -u -r2151 -r2180
--- WS/VKP/Maatwerk/ConfiguratorService.cls.xml	(.../ConfiguratorService.cls.xml)	(revision 2151)
+++ WS/VKP/Maatwerk/ConfiguratorService.cls.xml	(.../ConfiguratorService.cls.xml)	(revision 2180)
@@ -53,7 +53,7 @@
 <Method name="BewaarIngegevenKenmerken">
 <FormalSpec>GebruikerID:%String,Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Pad:APPS.VKP.Maatwerk.dto.Pad,Naam:%String,MagOverschrijven:%Boolean</FormalSpec>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[	Quit ##class(APPS.VKP.Maatwerk.ConfiguratorService).%New().BewaarIngegevenKenmerken(GebruikerID, Kenmerken, Pad, Naam, MagOverschrijven)
+<Implementation><![CDATA[	Do ##class(APPS.VKP.Maatwerk.ConfiguratorService).%New().BewaarIngegevenKenmerken(GebruikerID, Kenmerken, Pad, Naam, MagOverschrijven)
 ]]></Implementation>
 </Method>
 
@@ -73,10 +73,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKenmerkMogelijkheden">
+<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken</FormalSpec>
+<ReturnType>zTryout.FM.DOM.PM.Maatwerk.dto.KenmerkMogelijkheden</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(APPS.VKP.Maatwerk.ConfiguratorService).%New().GeefKenmerkMogelijkheden(Kenmerken)
+]]></Implementation>
+</Method>
+
 <Method name="Dummy">
 <Description>
 Deze method niet verwijderen aub</Description>
-<FormalSpec>Pad1:APPS.VKP.Maatwerk.dto.TemplateInternPad,Pad2:APPS.VKP.Maatwerk.dto.TemplateExternPad,Pad3:APPS.VKP.Maatwerk.dto.StandalonePad,TAOOKenmerken:APPS.PM.Maatwerk.dto.TAOOKenmerken</FormalSpec>
+<FormalSpec>Pad1:APPS.VKP.Maatwerk.dto.TemplateInternPad,Pad2:APPS.VKP.Maatwerk.dto.TemplateExternPad,Pad3:APPS.VKP.Maatwerk.dto.StandalonePad,TAOOKenmerken:APPS.PM.Maatwerk.dto.TAOOKenmerken,TBXKenmerken:APPS.PM.Maatwerk.dto.TBXKenmerken</FormalSpec>
 <WebMethod>1</WebMethod>
 </Method>
 </Class>
Index: APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml
===================================================================
diff -u -r2010 -r2180
--- APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml	(.../DtoNaarKenmerkVisitor.cls.xml)	(revision 2010)
+++ APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml	(.../DtoNaarKenmerkVisitor.cls.xml)	(revision 2180)
@@ -20,6 +20,7 @@
 <FormalSpec>TAOOKenmerken:APPS.PM.Maatwerk.dto.TAOOKenmerken</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Do ..VerwerkNietIngegeven(TAOOKenmerken)
 	Set ..IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%New()
 	
 	If (TAOOKenmerken.IsBinnenbreedte)
@@ -46,5 +47,94 @@
 	Quit $$$OK
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkTBXKenmerken">
+<FormalSpec>TBXKenmerken:APPS.PM.Maatwerk.dto.TBXKenmerken</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..VerwerkNietIngegeven(TBXKenmerken)
+	Set ..IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	
+	If (TBXKenmerken.IsBinnenbreedte)
+	{
+		Set ..IngegevenKenmerken.CorpusBinnenbreedte = TBXKenmerken.CorpusBreedte
+	}
+	Else
+	{
+		Set ..IngegevenKenmerken.CorpusBinnenbreedte = TBXKenmerken.CorpusBreedte - ( 2 * TBXKenmerken.CorpusWandDikte )
+	}
+	Set ..IngegevenKenmerken.Draagkracht = TBXKenmerken.Draagkracht
+	// TODO casing consistent maken
+	Set ..IngegevenKenmerken.IsBinnenLade = TBXKenmerken.IsBinnenlade
+	Set ..IngegevenKenmerken.LadeDiepte = TBXKenmerken.LadeDiepte
+	Set ..IngegevenKenmerken.LadeVariant = TBXKenmerken.LadeVariant
+	Set ..IngegevenKenmerken.Antislipmat = TBXKenmerken.Antislipmat
+	Set ..IngegevenKenmerken.LadeVariant = TBXKenmerken.LadeVariant
+	Set ..IngegevenKenmerken.BodemKleur = TBXKenmerken.BodemKleur
+	Set ..IngegevenKenmerken.Blumotion = TBXKenmerken.Blumotion
+	Set ..IngegevenKenmerken.Dwarsverdeling = TBXKenmerken.Dwarsverdeling
+	Set ..IngegevenKenmerken.FrontBevestiging = TBXKenmerken.FrontBevestiging
+	Set ..IngegevenKenmerken.FrontHouderKleur = TBXKenmerken.FrontHouderKleur
+	Set ..IngegevenKenmerken.FrontOndersteuningAantal = TBXKenmerken.FrontOndersteuningAantal
+	Set ..IngegevenKenmerken.FrontOndersteuningType = TBXKenmerken.FrontOndersteuningType
+	Set ..IngegevenKenmerken.HangmapBoringen = TBXKenmerken.HangmapBoringen
+	Set ..IngegevenKenmerken.Klasse = TBXKenmerken.Klasse
+	Set ..IngegevenKenmerken.PlaatMateriaal = TBXKenmerken.PlaatMateriaal
+	Set ..IngegevenKenmerken.RugKleur = TBXKenmerken.RugKleur
+	Set ..IngegevenKenmerken.RugHouderKleur = TBXKenmerken.RugHouderKleur
+	Set ..IngegevenKenmerken.RugHoogte = TBXKenmerken.RugHoogte
+	Set ..IngegevenKenmerken.RugMateriaal = TBXKenmerken.RugMateriaal
+	Set ..IngegevenKenmerken.SpoelbakBinnenzijwandHoogte = TBXKenmerken.SpoelbakBinnenzijwandHoogte
+	Set ..IngegevenKenmerken.TussenrugMateriaal = TBXKenmerken.TussenrugMateriaal
+	Set ..IngegevenKenmerken.UitsparingBreedte1 = TBXKenmerken.UitsparingBreedte1
+	Set ..IngegevenKenmerken.UitsparingBreedte2 = TBXKenmerken.UitsparingBreedte2
+	Set ..IngegevenKenmerken.UitsparingDiepte = TBXKenmerken.UitsparingDiepte
+	Set ..IngegevenKenmerken.UitsparingPositie1 = TBXKenmerken.UitsparingPositie1
+	Set ..IngegevenKenmerken.UitsparingPositie2 = TBXKenmerken.UitsparingPositie2
+	Set ..IngegevenKenmerken.UitsparingZijkantKleur = TBXKenmerken.UitsparingZijkantKleur
+	Set ..IngegevenKenmerken.Uittrekbaarheid = TBXKenmerken.Uittrekbaarheid
+	Set ..IngegevenKenmerken.Verpakking = TBXKenmerken.Verpakking
+	Set ..IngegevenKenmerken.VoorwandMetMeenemer = TBXKenmerken.VoorwandMetMeenemer
+	Set ..IngegevenKenmerken.VoorwandMetGreep = TBXKenmerken.VoorwandMetGreep
+	Set ..IngegevenKenmerken.VoorwandVerhogingType = TBXKenmerken.VoorwandVerhogingType
+	Set ..IngegevenKenmerken.VoorwandVerhogingMateriaal = TBXKenmerken.VoorwandVerhogingMateriaal
+	Set ..IngegevenKenmerken.VoorwandVerhogingKleur = TBXKenmerken.VoorwandVerhogingKleur
+	Set ..IngegevenKenmerken.ZijkantDesign = TBXKenmerken.ZijkantDesign
+	Set ..IngegevenKenmerken.ZijkantHoogte = TBXKenmerken.ZijkantHoogte
+	Set ..IngegevenKenmerken.ZijwandVerhogingType = TBXKenmerken.ZijwandVerhogingType
+	Set ..IngegevenKenmerken.ZijwandVerhogingMateriaal = TBXKenmerken.ZijwandVerhogingMateriaal
+	Set ..IngegevenKenmerken.ZijwandVerhogingKleur = TBXKenmerken.ZijwandVerhogingKleur
+	Set ..IngegevenKenmerken.ZijwandVerhogingAantal = TBXKenmerken.ZijwandVerhogingAantal
+	
+	// TODO naam-mismatch
+	Set ..IngegevenKenmerken.OpvullijstLinks = TBXKenmerken.HeeftOpvullijstLinks
+	Set ..IngegevenKenmerken.OpvullijstRechts = TBXKenmerken.HeeftOpvullijstRechts
+	Set ..IngegevenKenmerken.TipOn = TBXKenmerken.HeeftTipon
+	Set ..IngegevenKenmerken.Stabilisator = TBXKenmerken.HeeftZijstabilisering
+	
+	//Set ..IngegevenKenmerken.GUIKenmerken.IsBinnenbreedte = TBXKenmerken.IsBinnenbreedte
+	//Set ..IngegevenKenmerken.GUIKenmerken.WandDikte = TBXKenmerken.CorpusWandDikte
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkNietIngegeven">
+<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	// Verwerk de niet ingegeven kenmerken.  Zet alle kenmerken waarvan de naam in
+	// de lijst NietIngegeven voorkomt op de lege string.
+	Set NietIngegeven = Kenmerken.NietIngegeven
+	if (NietIngegeven '= "") {
+		Set it=##class(TECH.ListIterator).%New(NietIngegeven)
+		while (it.HasNext()) {
+			Set KenmerkNaam = it.Next()
+			// Niet ingegeven => waarde = lege string
+			Set $zobjProperty(Kenmerken, KenmerkNaam) = ""
+		}
+	}
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: APPS/PM/Maatwerk/IngegevenKenmerkenVisitor.cls.xml
===================================================================
diff -u -r2004 -r2180
--- APPS/PM/Maatwerk/IngegevenKenmerkenVisitor.cls.xml	(.../IngegevenKenmerkenVisitor.cls.xml)	(revision 2004)
+++ APPS/PM/Maatwerk/IngegevenKenmerkenVisitor.cls.xml	(.../IngegevenKenmerkenVisitor.cls.xml)	(revision 2180)
@@ -12,5 +12,12 @@
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkTBXKenmerken">
+<FormalSpec>TAOOKenmerken:APPS.PM.Maatwerk.dto.TBXKenmerken</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: APPS/VKP/Maatwerk/ConfiguratorService.cls.xml
===================================================================
diff -u -r2151 -r2180
--- APPS/VKP/Maatwerk/ConfiguratorService.cls.xml	(.../ConfiguratorService.cls.xml)	(revision 2151)
+++ APPS/VKP/Maatwerk/ConfiguratorService.cls.xml	(.../ConfiguratorService.cls.xml)	(revision 2180)
@@ -48,8 +48,9 @@
 <FormalSpec>Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String,DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set Winkelkar = ..OpenWinkelkar(Applicatie, WinkelkarID)
+	Set KlantID = Winkelkar.KlantGetObjectId()
 	
-	Set WinkelkarToProductVisitor = ##class(APPS.VKP.Maatwerk.impl.WinkelkarToProductVisitor).%New(DocumentType, DocumentID)
+	Set WinkelkarToProductVisitor = ##class(APPS.VKP.Maatwerk.impl.WinkelkarToProductVisitor).%New(DocumentType, DocumentID, KlantID)
 	Do Winkelkar.Accept(WinkelkarToProductVisitor)
 	
 	Set BesteldeProducten = WinkelkarToProductVisitor.GeefBesteldeProducten()
@@ -284,5 +285,20 @@
 	Quit ParametersImpl
 ]]></Implementation>
 </Method>
+
+<Method name="GeefKenmerkMogelijkheden">
+<Description>
+Geeft de mogelijke waarden voor alle kenmerken, op basis van de reeds ingevulde waarden.</Description>
+<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken</FormalSpec>
+<ReturnType>zTryout.FM.DOM.PM.Maatwerk.dto.KenmerkMogelijkheden</ReturnType>
+<Implementation><![CDATA[
+	Set DtoNaarKenmerkVisitor = ##class(APPS.PM.Maatwerk.impl.DtoNaarKenmerkVisitor).%New()
+	Do Kenmerken.Accept(DtoNaarKenmerkVisitor)
+	Set IngegevenKenmerken = DtoNaarKenmerkVisitor.GeefIngegevenKenmerken()
+	Set Calculator = ##class(zTryout.FM.DOM.PM.Maatwerk.HalffabSelector).%New(IngegevenKenmerken)
+	Set Calculator.IsDebug = 1
+	Quit Calculator.Bereken()
+]]></Implementation>
+</Method>
 </Class>
 </Export>