Index: APPS/Halux/common/ProductieSequentieRepository.cls.xml
===================================================================
diff -u -r29059 -r32565
--- APPS/Halux/common/ProductieSequentieRepository.cls.xml	(.../ProductieSequentieRepository.cls.xml)	(revision 29059)
+++ APPS/Halux/common/ProductieSequentieRepository.cls.xml	(.../ProductieSequentieRepository.cls.xml)	(revision 32565)
@@ -10,6 +10,12 @@
 <ReturnType>TECH.ResultSet</ReturnType>
 </Method>
 
+<Method name="GeefProductieSequentieItemList">
+<Abstract>1</Abstract>
+<FormalSpec>BatchID:TECH.String</FormalSpec>
+<ReturnType>APPS.Halux.common.ProductieSequentieItemList</ReturnType>
+</Method>
+
 <Method name="GeefSequentieItemIDsMetDossierCode">
 <Abstract>1</Abstract>
 <FormalSpec>BatchID:%String,DossierCode:%String,Aantal:%String</FormalSpec>
Index: vhTest/Mock/APPS/Halux/common/ProductieSequentieRepository.cls.xml
===================================================================
diff -u -r29059 -r32565
--- vhTest/Mock/APPS/Halux/common/ProductieSequentieRepository.cls.xml	(.../ProductieSequentieRepository.cls.xml)	(revision 29059)
+++ vhTest/Mock/APPS/Halux/common/ProductieSequentieRepository.cls.xml	(.../ProductieSequentieRepository.cls.xml)	(revision 32565)
@@ -8,6 +8,13 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.Halux.common.ProductieSequentieRepository,Tools.Mock.MockClassBase</Super>
 
+<Method name="GeefProductieSequentieItemList">
+<FormalSpec>BatchID:TECH.String</FormalSpec>
+<ReturnType>APPS.Halux.common.ProductieSequentieItemList</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefProductieSequentieItemList",BatchID)
+]]></Implementation>
+</Method>
+
 <Method name="GeefSequentieDataVolgensSequenceVoorBatch">
 <FormalSpec>BatchID:%String</FormalSpec>
 <ReturnType>TECH.ResultSet</ReturnType>
Index: APPS/Halux/common/impl/ProductieSequentieGroepeerder.cls.xml
===================================================================
diff -u -r31994 -r32565
--- APPS/Halux/common/impl/ProductieSequentieGroepeerder.cls.xml	(.../ProductieSequentieGroepeerder.cls.xml)	(revision 31994)
+++ APPS/Halux/common/impl/ProductieSequentieGroepeerder.cls.xml	(.../ProductieSequentieGroepeerder.cls.xml)	(revision 32565)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.common.impl.ProductieSequentieGroepeerder">
-<Super>TECH.RegisteredObject,APPS.Halux.common.ProductieSequentieGroepeerder</Super>
+<Super>TECH.RegisteredObject,APPS.Halux.common.ProductieSequentieGroepeerder,APPS.Halux.common.enu.Categorie.Verwerker</Super>
 
 <Property name="Groepering">
 <Type>APPS.Halux.common.impl.ProductieSequentieGroepering</Type>
@@ -13,6 +13,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Batch">
+<Type>APPS.Halux.common.Batch</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -35,7 +40,7 @@
 	#dim GroeperingID As %String = 1 
 	
 	While (ResultSet.Next()) {
-		#dim SequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ..GeefSequentieInfo(ResultSet)
+		#dim SequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ..GeefSequentieInfoVoorResultSet(ResultSet)
 		Do ..Groepering.VoegToe(GroeperingID, SequentieInfo)
 	}
 	
@@ -59,7 +64,7 @@
 		
 		Continue:$$$Not(DeelAantal = 1)
 		
