Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerder/Base.cls.xml
===================================================================
diff -u -r32580 -r32584
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerder/Base.cls.xml	(.../Base.cls.xml)	(revision 32580)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerder/Base.cls.xml	(.../Base.cls.xml)	(revision 32584)
@@ -4,13 +4,8 @@
 <Abstract>1</Abstract>
 <Super>vhUnitTest.TestCase</Super>
 
-<Property name="SequenceHeaders">
-<Type>%ListOfDataTypes</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="SequenceData">
-<Type>%List</Type>
+<Type>APPS.Halux.common.ProductieSequentieItem</Type>
 <Collection>list</Collection>
 <Private>1</Private>
 </Property>
@@ -88,52 +83,63 @@
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
-	do ##super(aTestName)
-	set ..SequenceHeaders = ##class(TECH.ListUtils).CreateListOfDataTypes("ID","TOENr","Product","TotaalAantal","DeelAantal","Sequence","TLUNr")
-	do ..SequenceData.Clear()
+	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)
+	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)
+	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>
+<FormalSpec>QueueID:%Integer,ToeleveringID:TECH.String,ProductID:TECH.String,TotaalAantal:%Integer,TLUNr:TECH.String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim Counter As %Integer 
-	for Counter = 1 : 1 : TotaalAantal {
-		#dim SequenceNr As %Integer = ..SequenceData.Count() + 1
-		#dim DataRecord As %List = $listbuild(QueueID,ToeleveringID,ProductID,TotaalAantal,Counter,SequenceNr,TLUNr)
-		
-		do ..SequenceData.Insert(DataRecord)
-	}
+	Do ..VoegToeData(QueueID, ToeleveringID, ProductID, TotaalAantal, TLUNr)
+	Do ..MockToelevering(ToeleveringID, TotaalAantal, TLUNr)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeData">
+<Abstract>1</Abstract>
+<FormalSpec>QueueID:%Integer,ToeleveringID:TECH.String,ProductID:TECH.String,TotaalAantal:%Integer,TLUNr:TECH.String</FormalSpec>
+<Private>1</Private>
+</Method>
+
+<Method name="MockToelevering">
+<FormalSpec>ToeleveringID:%String,TotaalAantal:%Integer,TLUNr:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ^TO("IU", ToeleveringID, TLUNr) = ""
 	
-	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 ToeleveringLijnStub = ##class(vhTest.Mock.DOM.AKP.ProductToeleveringLijn).%New()
-	Do ToeleveringLijnStub.IndienMethodCall("GeefAantal").DanReturn(TotaalAantal)
-	Do ToeleveringStub.IndienMethodCall("GeefToeleveringLijn",TLUNr).DanReturn(ToeleveringLijnStub)
+	#dim ProductToeleveringLijnStub As vhTest.Mock.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Mock.DOM.AKP.ProductToeleveringLijn).%New()
+	
+	Do ProductToeleveringLijnStub.IndienMethodCall("GeefAantal").DanReturn(TotaalAantal)
+	Do ToeleveringStub.IndienMethodCall("GeefToeleveringLijn", TLUNr).DanReturn(ProductToeleveringLijnStub)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderListBased/Base.cls.xml
===================================================================
diff -u -r32583 -r32584
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderListBased/Base.cls.xml	(.../Base.cls.xml)	(revision 32583)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderListBased/Base.cls.xml	(.../Base.cls.xml)	(revision 32584)
@@ -2,128 +2,10 @@
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.Halux.common.impl.ProductieSequentieGroepeerderListBased.Base">
 <Abstract>1</Abstract>
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.APPS.Halux.common.impl.ProductieSequentieGroepeerder.Base</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[
-	Do ..VoegToeData(QueueID, ToeleveringID, ProductID, TotaalAantal, TLUNr)
-	Do ..MockToelevering(ToeleveringID, TotaalAantal, TLUNr)
-]]></Implementation>
-</Method>
-
 <Method name="VoegToeData">
-<FormalSpec>QueueID:%Integer,ToeleveringID:%String,ProductID:%String,TotaalAantal:%Integer,TLUNr:%String</FormalSpec>
+<FormalSpec>QueueID:%Integer,ToeleveringID:TECH.String,ProductID:TECH.String,TotaalAantal:%Integer,TLUNr:TECH.String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim Counter As %Integer 
@@ -143,22 +25,6 @@
 	}
 ]]></Implementation>
 </Method>
-
-<Method name="MockToelevering">
-<FormalSpec>ToeleveringID:%String,TotaalAantal:%Integer,TLUNr:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	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>