Index: vhTest/Fake/AXimpl/Admin/DOM/PM/TotUniekeBouwstenenLijstOmvormer.cls.xml
===================================================================
diff -u
--- vhTest/Fake/AXimpl/Admin/DOM/PM/TotUniekeBouwstenenLijstOmvormer.cls.xml	(revision 0)
+++ vhTest/Fake/AXimpl/Admin/DOM/PM/TotUniekeBouwstenenLijstOmvormer.cls.xml	(revision 54389)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.AXimpl.Admin.DOM.PM.TotUniekeBouwstenenLijstOmvormer">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>AXimpl.Admin.DOM.PM.TotUniekeBouwstenenLijstOmvormer</Super>
+
+<Method name="GeefLijstMetUniekeBouwstenen">
+<FormalSpec>BouwstenenLijst:%ListOfObjects</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/AXimpl/Admin/DOM/PM/TotUniekeBouwstenenLijstOmvormer.cls.xml
===================================================================
diff -u
--- vhTest/Mock/AXimpl/Admin/DOM/PM/TotUniekeBouwstenenLijstOmvormer.cls.xml	(revision 0)
+++ vhTest/Mock/AXimpl/Admin/DOM/PM/TotUniekeBouwstenenLijstOmvormer.cls.xml	(revision 54389)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.AXimpl.Admin.DOM.PM.TotUniekeBouwstenenLijstOmvormer">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>AXimpl.Admin.DOM.PM.TotUniekeBouwstenenLijstOmvormer,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefLijstMetUniekeBouwstenen">
+<FormalSpec>BouwstenenLijst:%ListOfObjects</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefLijstMetUniekeBouwstenen",BouwstenenLijst)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/Admin/DOM/PM/TotUniekeBouwstenenLijstOmvormer.cls.xml
===================================================================
diff -u
--- AXimpl/Admin/DOM/PM/TotUniekeBouwstenenLijstOmvormer.cls.xml	(revision 0)
+++ AXimpl/Admin/DOM/PM/TotUniekeBouwstenenLijstOmvormer.cls.xml	(revision 54389)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Admin.DOM.PM.TotUniekeBouwstenenLijstOmvormer">
+<Super>TECH.Mockable</Super>
+
+<Method name="GeefLijstMetUniekeBouwstenen">
+<FormalSpec>BouwstenenLijst:%ListOfObjects</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	#dim Id As %Integer = 1
+	#dim Aantal As %Integer
+	#dim BouwstenenLijstIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(BouwstenenLijst)
+	#dim Bouwsteen As AXimpl.Admin.DOM.PM.Bouwsteen
+	#dim AanTePassenBouwsteen As AXimpl.Admin.DOM.PM.Bouwsteen
+	Set LijstMetUniekeBouwstenen = ##class(%ListOfObjects).%New()
+	Set LijstMetUniekeIdentnummers = ##class(%ListOfDataTypes).%New()
+	
+	While BouwstenenLijstIterator.HasNext() {
+		Set Bouwsteen = BouwstenenLijstIterator.Next()
+		
+		If ($$$Not(##class(TECH.ListUtils).Contains(LijstMetUniekeIdentnummers, Bouwsteen.IdentNummer))) {
+			Set Bouwsteen.Id = Id
+			Do LijstMetUniekeBouwstenen.Insert(Bouwsteen)			
+			Do LijstMetUniekeIdentnummers.Insert(Bouwsteen.IdentNummer)
+			Set Id = Id + 1
+		} Else {
+			Set AanTePassenBouwsteen = ##class(TECH.ObjectListUtils).FindPropertyWithValue(LijstMetUniekeBouwstenen, "IdentNummer", Bouwsteen.IdentNummer) 
+			Set AanTePassenBouwsteen.Aantal = AanTePassenBouwsteen.Aantal + Bouwsteen.Aantal
+			Do LijstMetUniekeBouwstenen.SetObjectAt(AanTePassenBouwsteen.Id, AanTePassenBouwsteen)
+		}
+	}
+	
+	Quit LijstMetUniekeBouwstenen
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AXimpl/Admin/DOM/PM/TotUniekeBouwstenenLijstOmvormer/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Admin/DOM/PM/TotUniekeBouwstenenLijstOmvormer/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Admin/DOM/PM/TotUniekeBouwstenenLijstOmvormer/Test.cls.xml	(revision 54389)
@@ -0,0 +1,142 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Admin.DOM.PM.TotUniekeBouwstenenLijstOmvormer.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="Identnummer1">
+<Type>%String</Type>
+<Default>1.234.567.8</Default>
+</Parameter>
+
+<Parameter name="Identnummer2">
+<Type>%String</Type>
+<Default>2.345.678.9</Default>
+</Parameter>
+
+<Parameter name="Identnummer3">
+<Type>%String</Type>
+<Default>3.456.789.0</Default>
+</Parameter>
+
+<Parameter name="Identnummer4">
+<Type>%String</Type>
+<Default>4.567.890.1</Default>
+</Parameter>
+
+<Parameter name="Identnummer5">
+<Type>%String</Type>
+<Default>5.678.901.2</Default>
+</Parameter>
+
+<Property name="TotUniekeBouwstenenLijstOmvormer">
+<Type>AXimpl.Admin.DOM.PM.TotUniekeBouwstenenLijstOmvormer</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##Super()
+	Set ..TotUniekeBouwstenenLijstOmvormer = ##class(AXimpl.Admin.DOM.PM.TotUniekeBouwstenenLijstOmvormer).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Een lege lijst returned een lege lijst">
+<Implementation><![CDATA[
+	#dim ResultLijst As %ListOfObjects = ..TotUniekeBouwstenenLijstOmvormer.GeefLijstMetUniekeBouwstenen(##class(%ListOfDataTypes).%New())
+	
+	Do $$$AssertEmptyList(ResultLijst)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Een lijst met enkel unieke bouwstenen returned een identieke lijst">
+<Implementation><![CDATA[
+	#dim UniekeBouwstenenLijst As %ListOfDataTypes = ..GeefBouwstenenLijst($$$True)
+	
+	#dim ResultLijst As %ListOfObjects = ..TotUniekeBouwstenenLijstOmvormer.GeefLijstMetUniekeBouwstenen(UniekeBouwstenenLijst)
+	
+	Do $$$AssertEqualsList(ResultLijst, UniekeBouwstenenLijst)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Een lijst met meermaals voorkomende bouwstenen returned een lijst met enkel unieke bouwstenen waarbij de aantallen van de dubbels opgeteld zijn">
+<Implementation><![CDATA[
+	#dim UniekeBouwstenenLijst As %ListOfDataTypes = ..GeefBouwstenenLijst($$$False)
+	
+	#dim ResultLijst As %ListOfObjects = ..TotUniekeBouwstenenLijstOmvormer.GeefLijstMetUniekeBouwstenen(UniekeBouwstenenLijst)
+	
+	Do $$$AssertEquals(ResultLijst.Count(), 3)
+	Do $$$AssertEquals(ResultLijst.GetAt(1).Aantal, 8)
+	Do $$$AssertEquals(ResultLijst.GetAt(2).Aantal, 10)
+	Do $$$AssertEquals(ResultLijst.GetAt(3).Aantal, 7)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Alle bouwstenen in de lijst hebben een oplopende Id beginnend vanaf 1">
+<Implementation><![CDATA[
+	#dim UniekeBouwstenenLijst As %ListOfDataTypes = ..GeefBouwstenenLijst($$$False)
+	
+	#dim ResultLijst As %ListOfObjects = ..TotUniekeBouwstenenLijstOmvormer.GeefLijstMetUniekeBouwstenen(UniekeBouwstenenLijst)
+	
+	Do $$$AssertEquals(ResultLijst.GetAt(1).Id, 1)
+	Do $$$AssertEquals(ResultLijst.GetAt(2).Id, 2)
+	Do $$$AssertEquals(ResultLijst.GetAt(3).Id, 3)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBouwstenenLijst">
+<FormalSpec>ZijnBouwstenenUniek:%Boolean</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim UniekeBouwstenenLijst As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim Bouwsteen As AXimpl.Admin.DOM.PM.Bouwsteen
+	#dim Identnummer As %String
+	#dim Index As %Integer
+	
+	For Index=1:1:5 {
+		Set Bouwsteen = ##class(AXimpl.Admin.DOM.PM.Bouwsteen).%New()
+		
+		If ZijnBouwstenenUniek {
+			Set Identnummer = $Parameter($this, "Identnummer"_Index)
+			Set Bouwsteen.IdentNummer = Identnummer
+			Set Bouwsteen.Aantal = Index
+		} Else {
+			Do ..ZetIdentnummerEnAantalOpBouwsteenVolgensIndex(Bouwsteen, Index)
+		}
+		
+		Do UniekeBouwstenenLijst.Insert(Bouwsteen)
+	}
+	
+	Quit UniekeBouwstenenLijst
+]]></Implementation>
+</Method>
+
+<Method name="ZetIdentnummerEnAantalOpBouwsteenVolgensIndex">
+<FormalSpec>Bouwsteen:AXimpl.Admin.DOM.PM.Bouwsteen,Index:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXimpl.Admin.DOM.PM.Bouwsteen</ReturnType>
+<Implementation><![CDATA[
+	If (Index = 1) {
+		Set Bouwsteen.IdentNummer = ..#Identnummer1
+		Set Bouwsteen.Aantal = 3
+	} ElseIf (Index = 2) {
+		Set Bouwsteen.IdentNummer = ..#Identnummer2
+		Set Bouwsteen.Aantal = 4
+	} ElseIf (Index = 3) {
+		Set Bouwsteen.IdentNummer = ..#Identnummer1
+		Set Bouwsteen.Aantal = 5
+	} ElseIf (Index = 4) {
+		Set Bouwsteen.IdentNummer = ..#Identnummer2
+		Set Bouwsteen.Aantal = 6
+	} ElseIf (Index = 5) {
+		Set Bouwsteen.IdentNummer = ..#Identnummer3
+		Set Bouwsteen.Aantal = 7
+	}
+	
+	Quit Bouwsteen
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/AXimpl/Admin/DOM/PM/OmvormerDieNietsDoet.cls.xml
===================================================================
diff -u
--- vhTest/Fake/AXimpl/Admin/DOM/PM/OmvormerDieNietsDoet.cls.xml	(revision 0)
+++ vhTest/Fake/AXimpl/Admin/DOM/PM/OmvormerDieNietsDoet.cls.xml	(revision 54389)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.AXimpl.Admin.DOM.PM.OmvormerDieNietsDoet">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>AXimpl.Admin.DOM.PM.TotUniekeBouwstenenLijstOmvormer</Super>
+
+<Method name="GeefLijstMetUniekeBouwstenen">
+<FormalSpec>BouwstenenLijst:%ListOfObjects</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit BouwstenenLijst
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>