-		Set SequentieInfo = ..GeefSequentieInfo(ResultSet)
+		Set SequentieInfo = ..GeefSequentieInfoVoorResultSet(ResultSet)
 		Set SequentieInfo.DeelAantal = ""
 		
 		If $$$Not(ProductID = SequentieInfo.ProductID) {
@@ -81,38 +86,11 @@
 <FormalSpec>BatchID:%String</FormalSpec>
 <ReturnType>APPS.Halux.common.impl.ProductieSequentieGroepering</ReturnType>
 <Implementation><![CDATA[
+	Set ..Batch = ##class(APPS.Halux.common.impl.BatchService).%New().GeefBatch(BatchID)
 	Set ..Groepering = ##class(APPS.Halux.common.impl.ProductieSequentieGroepering).%New()
+		
+	Do ..Verwerk(..Batch.GeefCategorie())
 	
-	#dim FrequentieTabel As TECH.FrequentieTabel = ##class(TECH.FrequentieTabel).%New()
-	#dim ToeleveringAPI As DOM.AKP.ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
-	#dim ResultSet As TECH.ResultSet = ..ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(BatchID)
-	
-	While (ResultSet.Next()) {
-		#dim ToeleveringID As %String = ResultSet.GetDataByName("TOENr")
-						
-		If (ToeleveringAPI.BestaatToelevering(ToeleveringID)) {
-			#dim Toelevering As DOM.AKP.Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringID)
-			#dim ToeleveringLijnID As %String = ResultSet.GetDataByName("TLUNr")
-			Set ToeleveringLijnID = ..GeefCorrecteToeleveringLijnID(ToeleveringID, ToeleveringLijnID)
-			
-			#dim FrequentieItemID As %String = ToeleveringID _ ";" _ ToeleveringLijnID
-			
-			If $$$Not(ToeleveringLijnID = ""){
-				#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = Toelevering.GeefToeleveringLijn(ToeleveringLijnID)
-				
-				If (FrequentieTabel.GeefFrequentieVanItem(FrequentieItemID) <= ToeleveringLijn.GeefAantal()) {					
-					Do FrequentieTabel.Verhoog(FrequentieItemID)
-					#dim SequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ..GeefSequentieInfo(ResultSet)
-					Do ..Groepering.VoegToe(ToeleveringID, SequentieInfo)
-				}
-			} Else {
-				Do ##class(vhLib.Logger).%New("APPS.Halux.AansturingService").Warning("VoerUitAansturingActieVoorBatch_Resultaat", "Batch '" _ BatchID _ "' bevat een niet ingevulde toeleveringlijnID!")
-			}
-		} Else {
-			Do ##class(vhLib.Logger).%New("APPS.Halux.AansturingService").Warning("VoerUitAansturingActieVoorBatch_Resultaat", "Batch '" _ BatchID _ "' verwijst naar een onbestaande toelevering '" _ ToeleveringID _ "'!")
-		}		
-	}
-	
 	Quit ..Groepering
 ]]></Implementation>
 </Method>
@@ -131,7 +109,7 @@
 		
 		Continue:$$$Not(DeelAantal = 1)
 		
-		#dim SequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ..GeefSequentieInfo(ResultSet)
+		#dim SequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ..GeefSequentieInfoVoorResultSet(ResultSet)
 		Set SequentieInfo.DeelAantal = ""
 		Do ..Groepering.VoegToe(ToeleveringID,SequentieInfo)
 	}
@@ -158,7 +136,7 @@
 		
 		Continue:$$$Not(DeelAantal = 1)
 		
