Index: DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml
===================================================================
diff -u -r30908 -r31383
--- DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml	(.../IKCanonischeWaardeGenerator.cls.xml)	(revision 30908)
+++ DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml	(.../IKCanonischeWaardeGenerator.cls.xml)	(revision 31383)
@@ -22,6 +22,7 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..Comparator = ##class(TECH.Comparator.StringComparator).%New()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -30,8 +31,10 @@
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	set ..CanonischeWaarde = ""
-	do IngegevenKenmerken.Accept($this)
+	Set ..CanonischeWaarde = ""
+	
+	Do IngegevenKenmerken.Accept($this)
+	
 	Quit ..CanonischeWaarde
 ]]></Implementation>
 </Method>
@@ -40,13 +43,56 @@
 <FormalSpec>TBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
 <Implementation><![CDATA[
 	Set ..CanonischeWaarde = ""
+	
 	Do ..VerwerkIngegevenKenmerken(TBXKenmerken)
 	
-	Set ..CanonischeWaarde = ..CanonischeWaarde_";"_TBXKenmerken.CorpusBinnenbreedte_";"_TBXKenmerken.LadeDiepte_";"_TBXKenmerken.LadeVariant_";"_TBXKenmerken.IsBinnenLade_";"_TBXKenmerken.Antislipmat_";"_TBXKenmerken.Blumotion_";"_TBXKenmerken.TipOn_";"_TBXKenmerken.BodemKleur_";"_TBXKenmerken.Draagkracht_";"_TBXKenmerken.Dwarsverdeling_";"_TBXKenmerken.FrontBevestiging_";"_TBXKenmerken.FrontHouderKleur_
-		";"_TBXKenmerken.FrontOndersteuningAantal_";"_TBXKenmerken.FrontOndersteuningType_";"_TBXKenmerken.HangmapBoringen_";"_TBXKenmerken.Klasse_";"_TBXKenmerken.OpvullijstLinks_";"_TBXKenmerken.OpvullijstRechts_";"_TBXKenmerken.PlaatMateriaal_";"_TBXKenmerken.RugKleur_";"_TBXKenmerken.RugHouderKleur_";"_TBXKenmerken.RugHoogte_";"_TBXKenmerken.RugMateriaal_
-		";"_TBXKenmerken.SpoelbakBinnenzijwandHoogte_";"_TBXKenmerken.TussenrugMateriaal_";"_TBXKenmerken.UitsparingZijkantKleur_";"_TBXKenmerken.Stabilisator_";"_TBXKenmerken.UitsparingBreedte1_";"_TBXKenmerken.UitsparingBreedte2_";"_TBXKenmerken.UitsparingDiepte_";"_TBXKenmerken.UitsparingPositie1_";"_TBXKenmerken.UitsparingPositie2_";"_TBXKenmerken.Uittrekbaarheid_";"_TBXKenmerken.Verpakking_";"_TBXKenmerken.VoorwandMetMeenemer_
-		";"_TBXKenmerken.VoorwandMetGreep_";"_TBXKenmerken.VoorwandVerhogingType_";"_TBXKenmerken.VoorwandVerhogingMateriaal_";"_TBXKenmerken.VoorwandVerhogingKleur_";"_TBXKenmerken.ZijkantDesign_";"_TBXKenmerken.ZijkantHoogte_";"_TBXKenmerken.ZijkantKleur_";"_TBXKenmerken.ZijwandHoogte_";"_TBXKenmerken.ZijwandVerhogingType_";"_TBXKenmerken.ZijwandVerhogingMateriaal_
-		";"_TBXKenmerken.ZijwandVerhogingKleur_";"_TBXKenmerken.ZijwandVerhogingAantal
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.CorpusBinnenbreedte
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.LadeDiepte
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.LadeVariant
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.IsBinnenLade
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.Antislipmat
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.Blumotion
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.TipOn
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.BodemKleur
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.Draagkracht
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.Dwarsverdeling
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.FrontBevestiging
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.FrontHouderKleur
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.FrontOndersteuningAantal
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.FrontOndersteuningType
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.HangmapBoringen
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.Klasse
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.OpvullijstLinks
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.OpvullijstRechts
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.PlaatMateriaal
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.RugKleur
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.RugHouderKleur
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.RugHoogte
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.RugMateriaal
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.SpoelbakBinnenzijwandHoogte
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.TussenrugMateriaal
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.UitsparingZijkantKleur
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.Stabilisator
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.UitsparingBreedte1
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.UitsparingBreedte2
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.UitsparingDiepte
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.UitsparingPositie1
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.UitsparingPositie2
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.Uittrekbaarheid
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.Verpakking
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.VoorwandMetMeenemer
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.VoorwandMetGreep
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.VoorwandVerhogingType
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.VoorwandVerhogingMateriaal
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.VoorwandVerhogingKleur
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.ZijkantDesign
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.ZijkantHoogte
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.ZijkantKleur
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.ZijwandHoogte
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.ZijwandVerhogingType
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.ZijwandVerhogingMateriaal
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.ZijwandVerhogingKleur
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ TBXKenmerken.ZijwandVerhogingAantal
 	
 	Do ..VerwerkGekoppeldeIngegevenKenmerken(TBXKenmerken)
 ]]></Implementation>
