Index: zTryout/CSC/Try.cls.xml
===================================================================
diff -u -r1222 -r1312
--- zTryout/CSC/Try.cls.xml	(.../Try.cls.xml)	(revision 1222)
+++ zTryout/CSC/Try.cls.xml	(.../Try.cls.xml)	(revision 1312)
@@ -3,7 +3,7 @@
 <Class name="zTryout.CSC.Try">
 <IncludeCode>%VHMacro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>%RegisteredObject,TECH.Comparator.IComparator</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="Try">
@@ -103,10 +103,111 @@
 
 <Method name="Try6">
 <Description>
-Do ##class(zTryout.CSC.Try).Try6()</Description>
+Do ##class(zTryout.CSC.Try).Try6(10011)</Description>
 <ClassMethod>1</ClassMethod>
+<FormalSpec>BatchID:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	#define LeftPad4(%v)    (10000-%v)
+	Set D="\"
+	
+	//Do ..DeleteBatch()
+	
+	Set SequenceNr = 1
+	
+	w $J("ToeNr",6)_" "_$J("OLUNr",6)_" "
+	w $J("LD",6)_" "_$J("RH",6)_" "_$J("IB",6)_" "_$J("PRNr",6),!	
+	
+	Set Batch = ##class(APPS.Halux.common.BatchService).%New().GeefBatch(BatchID)
+	Set ToeleveringIterator = Batch.GeefToeleveringIterator()
+	While (ToeleveringIterator.HasNext())
+	{
+		Set Toelevering = ToeleveringIterator.Next()
+		
+		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,..%New())
+		
+		Set ProductLijnIterator = ##class(TECH.ListIterator).%New(ProductLijnen)
+		While (ProductLijnIterator.HasNext())
+		{
+			Set ProductLijn = ProductLijnIterator.Next()
+			
+			Set Tandembox = ProductLijn.GeefProduct()
+			
+			Set KlantNr = ""
+			If ($IsObject(Toelevering.GeefOrder()))
+			{
+				Set KlantNr = Toelevering.GeefOrder().GeefKlantNr()
+			}
+			
+			For i=1:1:ProductLijn.GeefAantal()
+			{
+				Set QueueItem=##class(DS.PPS.TBX.Queue).%New()
+				Do QueueItem.ProductSetObjectId(Tandembox.GeefPRNr())
+				Do QueueItem.KlantSetObjectId(KlantNr)
+				Set QueueItem.TOENr = Toelevering.GeefToeNr()
+				Set QueueItem.TLUNr = ProductLijn.GeefUniekLijnNr()
+				Set QueueItem.DOSNr = $P(^KPR(Tandembox.GeefPRNr(),"G"),D) ; Dossier
+				Set QueueItem.Sequence = SequenceNr
+				Set QueueItem.TotaalAantal = ProductLijn.GeefAantal()
+				Set QueueItem.DeelAantal = i
+				Set QueueItem.BatchID = BatchID
+				Set QueueItem.Status = "W" //$$$tsWachtend
+				Set QueueItem.WPVerpak = ##class(BL.PPS.TBX.WPVerpak).Create(KlantNr,Toelevering.GeefToeNr(),ProductLijn.GeefUniekLijnNr(),Tandembox.GeefPRNr(),ProductLijn.GeefAantal())
+				Set QueueItem.WPLosOnderdeel=##class(BL.PPS.TBX.WPLosOnderdeel).Create(KlantNr,Toelevering.GeefToeNr(),ProductLijn.GeefUniekLijnNr(),Tandembox.GeefPRNr(),ProductLijn.GeefAantal())
+				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"
+				
+				w Toelevering.GeefToeNr()_" "_$J(ProductLijn.GeefUniekLijnNr(),6)_" "
+				w $J(Tandembox.GeefLadeDiepte(),6)_" "_$J(Tandembox.GeefRugHoogteMM(),6)_" "_$J(Tandembox.GeefInbouwBreedte(),6)_" "_$J(Tandembox.GeefPRNr(),6),!
+			}	
+			Set SequenceNr = SequenceNr + 1
+		}
+	}
+	
+	Set QtyLade = SequenceNr
+	
+	/*set blPrebuild=##class(BL.PPS.TBX.Prebuild).Instantiate()
+	Do blPrebuild.Init(BatchID)
+	Do blPrebuild.ChkStock("+")*/
+]]></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>