Index: DOM/DomeinContext.cls.xml
===================================================================
diff -u -r1075 -r1803
--- DOM/DomeinContext.cls.xml	(.../DomeinContext.cls.xml)	(revision 1075)
+++ DOM/DomeinContext.cls.xml	(.../DomeinContext.cls.xml)	(revision 1803)
@@ -45,6 +45,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="IngegevenKenmerkenAPINamen">
+<Type>TECH.Stack</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="OrderAPI">
 <Type>DOM.OV.OrderAPI</Type>
 <Private>1</Private>
@@ -80,6 +85,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="IngegevenKenmerkenAPI">
+<Type>DOM.PM.IngegevenKenmerkenAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="Instance">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.DomeinContext</ReturnType>
@@ -102,7 +112,8 @@
 	Set ..ToeleveringAPINamen = ##class(TECH.Stack).%New()
 	Set ..AankoopPrijsAPINamen = ##class(TECH.Stack).%New()
 	Set ..VerkoopPrijsAPINamen = ##class(TECH.Stack).%New()
-	set ..VKPPrijsUitzAPINamen = ##class(TECH.Stack).%New()
+	Set ..VKPPrijsUitzAPINamen = ##class(TECH.Stack).%New()
+	Set ..IngegevenKenmerkenAPINamen = ##class(TECH.Stack).%New()
 	// Initialize the stacks
 	Do ..Reset()
 	Quit $$$OK
@@ -193,6 +204,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefIngegevenKenmerkenAPI">
+<ReturnType>DOM.VKP.PrijsUitzAPI</ReturnType>
+<Implementation><![CDATA[
+	If (..IngegevenKenmerkenAPI = "")
+	{
+		Set ClassName = ..IngegevenKenmerkenAPINamen.Peek()
+		Set ..IngegevenKenmerkenAPI = $ZOBJCLASSMETHOD(ClassName, "%New")
+	}
+	Quit ..IngegevenKenmerkenAPI
+]]></Implementation>
+</Method>
+
 <Method name="Reset">
 <Implementation><![CDATA[
 	Do ..ProductAPINamen.Clear()
@@ -204,6 +227,7 @@
 	Do ..PushAankoopPrijsAPIClassName("DOM.AKP.impl.DataM.DataMAankoopPrijsAPI")
 	Do ..PushVerkoopPrijsAPIClassName("DOM.VKP.impl.VerkoopPrijsAPIimpl")
 	Do ..PushVKPPrijsUitzAPIClassName("DOM.VKP.impl.DataM.DataMPrijsUitzAPI")
+	Do ..PushIngegKenmerkenAPIClassName("DOM.PM.impl.IngegevenKenmerkenAPIimpl")
 ]]></Implementation>
 </Method>
 
@@ -255,6 +279,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="PopIngegKenmerkenAPIClassName">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Do ..IngegevenKenmerkenAPINamen.Pop()
+	Set ..IngegevenKenmerkenAPI = ""
+]]></Implementation>
+</Method>
+
 <Method name="PushOrderAPIClassName">
 <FormalSpec>Naam:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -310,5 +342,13 @@
 	Set ..VKPPrijsUitzAPI = ""
 ]]></Implementation>
 </Method>