@@ -56,31 +102,29 @@
 <FormalSpec>KADKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.KADKenmerken</FormalSpec>
 <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())
-	{
-		#dim Boring As DOM.PM.Maatwerk.Calc.Common.impl.KADBoring = 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.MergeSort).Sort(BoringStrings,..Comparator)
+	#dim BoringStrings As %ListOfDataTypes = ..GeefBoringStrings(KADKenmerken.Boringen)
+	#dim BeslagStrings As %ListOfDataTypes = ..GeefBeslagStrings(KADKenmerken.Beslag)
 	
-	Set BeslagStrings = ##class(%ListOfDataTypes).%New()
-	Set BeslagIterator = ##class(TECH.ListIterator).%New(KADKenmerken.Beslag)
-	While (BeslagIterator.HasNext())
-	{
-		#dim Beslag As DOM.PM.Maatwerk.Calc.Common.impl.KADBeslag = BeslagIterator.Next()
-		Do BeslagStrings.Insert(Beslag.GeefElement()_";"_Beslag.GeefPositie().X_";"_Beslag.GeefPositie().Y_";"_Beslag.GeefPositie().Z_";"_Beslag.GeefCode())
-	}
-	Do ##class(TECH.Algo.Sort.MergeSort).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.
-	
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ KADKenmerken.Breedte
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ KADKenmerken.Hoogte
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ KADKenmerken.ProfielType
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ KADKenmerken.ProfielAfwerking
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ KADKenmerken.Ophangplaats
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ KADKenmerken.Vulling.VullingType
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ KADKenmerken.Vulling.InversePlaatsing
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ KADKenmerken.Vulling.RodePoli
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ KADKenmerken.Vulling.Beschermfolie
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ KADKenmerken.Vulling.Gehard
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ KADKenmerken.Vulling.Gezandstraald
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ KADKenmerken.Vulling.Speciaal
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ KADKenmerken.Montage
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ KADKenmerken.Verpakking
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ "\" _ ##class(TECH.ListUtils).ListToPieces(BoringStrings, ";") _ "\" 
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ "\" _ ##class(TECH.ListUtils).ListToPieces(BeslagStrings, ";") _ "\"
+
 	Do ..VerwerkGekoppeldeIngegevenKenmerken(KADKenmerken)
 ]]></Implementation>
 </Method>
@@ -89,9 +133,12 @@
 <FormalSpec>OLMKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.OLMKenmerken</FormalSpec>
 <Implementation><![CDATA[
 	Set ..CanonischeWaarde = ""
+	
 	Do ..VerwerkIngegevenKenmerken(OLMKenmerken)
-	Set ..CanonischeWaarde = ..CanonischeWaarde_";"_OLMKenmerken.InTeKortenPRNr_";"_OLMKenmerken.TeBekomenLengte
 	
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ OLMKenmerken.InTeKortenPRNr
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ OLMKenmerken.TeBekomenLengte
+	
 	Do ..VerwerkGekoppeldeIngegevenKenmerken(OLMKenmerken)
 ]]></Implementation>
 </Method>
