Index: CSC Palletstapeling.prj.xml
===================================================================
diff -u -r1310 -r1317
--- CSC Palletstapeling.prj.xml	(.../CSC Palletstapeling.prj.xml)	(revision 1310)
+++ CSC Palletstapeling.prj.xml	(.../CSC Palletstapeling.prj.xml)	(revision 1317)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="CSC Palletstapeling" LastModified="2011-05-26 13:10:15">
+<Project name="CSC Palletstapeling" LastModified="2011-05-26 16:43:13">
   <Items>
     <ProjectItem name="APPS.Halux.common.StapelService" type="CLS"/>
     <ProjectItem name="APPS.Halux.common.impl.NiveauSchikkingAbstract" type="CLS"/>
@@ -9,10 +9,12 @@
     <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="BL.PPS.TBX.ZaagVolgordeComparator" 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.APPS.Halux.common.TestStapelService" 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"/>
Index: APPS/Halux/common/StapelService.cls.xml
===================================================================
diff -u -r1310 -r1317
--- APPS/Halux/common/StapelService.cls.xml	(.../StapelService.cls.xml)	(revision 1310)
+++ APPS/Halux/common/StapelService.cls.xml	(.../StapelService.cls.xml)	(revision 1317)
@@ -45,7 +45,7 @@
 		Do ProductLijnen.Insert(ProductLijnIterator.Next())
 	}
 	
-	Do ##class(TECH.Algo.Sort.InsertionSort).Sort(ProductLijnen,##class(zTryout.CSC.Try).%New())
+	Do ##class(TECH.Algo.Sort.InsertionSort).Sort(ProductLijnen,##class(BL.PPS.TBX.ZaagVolgordeComparator).%New())
 	
 	For i=1:1:ProductLijnen.Count()
 	{
Index: zTryout/CSC/Try.cls.xml
===================================================================
diff -u -r1312 -r1317
--- zTryout/CSC/Try.cls.xml	(.../Try.cls.xml)	(revision 1312)
+++ zTryout/CSC/Try.cls.xml	(.../Try.cls.xml)	(revision 1317)
@@ -117,6 +117,10 @@
 	w $J("ToeNr",6)_" "_$J("OLUNr",6)_" "
 	w $J("LD",6)_" "_$J("RH",6)_" "_$J("IB",6)_" "_$J("PRNr",6),!	
 	
+	Set ResultSet = ##class(%ResultSet).%New()
+	Do ResultSet.Prepare("SELECT TOENr, TLUNr FROM PPS.TBX_Queue WHERE BatchID = ? ORDER BY Sequence ASC")
+	Do ResultSet.Execute(BatchID)
+	
 	Set Batch = ##class(APPS.Halux.common.BatchService).%New().GeefBatch(BatchID)
 	Set ToeleveringIterator = Batch.GeefToeleveringIterator()
 	While (ToeleveringIterator.HasNext())
@@ -130,7 +134,7 @@
 			Do ProductLijnen.Insert(ProductLijnIterator.Next())
 		}
 		
-		Do ##class(TECH.Algo.Sort.InsertionSort).Sort(ProductLijnen,..%New())
+		Do ##class(TECH.Algo.Sort.InsertionSort).Sort(ProductLijnen,##class(BL.PPS.TBX.ZaagVolgordeComparator).%New())
 		
 		Set ProductLijnIterator = ##class(TECH.ListIterator).%New(ProductLijnen)
 		While (ProductLijnIterator.HasNext())
@@ -163,6 +167,7 @@
 				Set QueueItem.WPPers=##class(BL.PPS.TBX.WPPers).Create(KlantNr,Toelevering.GeefToeNr(),ProductLijn.GeefUniekLijnNr(),Tandembox.GeefPRNr(),ProductLijn.GeefAantal())
 				//Set Status=QueueItem.%Save() D:$$$ISERR(Status) WE^vhDBG(Status,"PPSTBX AddBatch")
 				//If Status=$$$OK Set X=$$MARKPR^HADOPV($$FABKEYT^HADOPV(Toelevering.GeefToeNr(),ProductLijn.GeefUniekLijnNr()),"B",ProductLijn.GeefAantal(),ProductLijn.GeefAantal(),$H)  ; HADPR invullen met status "B"
