Index: APPS/Halux/common/ProductieSequentieItemRepository.cls.xml
===================================================================
diff -u
--- APPS/Halux/common/ProductieSequentieItemRepository.cls.xml	(revision 0)
+++ APPS/Halux/common/ProductieSequentieItemRepository.cls.xml	(revision 67810)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.common.ProductieSequentieItemRepository">
+<Super>TECH.Persistentie.impl.Repository</Super>
+
+<Parameter name="DataClassName">
+<Type>%String</Type>
+<Default>APPS.Halux.common.ProductieSequentieItem</Default>
+</Parameter>
+
+<Method name="GeefToeleveringIDsInBatchVolgensSequentie">
+<FormalSpec>BatchID:%String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim ToeleveringIDLijst As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim SqlStatement As %String = "SELECT DISTINCT(ToeleveringID) FROM APPS_Halux_common.ProductieSequentieItem where BatchID = ? order by SequentieNummer"
+	#dim lbParams As %List = $LB(BatchID)
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement,lbParams))
+	
+	While ResultSet.Next() {
+		#dim ToeleveringID As %String = ResultSet.GetDataByName("ToeleveringID")
+		Do ToeleveringIDLijst.Insert(ToeleveringID)
+	}
+	
+	Quit ToeleveringIDLijst
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/impl/AansturingActie/common/OverzichtBatch.cls.xml
===================================================================
diff -u -r66233 -r67810
--- APPS/Halux/PPS/impl/AansturingActie/common/OverzichtBatch.cls.xml	(.../OverzichtBatch.cls.xml)	(revision 66233)
+++ APPS/Halux/PPS/impl/AansturingActie/common/OverzichtBatch.cls.xml	(.../OverzichtBatch.cls.xml)	(revision 67810)
@@ -42,25 +42,51 @@
 <FormalSpec>BatchID:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set BatchService = ##class(APPS.Halux.Planning.impl.BatchService).%New()
 	Set ToeleveringApi = ##class(DOM.AKP.impl.DataM.DataMToeleveringAPI).%New()
-	#dim LijstToeleveringen As APPS.Halux.Planning.dto.BatchToeleveringen = BatchService.GeefToeleveringenInBatch(BatchID)
-	#dim ToeleveringDtoIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(LijstToeleveringen.Toeleveringen)
+	#dim ToeleveringIDIterator As TECH.ListIterator = ..GeefToeleveringIDsInBatchIterator(BatchID)
 	
-	while ToeleveringDtoIterator.HasNext() {		
-		#dim ToeleveringDto As APPS.Halux.Planning.dto.Toelevering = ToeleveringDtoIterator.Next()
-		#dim Toelevering As DOM.AKP.impl.DataM.DataMToelevering = ToeleveringApi.GeefToelevering(ToeleveringDto.ID)
+	#dim VolgNr As %Integer = 1 
+	while ToeleveringIDIterator.HasNext() {
+		#dim Toelevering As DOM.AKP.impl.DataM.DataMToelevering = ToeleveringApi.GeefToelevering(ToeleveringIDIterator.Next())
 		
-		Do ..Document.GeefKolom(1).Insert(ToeleveringDto.Volgnummer)
+		Do ..Document.GeefKolom(1).Insert(VolgNr)
 		Do ..Document.GeefKolom(2).Insert(Toelevering.GeefID())
 		Do ..Document.GeefKolom(3).Insert(..BepaalGroottePallet(Toelevering))
 		Do ..Document.GeefKolom(1).Insert("")
 		Do ..Document.GeefKolom(2).Insert("")
-		Do ..Document.GeefKolom(3).Insert("")					
+		Do ..Document.GeefKolom(3).Insert("")	
+		
+		Set VolgNr = VolgNr + 1				
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="GeefToeleveringIDsInBatchIterator">
+<FormalSpec>BatchID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.ListIterator</ReturnType>
+<Implementation><![CDATA[
+	Set BatchService = ##class(APPS.Halux.Planning.impl.BatchService).%New()
+	Set ToeleveringIDs  = ##class(%ListOfDataTypes).%New()
+	#dim CommonBatchService As APPS.Halux.common.BatchService = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService()
+	#dim LijstToeleveringenInBatch As APPS.Halux.Planning.dto.BatchToeleveringen = BatchService.GeefToeleveringenInBatch(BatchID)
+	
+	If (CommonBatchService.GeefBatch(BatchID).GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) {
+		Set Repository = ##class(APPS.Halux.common.ProductieSequentieItemRepository).%New()
+		Set ToeleveringIDs = Repository.GeefToeleveringIDsInBatchVolgensSequentie(BatchID)
+	} Else {
+		#dim ToeleveringDtoIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(LijstToeleveringenInBatch)
+		
+		While ToeleveringDtoIterator.HasNext() {
+			#dim ToeleveringDto As APPS.Halux.Planning.dto.Toelevering = ToeleveringDtoIterator.Next()
+			Do ToeleveringIDs.Insert(ToeleveringDto.ID)
+		}
+	}
+	
+	Quit ##class(TECH.ListIterator).%New(ToeleveringIDs)
+]]></Implementation>
+</Method>
+
 <Method name="DocumentMagWordenAfgedrukt">
 <FormalSpec>ProductieGroep:APPS.Halux.common.enu.ProductieGroep</FormalSpec>
 <Private>1</Private>