Index: CSC IKID.prj.xml
===================================================================
diff -u -r1803 -r1805
--- CSC IKID.prj.xml	(.../CSC IKID.prj.xml)	(revision 1803)
+++ CSC IKID.prj.xml	(.../CSC IKID.prj.xml)	(revision 1805)
@@ -1,22 +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">
+<Project name="CSC IKID" LastModified="2011-08-16 11:26:37">
   <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.IKCanonischeWaardeGenerator" 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.IKIDCanonischTuple" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.impl.IKIDHash" 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>
Index: vhUnitTest/DOM/PM/impl/TestIKCanonischeWaarde.cls.xml
===================================================================
diff -u -r1803 -r1805
--- vhUnitTest/DOM/PM/impl/TestIKCanonischeWaarde.cls.xml	(.../TestIKCanonischeWaarde.cls.xml)	(revision 1803)
+++ vhUnitTest/DOM/PM/impl/TestIKCanonischeWaarde.cls.xml	(.../TestIKCanonischeWaarde.cls.xml)	(revision 1805)
@@ -9,7 +9,7 @@
 
 <Method name="TestTAOOKenmerken">
 <Implementation><![CDATA[
-	Set IKCanonischeWaardeGenerator = ##class(DOM.PM.impl.IKCanonischeWaardeGenerator).%New()
+	Set IKCanonischeWaardeGenerator = ##class(DOM.PM.Maatwerk.Calc.Common.IKCanonischeWaardeGenerator).%New()
 	
 	Set TAOOKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%New()
 	Set TAOOKenmerken.ProductieWijze = "Volledig"
@@ -32,7 +32,7 @@
 
 <Method name="TestOLMKenmerken">
 <Implementation><![CDATA[
-	Set IKCanonischeWaardeGenerator = ##class(DOM.PM.impl.IKCanonischeWaardeGenerator).%New()
+	Set IKCanonischeWaardeGenerator = ##class(DOM.PM.Maatwerk.Calc.Common.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
@@ -54,7 +54,7 @@
 
 <Method name="TestKADKenmerken">
 <Implementation><![CDATA[
-	Set IKCanonischeWaardeGenerator = ##class(DOM.PM.impl.IKCanonischeWaardeGenerator).%New()
+	Set IKCanonischeWaardeGenerator = ##class(DOM.PM.Maatwerk.Calc.Common.IKCanonischeWaardeGenerator).%New()
 	
 	Set KADKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.KADKenmerken).%New()
 	Set KADKenmerken.ProductieWijze = "Volledig"
@@ -96,7 +96,7 @@
 
 <Method name="TestTBXKenmerken">
 <Implementation><![CDATA[
-	Set IKCanonischeWaardeGenerator = ##class(DOM.PM.impl.IKCanonischeWaardeGenerator).%New()
+	Set IKCanonischeWaardeGenerator = ##class(DOM.PM.Maatwerk.Calc.Common.IKCanonischeWaardeGenerator).%New()
 	
 	Set TBXKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
 	Set TBXKenmerken.ProductieWijze = "Volledig"
Index: DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml	(revision 1805)
@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.Maatwerk.Calc.Common.IKCanonischeWaardeGenerator">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerkenVisitor</Super>
+
+<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>
FishEye: Tag 1805 refers to a dead (removed) revision in file `DOM/PM/impl/IKCanonischeWaardeGenerator.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?