Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderListBased/Base.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderListBased/Base.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderListBased/Base.cls.xml	(revision 32582)
@@ -0,0 +1,150 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.common.impl.ProductieSequentieGroepeerderListBased.Base">
+<Abstract>1</Abstract>
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="SequenceData">
+<Type>APPS.Halux.common.ProductieSequentieItem</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="SequenceGroepeerderImpl">
+<Type>APPS.Halux.common.impl.ProductieSequentieGroepeerderResultSetBased</Type>
+<Private>1</Private>
+</Property>
+
+<Parameter name="QueueID1">
+<Type>%Integer</Type>
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="QueueID2">
+<Type>%Integer</Type>
+<Default>2</Default>
+</Parameter>
+
+<Parameter name="ToeleveringID1">
+<Type>%Integer</Type>
+<Default>200001</Default>
+</Parameter>
+
+<Parameter name="ToeleveringID2">
+<Type>%Integer</Type>
+<Default>200002</Default>
+</Parameter>
+
+<Parameter name="ToeleveringID3">
+<Type>%Integer</Type>
+<Default>200003</Default>
+</Parameter>
+
+<Parameter name="ProductID1">
+<Type>%Integer</Type>
+<Default>1001</Default>
+</Parameter>
+
+<Parameter name="ProductID2">
+<Type>%Integer</Type>
+<Default>1002</Default>
+</Parameter>
+
+<Parameter name="ProductID3">
+<Type>%Integer</Type>
+<Default>1003</Default>
+</Parameter>
+
+<Parameter name="ProductID4">
+<Type>%Integer</Type>
+<Default>1004</Default>
+</Parameter>
+
+<Parameter name="DummyBatchID">
+<Type>%String</Type>
+<Default>1234</Default>
+</Parameter>
+
+<Property name="ToeleveringStub1">
+<Type>vhTest.Mock.DOM.AKP.Toelevering</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringStub2">
+<Type>vhTest.Mock.DOM.AKP.Toelevering</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringStub3">
+<Type>vhTest.Mock.DOM.AKP.Toelevering</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+
+	Do ..SequenceData.Clear()
+	
+	#dim ToeleveringAPI As vhTest.Mock.DOM.AKP.ToeleveringAPI = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
+	
+	Set ..ToeleveringStub1 = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+	Set ..ToeleveringStub2 = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+	Set ..ToeleveringStub3 = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()	
+		
+	Do ToeleveringAPI.IndienMethodCall("GeefToelevering", ..#ToeleveringID1).DanReturn(..ToeleveringStub1)
+	Do ToeleveringAPI.IndienMethodCall("BestaatToelevering", ..#ToeleveringID1).DanReturn(1)
+	Do ToeleveringAPI.IndienMethodCall("GeefToelevering", ..#ToeleveringID2).DanReturn(..ToeleveringStub2)
+	Do ToeleveringAPI.IndienMethodCall("BestaatToelevering", ..#ToeleveringID2).DanReturn(1)
+	Do ToeleveringAPI.IndienMethodCall("GeefToelevering", ..#ToeleveringID3).DanReturn(..ToeleveringStub3)
+	Do ToeleveringAPI.IndienMethodCall("BestaatToelevering", ..#ToeleveringID3).DanReturn(1)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Kill ^TO("IU", ..#ToeleveringID1)
+	Kill ^TO("IU", ..#ToeleveringID2)
+	Kill ^TO("IU", ..#ToeleveringID3)
+	
+	Do ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="AddToSequenceData">
+<FormalSpec>QueueID:%Integer,ToeleveringID:%String,ProductID:%String,TotaalAantal:%Integer,TLUNr:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Counter As %Integer 
+	
+	For Counter = 1 : 1 : TotaalAantal {
+		#dim SequentieNummer As %Integer = ..SequenceData.Count() + 1
+		#dim ProductieSequentieItem As APPS.Halux.common.ProductieSequentieItem = ##class(APPS.Halux.common.ProductieSequentieItem).%New()
+		
+		Set ProductieSequentieItem.ToeleveringID = ToeleveringID
+		Set ProductieSequentieItem.ProductID = ProductID
+		Set ProductieSequentieItem.TotaalAantal = TotaalAantal
+		Set ProductieSequentieItem.DeelAantal = Counter
+		Set ProductieSequentieItem.ToeleveringLijnID = TLUNr
+		Set ProductieSequentieItem.SequentieNummer = SequentieNummer
+		
+		Do ..SequenceData.Insert(ProductieSequentieItem)
+	}
+	
+	Set ^TO("IU", ToeleveringID, TLUNr) = ""
+	
+	#dim ToeleveringAPI As DOM.AKP.ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+	#dim ToeleveringStub As vhTest.Mock.DOM.AKP.Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringID)
+	
+	Set ProductToeleveringLijnStub = ##class(vhTest.Mock.DOM.AKP.ProductToeleveringLijn).%New()
+	
+	Do ProductToeleveringLijnStub.IndienMethodCall("GeefAantal").DanReturn(TotaalAantal)
+	Do ToeleveringStub.IndienMethodCall("GeefToeleveringLijn", TLUNr).DanReturn(ProductToeleveringLijnStub)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderListBased/TestGroepeerPerToelevering.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderListBased/TestGroepeerPerToelevering.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderListBased/TestGroepeerPerToelevering.cls.xml	(revision 32582)
@@ -0,0 +1,68 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.common.impl.ProductieSequentieGroepeerderListBased.TestGroepeerPerToelevering">
+<Super>vhUnitTest.APPS.Halux.common.impl.ProductieSequentieGroepeerderListBased.Base</Super>
+
+<Method name="TestGroepeerPerToelevering">
+<Implementation><![CDATA[
+	Do ..AddToSequenceData(..#QueueID1,..#ToeleveringID2,..#ProductID1,2,100)
+	Do ..AddToSequenceData(..#QueueID1,..#ToeleveringID1,..#ProductID2,4,200)
+	Do ..AddToSequenceData(..#QueueID1,..#ToeleveringID1,..#ProductID1,5,300)
+	
+	#dim ProductieSequentieItemsFake As list of APPS.Halux.common.ProductieSequentieItem = ..SequenceData
+	#dim ProductieSequentieRepositoryStub = ##class(vhTest.Mock.APPS.Halux.common.ProductieSequentieRepository).%New()
+	#dim ProductieAPIStub As vhTest.Mock.APPS.Halux.ProductieAPI = ##class(vhTest.Mock.APPS.Halux.ProductieAPI).MockInstance()
+	
+	Do ProductieSequentieRepositoryStub.IndienMethodCall("GeefProductieSequentieItemList", ..#DummyBatchID).DanReturn(ProductieSequentieItemsFake)
+	Do ProductieAPIStub.IndienMethodCall("GeefProductieSequentieRepository").DanReturn(ProductieSequentieRepositoryStub)
+
+	Set ..SequenceGroepeerderImpl = ##class(APPS.Halux.common.impl.ProductieSequentieGroepeerderListBased).%New()
+
+	#dim Groepering As APPS.Halux.common.impl.ProductieSequentieGroepering = ..SequenceGroepeerderImpl.GroepeerPerToelevering(..#DummyBatchID)
+	#dim SequenceInfo As APPS.Halux.common.dto.ProductieSequentie
+
+	if $$$AssertTrue(Groepering.IsValid()) {
+		if $$$AssertEquals(Groepering.Indices.Count(),2) {
+			Do $$$AssertEquals(Groepering.Indices.GetAt(1),..#ToeleveringID2)
+			Do $$$AssertEquals(Groepering.Indices.GetAt(2),..#ToeleveringID1)
+		}
+		
+		if $$$AssertEquals(Groepering.Data.GetAt(..#ToeleveringID2).Count(),2) {
+			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID2).GetAt(1) 
+			Do $$$AssertEquals(SequenceInfo.TotaalAantal,2)
+			Do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID1)
+			Do $$$AssertEquals(SequenceInfo.DeelAantal,1)
+			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID2).GetAt(2) 
+			Do $$$AssertEquals(SequenceInfo.TotaalAantal,2)
+			Do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID1)
+			Do $$$AssertEquals(SequenceInfo.DeelAantal,2)
+		}
+		
+		if $$$AssertEquals(Groepering.Data.GetAt(..#ToeleveringID1).Count(),9) {
+			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID1).GetAt(1) 
+			Do $$$AssertEquals(SequenceInfo.TotaalAantal,4)
+			Do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID2)
+			Do $$$AssertEquals(SequenceInfo.DeelAantal,1)
+			
+			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID1).GetAt(4) 
+			Do $$$AssertEquals(SequenceInfo.TotaalAantal,4)
+			Do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID2)
+			Do $$$AssertEquals(SequenceInfo.DeelAantal,4)
+			
+			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID1).GetAt(5) 
+			Do $$$AssertEquals(SequenceInfo.TotaalAantal,5)
+			Do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID1)
+			Do $$$AssertEquals(SequenceInfo.DeelAantal,1)
+			
+			Set SequenceInfo = Groepering.Data.GetAt(..#ToeleveringID1).GetAt(9) 
+			Do $$$AssertEquals(SequenceInfo.TotaalAantal,5)
+			Do $$$AssertEquals(SequenceInfo.ProductID,..#ProductID1)
+			Do $$$AssertEquals(SequenceInfo.DeelAantal,5)
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>