Index: DOM/PM/Maatwerk/Calc/Common/impl/IKIDHash.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/Common/impl/IKIDHash.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/Common/impl/IKIDHash.cls.xml	(revision 1809)
@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.Maatwerk.Calc.Common.impl.IKIDHash">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Concurrency.VhPersistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="OverflowIDs">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.IKIDHashData</Type>
+<Collection>array</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="CanonischeWaarden">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.IKIDHashData</Type>
+<Collection>array</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="Hash">
+<Type>%Binary</Type>
+<Private>1</Private>
+</Property>
+
+<Index name="HashIndex">
+<IdKey>1</IdKey>
+<PrimaryKey>1</PrimaryKey>
+<Properties>Hash</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Method name="%OnNew">
+<FormalSpec>Hash:%Binary</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Hash = Hash
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefHash">
+<ReturnType>%Binary</ReturnType>
+<Implementation><![CDATA[	Quit ..Hash
+]]></Implementation>
+</Method>
+
+<Method name="GeefIKIDCanonischTupleIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..OverflowIDs)
+]]></Implementation>
+</Method>
+
+<Method name="CanonischeWaardeBestaat">
+<FormalSpec>CanonischeWaarde:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..CanonischeWaarden.IsDefined(CanonischeWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToe">
+<FormalSpec>CanonischeWaarde:%String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IKID</ReturnType>
+<Implementation><![CDATA[
+	Set IKID = ""
+	If ('..CanonischeWaardeBestaat(CanonischeWaarde))
+	{
+		Set OverflowID = ..OverflowIDs.Count()+1
+		Set IKID = ##class(DOM.PM.Maatwerk.Calc.Common.IKID).%New(..Hash,OverflowID)
+		Set IKIDHashData = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDHashData).%New(IKID,CanonischeWaarde,IngegevenKenmerken)
+		Do ..OverflowIDs.SetAt(IKIDHashData,OverflowID)
+		Do ..CanonischeWaarden.SetAt(IKIDHashData,CanonischeWaarde)
+	}
+	Else
+	{
+		Set IKID = ..CanonischeWaarden.GetAt(CanonischeWaarde).GeefIKID()
+	}
+	Quit IKID
+]]></Implementation>
+</Method>
+
+<Method name="GeefIngegevenKenmerken">
+<FormalSpec>OverflowID:%Integer</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[	Quit ..OverflowIDs.GetAt(OverflowID).GeefIngegevenKenmerken()
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^DOM.PM.Maatwerk.CaB2D.IKIDHashD</DataLocation>
+<DefaultData>IKIDHashDefaultData</DefaultData>
+<IdLocation>^DOM.PM.Maatwerk.CaB2D.IKIDHashD</IdLocation>
+<IndexLocation>^DOM.PM.Maatwerk.CaB2D.IKIDHashI</IndexLocation>
+<StreamLocation>^DOM.PM.Maatwerk.CaB2D.IKIDHashS</StreamLocation>
+<Data name="CanonischeWaarden">
+<Attribute>CanonischeWaarden</Attribute>
+<Structure>subnode</Structure>
+<Subscript>"CanonischeWaarden"</Subscript>
+</Data>
+<Data name="IKIDHashDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Hash</Value>
+</Value>
+<Value name="3">
+<Value>MaxOverflowID</Value>
+</Value>
+<Value name="4">
+<Value>InstanceVersion</Value>
+</Value>
+</Data>
+<Data name="OverflowIDs">
+<Attribute>OverflowIDs</Attribute>
+<Structure>subnode</Structure>
+<Subscript>"OverflowIDs"</Subscript>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: vhUnitTest/DOM/PM/impl/TestIngegevenKenmerkenAPI.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/impl/TestIngegevenKenmerkenAPI.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/impl/TestIngegevenKenmerkenAPI.cls.xml	(revision 1809)
@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.DOM.PM.impl.TestIngegevenKenmerkenAPI">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.impl.TestIngegevenKenmerkenAPI")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestDomeinContext">
+<Implementation><![CDATA[	Do $$$AssertTrue($IsObject(##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenAPI()),"De API werd terugggeven")
+]]></Implementation>
+</Method>
+
+<Method name="TestBewaarIngegevenKenmerken">
+<Implementation><![CDATA[
+	Set TAOOKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%New()
+	Set TAOOKenmerken.ProductieWijze = "Volledig"
+	Do TAOOKenmerken.NietMeeleveren.Insert("UnitTest") // Goeie manier om een unieke hash te krijgen :D
+	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
+	
+	Set IngegevenKenmerkenAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenAPI()
+	Set IKID = IngegevenKenmerkenAPI.BewaarIngegevenKenmerken(TAOOKenmerken)
+	
+	Do $$$AssertTrue($IsObject(IKID),"De IKID werd teruggegeven")
+	Do $$$AssertTrue(IKID.%Extends("DOM.PM.Maatwerk.Calc.Common.IKID"),"IKID is van het juiste type")
+	
+	Set IKIDTweedeSave = IngegevenKenmerkenAPI.BewaarIngegevenKenmerken(TAOOKenmerken)
+	
+	Do $$$AssertTrue($IsObject(IKID),"De IKID werd teruggegeven")
+	Do $$$AssertTrue(IKID.%Extends("DOM.PM.Maatwerk.Calc.Common.IKID"),"IKID is van het juiste type")
+	Do $$$AssertEquals(IKID.%Id(),IKIDTweedeSave.%Id(),"Na de tweede save krijgen we toch hetzelfde object terug")
+	
+	Set IngegevenKenmerken = IngegevenKenmerkenAPI.GeefIngegevenKenmerken(IKID)
+	
+	Do $$$AssertEquals(TAOOKenmerken.%Id(),IngegevenKenmerken.%Id(),"Dezelfde kenmerken worden gevonden")
+	
+	// Data opkuisen
+	Set ResultSet = ##class(%ResultSet).%New()
+	Do ResultSet.Prepare("DELETE FROM DOM_PM_Maatwerk_Calc_Common_impl.IKIDHashData WHERE IKID = ?")
+	Do ResultSet.Execute(IKID.%Id())
+	
+	Do ##class(DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken).%DeleteId(TAOOKenmerken.%Id())	
+	Do ##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDHash).%DeleteId(IKID.GeefHash())
+	Do ##class(DOM.PM.Maatwerk.Calc.Common.IKID).%DeleteId(IKID.GeefHash()_"||"_IKID.GeefOverflowID())
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: CSC IKID.prj.xml
===================================================================
diff -u -r1805 -r1809
--- CSC IKID.prj.xml	(.../CSC IKID.prj.xml)	(revision 1805)
+++ CSC IKID.prj.xml	(.../CSC IKID.prj.xml)	(revision 1809)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="CSC IKID" LastModified="2011-08-16 11:26:37">
+<Project name="CSC IKID" LastModified="2011-08-16 13:20:59">
   <Items>
     <ProjectItem name="DOM.DomeinContext" type="CLS"/>
     <ProjectItem name="DOM.PM.IngegevenKenmerkenAPI" type="CLS"/>
@@ -10,8 +10,8 @@
     <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.IKIDCanonischTuple" type="CLS"/>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.impl.IKIDHash" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.impl.IKIDHashData" 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"/>
@@ -21,6 +21,7 @@
     <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken" type="CLS"/>
     <ProjectItem name="DOM.PM.impl.IngegevenKenmerkenAPIimpl" type="CLS"/>
     <ProjectItem name="vhUnitTest.DOM.PM.impl.TestIKCanonischeWaarde" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.impl.TestIngegevenKenmerkenAPI" type="CLS"/>
   </Items>
 </Project>
 </Export>
Index: DOM/PM/Maatwerk/Calc/Common/impl/IKIDHashData.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/Common/impl/IKIDHashData.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/Common/impl/IKIDHashData.cls.xml	(revision 1809)
@@ -0,0 +1,80 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.Maatwerk.Calc.Common.impl.IKIDHashData">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%Persistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="CanonischeWaarde">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IKID">
+<Type>DOM.PM.Maatwerk.Calc.Common.IKID</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IngegevenKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>IKID:DOM.PM.Maatwerk.Calc.Common.IKID,CanonischeWaarde:%String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..IKID = IKID
+	Set ..CanonischeWaarde = CanonischeWaarde
+	Set ..IngegevenKenmerken = IngegevenKenmerken
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefCanonischeWaarde">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..CanonischeWaarde
+]]></Implementation>
+</Method>
+
+<Method name="GeefIKID">
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IKID</ReturnType>
+<Implementation><![CDATA[	Quit ..IKID
+]]></Implementation>
+</Method>
+
+<Method name="GeefIngegevenKenmerken">
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[	Quit ..IngegevenKenmerken
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^DOM.PM.MaatwerB2D.IKIDHashDataD</DataLocation>
+<DefaultData>IKIDHashDataDefaultData</DefaultData>
+<IdLocation>^DOM.PM.MaatwerB2D.IKIDHashDataD</IdLocation>
+<IndexLocation>^DOM.PM.MaatwerB2D.IKIDHashDataI</IndexLocation>
+<StreamLocation>^DOM.PM.MaatwerB2D.IKIDHashDataS</StreamLocation>
+<Data name="IKIDHashDataDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>CanonischeWaarde</Value>
+</Value>
+<Value name="3">
+<Value>IKID</Value>
+</Value>
+<Value name="4">
+<Value>IngegevenKenmerken</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: DOM/PM/impl/IngegevenKenmerkenAPIimpl.cls.xml
===================================================================
diff -u -r1803 -r1809
--- DOM/PM/impl/IngegevenKenmerkenAPIimpl.cls.xml	(.../IngegevenKenmerkenAPIimpl.cls.xml)	(revision 1803)
+++ DOM/PM/impl/IngegevenKenmerkenAPIimpl.cls.xml	(.../IngegevenKenmerkenAPIimpl.cls.xml)	(revision 1809)
@@ -4,5 +4,63 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.IngegevenKenmerkenAPI,%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="BewaarIngegevenKenmerken">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IKID</ReturnType>
+<Implementation><![CDATA[
+	Set CanonischeWaarde = ..GeefCanonischeWaarde(IngegevenKenmerken)	
+	Set IKIDHash = ..GeefIKIDHash(CanonischeWaarde)
+	Set IKID = IKIDHash.VoegToe(CanonischeWaarde,IngegevenKenmerken)
+	
+	Set Status = IKIDHash.Save()
+	
+	If ($$$ISERR(Status))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Kon de nodige data niet opslagen voor de IKID.",Status))
+	}
+	
+	Quit IKID
+]]></Implementation>
+</Method>
+
+<Method name="GeefIKIDHash">
+<FormalSpec>CanonischeWaarde:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.IKIDHash</ReturnType>
+<Implementation><![CDATA[
+	
+	Set Hash = $System.Encryption.MD5Encode(CanonischeWaarde)
+	
+	Set IKIDHash = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDHash).%OpenId(Hash)
+	
+	If ('$IsObject(IKIDHash))
+	{
+		Set IKIDHash = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDHash).%New(Hash)
+	}
+	
+	Quit IKIDHash
+]]></Implementation>
+</Method>
+
+<Method name="GeefCanonischeWaarde">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set IKCanonischeWaardeGenerator = ##class(DOM.PM.Maatwerk.Calc.Common.IKCanonischeWaardeGenerator).%New()
+	Do IngegevenKenmerken.Accept(IKCanonischeWaardeGenerator)
+	Quit IKCanonischeWaardeGenerator.GeefCanonischeWaarde()
+]]></Implementation>
+</Method>
+
+<Method name="GeefIngegevenKenmerken">
+<FormalSpec>IKID:DOM.PM.Maatwerk.Calc.Common.IKID</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	Set IKIDHash = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDHash).%OpenId(IKID.GeefHash())
+	Quit IKIDHash.GeefIngegevenKenmerken(IKID.GeefOverflowID())
+]]></Implementation>
+</Method>
 </Class>
 </Export>