Index: TECH/Algo/Stapeling/INiveauSchikking.cls.xml
===================================================================
diff -u
--- TECH/Algo/Stapeling/INiveauSchikking.cls.xml	(revision 0)
+++ TECH/Algo/Stapeling/INiveauSchikking.cls.xml	(revision 1310)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Algo.Stapeling.INiveauSchikking">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefMaxAantalObjecten">
+<Description>
+Geeft het maximaal aantal objecten dat deze schikking kan plaatsen</Description>
+<Abstract>1</Abstract>
+<ReturnType>%Integer</ReturnType>
+</Method>
+
+<Method name="GebruikObjecten">
+<Description>
+Krijgt een Stack van TECH.Algo.Stapeling.I3DObject binnen. Geeft het aantal 3D objecten terug die het zal gebruiken.</Description>
+<Abstract>1</Abstract>
+<FormalSpec>I3DObjecten:TECH.Stack</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/TECH/Algo/Stapeling/NiveauSchikkingWisselend.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Algo/Stapeling/NiveauSchikkingWisselend.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Algo/Stapeling/NiveauSchikkingWisselend.cls.xml	(revision 1310)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.TECH.Algo.Stapeling.NiveauSchikkingWisselend">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,TECH.Algo.Stapeling.INiveauSchikking</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="AantalAanroepen">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefMaxAantalObjecten">
+<Description>
+Geeft het maximaal aantal objecten dat deze schikking kan plaatsen</Description>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit 3
+]]></Implementation>
+</Method>
+
+<Method name="GebruikObjecten">
+<Description>
+Krijgt een Stack van TECH.Algo.Stapeling.I3DObject binnen. Geeft het aantal 3D objecten terug die het zal gebruiken.</Description>
+<FormalSpec>I3DObjecten:TECH.Stack</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Set ..AantalAanroepen = ..AantalAanroepen + 1
+	If (..AantalAanroepen#2 = 1)
+	{
+		Do I3DObjecten.Pop()
+		Quit 1
+	}
+	Else
+	{
+		Do I3DObjecten.Pop() Set Popped = 1
+		If ('I3DObjecten.IsEmpty()) { Do I3DObjecten.Pop() Set Popped = 2 }
+		If ('I3DObjecten.IsEmpty()) { Do I3DObjecten.Pop() Set Popped = 3 }
+		Quit Popped
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/Halux/common/impl/TandemboxDoos.cls.xml
===================================================================
diff -u
--- APPS/Halux/common/impl/TandemboxDoos.cls.xml	(revision 0)
+++ APPS/Halux/common/impl/TandemboxDoos.cls.xml	(revision 1310)
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.common.impl.TandemboxDoos">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,TECH.Algo.Stapeling.I3DObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Diepte">
+<Type>%Float</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Hoogte">
+<Type>%Float</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Breedte">
+<Type>%Float</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Tandembox:DOM.PM.TBXProduct.TBXLade</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Diepte = Tandembox.GeefLadeDiepte()
+	Set ..Breedte = Tandembox.GeefInbouwBreedte()
+	Set ..Hoogte = Tandembox.GeefRugHoogteMM()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefDiepte">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit ..Diepte
+]]></Implementation>
+</Method>
+
+<Method name="GeefHoogte">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit ..Hoogte
+]]></Implementation>
+</Method>
+
+<Method name="GeefBreedte">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit ..Breedte
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: TECH/Algo/Stapeling/StapelingException.cls.xml
===================================================================
diff -u
--- TECH/Algo/Stapeling/StapelingException.cls.xml	(revision 0)
+++ TECH/Algo/Stapeling/StapelingException.cls.xml	(revision 1310)
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Algo.Stapeling.StapelingException">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,TECH.Exceptions.BaseException</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+</Class>
+</Export>
Index: TECH/Algo/Sort/InsertionSort.cls.xml
===================================================================
diff -u
--- TECH/Algo/Sort/InsertionSort.cls.xml	(revision 0)
+++ TECH/Algo/Sort/InsertionSort.cls.xml	(revision 1310)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Algo.Sort.InsertionSort">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="Sort">
+<Description>
+Sorteert de opgegeven lijst zelf. Maakt geen nieuwe lijst aan.</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>TeSorteren:%ListOfDataTypes,Comparator:TECH.Comparator.IComparator</FormalSpec>
+<Implementation><![CDATA[
+	For i = 2:1:TeSorteren.Count()
+	{
+		Set Hulp = TeSorteren.GetAt(i)
+		Set k = i - 1
+		While ((k > 0) && (Comparator.IsKleinerDan(Hulp,TeSorteren.GetAt(k))))
+		{
+			Do TeSorteren.SetAt(TeSorteren.GetAt(k),k+1)
+			Set k = k - 1
+		}
+		Do TeSorteren.SetAt(Hulp,k+1)
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: TECH/Algo/Stapeling/Stapeling.cls.xml
===================================================================
diff -u
--- TECH/Algo/Stapeling/Stapeling.cls.xml	(revision 0)
+++ TECH/Algo/Stapeling/Stapeling.cls.xml	(revision 1310)
@@ -0,0 +1,75 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Algo.Stapeling.Stapeling">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="NiveauSchikkingen">
+<Type>TECH.Algo.Stapeling.INiveauSchikking</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Method name="VoegToeNiveauSchikking">
+<FormalSpec>NiveauSchikking:TECH.Algo.Stapeling.INiveauSchikking</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set k = ..NiveauSchikkingen.Count()
+	While ((k > 0) && (NiveauSchikking.GeefMaxAantalObjecten() > ..NiveauSchikkingen.GetAt(k).GeefMaxAantalObjecten()))
+	{
+		Do ..NiveauSchikkingen.InsertAt(..NiveauSchikkingen.GetAt(k),k+1)
+		Set k = k - 1
+	}
+	Do ..NiveauSchikkingen.InsertAt(NiveauSchikking,k+1)
+	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="GeefStapelHoogte">
+<FormalSpec>I3DObjecten:%ListOfObjects</FormalSpec>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	Set StapelHoogte = 0
+	
+	Set TeStapelenStack = ##class(TECH.Stack).%New()
+	
+	For i=I3DObjecten.Count():-1:1
+	{
+		Do TeStapelenStack.Push(I3DObjecten.GetAt(i))
+	}
+	
+	Set AantalGebruikt = 0
+	While ('TeStapelenStack.IsEmpty())
+	{
+		Set i = 0
+		Set AantalGebruiktOpHuidigNiveau = 0
+		While ((i < ..NiveauSchikkingen.Count()) && (AantalGebruiktOpHuidigNiveau = 0))
+		{
+			Set AantalGebruiktOpHuidigNiveau = ..NiveauSchikkingen.GetAt(i+1).GebruikObjecten(TeStapelenStack)
+			Set i = i + 1
+		}
+		
+		If (AantalGebruiktOpHuidigNiveau = 0)
+		{
+			Set Exception = ##class(TECH.Algo.Stapeling.StapelingException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),"Het is onmogelijk deze lijst te stapelen")
+			Do ##class(TECH.ExceptionHandler).Throw(Exception)
+		}
+		Else
+		{
+			Set MaxHoogteNiveau = 0
+			For i = 1:1:AantalGebruiktOpHuidigNiveau
+			{
+				Set MaxHoogteNiveau = ##class(TECH.Math).Max(MaxHoogteNiveau, I3DObjecten.GetAt(AantalGebruikt+i).GeefHoogte())
+			}
+			
+			Set AantalGebruikt = AantalGebruikt + AantalGebruiktOpHuidigNiveau
+			Set StapelHoogte = StapelHoogte + MaxHoogteNiveau
+		}
+	}
+	
+	Quit StapelHoogte
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/TECH/Algo/Stapeling/NiveauSchikkingEnkel.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Algo/Stapeling/NiveauSchikkingEnkel.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Algo/Stapeling/NiveauSchikkingEnkel.cls.xml	(revision 1310)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.TECH.Algo.Stapeling.NiveauSchikkingEnkel">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,TECH.Algo.Stapeling.INiveauSchikking</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefMaxAantalObjecten">
+<Description>
+Geeft het maximaal aantal objecten dat deze schikking kan plaatsen</Description>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="GebruikObjecten">
+<Description>
+Krijgt een Stack van TECH.Algo.Stapeling.I3DObject binnen. Geeft het aantal 3D objecten terug die het zal gebruiken.</Description>
+<FormalSpec>I3DObjecten:TECH.Stack</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Do I3DObjecten.Pop()
+	Quit 1
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/Halux/common/impl/NiveauSchikkingTwee.cls.xml
===================================================================
diff -u
--- APPS/Halux/common/impl/NiveauSchikkingTwee.cls.xml	(revision 0)
+++ APPS/Halux/common/impl/NiveauSchikkingTwee.cls.xml	(revision 1310)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.common.impl.NiveauSchikkingTwee">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.common.impl.NiveauSchikkingAbstract</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefMaxAantalObjecten">
+<Description>
+Geeft het maximaal aantal objecten dat deze schikking kan plaatsen</Description>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit 2
+]]></Implementation>
+</Method>
+
+<Method name="GebruikObjecten">
+<Description>
+Krijgt een Stack van TECH.Algo.Stapeling.I3DObject binnen. Geeft het aantal 3D objecten terug die het zal gebruiken.</Description>
+<FormalSpec>I3DObjecten:TECH.Stack</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Set Lijst = ..GeefObjectenGelijkeHoogte(I3DObjecten)
+	
+	Set Gebruikt = Lijst.Count()
+	
+	If (Lijst.Count() = 2)
+	{
+		Set Doos1 = Lijst.GetAt(1)
+		Set Doos2 = Lijst.GetAt(2)
+		If ('..IsPassendInBreedte(Doos1,Doos2)) && ('..IsPassendInDiepte(Doos1,Doos2))
+		{
+			Do I3DObjecten.Push(Doos2)
+			Set Gebruikt = 1
+		}
+	}
+	
+	Quit Gebruikt
+]]></Implementation>
+</Method>
+
+<Method name="IsPassendInBreedte">
+<FormalSpec>Doos1:TECH.Algo.Stapeling.I3DObject,Doos2:TECH.Algo.Stapeling.I3DObject</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set TotaleBreedte = Doos1.GeefBreedte() + Doos2.GeefBreedte()
+	Set TotaleDiepte = ##class(TECH.Math).Max(Doos1.GeefDiepte(),Doos2.GeefDiepte())
+	Quit ((TotaleBreedte '> ..#BreedtePallet) && (TotaleDiepte '> ..#DieptePallet))
+]]></Implementation>
+</Method>
+
+<Method name="IsPassendInDiepte">
+<FormalSpec>Doos1:TECH.Algo.Stapeling.I3DObject,Doos2:TECH.Algo.Stapeling.I3DObject</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set TotaleBreedte = Doos1.GeefDiepte() + Doos2.GeefDiepte()
+	Set TotaleDiepte = ##class(TECH.Math).Max(Doos1.GeefBreedte(),Doos2.GeefBreedte())
+	Quit ((TotaleBreedte '> ..#BreedtePallet) && (TotaleDiepte '> ..#DieptePallet))
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/Halux/common/impl/NiveauSchikkingDrie.cls.xml
===================================================================
diff -u
--- APPS/Halux/common/impl/NiveauSchikkingDrie.cls.xml	(revision 0)
+++ APPS/Halux/common/impl/NiveauSchikkingDrie.cls.xml	(revision 1310)
@@ -0,0 +1,77 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.common.impl.NiveauSchikkingDrie">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.common.impl.NiveauSchikkingTwee</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefMaxAantalObjecten">
+<Description>
+Geeft het maximaal aantal objecten dat deze schikking kan plaatsen</Description>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit 3
+]]></Implementation>
+</Method>
+
+<Method name="GebruikObjecten">
+<Description>
+Krijgt een Stack van TECH.Algo.Stapeling.I3DObject binnen. Geeft het aantal 3D objecten terug die het zal gebruiken.</Description>
+<FormalSpec>I3DObjecten:TECH.Stack</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Set Lijst = ..GeefObjectenGelijkeHoogte(I3DObjecten)
+	Set Gebruikt = 3
+
+	If (Lijst.Count() < 3)
+	{
+		For i=Lijst.Count():-1:1
+		{
+			Do I3DObjecten.Push(Lijst.GetAt(i))
+		}
+		// Zelfde geval als met 2 te stapelen
+		Set Gebruikt = ##super(I3DObjecten)
+	}
+	Else
+	{
+		Set Doos1 = Lijst.GetAt(1)
+		Set Doos2 = Lijst.GetAt(2)
+		Set Doos3 = Lijst.GetAt(3)
+		If ('..IsPassendInBreedte3(Doos1,Doos2,Doos3)) && ('..IsPassendInDiepte3(Doos1,Doos2,Doos3))
+		{
+			// Als ze niet passen opnieuw toevoegen aan de stack
+			Do I3DObjecten.Push(Doos3)
+			Do I3DObjecten.Push(Doos2)
+			Do I3DObjecten.Push(Doos1)
+			Set Gebruikt = 0
+		}
+	}
+	
+	Quit Gebruikt
+]]></Implementation>
+</Method>
+
+<Method name="IsPassendInBreedte3">
+<Description>
+De 3 in de naam is om de method in de benedenklasse niet te overschrijven.</Description>
+<FormalSpec>Doos1:TECH.Algo.Stapeling.I3DObject,Doos2:TECH.Algo.Stapeling.I3DObject,Doos3:TECH.Algo.Stapeling.I3DObject</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set TotaleBreedte = Doos1.GeefBreedte() + Doos2.GeefBreedte() + Doos3.GeefDiepte()
+	Set TotaleDiepte = ##class(TECH.Math).Max(Doos1.GeefDiepte(),##class(TECH.Math).Max(Doos2.GeefDiepte(),Doos3.GeefDiepte()))
+	Quit ((TotaleBreedte '> ..#BreedtePallet) && (TotaleDiepte '> ..#DieptePallet))
+]]></Implementation>
+</Method>
+
+<Method name="IsPassendInDiepte3">
+<FormalSpec>Doos1:TECH.Algo.Stapeling.I3DObject,Doos2:TECH.Algo.Stapeling.I3DObject,Doos3:TECH.Algo.Stapeling.I3DObject</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set TotaleBreedte = Doos1.GeefDiepte() + Doos2.GeefDiepte() + Doos3.GeefDiepte()
+	Set TotaleDiepte = ##class(TECH.Math).Max(Doos1.GeefBreedte(),##class(TECH.Math).Max(Doos2.GeefBreedte(),Doos3.GeefBreedte()))
+	Quit ((TotaleBreedte '> ..#BreedtePallet) && (TotaleDiepte '> ..#DieptePallet))
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/Halux/common/impl/NiveauSchikkingEen.cls.xml
===================================================================
diff -u
--- APPS/Halux/common/impl/NiveauSchikkingEen.cls.xml	(revision 0)
+++ APPS/Halux/common/impl/NiveauSchikkingEen.cls.xml	(revision 1310)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.common.impl.NiveauSchikkingEen">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.common.impl.NiveauSchikkingAbstract</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefMaxAantalObjecten">
+<Description>
+Geeft het maximaal aantal objecten dat deze schikking kan plaatsen</Description>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="GebruikObjecten">
+<Description>
+Krijgt een Stack van TECH.Algo.Stapeling.I3DObject binnen. Geeft het aantal 3D objecten terug die het zal gebruiken.</Description>
+<FormalSpec>I3DObjecten:TECH.Stack</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Do I3DObjecten.Pop()
+	Quit 1
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: CSC Palletstapeling.prj.xml
===================================================================
diff -u
--- CSC Palletstapeling.prj.xml	(revision 0)
+++ CSC Palletstapeling.prj.xml	(revision 1310)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Project name="CSC Palletstapeling" LastModified="2011-05-26 13:10:15">
+  <Items>
+    <ProjectItem name="APPS.Halux.common.StapelService" type="CLS"/>
+    <ProjectItem name="APPS.Halux.common.impl.NiveauSchikkingAbstract" type="CLS"/>
+    <ProjectItem name="APPS.Halux.common.impl.NiveauSchikkingDrie" type="CLS"/>
+    <ProjectItem name="APPS.Halux.common.impl.NiveauSchikkingEen" type="CLS"/>
+    <ProjectItem name="APPS.Halux.common.impl.NiveauSchikkingTwee" type="CLS"/>
+    <ProjectItem name="APPS.Halux.common.impl.NiveauSchikkingVier" type="CLS"/>
+    <ProjectItem name="APPS.Halux.common.impl.TandemboxDoos" type="CLS"/>
+    <ProjectItem name="TECH.Algo.Stapeling.I3DObject" type="CLS"/>
+    <ProjectItem name="TECH.Algo.Stapeling.INiveauSchikking" type="CLS"/>
+    <ProjectItem name="TECH.Algo.Stapeling.Stapeling" type="CLS"/>
+    <ProjectItem name="TECH.Algo.Stapeling.StapelingException" type="CLS"/>
+    <ProjectItem name="vhUnitTest.TECH.Algo.Stapeling.NiveauSchikkingDubbel" type="CLS"/>
+    <ProjectItem name="vhUnitTest.TECH.Algo.Stapeling.NiveauSchikkingEnkel" type="CLS"/>
+    <ProjectItem name="vhUnitTest.TECH.Algo.Stapeling.NiveauSchikkingGeen" type="CLS"/>
+    <ProjectItem name="vhUnitTest.TECH.Algo.Stapeling.NiveauSchikkingWisselend" type="CLS"/>
+    <ProjectItem name="vhUnitTest.TECH.Algo.Stapeling.TestStapeling" type="CLS"/>
+    <ProjectItem name="vhUnitTest.TECH.Algo.Stapeling.UT3DObject" type="CLS"/>
+  </Items>
+</Project>
+</Export>
Index: vhUnitTest/TECH/Algo/TestSort.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Algo/TestSort.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Algo/TestSort.cls.xml	(revision 1310)
@@ -0,0 +1,72 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.TECH.Algo.TestSort">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","TECH.Algo.TestSort")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestInsertionSort">
+<Implementation><![CDATA[
+	Set Lijst = ##class(%ListOfDataTypes).%New()
+	Do Lijst.Insert(10)
+	Do Lijst.Insert(9)
+	Do Lijst.Insert(8)
+	Do Lijst.Insert(7)
+	Do Lijst.Insert(6)
+	Do Lijst.Insert(5)
+	Do Lijst.Insert(4)
+	Do Lijst.Insert(3)
+	Do Lijst.Insert(2)
+	Do Lijst.Insert(1)
+	
+	Do ##class(TECH.Algo.Sort.InsertionSort).Sort(Lijst,##class(TECH.Comparator.IntegerComparator).%New())
+	Do $$$AssertTrue(..IsGesorteerd(Lijst),"De lijst is gesorteerd")
+	
+	Set Lijst = ##class(%ListOfDataTypes).%New()
+	Do Lijst.Insert(1)
+	Do Lijst.Insert(2)
+	Do Lijst.Insert(3)
+	Do Lijst.Insert(4)
+	Do Lijst.Insert(5)
+	Do Lijst.Insert(6)
+	Do Lijst.Insert(7)
+	Do Lijst.Insert(8)
+	Do Lijst.Insert(9)
+	Do Lijst.Insert(10)
+	
+	Do ##class(TECH.Algo.Sort.InsertionSort).Sort(Lijst,##class(TECH.Comparator.IntegerComparator).%New())
+	Do $$$AssertTrue(..IsGesorteerd(Lijst),"De lijst is gesorteerd")
+	
+	Set Lijst = ##class(%ListOfDataTypes).%New()
+	Do Lijst.Insert(6)
+	Do Lijst.Insert(1)
+	Do Lijst.Insert(7)
+	Do Lijst.Insert(2)
+	Do Lijst.Insert(3)
+	Do Lijst.Insert(5)
+	Do Lijst.Insert(8)
+	Do Lijst.Insert(9)
+	Do Lijst.Insert(4)
+	Do Lijst.Insert(10)
+	
+	Do ##class(TECH.Algo.Sort.InsertionSort).Sort(Lijst,##class(TECH.Comparator.IntegerComparator).%New())
+	Do $$$AssertTrue(..IsGesorteerd(Lijst),"De lijst is gesorteerd")
+]]></Implementation>
+</Method>
+
+<Method name="IsGesorteerd">
+<FormalSpec>Lijst:%ListOfDataTypes</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set i = 1
+	While ((i < Lijst.Count()) && (Lijst.GetAt(i) < Lijst.GetAt(i+1)))
+	{
+		Set i = i + 1
+	}
+	Quit i = Lijst.Count()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/Halux/common/impl/NiveauSchikkingVier.cls.xml
===================================================================
diff -u
--- APPS/Halux/common/impl/NiveauSchikkingVier.cls.xml	(revision 0)
+++ APPS/Halux/common/impl/NiveauSchikkingVier.cls.xml	(revision 1310)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.common.impl.NiveauSchikkingVier">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.common.impl.NiveauSchikkingAbstract</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefMaxAantalObjecten">
+<Description>
+Geeft het maximaal aantal objecten dat deze schikking kan plaatsen</Description>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit 4
+]]></Implementation>
+</Method>
+
+<Method name="GebruikObjecten">
+<Description>
+Krijgt een Stack van TECH.Algo.Stapeling.I3DObject binnen. Geeft het aantal 3D objecten terug die het zal gebruiken.</Description>
+<FormalSpec>I3DObjecten:TECH.Stack</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Set Lijst = ..GeefObjectenGelijkeHoogte(I3DObjecten)
+
+	Set Gebruikt = 0
+	
+	Set i = 1
+	Set Doos = Lijst.GetAt(i)
+	While (i '> Lijst.Count()) && (Doos.GeefBreedte() '> (..#BreedtePallet/2)) && (Doos.GeefDiepte() '> (..#DieptePallet/2))
+	{
+		Set i = i+1
+		Set Doos = Lijst.GetAt(i)
+	}
+	
+	If (i > Lijst.Count())
+	{
+		Set Gebruikt = Lijst.Count()
+	}
+	Else
+	{
+		// één van de dozen paste niet, alle dozen terug op de stack plaatsen
+		For i=Lijst.Count():-1:1
+		{
+			Do I3DObjecten.Push(Lijst.GetAt(i))
+		}
+	}
+
+	Quit Gebruikt
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/TECH/Algo/Stapeling/NiveauSchikkingDubbel.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Algo/Stapeling/NiveauSchikkingDubbel.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Algo/Stapeling/NiveauSchikkingDubbel.cls.xml	(revision 1310)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.TECH.Algo.Stapeling.NiveauSchikkingDubbel">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,TECH.Algo.Stapeling.INiveauSchikking</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefMaxAantalObjecten">
+<Description>
+Geeft het maximaal aantal objecten dat deze schikking kan plaatsen</Description>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit 2
+]]></Implementation>
+</Method>
+
+<Method name="GebruikObjecten">
+<Description>
+Krijgt een Stack van TECH.Algo.Stapeling.I3DObject binnen. Geeft het aantal 3D objecten terug die het zal gebruiken.</Description>
+<FormalSpec>I3DObjecten:TECH.Stack</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Do I3DObjecten.Pop()
+	Do I3DObjecten.Pop()
+	Quit 2
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/TECH/Algo/Stapeling/UT3DObject.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Algo/Stapeling/UT3DObject.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Algo/Stapeling/UT3DObject.cls.xml	(revision 1310)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.TECH.Algo.Stapeling.UT3DObject">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,TECH.Algo.Stapeling.I3DObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Breedte">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Diepte">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Hoogte">
+<Type>%Integer</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Breedte:%Integer,Diepte:%Integer,Hoogte:%Integer</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Breedte = Breedte
+	Set ..Diepte = Diepte
+	Set ..Hoogte = Hoogte
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefBreedte">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit ..Breedte
+]]></Implementation>
+</Method>
+
+<Method name="GeefDiepte">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit ..Diepte
+]]></Implementation>
+</Method>
+
+<Method name="GeefHoogte">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit ..Hoogte
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/APPS/Halux/common/TestStapelService.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/common/TestStapelService.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/common/TestStapelService.cls.xml	(revision 1310)
@@ -0,0 +1,267 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.Halux.common.TestStapelService">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/debug/Display=all","APPS.Halux.common.TestStapelService")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestVerschillendeHoogtes">
+<Implementation><![CDATA[
+	// Allemaal verschillende hoogtes, dus allemaal op elkaar stapelen
+	Set Doos1 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,100)
+	Set Doos2 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,90)
+	Set Doos3 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,80)
+	
+	Set Dozen = ##class(%ListOfObjects).%New()
+	Do Dozen.Insert(Doos1)
+	Do Dozen.Insert(Doos2)
+	Do Dozen.Insert(Doos3)
+	
+	Set Stapeling = ##class(TECH.Algo.Stapeling.Stapeling).%New()
+	Do Stapeling.VoegToeNiveauSchikking(##class(APPS.Halux.common.impl.NiveauSchikkingEen).%New())
+	
+	Do $$$AssertEquals(Stapeling.GeefStapelHoogte(Dozen),100+90+80,"Elke doos wordt op elkaar gestapeld")
+	
+	Set Stapeling = ##class(TECH.Algo.Stapeling.Stapeling).%New()
+	Do Stapeling.VoegToeNiveauSchikking(##class(APPS.Halux.common.impl.NiveauSchikkingTwee).%New())
+	
+	Do $$$AssertEquals(Stapeling.GeefStapelHoogte(Dozen),100+90+80,"Elke doos wordt op elkaar gestapeld")
+	
+	Set Stapeling = ##class(TECH.Algo.Stapeling.Stapeling).%New()
+	Do Stapeling.VoegToeNiveauSchikking(##class(APPS.Halux.common.impl.NiveauSchikkingDrie).%New())
+	
+	Do $$$AssertEquals(Stapeling.GeefStapelHoogte(Dozen),100+90+80,"Elke doos wordt op elkaar gestapeld")
+	
+	Set Stapeling = ##class(TECH.Algo.Stapeling.Stapeling).%New()
+	Do Stapeling.VoegToeNiveauSchikking(##class(APPS.Halux.common.impl.NiveauSchikkingVier).%New())
+	
+	Do $$$AssertEquals(Stapeling.GeefStapelHoogte(Dozen),100+90+80,"Elke doos wordt op elkaar gestapeld")
+]]></Implementation>
+</Method>
+
+<Method name="TestGelijkeHoogtes">
+<Implementation><![CDATA[
+	Set Doos1 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,100)
+	Set Doos2 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,100)
+	Set Doos3 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,100)
+	Set Doos4 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,100)
+	Set Doos5 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,100)
+	
+	Set Dozen = ##class(%ListOfObjects).%New()
+	Do Dozen.Insert(Doos1)
+	Do Dozen.Insert(Doos2)
+	Do Dozen.Insert(Doos3)
+	Do Dozen.Insert(Doos4)
+	Do Dozen.Insert(Doos5)
+	
+	Set Stapeling = ##class(TECH.Algo.Stapeling.Stapeling).%New()
+	Do Stapeling.VoegToeNiveauSchikking(##class(APPS.Halux.common.impl.NiveauSchikkingEen).%New())
+	
+	Do $$$AssertEquals(Stapeling.GeefStapelHoogte(Dozen),5*100,"Elke doos wordt op elkaar gestapeld")
+	
+	Set Stapeling = ##class(TECH.Algo.Stapeling.Stapeling).%New()
+	Do Stapeling.VoegToeNiveauSchikking(##class(APPS.Halux.common.impl.NiveauSchikkingTwee).%New())
+	
+	Do $$$AssertEquals(Stapeling.GeefStapelHoogte(Dozen),3*100,"2 lagen van 2, 1 laag van 1")
+	
+	Set Stapeling = ##class(TECH.Algo.Stapeling.Stapeling).%New()
+	Do Stapeling.VoegToeNiveauSchikking(##class(APPS.Halux.common.impl.NiveauSchikkingDrie).%New())
+	
+	Do $$$AssertEquals(Stapeling.GeefStapelHoogte(Dozen),2*100,"1 laag van 3, 1 laag van 2")
+	
+	Set Stapeling = ##class(TECH.Algo.Stapeling.Stapeling).%New()
+	Do Stapeling.VoegToeNiveauSchikking(##class(APPS.Halux.common.impl.NiveauSchikkingVier).%New())
+	
+	Do $$$AssertEquals(Stapeling.GeefStapelHoogte(Dozen),2*100,"1 laag van 4, 1 laag van 1")
+]]></Implementation>
+</Method>
+
+<Method name="TestSchikkingTwee">
+<Implementation><![CDATA[
+	Set Doos1 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,100)
+	Set Doos2 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,110)
+	Set Doos3 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,110)
+	Set Doos4 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,100)
+	Set Doos5 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,110)
+	
+	Set Dozen = ##class(%ListOfObjects).%New()
+	Do Dozen.Insert(Doos1)
+	Do Dozen.Insert(Doos2)
+	Do Dozen.Insert(Doos3)
+	Do Dozen.Insert(Doos4)
+	Do Dozen.Insert(Doos5)
+	
+	Set Stapeling = ##class(TECH.Algo.Stapeling.Stapeling).%New()
+	Do Stapeling.VoegToeNiveauSchikking(##class(APPS.Halux.common.impl.NiveauSchikkingTwee).%New())
+	
+	//  Stapeling:
+	//      |  110  |
+	//  	|  100  |
+	//  |  110  ||  110  |
+	//  	|  100	|
+	
+	Do $$$AssertEquals(Stapeling.GeefStapelHoogte(Dozen),100+110+100+110,"De stapelhoogte")
+	
+	// Nu gaan we de som van 2de en 3de doos te groot maken om naast elkaar te plaatsen waardoor ze onder elkaar moeten
+	
+	Set Doos1 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,100)
+	Set Doos2 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(700,700,110)
+	Set Doos3 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(700,700,110)
+	Set Doos4 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,100)
+	Set Doos5 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,110)
+	
+	Set Dozen = ##class(%ListOfObjects).%New()
+	Do Dozen.Insert(Doos1)
+	Do Dozen.Insert(Doos2)
+	Do Dozen.Insert(Doos3)
+	Do Dozen.Insert(Doos4)
+	Do Dozen.Insert(Doos5)
+	
+	//  Stapeling:
+	//      |  110  |
+	//  	|  100  |
+	//  	|  110  |
+	//  	|  110  |
+	//  	|  100	|
+	
+	Set Stapeling = ##class(TECH.Algo.Stapeling.Stapeling).%New()
+	Do Stapeling.VoegToeNiveauSchikking(##class(APPS.Halux.common.impl.NiveauSchikkingTwee).%New())
+	
+	Do $$$AssertEquals(Stapeling.GeefStapelHoogte(Dozen),100+110+110+100+110,"De stapelhoogte")
+]]></Implementation>
+</Method>
+
+<Method name="TestSchikkingDrie">
+<Implementation><![CDATA[
+	Set Doos1 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,100)
+	Set Doos2 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,110)
+	Set Doos3 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,110)
+	Set Doos4 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,110)
+	Set Doos5 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,110)
+	Set Doos6 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,110)
+	Set Doos7 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,100)
+	
+	Set Dozen = ##class(%ListOfObjects).%New()
+	Do Dozen.Insert(Doos1)
+	Do Dozen.Insert(Doos2)
+	Do Dozen.Insert(Doos3)
+	Do Dozen.Insert(Doos4)
+	Do Dozen.Insert(Doos5)
+	Do Dozen.Insert(Doos6)
+	Do Dozen.Insert(Doos7)
+	
+	Set Stapeling = ##class(TECH.Algo.Stapeling.Stapeling).%New()
+	Do Stapeling.VoegToeNiveauSchikking(##class(APPS.Halux.common.impl.NiveauSchikkingDrie).%New())
+	
+	//  Stapeling:
+	//  	  |  100  |
+	//    |  110  ||  110  |
+	//  |  110  ||  110  ||  110  |
+	//  	  |  100  |
+	
+	Do $$$AssertEquals(Stapeling.GeefStapelHoogte(Dozen),100+110+110+100,"De stapelhoogte")
+	
+	// Nu gaan we zorgen dat er max 2 dozen naast elkaar geraken
+	
+	Set Doos1 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(500,500,100)
+	Set Doos2 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(500,500,110)
+	Set Doos3 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(500,500,110)
+	Set Doos4 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(500,500,110)
+	Set Doos5 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(500,500,110)
+	Set Doos6 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(500,500,110)
+	Set Doos7 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(500,500,100)
+	
+	Set Dozen = ##class(%ListOfObjects).%New()
+	Do Dozen.Insert(Doos1)
+	Do Dozen.Insert(Doos2)
+	Do Dozen.Insert(Doos3)
+	Do Dozen.Insert(Doos4)
+	Do Dozen.Insert(Doos5)
+	Do Dozen.Insert(Doos6)
+	Do Dozen.Insert(Doos7)
+	
+	//  Stapeling:
+	//  	  |  100  |
+	//  	  |  110  |
+	//    |  110  ||  110  |
+	//    |  110  ||  110  |
+	//  	  |  100  |
+	
+	Set Stapeling = ##class(TECH.Algo.Stapeling.Stapeling).%New()
+	Do Stapeling.VoegToeNiveauSchikking(##class(APPS.Halux.common.impl.NiveauSchikkingDrie).%New())
+	Do Stapeling.VoegToeNiveauSchikking(##class(APPS.Halux.common.impl.NiveauSchikkingTwee).%New())
+	
+	Do $$$AssertEquals(Stapeling.GeefStapelHoogte(Dozen),100+110+110+110+100,"De stapelhoogte")
+]]></Implementation>
+</Method>
+
+<Method name="TestSchikkingVier">
+<Implementation><![CDATA[
+	Set Doos1 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,100)
+	Set Doos2 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,110)
+	Set Doos3 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,110)
+	Set Doos4 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,110)
+	Set Doos5 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,110)
+	Set Doos6 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,110)
+	Set Doos7 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,100)
+	
+	Set Dozen = ##class(%ListOfObjects).%New()
+	Do Dozen.Insert(Doos1)
+	Do Dozen.Insert(Doos2)
+	Do Dozen.Insert(Doos3)
+	Do Dozen.Insert(Doos4)
+	Do Dozen.Insert(Doos5)
+	Do Dozen.Insert(Doos6)
+	Do Dozen.Insert(Doos7)
+	
+	Set Stapeling = ##class(TECH.Algo.Stapeling.Stapeling).%New()
+	Do Stapeling.VoegToeNiveauSchikking(##class(APPS.Halux.common.impl.NiveauSchikkingVier).%New())
+	Do Stapeling.VoegToeNiveauSchikking(##class(APPS.Halux.common.impl.NiveauSchikkingDrie).%New())
+	Do Stapeling.VoegToeNiveauSchikking(##class(APPS.Halux.common.impl.NiveauSchikkingTwee).%New())
+	
+	//  Stapeling:
+	//  	        |  100  |
+	//    		    |  110  |
+	//  |  110  ||  110  ||  110  ||  110  |
+	//  	  		|  100  |
+	
+	Do $$$AssertEquals(Stapeling.GeefStapelHoogte(Dozen),100+110+110+100,"De stapelhoogte")
+	
+	// De dozen nu wat te breed maken zodat er geen 4 op een pallet kunnen.
+	
+	Set Doos1 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,100)
+	Set Doos2 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(550,450,110)
+	Set Doos3 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(550,450,110)
+	Set Doos4 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(550,450,110)
+	Set Doos5 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(550,450,110)
+	Set Doos6 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(550,450,110)
+	Set Doos7 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,100)
+	
+	Set Dozen = ##class(%ListOfObjects).%New()
+	Do Dozen.Insert(Doos1)
+	Do Dozen.Insert(Doos2)
+	Do Dozen.Insert(Doos3)
+	Do Dozen.Insert(Doos4)
+	Do Dozen.Insert(Doos5)
+	Do Dozen.Insert(Doos6)
+	Do Dozen.Insert(Doos7)
+	
+	//  Stapeling:
+	//  	  |  100  |
+	//  	  |  110  |
+	//    |  110  ||  110  |
+	//    |  110  ||  110  |
+	//  	  |  100  |
+	
+	Set Stapeling = ##class(TECH.Algo.Stapeling.Stapeling).%New()
+	Do Stapeling.VoegToeNiveauSchikking(##class(APPS.Halux.common.impl.NiveauSchikkingVier).%New())
+	Do Stapeling.VoegToeNiveauSchikking(##class(APPS.Halux.common.impl.NiveauSchikkingDrie).%New())
+	Do Stapeling.VoegToeNiveauSchikking(##class(APPS.Halux.common.impl.NiveauSchikkingTwee).%New())
+	
+	Do $$$AssertEquals(Stapeling.GeefStapelHoogte(Dozen),100+110+110+110+100,"De stapelhoogte")
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: TECH/Comparator/IntegerComparator.cls.xml
===================================================================
diff -u
--- TECH/Comparator/IntegerComparator.cls.xml	(revision 0)
+++ TECH/Comparator/IntegerComparator.cls.xml	(revision 1310)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Comparator.IntegerComparator">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,TECH.Comparator.IComparator</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="IsKleinerDan">
+<FormalSpec>Waarde1:%String,Waarde2:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit Waarde1 < Waarde2
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: TECH/Math.cls.xml
===================================================================
diff -u -r1074 -r1310
--- TECH/Math.cls.xml	(.../Math.cls.xml)	(revision 1074)
+++ TECH/Math.cls.xml	(.../Math.cls.xml)	(revision 1310)
@@ -40,6 +40,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Max">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Getal1:%Float,Getal2:%Float</FormalSpec>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	Set Max = Getal1
+	If (Max < Getal2) Set Max = Getal2
+	Quit Max
+]]></Implementation>
+</Method>
+
 <Method name="Round">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Getal:%Float,CijfersNaKomma:%Integer</FormalSpec>
Index: TECH/Stack.cls.xml
===================================================================
diff -u -r1074 -r1310
--- TECH/Stack.cls.xml	(.../Stack.cls.xml)	(revision 1074)
+++ TECH/Stack.cls.xml	(.../Stack.cls.xml)	(revision 1310)
@@ -43,5 +43,10 @@
 <Implementation><![CDATA[	Do ..Stack.Clear()
 ]]></Implementation>
 </Method>
+
+<Method name="Count">
+<Implementation><![CDATA[	Quit ..Stack.Count()
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: vhUnitTest/TECH/Algo/Stapeling/TestStapeling.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Algo/Stapeling/TestStapeling.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Algo/Stapeling/TestStapeling.cls.xml	(revision 1310)
@@ -0,0 +1,114 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.TECH.Algo.Stapeling.TestStapeling">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/debug/Display=all","TECH.Algo.Stapeling.TestStapeling")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestStapelingEenvoudig">
+<Implementation><![CDATA[
+	Set o1 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o2 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o3 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o4 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o5 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o6 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o7 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o8 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o9 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o10 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	
+	Set ObjectenLijst = ##class(%ListOfObjects).%New()
+	Do ObjectenLijst.Insert(o1)
+	Do ObjectenLijst.Insert(o2)
+	Do ObjectenLijst.Insert(o3)
+	Do ObjectenLijst.Insert(o4)
+	Do ObjectenLijst.Insert(o5)
+	Do ObjectenLijst.Insert(o6)
+	Do ObjectenLijst.Insert(o7)
+	Do ObjectenLijst.Insert(o8)
+	Do ObjectenLijst.Insert(o9)
+	Do ObjectenLijst.Insert(o10)
+	
+	Set NiveauSchikkingEnkel = ##class(vhUnitTest.TECH.Algo.Stapeling.NiveauSchikkingEnkel).%New()
+	
+	Set Stapeling = ##class(TECH.Algo.Stapeling.Stapeling).%New()
+	Do Stapeling.VoegToeNiveauSchikking(NiveauSchikkingEnkel)
+	
+	Set StapelHoogte = Stapeling.GeefStapelHoogte(ObjectenLijst)
+	
+	// Elk niveau bevat 1 object
+	// 10 objecten van 10 hoog => stapelhoogte is 100
+	
+	Do $$$AssertEquals(StapelHoogte,10*10,"De stapelhoogte is 100")
+	
+	
+	
+	Set NiveauSchikkingDubbel = ##class(vhUnitTest.TECH.Algo.Stapeling.NiveauSchikkingDubbel).%New()
+	
+	Do Stapeling.VoegToeNiveauSchikking(NiveauSchikkingDubbel)
+	
+	Set StapelHoogte = Stapeling.GeefStapelHoogte(ObjectenLijst)
+	
+	// Elk niveau bevat 2 objecten, de stapeling moet gebruik maken van de niveauschikkingdubbel.
+	// 10 objecten van 10 hoog => stapelhoogte is 50
+	
+	Do $$$AssertEquals(StapelHoogte,(10*10)/2,"De stapelhoogte is 50")
+	
+	
+	
+	Set NiveauSchikkingGeen = ##class(vhUnitTest.TECH.Algo.Stapeling.NiveauSchikkingGeen).%New()
+	
+	Do Stapeling.VoegToeNiveauSchikking(NiveauSchikkingGeen)
+	
+	Set StapelHoogte = Stapeling.GeefStapelHoogte(ObjectenLijst)
+	
+	// De NiveauSchikkingGeen zal als eerste getest worden omdat zijn max aantal mogelijk = 100
+	// Maar er zullen er nooit gebruikt worden dus de stapelhoogte wordt bepaald door NiveauSchikkingDubbel en blijft dus identiek
+	
+	Do $$$AssertEquals(StapelHoogte,(10*10)/2,"De stapelhoogte is 50")
+]]></Implementation>
+</Method>
+
+<Method name="TestStapelingWisselend">
+<Implementation><![CDATA[
+	Set o1 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o2 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o3 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o4 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o5 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o6 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o7 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o8 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o9 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o10 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	
+	Set ObjectenLijst = ##class(%ListOfObjects).%New()
+	Do ObjectenLijst.Insert(o1)
+	Do ObjectenLijst.Insert(o2)
+	Do ObjectenLijst.Insert(o3)
+	Do ObjectenLijst.Insert(o4)
+	Do ObjectenLijst.Insert(o5)
+	Do ObjectenLijst.Insert(o6)
+	Do ObjectenLijst.Insert(o7)
+	Do ObjectenLijst.Insert(o8)
+	Do ObjectenLijst.Insert(o9)
+	Do ObjectenLijst.Insert(o10)
+	
+	Set NiveauSchikkingWisselend = ##class(vhUnitTest.TECH.Algo.Stapeling.NiveauSchikkingWisselend).%New()
+	
+	Set Stapeling = ##class(TECH.Algo.Stapeling.Stapeling).%New()
+	Do Stapeling.VoegToeNiveauSchikking(NiveauSchikkingWisselend)
+	
+	Set StapelHoogte = Stapeling.GeefStapelHoogte(ObjectenLijst)
+	
+	// De stapeling: 1 - 3 - 1 - 3 - 1 - 1
+	// Hoogte = 6 lagen van 10
+	
+	Do $$$AssertEquals(StapelHoogte,6*10,"De stapelhoogte is 60")
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: Default_ChristopherS.prj.xml
===================================================================
diff -u -r1290 -r1310
--- Default_ChristopherS.prj.xml	(.../Default_ChristopherS.prj.xml)	(revision 1290)
+++ Default_ChristopherS.prj.xml	(.../Default_ChristopherS.prj.xml)	(revision 1310)
@@ -1,79 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="Default_ChristopherS" LastModified="2011-05-25 08:41:39">
-  <Items>
-    <ProjectItem name="TECH.Events.KenmerkCreatedEvent" type="CLS"/>
-    <ProjectItem name="TECH.Events.KenmerkCreatedEventData" type="CLS"/>
-    <ProjectItem name="TECH.Events.KenmerkDeletedEvent" type="CLS"/>
-    <ProjectItem name="TECH.Events.KenmerkDeletedEventData" type="CLS"/>
-    <ProjectItem name="TECH.Events.KenmerkModifiedEvent" type="CLS"/>
-    <ProjectItem name="TECH.Events.KenmerkenCreatedEvent" type="CLS"/>
-    <ProjectItem name="TECH.Events.KenmerkenCreatedEventData" type="CLS"/>
-    <ProjectItem name="TECH.Events.KenmerkenDeletedEvent" type="CLS"/>
-    <ProjectItem name="TECH.Events.KenmerkenDeletedEventData" type="CLS"/>
-    <ProjectItem name="TECH.Events.KenmerkenModifiedEvent" type="CLS"/>
-    <ProjectItem name="TECH.Events.KenmerkenModifiedEventData" type="CLS"/>
-    <ProjectItem name="svn.Deploy" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.HalffabImport" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.HalffabImportTBXMock" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.FrameworkData" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.CreateDataKAD" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.CreateDataTBX" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.DataSet" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.DataSetTestItem" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.HalffabBuilder" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.ITestCaseKAD" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.ITestDataSetIngegevenKenmerken" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.ITestHalffabBuilder" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.KAD.HFDichtingv001" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.KAD.HFHoekVerbinderv001" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.KAD.HFProfielv001" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.KAD.HFVullingv001" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.DataSetTBXAntaro" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.DataSetTBXIntivo" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.DataSetTBXPlus" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.HFBodemv001" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.HFFrontHouderv001" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.HFFrontHouderv002" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.HFFrontRelingHouderv001" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.HFInschuifElementv001" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.HFLadeZijkantv001" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.HFRugHouderv001" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.HFRugv001" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.TestDataSet" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.TestBewerkingsInfoTabel" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.TestHalffabRepository" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.enu.UTFamilie" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.enu.UTVariant" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.impl.UTBewerkingsInfo" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.impl.UTHalffabContext" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.impl.UTHalffabSpec" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.impl.UTHalffabSpecInfo" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.KAD.Core.TestCoordinaatHelper" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.KAD.Core.TestPlaatsbaarElement" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.KAD.Deur.ControleerBoringBewerkingVis" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.KAD.Deur.TestBewerkingen" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.KAD.Deur.TestBoring" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.KAD.Deur.TestUtils" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.KAD.Zone.TestZoneOverlap" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Kost.TestBewerkingsCalculator" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Kost.TestHalffabKostItemBuilder" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Kost.TestKostItem" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Kost.TestKostRepository" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Kost.TestKostenPlaatsen" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Kost.UTKostSpec" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Kost.enu.UTFamilie" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Kost.enu.UTVariant" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Kost.impl.KostItemBuilderA" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Kost.impl.KostItemBuilderB" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Kost.impl.UTKostContext" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Kost.impl.UTKostSpecInfo" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.OLM.TestBuilders" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.OLM.impl.UTContext" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.OLM.impl.UTKostContext" type="CLS"/>
-    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.TBXProduct.TestTBXLade" type="CLS"/>
-    <ProjectItem name="vhUnitTest.Prod.Kenmerk.TestKenmerk" type="CLS"/>
-  </Items>
+<Project name="Default_ChristopherS" LastModified="2011-05-26 08:39:09">
 </Project>
 </Export>
Index: APPS/Halux/common/StapelService.cls.xml
===================================================================
diff -u
--- APPS/Halux/common/StapelService.cls.xml	(revision 0)
+++ APPS/Halux/common/StapelService.cls.xml	(revision 1310)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.common.StapelService">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Toelevering">
+<Type>DOM.LEV.Toelevering</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Stapeling">
+<Type>TECH.Algo.Stapeling.Stapeling</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Toelevering:DOM.LEV.Toelevering</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Toelevering = Toelevering
+	
+	Set ..Stapeling = ##class(TECH.Algo.Stapeling.Stapeling).%New()
+	
+	Do ..Stapeling.VoegToeNiveauSchikking(##class(APPS.Halux.common.impl.NiveauSchikkingVier).%New())
+	Do ..Stapeling.VoegToeNiveauSchikking(##class(APPS.Halux.common.impl.NiveauSchikkingDrie).%New())
+	Do ..Stapeling.VoegToeNiveauSchikking(##class(APPS.Halux.common.impl.NiveauSchikkingTwee).%New())
+	Do ..Stapeling.VoegToeNiveauSchikking(##class(APPS.Halux.common.impl.NiveauSchikkingEen).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefStapelHoogte">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	Set Dozen = ##class(%ListOfObjects).%New()
+	Set ProductLijnen = ##class(%ListOfObjects).%New()
+	Set ProductLijnIterator = ..Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.LEV.enu.ToeleveringLijnType).Product())
+	While (ProductLijnIterator.HasNext())
+	{
+		Do ProductLijnen.Insert(ProductLijnIterator.Next())
+	}
+	
+	Do ##class(TECH.Algo.Sort.InsertionSort).Sort(ProductLijnen,##class(zTryout.CSC.Try).%New())
+	
+	For i=1:1:ProductLijnen.Count()
+	{
+		Set ProductLijn = ProductLijnen.GetAt(i)
+		If (ProductLijn.GeefProduct().%Extends("DOM.PM.TBXProduct.TBXLade"))
+		{
+			For j=1:1:ProductLijn.GeefAantal()
+			{
+				Do Dozen.Insert(##class(APPS.Halux.common.impl.TandemboxDoos).%New(ProductLijn.GeefProduct()))
+			}
+		}
+	}
+	
+	Quit ..Stapeling.GeefStapelHoogte(Dozen)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/TECH/Algo/Stapeling/NiveauSchikkingGeen.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Algo/Stapeling/NiveauSchikkingGeen.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Algo/Stapeling/NiveauSchikkingGeen.cls.xml	(revision 1310)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.TECH.Algo.Stapeling.NiveauSchikkingGeen">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,TECH.Algo.Stapeling.INiveauSchikking</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefMaxAantalObjecten">
+<Description>
+Geeft het maximaal aantal objecten dat deze schikking kan plaatsen</Description>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit 100
+]]></Implementation>
+</Method>
+
+<Method name="GebruikObjecten">
+<Description>
+Krijgt een Stack van TECH.Algo.Stapeling.I3DObject binnen. Geeft het aantal 3D objecten terug die het zal gebruiken.</Description>
+<FormalSpec>I3DObjecten:TECH.Stack</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit 0
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/Halux/common/impl/NiveauSchikkingAbstract.cls.xml
===================================================================
diff -u
--- APPS/Halux/common/impl/NiveauSchikkingAbstract.cls.xml	(revision 0)
+++ APPS/Halux/common/impl/NiveauSchikkingAbstract.cls.xml	(revision 1310)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.common.impl.NiveauSchikkingAbstract">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,TECH.Algo.Stapeling.INiveauSchikking</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="BreedtePallet">
+<Default>1200</Default>
+</Parameter>
+
+<Parameter name="DieptePallet">
+<Default>800</Default>
+</Parameter>
+
+<Method name="GeefObjectenGelijkeHoogte">
+<FormalSpec>I3DObjecten:TECH.Stack</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set Lijst = ##class(%ListOfObjects).%New()
+	
+	Set VolgendeIsGroter = 0
+	Set Volgende = I3DObjecten.Pop()
+	Set Vorige = Volgende
+	Do Lijst.Insert(Volgende)
+	While ((Lijst.Count() < ..GeefMaxAantalObjecten()) && ('I3DObjecten.IsEmpty()) && (Vorige.GeefHoogte() = Volgende.GeefHoogte()))
+	{
+		Set Vorige = Volgende
+		Set Volgende = I3DObjecten.Pop()
+		If (Vorige.GeefHoogte() = Volgende.GeefHoogte())
+		{
+			Do Lijst.Insert(Volgende)
+		}
+		Else
+		{
+			Do I3DObjecten.Push(Volgende)
+		}	
+	}
+	
+	Quit Lijst
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: TECH/Algo/Stapeling/I3DObject.cls.xml
===================================================================
diff -u
--- TECH/Algo/Stapeling/I3DObject.cls.xml	(revision 0)
+++ TECH/Algo/Stapeling/I3DObject.cls.xml	(revision 1310)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Algo.Stapeling.I3DObject">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefBreedte">
+<Abstract>1</Abstract>
+<ReturnType>%Float</ReturnType>
+</Method>
+
+<Method name="GeefDiepte">
+<Abstract>1</Abstract>
+<ReturnType>%Float</ReturnType>
+</Method>
+
+<Method name="GeefHoogte">
+<Abstract>1</Abstract>
+<ReturnType>%Float</ReturnType>
+</Method>
+</Class>
+</Export>