+
+<Method name="PushIngegKenmerkenAPIClassName">
+<FormalSpec>Naam:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..IngegevenKenmerkenAPINamen.Push(Naam)
+	Set ..IngegevenKenmerkenAPI = ""
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: DOM/PM/Maatwerk/Calc/Common/impl/KADBoring.cls.xml
===================================================================
diff -u -r1075 -r1803
--- DOM/PM/Maatwerk/Calc/Common/impl/KADBoring.cls.xml	(.../KADBoring.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/Common/impl/KADBoring.cls.xml	(.../KADBoring.cls.xml)	(revision 1803)
@@ -52,6 +52,42 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefElement">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Element
+]]></Implementation>
+</Method>
+
+<Method name="GeefPositie">
+<ReturnType>TECH.Vector</ReturnType>
+<Implementation><![CDATA[	Quit ..Positie
+]]></Implementation>
+</Method>
+
+<Method name="GeefType">
+<ReturnType>DOM.PM.enu.KADBoringType</ReturnType>
+<Implementation><![CDATA[	Quit ..Type
+]]></Implementation>
+</Method>
+
+<Method name="GeefRichting">
+<ReturnType>TECH.Vector</ReturnType>
+<Implementation><![CDATA[	Quit ..Richting
+]]></Implementation>
+</Method>
+
+<Method name="GeefDiameter">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit ..Diameter
+]]></Implementation>
+</Method>
+
+<Method name="GeefAfschuinDiameter">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit ..AfschuinDiameter
+]]></Implementation>
+</Method>
+
 <Method name="ToString">
 <Implementation><![CDATA[	Quit "Boring op "_..Element_" op positie ("_..Positie.X_","_..Positie.Y_","_..Positie.Z_") in richting ("_..Richting.X_","_..Richting.Y_","_..Richting.Z_") met diameter "_..Diameter_" en afschuin "_..AfschuinDiameter_" en type "_..Type
 ]]></Implementation>