-		Set SequentieInfo = ..GeefSequentieInfo(ResultSet)
+		Set SequentieInfo = ..GeefSequentieInfoVoorResultSet(ResultSet)
 		Set SequentieInfo.DeelAantal = ""
 		
 		If ((ToeleveringID = SequentieInfo.ToeleveringID ) && ( ProductID = SequentieInfo.ProductID)) {
@@ -196,7 +174,7 @@
 		
 		Continue:$$$Not(DeelAantal = 1)
 		
-		Set SequentieInfo = ..GeefSequentieInfo(ResultSet)
+		Set SequentieInfo = ..GeefSequentieInfoVoorResultSet(ResultSet)
 		Set SequentieInfo.DeelAantal = ""
 		Set ProductID = SequentieInfo.ProductID
 		
@@ -232,7 +210,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefSequentieInfo">
+<Method name="GeefSequentieInfoVoorResultSet">
 <FormalSpec>ResultSet:TECH.ResultSet</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Halux.common.dto.ProductieSequentie</ReturnType>
@@ -252,6 +230,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefSequentieInfoVoorProductieSequentieItem">
+<FormalSpec>ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.common.dto.ProductieSequentie</ReturnType>
+<Implementation><![CDATA[
+	#dim SequentieInfo As APPS.Halux.common.dto.ProductieSequentie = ##class(APPS.Halux.common.dto.ProductieSequentie).%New()
+	
+	Set SequentieInfo.TotaalAantal = ProductieSequentieItem.TotaalAantal
+	Set SequentieInfo.ProductID = ProductieSequentieItem.ProductID
+	Set SequentieInfo.DeelAantal = ProductieSequentieItem.DeelAantal
+	Set SequentieInfo.SequenceNr = ProductieSequentieItem.SequentieNummer
+	Set SequentieInfo.QueueID = ProductieSequentieItem.GeefID()
+	Set SequentieInfo.ToeleveringID = ProductieSequentieItem.ToeleveringID
+	Set SequentieInfo.ToeleveringLijnID = ProductieSequentieItem.ToeleveringLijnID
+	Set SequentieInfo.ToeleveringSequentieNummer = ProductieSequentieItem.ToeleveringSequentieNummer
+	
+	Quit SequentieInfo
+]]></Implementation>
+</Method>
+
 <Method name="GeefCorrecteToeleveringLijnID">
 <FormalSpec>ToeleveringID:%String,ToeleveringLijnID:%String</FormalSpec>
 <Private>1</Private>
@@ -274,6 +272,158 @@
 	Quit CorrecteToeleveringLijnID
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkTAORbox">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim BatchID As TECH.String = ..Batch.GeefID()
+	#dim ProductieSequentieItemList As APPS.Halux.common.ProductieSequentieItemList = ..ProductieSequentieRepository.GeefProductieSequentieItemList(BatchID)
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(ProductieSequentieItemList)
+	
+	While (Iterator.HasNext()) {
+		#dim ProductieSequentieItem As APPS.Halux.common.ProductieSequentieItem = Iterator.Next()
+		#dim ToeleveringID As TECH.String = ProductieSequentieItem.ToeleveringID
+		#dim ToeleveringLijnID As TECH.String = ProductieSequentieItem.ToeleveringLijnID
+		#dim SequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ..GeefSequentieInfoVoorProductieSequentieItem(ProductieSequentieItem)
+		
+		Do ..MaakGroeperingPerToelevering(BatchID, ToeleveringID, ToeleveringLijnID, SequentieInfo)
+
+		Do ##class(Tools.Wlip).%New(42).String("ProductieSequentieGroepeerder->GroepeerPerToelevering->TAOR:::::" _ ProductieSequentieItem.ToeleveringID)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTandembox">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim BatchID As TECH.String = ..Batch.GeefID()
+	#dim ResultSet As TECH.ResultSet = ..ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(BatchID)		
+	
+	Do ##class(Tools.Wlip).%New(42).String("ProductieSequentieGroepeerder->GroepeerPerToelevering->Tandem:::::" _ ResultSet)
+	
+	While (ResultSet.Next()) {
+		Do ##class(Tools.Wlip).%New(42).String("ProductieSequentieGroepeerder->GroepeerPerToelevering->Tandem:::::ResultSet Next!!!!!!")
+		
+		#dim ToeleveringID As %String = ResultSet.GetDataByName("TOENr")
+		#dim ToeleveringLijnID As %String = ResultSet.GetDataByName("TLUNr")
+		#dim SequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ..GeefSequentieInfoVoorResultSet(ResultSet)
+		
+		Do ##class(Tools.Wlip).%New(42).String("ProductieSequentieGroepeerder->GroepeerPerToelevering->Tandem:::::ResultSet: " _ ResultSet)
+		
+		Do ..MaakGroeperingPerToelevering(BatchID, ToeleveringID, ToeleveringLijnID, SequentieInfo)		
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakGroeperingPerToelevering">
+<FormalSpec>BatchID:TECH.String,ToeleveringID:TECH.String,ToeleveringLijnID:TECH.String,SequentieInfo:APPS.Halux.common.dto.ProductieSequentie</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim ToeleveringAPI As DOM.AKP.ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+		
+	If (ToeleveringAPI.BestaatToelevering(ToeleveringID)) {
+		Set ToeleveringLijnID = ..GeefCorrecteToeleveringLijnID(ToeleveringID, ToeleveringLijnID)
+		
+		#dim Toelevering As DOM.AKP.Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringID)		
+		#dim FrequentieItemID As TECH.String = ToeleveringID _ ";" _ ToeleveringLijnID
+		#dim FrequentieTabel As TECH.FrequentieTabel = ##class(TECH.FrequentieTabel).%New()
+	
+		If $$$Not(ToeleveringLijnID = "") {
+			#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = Toelevering.GeefToeleveringLijn(ToeleveringLijnID)
+				
+			If (FrequentieTabel.GeefFrequentieVanItem(FrequentieItemID) <= ToeleveringLijn.GeefAantal()) {					
+				Do FrequentieTabel.Verhoog(FrequentieItemID)
+				
+				Do ..Groepering.VoegToe(ToeleveringID, SequentieInfo)
+			}
+		} Else {
+			Do ##class(vhLib.Logger).%New("APPS.Halux.AansturingService").Warning("VoerUitAansturingActieVoorBatch_Resultaat", "Batch '" _ BatchID _ "' bevat een niet ingevulde toeleveringlijnID!")
+		}
+	} Else {
+		Do ##class(vhLib.Logger).%New("APPS.Halux.AansturingService").Warning("VoerUitAansturingActieVoorBatch_Resultaat", "Batch '" _ BatchID _ "' verwijst naar een onbestaande toelevering '" _ ToeleveringID _ "'!")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkBanco">
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkBuroboxLadeblok">
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkHoekkast">
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkILS">
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkISS">
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkInpak">
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkKaderdeur">
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkLegrabox">
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkMDS">
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkMat">
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkMondo">
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkOnbepaald">
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkProductOpMaat">
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkServodrive">
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkVerlichting">
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkVerlichtingsbodem">
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/common/impl/ProductieSequentieRepository.cls.xml
===================================================================
diff -u -r31991 -r32565
--- APPS/Halux/common/impl/ProductieSequentieRepository.cls.xml	(.../ProductieSequentieRepository.cls.xml)	(revision 31991)
+++ APPS/Halux/common/impl/ProductieSequentieRepository.cls.xml	(.../ProductieSequentieRepository.cls.xml)	(revision 32565)
@@ -14,6 +14,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductieSequentieItemList">
+<FormalSpec>BatchID:TECH.String</FormalSpec>
+<ReturnType>APPS.Halux.common.ProductieSequentieItemList</ReturnType>
+<Implementation><![CDATA[
+	#dim SequentieService As APPS.Halux.common.SequentieService = ##class(APPS.Halux.common.impl.SequentieService).%New()
+	#dim ProductieSequentie As APPS.Halux.common.ProductieSequentie = SequentieService.GeefProductieSequentie(BatchID)
+	
+	Quit ProductieSequentie.GeefProductieSequentieItems()
+]]></Implementation>
+</Method>
+
 <Method name="GeefSequentieItemIDsMetDossierCode">
 <FormalSpec>BatchID:%String,DossierCode:%String,AantalStuks:%String</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>