@@ -140,6 +187,7 @@
 <FormalSpec>MATKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken</FormalSpec>
 <Implementation><![CDATA[
 	Set ..CanonischeWaarde = ""
+	
 	Do ..VerwerkIngegevenKenmerken(MATKenmerken)
 	
 	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ MATKenmerken.Breedte
@@ -156,26 +204,46 @@
 <FormalSpec>LBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
 <Implementation><![CDATA[
 	Set ..CanonischeWaarde = ""
+	
 	Do ..VerwerkIngegevenKenmerken(LBXKenmerken)
 	Do ..VoegToeLadeUitsparingCanonischeWaarde(LBXKenmerken)
 
-	Set ..CanonischeWaarde = ..CanonischeWaarde_";"_LBXKenmerken.LadeKleur_";"_LBXKenmerken.BodemKleur_";"_LBXKenmerken.LadeHoogte_";"_LBXKenmerken.LadeDiepte_";"_LBXKenmerken.IsBinnenlade
-		_";"_LBXKenmerken.InterneBreedte_";"_LBXKenmerken.RugWandMateriaal_";"_LBXKenmerken.VoorWandVerhogingHoogte_";"_LBXKenmerken.VoorWandVerhogingMateriaal_";"_LBXKenmerken.HeeftOpvullijstLinks
-		_";"_LBXKenmerken.HeeftOpvullijstRechts_";"_LBXKenmerken.HeeftZijstabilisering_";"_LBXKenmerken.HeeftDiepteVerstelling_";"_LBXKenmerken.FrontBevestiging_";"_LBXKenmerken.GeleiderTechnologie
-		_";"_LBXKenmerken.Draagkracht_";"_LBXKenmerken.VerpakkingType_";"_LBXKenmerken.GUIKenmerken.IsBinnenbreedte_";"_LBXKenmerken.GUIKenmerken.WandDikte_";"_LBXKenmerken.VoorWandType
-		_";"_LBXKenmerken.OpvullijstKleur _";"_LBXKenmerken.RugHoogte
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ LBXKenmerken.LadeKleur
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ LBXKenmerken.BodemKleur
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ LBXKenmerken.LadeHoogte
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ LBXKenmerken.LadeDiepte
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ LBXKenmerken.IsBinnenlade
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ LBXKenmerken.InterneBreedte
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ LBXKenmerken.RugWandMateriaal
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ LBXKenmerken.VoorWandVerhogingHoogte
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ LBXKenmerken.VoorWandVerhogingMateriaal
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ LBXKenmerken.HeeftOpvullijstLinks
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ LBXKenmerken.HeeftOpvullijstRechts
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ LBXKenmerken.HeeftZijstabilisering
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ LBXKenmerken.HeeftDiepteVerstelling
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ LBXKenmerken.FrontBevestiging
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ LBXKenmerken.GeleiderTechnologie
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ LBXKenmerken.Draagkracht
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ LBXKenmerken.VerpakkingType
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ LBXKenmerken.GUIKenmerken.IsBinnenbreedte
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ LBXKenmerken.GUIKenmerken.WandDikte
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ LBXKenmerken.VoorWandType
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ LBXKenmerken.OpvullijstKleur
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ LBXKenmerken.RugHoogte
 		
-	If LBXKenmerken.GeefVersieNr() = 1 {
+	If (LBXKenmerken.GeefVersieNr() = 1) {
 		#dim LBXKenmerkenv01 As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01 = LBXKenmerken
-		Set ..CanonischeWaarde = ..CanonischeWaarde_";"_LBXKenmerkenv01.Klasse
-		Set ..CanonischeWaarde = ..CanonischeWaarde_";"_LBXKenmerken.ZijWandType_";"_LBXKenmerken.ZijWandVerhogingMateriaal
-		Set ..CanonischeWaarde = ..CanonischeWaarde_";"_LBXKenmerken.AantalDwarsverdelingen
+		
+		Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ LBXKenmerkenv01.Klasse
+		Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ LBXKenmerken.ZijWandType
+		Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ LBXKenmerken.ZijWandVerhogingMateriaal
+		Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ LBXKenmerken.AantalDwarsverdelingen
 
-		If LBXKenmerkenv01.Klasse = ##class(DOM.PM.enu.LBXKlasse).Spoelbak(){
-			#dim SpoelbakKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBX.SpoelbakKenmerken = LBXKenmerkenv01.SpoelbakKenmerken
-			Set ..CanonischeWaarde = ..CanonischeWaarde_"/"_SpoelbakKenmerken.UitsparingPositie1_";"_SpoelbakKenmerken.UitsparingBreedte1_"/"
+		If (LBXKenmerkenv01.Klasse = ##class(DOM.PM.enu.LBXKlasse).Spoelbak()) {
+			Set ..CanonischeWaarde = ..CanonischeWaarde _ "/" _ LBXKenmerkenv01.SpoelbakKenmerken.UitsparingPositie1
+			Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ LBXKenmerkenv01.SpoelbakKenmerken.UitsparingBreedte1 _ "/"
 		} else {
-			Set ..CanonischeWaarde = ..CanonischeWaarde_"/;/"
+			Set ..CanonischeWaarde = ..CanonischeWaarde _ "/;/"
 		}
 	}
 	
@@ -191,24 +259,25 @@
 <Implementation><![CDATA[
 	#dim NietMeeleverenClone As %ListOfDataTypes = IngegevenKenmerken.NietMeeleveren.%ConstructClone($$$True)
 	
-	Do ##class(TECH.Algo.Sort.MergeSort).Sort(IngegevenKenmerken.Onderdelen,..Comparator)
-	Do ##class(TECH.Algo.Sort.MergeSort).Sort(NietMeeleverenClone,..Comparator)
+	Do ##class(TECH.Algo.Sort.MergeSort).Sort(IngegevenKenmerken.Onderdelen, ..Comparator)
+	Do ##class(TECH.Algo.Sort.MergeSort).Sort(NietMeeleverenClone, ..Comparator)
 	
-	Set ..CanonischeWaarde = ..CanonischeWaarde_";"_IngegevenKenmerken.ProductieWijze_";\"_
-		##class(TECH.ListUtils).ListToPieces(IngegevenKenmerken.Onderdelen,";")_"\;\"_
-		##class(TECH.ListUtils).ListToPieces(NietMeeleverenClone,";")_"\"
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ IngegevenKenmerken.ProductieWijze
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ "\" _ ##class(TECH.ListUtils).ListToPieces(IngegevenKenmerken.Onderdelen, ";") _ "\"
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ "\" _ ##class(TECH.ListUtils).ListToPieces(NietMeeleverenClone, ";") _ "\"
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkGekoppeldeIngegevenKenmerken">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set WaardeGenerator = ..%New()
-	#dim GekoppeldeIKIt As TECH.Iterator = ##class(TECH.ListIterator).%New(IngegevenKenmerken.GekoppeldeIngegevenKenmerken)
-	While GekoppeldeIKIt.HasNext(){
-		#dim GekoppeldeIK As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken	= GekoppeldeIKIt.Next()
-		Set ..CanonischeWaarde = ..CanonischeWaarde_";/"_WaardeGenerator.GeefCanonischeWaarde(GekoppeldeIK)_"/"
+	#dim WaardeGenerator As DOM.PM.Maatwerk.Calc.Common.IKCanonischeWaardeGenerator = ..%New()
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(IngegevenKenmerken.GekoppeldeIngegevenKenmerken)
+	
+	While (Iterator.HasNext()) {
+		#dim GekoppeldeIngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken	= Iterator.Next()
+		Set ..CanonischeWaarde = ..CanonischeWaarde _ ";/" _ WaardeGenerator.GeefCanonischeWaarde(GekoppeldeIngegevenKenmerken) _ "/"
 	}
 ]]></Implementation>
 </Method>
@@ -218,13 +287,96 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim CanonischeWaarde As %String = ""
-	If ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI().IsLadeMetUitsparing(IngegevenKenmerken) { 
+	
+	If (##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI().IsLadeMetUitsparing(IngegevenKenmerken)) { 
 		Set LadeUitsparingCanonischeWaardeGenerator = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingCanonischeWaardeGenerator).%New()
 		Set CanonischeWaarde = LadeUitsparingCanonischeWaardeGenerator.GeefCanonischeWaarde(IngegevenKenmerken.UitsparingData)
 	}
-	Set ..CanonischeWaarde = ..CanonischeWaarde_";\"_CanonischeWaarde_"\"
+	
+	Set ..CanonischeWaarde = ..CanonischeWaarde _ ";" _ "\" _ CanonischeWaarde _ "\"
 ]]></Implementation>
 </Method>
+
+<Method name="GeefBoringStrings">
+<FormalSpec>Boringen:%ListOfObjects</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim Strings As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Boringen)
+	
+	While (Iterator.HasNext()) {
+		#dim Boring As DOM.PM.Maatwerk.Calc.Common.impl.KADBoring = Iterator.Next()
+		#dim BoringString As TECH.String = ..GeefBoringString(Boring)
+		
+		Do Strings.Insert(BoringString)
+	}
+	
+	Do ##class(TECH.Algo.Sort.MergeSort).Sort(Strings, ..Comparator)
+	
+	Quit Strings
+]]></Implementation>
+</Method>
+
+<Method name="GeefBeslagStrings">
+<FormalSpec>Beslagen:%ListOfObjects</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim Strings As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Beslagen)
+	
+	While (Iterator.HasNext()) {
+		#dim Beslag As DOM.PM.Maatwerk.Calc.Common.impl.KADBeslag = Iterator.Next()
+		#dim BeslagString As TECH.String = ..GeefBeslagString(Beslag)
+		
+		Do Strings.Insert(BeslagString)
+	}
+	
+	Do ##class(TECH.Algo.Sort.MergeSort).Sort(Strings, ..Comparator)
+	
+	Quit Strings
+]]></Implementation>
+</Method>
+
+<Method name="GeefBoringString">
+<FormalSpec>Boring:DOM.PM.Maatwerk.Calc.Common.impl.KADBoring</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim BoringString As TECH.String = ""
+		
+	Set BoringString = BoringString _ Boring.GeefElement()
+	Set BoringString = BoringString _ ";" _ Boring.GeefPositie().X
+	Set BoringString = BoringString _ ";" _ Boring.GeefPositie().Y
+	Set BoringString = BoringString _ ";" _ Boring.GeefPositie().Z
+	Set BoringString = BoringString _ ";" _ Boring.GeefType()
+	Set BoringString = BoringString _ ";" _ Boring.GeefRichting().X
+	Set BoringString = BoringString _ ";" _ Boring.GeefRichting().Y
+	Set BoringString = BoringString _ ";" _ Boring.GeefRichting().Z
+	Set BoringString = BoringString _ ";" _ Boring.GeefDiameter()
+	Set BoringString = BoringString _ ";" _ Boring.GeefAfschuinDiameter()
+	
+	Quit BoringString
+]]></Implementation>
+</Method>
+
+<Method name="GeefBeslagString">
+<FormalSpec>Beslag:DOM.PM.Maatwerk.Calc.Common.impl.KADBeslag</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim BeslagString As TECH.String = ""
+		
+	Set BeslagString = BeslagString _ Beslag.GeefElement()
+	Set BeslagString = BeslagString _ ";" _ Beslag.GeefPositie().X
+	Set BeslagString = BeslagString _ ";" _ Beslag.GeefPositie().Y
+	Set BeslagString = BeslagString _ ";" _ Beslag.GeefPositie().Z
+	Set BeslagString = BeslagString _ ";" _ Beslag.GeefCode()
+	
+	Quit BeslagString
+]]></Implementation>
+</Method>
 </Class>