Index: DOM/PM/Maatwerk/impl/IngegevenKenmerkenAPIimpl.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/impl/IngegevenKenmerkenAPIimpl.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/impl/IngegevenKenmerkenAPIimpl.cls.xml	(revision 1803)
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.Maatwerk.impl.IngegevenKenmerkenAPIimpl">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.IngegevenKenmerkenAPI,%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+</Class>
+</Export>
Index: vhUnitTest/DOM/PM/impl/TestIKCanonischeWaarde.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/impl/TestIKCanonischeWaarde.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/impl/TestIKCanonischeWaarde.cls.xml	(revision 1803)
@@ -0,0 +1,160 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.DOM.PM.impl.TestIKCanonischeWaarde">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.impl.TestIKCanonischeWaarde")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestTAOOKenmerken">
+<Implementation><![CDATA[
+	Set IKCanonischeWaardeGenerator = ##class(DOM.PM.impl.IKCanonischeWaardeGenerator).%New()
+	
+	Set TAOOKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%New()
+	Set TAOOKenmerken.ProductieWijze = "Volledig"
+	Do TAOOKenmerken.NietMeeleveren.Insert("Zijkant")
+	Do TAOOKenmerken.NietMeeleveren.Insert("Bodem")
+	Do TAOOKenmerken.Onderdelen.Insert("Rug")
+	Do TAOOKenmerken.Onderdelen.Insert("Glijder")
+	Set TAOOKenmerken.Draagkracht = 30
+	Set TAOOKenmerken.LadeKleur = ##class(DOM.PM.enu.TAOOLadeKleur).SmokedWalnut()
+	Set TAOOKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAOOLadeHoogte).N()
+	Set TAOOKenmerken.CorpusBinnenbreedte = 625
+	Set TAOOKenmerken.IsBinnenlade = 1
+	Set TAOOKenmerken.LadeDiepte = 350
+	
+	Do TAOOKenmerken.Accept(IKCanonischeWaardeGenerator)
+	
+	Do $$$AssertEquals(IKCanonischeWaardeGenerator.GeefCanonischeWaarde(),";Volledig;\Glijder;Rug\;\Bodem;Zijkant\;30;SW;N;625;1;350","De canonische waarde voor TAOO")
+]]></Implementation>
+</Method>
+
+<Method name="TestOLMKenmerken">
+<Implementation><![CDATA[
+	Set IKCanonischeWaardeGenerator = ##class(DOM.PM.impl.IKCanonischeWaardeGenerator).%New()
+	
+	Set OLMKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.OLMKenmerken).%New()
+	// Deze houden hier geen steek, maar gewoon als test zijn ze nuttig
+	Set OLMKenmerken.ProductieWijze = "Volledig"
+	Do OLMKenmerken.NietMeeleveren.Insert("Zijkant")
+	Do OLMKenmerken.NietMeeleveren.Insert("Bodem")
+	Do OLMKenmerken.Onderdelen.Insert("Rug")
+	Do OLMKenmerken.Onderdelen.Insert("Glijder")
+	
+	// Deze zijn wel nuttig
+	Set OLMKenmerken.InTeKortenPRNr = 1234
+	Set OLMKenmerken.TeBekomenLengte = 650
+	
+	Do OLMKenmerken.Accept(IKCanonischeWaardeGenerator)
+	
+	Do $$$AssertEquals(IKCanonischeWaardeGenerator.GeefCanonischeWaarde(),";Volledig;\Glijder;Rug\;\Bodem;Zijkant\;1234;650","De canonische waarde voor OLM")
+]]></Implementation>
+</Method>
+
+<Method name="TestKADKenmerken">
+<Implementation><![CDATA[
+	Set IKCanonischeWaardeGenerator = ##class(DOM.PM.impl.IKCanonischeWaardeGenerator).%New()
+	
+	Set KADKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.KADKenmerken).%New()
+	Set KADKenmerken.ProductieWijze = "Volledig"
+	Do KADKenmerken.NietMeeleveren.Insert("Profiel->Boven")
+	Do KADKenmerken.NietMeeleveren.Insert("Profiel->Onder")
+	Do KADKenmerken.Onderdelen.Insert("Profiel->Links")
+	Do KADKenmerken.Onderdelen.Insert("Profiel->Rechts")
+	
+	Set KADKenmerken.Breedte = 200
+	Set KADKenmerken.Hoogte = 300
+	Set KADKenmerken.ProfielType = ##class(DOM.PM.enu.KADProfielType).PSG()
+	Set KADKenmerken.ProfielAfwerking = ##class(DOM.PM.enu.KADProfielAfwerking).Geanodiseerd()
+	Set KADKenmerken.Ophangplaats = ##class(DOM.PM.enu.KADOphangplaats).Inliggend()
+	Set KADKenmerken.Vulling = ##class(DOM.PM.Maatwerk.Calc.Common.impl.KADVullingBeschrijving).%New("ABC")
+	Set KADKenmerken.Vulling.InversePlaatsing = 0
+	Set KADKenmerken.Vulling.RodePoli = 1
+	Set KADKenmerken.Vulling.Beschermfolie = 0
+	Set KADKenmerken.Vulling.Gehard = 1
+	Set KADKenmerken.Vulling.Gezandstraald = 0
+	Set KADKenmerken.Vulling.Speciaal = 1
+	Set KADKenmerken.Montage = ##class(DOM.PM.enu.KADMontage).Los()
+	Set KADKenmerken.Verpakking = ##class(DOM.PM.enu.KADVerpakking).Krimp()
+	
+	Set Boring = ##class(DOM.PM.Maatwerk.Calc.Common.impl.KADBoring).%New("Element1",##class(TECH.Vector).%New(1,2,3),##class(DOM.PM.enu.KADBoringType).Punt(),##class(TECH.Vector).%New(4,5,6),100,101)
+	Do KADKenmerken.Boringen.Insert(Boring)
+	Set Boring = ##class(DOM.PM.Maatwerk.Calc.Common.impl.KADBoring).%New("Element2",##class(TECH.Vector).%New(7,8,9),##class(DOM.PM.enu.KADBoringType).Gedeeltelijk(),##class(TECH.Vector).%New(10,11,12),102,103)
+	Do KADKenmerken.Boringen.Insert(Boring)
+	
+	Set Beslag = ##class(DOM.PM.Maatwerk.Calc.Common.impl.KADBeslag).%New("Element3",##class(TECH.Vector).%New(13,14,15),"Type1")
+	Do KADKenmerken.Beslag.Insert(Beslag)
+	Set Beslag = ##class(DOM.PM.Maatwerk.Calc.Common.impl.KADBeslag).%New("Element4",##class(TECH.Vector).%New(16,17,18),"Type2")
+	Do KADKenmerken.Beslag.Insert(Beslag)
+	
+	Do KADKenmerken.Accept(IKCanonischeWaardeGenerator)
+	
+	Do $$$AssertEquals(IKCanonischeWaardeGenerator.GeefCanonischeWaarde(),";Volledig;\Profiel->Links;Profiel->Rechts\;\Profiel->Boven;Profiel->Onder\;200;300;PSG;EV;I;ABC;0;1;0;1;0;1;L;K;\Element1;1;2;3;Punt;4;5;6;100;101;Element2;7;8;9;Gedeeltelijk;10;11;12;102;103\;\Element3;13;14;15;Type1;Element4;16;17;18;Type2\","De canonische waarde voor KAD")
+]]></Implementation>
+</Method>
+
+<Method name="TestTBXKenmerken">
+<Implementation><![CDATA[
+	Set IKCanonischeWaardeGenerator = ##class(DOM.PM.impl.IKCanonischeWaardeGenerator).%New()
+	
+	Set TBXKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	Set TBXKenmerken.ProductieWijze = "Volledig"
+	Do TBXKenmerken.NietMeeleveren.Insert("Zijkant->Links")
+	Do TBXKenmerken.NietMeeleveren.Insert("Zijkant->Rechts")
+	Do TBXKenmerken.Onderdelen.Insert("Bodem")
+	Do TBXKenmerken.Onderdelen.Insert("Rug")
+	
+	Set TBXKenmerken.InbouwBreedte = 200
+	Set TBXKenmerken.LadeDiepte = 250
+	Set TBXKenmerken.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus()
+	Set TBXKenmerken.IsBinnenLade = 1
+	Set TBXKenmerken.Antislipmat = ##class(DOM.PM.enu.TBXAntislipmat).Zwart()
+	Set TBXKenmerken.Blumotion = 1
+	Set TBXKenmerken.TipOn = 0
+	Set TBXKenmerken.BodemKleur = "LG"
+	Set TBXKenmerken.Draagkracht = 30
+	Set TBXKenmerken.Dwarsverdeling = ##class(DOM.PM.enu.TBXDwarsverdeling).Drie()
+	Set TBXKenmerken.FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Schroeven()
+	Set TBXKenmerken.FrontHouderKleur = "SW"
+	Set TBXKenmerken.FrontOndersteuningAantal = 1
+	Set TBXKenmerken.FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).FrontSteun()
+	Set TBXKenmerken.HangmapBoringen = 0
+	Set TBXKenmerken.Klasse = ##class(DOM.PM.enu.TBXKlas).Spoelbak()
+	Set TBXKenmerken.OpvullijstLinks = 1
+	Set TBXKenmerken.OpvullijstRechts = 0
+	Set TBXKenmerken.PlaatMateriaal = "HS"
+	Set TBXKenmerken.RugKleur = "DG"
+	Set TBXKenmerken.RugHouderKleur = "RHK"
+	Set TBXKenmerken.RugHoogte = ##class(DOM.PM.enu.TBXRugHoogte).N()
+	Set TBXKenmerken.RugMateriaal = ##class(DOM.PM.enu.TBXRugMateriaal).Hout()
+	Set TBXKenmerken.SpoelbakBinnenzijwandHoogte = "M"
+	Set TBXKenmerken.SpoelbakZijkantKleur = "SZK"
+	Set TBXKenmerken.Stabilisator = 1
+	Set TBXKenmerken.UitsparingBreedte = 102
+	Set TBXKenmerken.UitsparingDiepte = 103
+	Set TBXKenmerken.UitsparingPositie1 = 104
+	Set TBXKenmerken.UitsparingPositie2 = 105
+	Set TBXKenmerken.Uittrekbaarheid = ##class(DOM.PM.enu.TBXUittrekbaarheid).Volledig()
+	Set TBXKenmerken.Verpakking = ##class(DOM.PM.enu.TBXVerpakking).Pallet()
+	Set TBXKenmerken.VoorwandMetMeenemer = 0
+	Set TBXKenmerken.VoorwandMetGreep = 1
+	Set TBXKenmerken.VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Reling()
+	Set TBXKenmerken.VoorwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXVoorwandVerhogingMateriaal).Metaal()
+	Set TBXKenmerken.VoorwandVerhogingKleur = ##class(DOM.PM.enu.TBXVoorwandVerhogingKleur).FloatGezuurd()
+	Set TBXKenmerken.ZijkantDesign = ##class(DOM.PM.enu.TBXZijkantDesign).F()
+	Set TBXKenmerken.ZijkantHoogte = ##class(DOM.PM.enu.TBXZijkantHoogte).K()
+	Set TBXKenmerken.ZijkantKleur = ##class(DOM.PM.enu.TBXZijkantKleur).IN()
+	Set TBXKenmerken.ZijwandHoogte = ##class(DOM.PM.enu.TBXZijwandHoogte).G()
+	Set TBXKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Boxside()
+	Set TBXKenmerken.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Leder()
+	Set TBXKenmerken.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).DiamantGezuurd()
+	Set TBXKenmerken.ZijwandVerhogingAantal = 2
+	
+	Do TBXKenmerken.Accept(IKCanonischeWaardeGenerator)
+	
+	Do $$$AssertEquals(IKCanonischeWaardeGenerator.GeefCanonischeWaarde(),";Volledig;\Bodem;Rug\;\Zijkant->Links;Zijkant->Rechts\;200;250;TBX_Plus;1;Z;1;0;LG;30;3;S;SW;1;FrontSteun;0;SP2;1;0;HS;DG;RHK;N;Hout;M;SZK;1;102;103;104;105;V;P;0;1;Reling;Metaal;FZ;F;K;IN;G;Boxside;Leder;DFZ;2","De canonische waarde voor KAD")
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/Maatwerk/Calc/Common/impl/KADBeslag.cls.xml
===================================================================
diff -u -r1075 -r1803
--- DOM/PM/Maatwerk/Calc/Common/impl/KADBeslag.cls.xml	(.../KADBeslag.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/Common/impl/KADBeslag.cls.xml	(.../KADBeslag.cls.xml)	(revision 1803)
@@ -8,14 +8,17 @@
 
 <Property name="Element">
 <Type>%String</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="Positie">
 <Type>TECH.Vector</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="Type">
 <Type>%String</Type>
+<Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
@@ -31,6 +34,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefElement">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Element
+]]></Implementation>
+</Method>
+
+<Method name="GeefPositie">
+<ReturnType>TECH.Vector</ReturnType>
+<Implementation><![CDATA[	Quit ..Positie
+]]></Implementation>
+</Method>
+
+<Method name="GeefType">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Type
+]]></Implementation>
+</Method>
+
 <Method name="ToString">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit "Beslag "_..Type_" op "_..Element_" op positie ("_..Positie.X_","_..Positie.Y_","_..Positie.Z_")"