+				do ResultSet.Next()
 				
 				w Toelevering.GeefToeNr()_" "_$J(ProductLijn.GeefUniekLijnNr(),6)_" "
 				w $J(Tandembox.GeefLadeDiepte(),6)_" "_$J(Tandembox.GeefRugHoogteMM(),6)_" "_$J(Tandembox.GeefInbouwBreedte(),6)_" "_$J(Tandembox.GeefPRNr(),6),!
@@ -179,35 +184,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="IsKleinerDan">
-<FormalSpec>Waarde1:%String,Waarde2:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	Set Product1 = Waarde1.GeefProduct()
-	Set Product2 = Waarde2.GeefProduct()
-	
-	Set IsKleiner = (Product1.GeefLadeDiepte() > Product2.GeefLadeDiepte())
-	If (Product1.GeefLadeDiepte() = Product2.GeefLadeDiepte())
-	{
-		Set IsKleiner = (Product1.GeefRugHoogteMM() > Product2.GeefRugHoogteMM())
-		If (Product1.GeefRugHoogteMM() = Product2.GeefRugHoogteMM())
-		{
-			Set IsKleiner = (Product1.GeefRugHoogteMM() > Product2.GeefRugHoogteMM())
-			If (Product1.GeefRugHoogteMM() = Product2.GeefRugHoogteMM())
-			{
-				Set IsKleiner = (Product1.GeefInbouwBreedte() > Product2.GeefInbouwBreedte())
-				If (Product1.GeefInbouwBreedte() = Product2.GeefInbouwBreedte())
-				{
-					Set IsKleiner = (Product1.GeefPRNr() < Product2.GeefPRNr())
-				}
-			}
-		}
-	}
-	
-	Quit IsKleiner
-]]></Implementation>
-</Method>
-
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^zTryout.CSC.TryD</DataLocation>
Index: BL/PPS/TBX/ZaagVolgordeComparator.cls.xml
===================================================================
diff -u
--- BL/PPS/TBX/ZaagVolgordeComparator.cls.xml	(revision 0)
+++ BL/PPS/TBX/ZaagVolgordeComparator.cls.xml	(revision 1317)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="BL.PPS.TBX.ZaagVolgordeComparator">
+<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[
+	Set Product1 = Waarde1.GeefProduct()
+	Set Product2 = Waarde2.GeefProduct()
+	
+	Set IsKleiner = (Product1.GeefLadeDiepte() > Product2.GeefLadeDiepte())
+	If (Product1.GeefLadeDiepte() = Product2.GeefLadeDiepte())
+	{
+		Set IsKleiner = (Product1.GeefRugHoogteMM() > Product2.GeefRugHoogteMM())
+		If (Product1.GeefRugHoogteMM() = Product2.GeefRugHoogteMM())
+		{
+			Set IsKleiner = (Product1.GeefRugHoogteMM() > Product2.GeefRugHoogteMM())
+			If (Product1.GeefRugHoogteMM() = Product2.GeefRugHoogteMM())
+			{
+				Set IsKleiner = (Product1.GeefInbouwBreedte() > Product2.GeefInbouwBreedte())
+				If (Product1.GeefInbouwBreedte() = Product2.GeefInbouwBreedte())
+				{
+					Set IsKleiner = (Product1.GeefPRNr() < Product2.GeefPRNr())
+				}
+			}
+		}
+	}
+	
+	Quit IsKleiner
+]]></Implementation>
+</Method>
+</Class>
+<Package name="BL.PPS.TBX" sqlname="BL"/>
+</Export>