Index: DOM/PM/enu/KADProfielType.cls.xml
===================================================================
diff -u -r1075 -r1803
--- DOM/PM/enu/KADProfielType.cls.xml	(.../KADProfielType.cls.xml)	(revision 1075)
+++ DOM/PM/enu/KADProfielType.cls.xml	(.../KADProfielType.cls.xml)	(revision 1803)
@@ -9,5 +9,96 @@
 <Parameter name="VALUELIST">
 <Default>;PSG;PSV;PSA;PSS;PBG;PBR;PBK;PB9;PBA;P05;P03;P02;P04</Default>
 </Parameter>
+
+<Method name="PSG">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.KADProfielType</ReturnType>
+<Implementation><![CDATA[	Quit "PSG"
+]]></Implementation>
+</Method>
+
+<Method name="PSV">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.KADProfielType</ReturnType>
+<Implementation><![CDATA[	Quit "PSV"
+]]></Implementation>
+</Method>
+
+<Method name="PSA">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.KADProfielType</ReturnType>
+<Implementation><![CDATA[	Quit "PSA"
+]]></Implementation>
+</Method>
+
+<Method name="PSS">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.KADProfielType</ReturnType>
+<Implementation><![CDATA[	Quit "PSS"
+]]></Implementation>
+</Method>
+
+<Method name="PBG">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.KADProfielType</ReturnType>
+<Implementation><![CDATA[	Quit "PBG"
+]]></Implementation>
+</Method>
+
+<Method name="PBR">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.KADProfielType</ReturnType>
+<Implementation><![CDATA[	Quit "PBR"
+]]></Implementation>
+</Method>
+
+<Method name="PBK">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.KADProfielType</ReturnType>
+<Implementation><![CDATA[	Quit "PBK"
+]]></Implementation>
+</Method>
+
+<Method name="PB9">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.KADProfielType</ReturnType>
+<Implementation><![CDATA[	Quit "PB9"
+]]></Implementation>
+</Method>
+
+<Method name="PBA">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.KADProfielType</ReturnType>
+<Implementation><![CDATA[	Quit "PBA"
+]]></Implementation>
+</Method>
+
+<Method name="P05">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.KADProfielType</ReturnType>
+<Implementation><![CDATA[	Quit "P05"
+]]></Implementation>
+</Method>
+
+<Method name="P03">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.KADProfielType</ReturnType>
+<Implementation><![CDATA[	Quit "P03"
+]]></Implementation>
+</Method>
+
+<Method name="P02">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.KADProfielType</ReturnType>
+<Implementation><![CDATA[	Quit "P02"
+]]></Implementation>
+</Method>
+
+<Method name="P04">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.KADProfielType</ReturnType>
+<Implementation><![CDATA[	Quit "P04"
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: DOM/PM/impl/IngegevenKenmerkenAPIimpl.cls.xml
===================================================================
diff -u
--- DOM/PM/impl/IngegevenKenmerkenAPIimpl.cls.xml	(revision 0)
+++ DOM/PM/impl/IngegevenKenmerkenAPIimpl.cls.xml	(revision 1803)
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.impl.IngegevenKenmerkenAPIimpl">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.IngegevenKenmerkenAPI,%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+</Class>
+</Export>
Index: DOM/PM/IngegevenKenmerkenAPI.cls.xml
===================================================================
diff -u
--- DOM/PM/IngegevenKenmerkenAPI.cls.xml	(revision 0)
+++ DOM/PM/IngegevenKenmerkenAPI.cls.xml	(revision 1803)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.IngegevenKenmerkenAPI">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="BewaarIngegevenKenmerken">
+<Abstract>1</Abstract>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IKID</ReturnType>
+</Method>
+
+<Method name="GeefIngegevenKenmerken">
+<Abstract>1</Abstract>
+<FormalSpec>IKID:DOM.PM.Maatwerk.Calc.Common.IKID</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml
===================================================================
diff -u -r1574 -r1803
--- DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml	(.../TBXKenmerken.cls.xml)	(revision 1574)
+++ DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml	(.../TBXKenmerken.cls.xml)	(revision 1803)
@@ -194,40 +194,6 @@
 <Type>%Integer</Type>
 </Property>
 
-<UDLText name="T">
-<Content><![CDATA[
-/*
-// Properties te verhuizen naar GUI
-// ========== == ========= ==== === 
-
-/// a.k.a. Design (DS) 
-/// DEPRECATED !!!
-Property LadeDesign As %String;
-
-/// (LC) 
-Property LadeCode As %Float;
-
-/// (CB) 
-Property CorpusBreedte As %Float;
-
-Property CorpusBinnenmaat As %Float;
-
-/// (WD) 
-Property WandDikte As %String;
-
-/// (MTIB) 
-Property MinTolerantieOpIB As %Integer;
-
-/// a.k.a. VulstukMateriaal (VSM) 
-Property MateriaalInschuifElement As %String;
-
-///    (RSTL) 
-///    Is nu vervangen door RugHoogte. 
-Property RugStukVerlaagd As %String;
-*/
-]]></Content>
-</UDLText>
-
 <Method name="GeefVersieNr">
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[	Quit 0
Index: DOM/PM/impl/IKCanonischeWaardeGenerator.cls.xml
===================================================================
diff -u
--- DOM/PM/impl/IKCanonischeWaardeGenerator.cls.xml	(revision 0)
+++ DOM/PM/impl/IKCanonischeWaardeGenerator.cls.xml	(revision 1803)
@@ -0,0 +1,119 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.impl.IKCanonischeWaardeGenerator">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerkenVisitor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="CanonischeWaarde">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Comparator">
+<Type>TECH.Comparator.IComparator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefCanonischeWaarde">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..CanonischeWaarde
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTBXKenmerken">
+<FormalSpec>TBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	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_
+		";"_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.SpoelbakZijkantKleur_";"_TBXKenmerken.Stabilisator_";"_TBXKenmerken.UitsparingBreedte_";"_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_
+		";"_TBXKenmerken.ZijwandVerhogingKleur_";"_TBXKenmerken.ZijwandVerhogingAantal
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkKADKenmerken">
+<FormalSpec>KADKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.KADKenmerken</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..CanonischeWaarde = ""
+	Do ..VerwerkIngegevenKenmerken(KADKenmerken)
+	Set ..CanonischeWaarde = ..CanonischeWaarde_";"_KADKenmerken.Breedte_";" _KADKenmerken.Hoogte_";"_KADKenmerken.ProfielType_";"_KADKenmerken.ProfielAfwerking_";"_KADKenmerken.Ophangplaats_";"_KADKenmerken.Vulling.VullingType_";"_KADKenmerken.Vulling.InversePlaatsing_";"_KADKenmerken.Vulling.RodePoli_";"_KADKenmerken.Vulling.Beschermfolie_";"_KADKenmerken.Vulling.Gehard_";"_KADKenmerken.Vulling.Gezandstraald_";" _KADKenmerken.Vulling.Speciaal_";"_KADKenmerken.Montage_";"_KADKenmerken.Verpakking
+	
+	Set BoringStrings = ##class(%ListOfDataTypes).%New()
+	Set BoringIterator = ##class(TECH.ListIterator).%New(KADKenmerken.Boringen)
+	While (BoringIterator.HasNext())
+	{
+		Set Boring = BoringIterator.Next()
+		Do BoringStrings.Insert(Boring.GeefElement()_";"_Boring.GeefPositie().X_";"_Boring.GeefPositie().Y_";"_Boring.GeefPositie().Z_";"_Boring.GeefType()_";"_Boring.GeefRichting().X_";"_Boring.GeefRichting().Y_";"_Boring.GeefRichting().Z_";"_Boring.GeefDiameter()_";"_Boring.GeefAfschuinDiameter())
+	}
+	Do ##class(TECH.Algo.Sort.InsertionSort).Sort(BoringStrings,..Comparator)
+	
+	Set BeslagStrings = ##class(%ListOfDataTypes).%New()
+	Set BeslagIterator = ##class(TECH.ListIterator).%New(KADKenmerken.Beslag)
+	While (BeslagIterator.HasNext())
+	{
+		Set Beslag = BeslagIterator.Next()
+		Do BeslagStrings.Insert(Beslag.GeefElement()_";"_Beslag.GeefPositie().X_";"_Beslag.GeefPositie().Y_";"_Beslag.GeefPositie().Z_";"_Beslag.GeefType())
+	}
+	Do ##class(TECH.Algo.Sort.InsertionSort).Sort(BoringStrings,..Comparator)
+	
+	Set ..CanonischeWaarde = ..CanonischeWaarde_";\"_##class(TECH.ListUtils).ListToPieces(BoringStrings,";")_"\;\"_##class(TECH.ListUtils).ListToPieces(BeslagStrings,";")_"\"
+	
+	// boringen en vullingen sorteren met comparator. Nog goede comparator te bedenken. Mogelijks gewoon soort toString maken en op string sorteren.
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkOLMKenmerken">
+<FormalSpec>OLMKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.OLMKenmerken</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..CanonischeWaarde = ""
+	Do ..VerwerkIngegevenKenmerken(OLMKenmerken)
+	Set ..CanonischeWaarde = ..CanonischeWaarde_";"_OLMKenmerken.InTeKortenPRNr_";"_OLMKenmerken.TeBekomenLengte
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTAOOKenmerken">
+<FormalSpec>TAOOKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..CanonischeWaarde = ""
+	Do ..VerwerkIngegevenKenmerken(TAOOKenmerken)
+	Set ..CanonischeWaarde = ..CanonischeWaarde_";"_TAOOKenmerken.Draagkracht_";"_TAOOKenmerken.LadeKleur_";"_TAOOKenmerken.LadeHoogte_";"_TAOOKenmerken.CorpusBinnenbreedte_";"_TAOOKenmerken.IsBinnenlade_";"_TAOOKenmerken.LadeDiepte
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkIngegevenKenmerken">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ##class(TECH.Algo.Sort.InsertionSort).Sort(IngegevenKenmerken.Onderdelen,..Comparator)
+	Do ##class(TECH.Algo.Sort.InsertionSort).Sort(IngegevenKenmerken.NietMeeleveren,..Comparator)
+	
+	Set ..CanonischeWaarde = ..CanonischeWaarde_";"_IngegevenKenmerken.ProductieWijze_";\"_
+		##class(TECH.ListUtils).ListToPieces(IngegevenKenmerken.Onderdelen,";")_"\;\"_
+		##class(TECH.ListUtils).ListToPieces(IngegevenKenmerken.NietMeeleveren,";")_"\"
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Comparator = ##class(TECH.Comparator.StringComparator).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: CSC IKID.prj.xml
===================================================================
diff -u
--- CSC IKID.prj.xml	(revision 0)
+++ CSC IKID.prj.xml	(revision 1803)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Project name="CSC IKID" LastModified="2011-08-12 15:58:19">
+  <Items>
+    <ProjectItem name="DOM.DomeinContext" type="CLS"/>
+    <ProjectItem name="DOM.PM.IngegevenKenmerkenAPI" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.IKID" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerkenVisitor" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.impl.KADBeslag" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.impl.KADBoring" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.impl.KADKenmerken" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.impl.KADVullingBeschrijving" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.impl.OLMKenmerken" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken" type="CLS"/>
+    <ProjectItem name="DOM.PM.impl.IKCanonischeWaardeGenerator" type="CLS"/>
+    <ProjectItem name="DOM.PM.impl.IngegevenKenmerkenAPIimpl" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.impl.TestIKCanonischeWaarde" type="CLS"/>
+  </Items>
+</Project>
+</Export>
Index: DOM/PM/Maatwerk/Calc/Common/IKID.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/Common/IKID.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/Common/IKID.cls.xml	(revision 1803)
@@ -0,0 +1,78 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.Maatwerk.Calc.Common.IKID">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%Persistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Hash">
+<Type>%Binary</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OverflowID">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Index name="IDIndex">
+<IdKey>1</IdKey>
+<PrimaryKey>1</PrimaryKey>
+<Properties>Hash,OverflowID</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Method name="%OnNew">
+<FormalSpec>Hash:%Binary,OverflowID:%Integer</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Hash = Hash
+	Set ..OverflowID = OverflowID
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefHash">
+<ReturnType>%Binary</ReturnType>
+<Implementation><![CDATA[	Quit ..Hash
+]]></Implementation>
+</Method>
+
+<Method name="GeefOverflowID">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..OverflowID
+]]></Implementation>
+</Method>
+
+<Method name="ToString">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $System.Encryption.Base64Encode(..Hash_..OverflowID)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^DOM.PM.Maatwerk.Calc.C94D.IKIDD</DataLocation>
+<DefaultData>IKIDDefaultData</DefaultData>
+<IdLocation>^DOM.PM.Maatwerk.Calc.C94D.IKIDD</IdLocation>
+<IndexLocation>^DOM.PM.Maatwerk.Calc.C94D.IKIDI</IndexLocation>
+<StreamLocation>^DOM.PM.Maatwerk.Calc.C94D.IKIDS</StreamLocation>
+<Data name="IKIDDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Hash</Value>
+</Value>
+<Value name="3">
+<Value>OverflowID</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>