Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml
===================================================================
diff -u -r72957 -r73004
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 72957)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 73004)
@@ -60,17 +60,63 @@
 <Implementation><![CDATA[
 	#dim UitvoeringStatus As APPS.Halux.PPS.enu.UitvoeringStatus = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).InUitvoering()
 	
-	#dim BatchData As %ListOfObjects = ..GenereerBatchDataVoorUitvoeringInfoLijst(Lijst)
-	Do ..ExporteerDataNaarXmlDocument(BatchData)
+	#dim UitvoeringInfoLijstGesplitst As %ListOfObjects = ..SplitsUitvoeringInfoLijst(Lijst)
+	#dim AantalUitSublijstenUitvoeringInfo As %Integer = UitvoeringInfoLijstGesplitst.Size
+	Set UitvoeringInfoIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijstGesplitst)
 	
+	#dim IndexUitvoeringInfoLijstGesplitst As %Integer = 1
+	While UitvoeringInfoIterator.HasNext() {
+		#dim UitvoeringInfoLijst As APPS.Halux.PPS.dto.UitvoeringInfoLijst = UitvoeringInfoIterator.Next()
+		
+		#dim SuffixId As %String = ..GeefSuffixId(AantalUitSublijstenUitvoeringInfo, IndexUitvoeringInfoLijstGesplitst)
+		#dim BatchData As %ListOfObjects = ..GenereerBatchDataVoorUitvoeringInfoLijst(UitvoeringInfoLijst, SuffixId)
+		Do ..ExporteerDataNaarXmlDocument(BatchData, IndexUitvoeringInfoLijstGesplitst)
+		
+		Set IndexUitvoeringInfoLijstGesplitst = $Increment(IndexUitvoeringInfoLijstGesplitst)
+	}
+	
 	Set UitvoeringStatus = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).Succes()
 	Quit UitvoeringStatus
 ]]></Implementation>
 </Method>
 
-<Method name="GenereerBatchDataVoorUitvoeringInfoLijst">
+<Method name="SplitsUitvoeringInfoLijst">
 <FormalSpec>UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst</FormalSpec>
+<Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set UitvoeringInfoLijstGesplitst = ##class(%ListOfObjects).%New()
+	#dim AantalLades = UitvoeringInfoLijst.Size
+	#dim MaximumAantalLadesProductieOrder As %Integer = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MaximumAantalLadesProductieOrder")
+		
+	Set UitvoeringInfoSubLijst = ##class(APPS.Halux.PPS.dto.UitvoeringInfoLijst).%New()
+	#dim Index As %Integer = 1
+	While (Index <= AantalLades) {
+		Do UitvoeringInfoSubLijst.Insert(UitvoeringInfoLijst.GetAt(Index))
+		
+		If (Index # MaximumAantalLadesProductieOrder = 0) {
+			Do UitvoeringInfoLijstGesplitst.Insert(UitvoeringInfoSubLijst)
+			Set UitvoeringInfoSubLijst = ##class(APPS.Halux.PPS.dto.UitvoeringInfoLijst).%New()
+		}
+		
+		Set Index = $Increment(Index)
+	}
+	Do UitvoeringInfoLijstGesplitst.Insert(UitvoeringInfoSubLijst)
+	
+	Quit UitvoeringInfoLijstGesplitst
+]]></Implementation>
+</Method>
+
+<Method name="GeefSuffixId">
+<FormalSpec>AantalUitSublijstenUitvoeringInfo:%Integer,IndexUitvoeringInfoLijstGesplitst:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Select((AantalUitSublijstenUitvoeringInfo > 1): IndexUitvoeringInfoLijstGesplitst, 1: "")
+]]></Implementation>
+</Method>
+
+<Method name="GenereerBatchDataVoorUitvoeringInfoLijst">
+<FormalSpec>UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst,SuffixId:%String</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData"</ReturnTypeParams>
 <Implementation><![CDATA[
 	Set BatchDataLijst = ##class(%ListOfObjects).%New()
@@ -83,9 +129,9 @@
 		
 		If (..MESService.IsActiefVoorMes(Batch.GeefLijn(), MesFaseActief)) {	
 			If (..BevatBatchVhoss(UitvoeringInfoLijst)) {
-				Set BatchDataLijst = ..GeefVhossBatchDataLijst(Batch, UitvoeringInfoLijstIterator)
+				Set BatchDataLijst = ..GeefVhossBatchDataLijst(Batch, UitvoeringInfoLijstIterator, SuffixId)
 			} Else {
-				Set BatchDataLijst = ..GeefStandaardBatchDataLijst(Batch, UitvoeringInfoLijstIterator)
+				Set BatchDataLijst = ..GeefStandaardBatchDataLijst(Batch, UitvoeringInfoLijstIterator, SuffixId)
 			}	
 			
 		}
@@ -96,36 +142,34 @@
 </Method>
 
 <Method name="GeefVhossBatchDataLijst">
-<FormalSpec>Batch:APPS.Halux.common.Batch,UitvoeringInfoLijstIterator:TECH.Iterator</FormalSpec>
+<FormalSpec>Batch:APPS.Halux.common.Batch,UitvoeringInfoLijstIterator:TECH.Iterator,SuffixId:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set BatchDataLijst = ##class(%ListOfObjects).%New()
 	
-	If (..IsAantalLadesToegestaan(Batch.GeefAantalProductenBijStart(), Batch.GeefID(), ##class(TECH.ListUtils).IteratorToList(UitvoeringInfoLijstIterator))) {
-		#dim ToeleveringenIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
-		#dim ToeleveringId As %String = ToeleveringenIterator.Next().GeefID()
-		#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringId)
-		#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = ..BatchNaarObjectiveDataGenerator.GenereerDataVoorBatch(Batch, Toelevering, 1)
+	#dim ToeleveringenIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
+	#dim ToeleveringId As %String = ToeleveringenIterator.Next().GeefID()
+	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringId)
+	#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = ..BatchNaarObjectiveDataGenerator.GenereerDataVoorBatch(Batch, Toelevering, 1, SuffixId)
+	
+	Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..BatchNaarObjectiveDataGenerator.GenereerAlgemeneInfoOptiesVoorBatch(Batch))
+	Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator))
+	
+	While ToeleveringenIterator.HasNext() {		
+		Set ToeleveringId = ToeleveringenIterator.Next().GeefID()
+		Set Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringId)
 		
-		Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..BatchNaarObjectiveDataGenerator.GenereerAlgemeneInfoOptiesVoorBatch(Batch))
 		Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator))
-		
-		While ToeleveringenIterator.HasNext() {		
-			Set ToeleveringId = ToeleveringenIterator.Next().GeefID()
-			Set Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringId)
-			
-			Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator))
-		}
-		
-		Do BatchDataLijst.Insert(BatchData)
 	}
+	
+	Do BatchDataLijst.Insert(BatchData)
 
 	Quit BatchDataLijst
 ]]></Implementation>
 </Method>
 
 <Method name="GeefStandaardBatchDataLijst">
-<FormalSpec>Batch:APPS.Halux.common.Batch,UitvoeringInfoLijstIterator:TECH.Iterator</FormalSpec>
+<FormalSpec>Batch:APPS.Halux.common.Batch,UitvoeringInfoLijstIterator:TECH.Iterator,SuffixId:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set BatchDataLijst = ##class(%ListOfObjects).%New()
@@ -137,43 +181,17 @@
 		#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringId)
 		Set IndexToelevering = IndexToelevering + 1
 		
-		If (..IsAantalLadesToegestaan(Toelevering.GeefAantalProducten(), Batch.GeefID(), ##class(TECH.ListUtils).IteratorToList(UitvoeringInfoLijstIterator), ToeleveringId)) {
-			#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = ..BatchNaarObjectiveDataGenerator.GenereerDataVoorToelevering(Batch, Toelevering, IndexToelevering)
-			Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..BatchNaarObjectiveDataGenerator.GenereerAlgemeneInfoOptiesVoorToelevering(Toelevering, Batch.GeefCategorie()))
-			Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator))
-			
-			Do BatchDataLijst.Insert(BatchData)
-		}
+		#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = ..BatchNaarObjectiveDataGenerator.GenereerDataVoorToelevering(Batch, Toelevering, IndexToelevering, SuffixId)
+		Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..BatchNaarObjectiveDataGenerator.GenereerAlgemeneInfoOptiesVoorToelevering(Toelevering, Batch.GeefCategorie()))
+		Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator))
+		
+		Do BatchDataLijst.Insert(BatchData)
 	}
 	
 	Quit BatchDataLijst
 ]]></Implementation>
 </Method>
 
-<Method name="IsAantalLadesToegestaan">
-<FormalSpec>AantalLades:%Integer,BatchId:%String,UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst,ToeleveringId:%String=""</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim IsToegestaan As %Boolean = $$$True
-	
-	#dim AantalLadesToegestaan As %Integer = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MaximumAantalLadesProductieOrder")
-	If (AantalLades > AantalLadesToegestaan) {
-		#dim ErrorBoodschap As %String = "Batch '" _ BatchId _ "'"
-		Set:($$$Not(..BevatBatchVhoss(UitvoeringInfoLijst))) ErrorBoodschap = ErrorBoodschap _ " voor toelevering '" _ ToeleveringId _ "' "
-		Set ErrorBoodschap = ErrorBoodschap _ "kan niet doorgestuurd worden naar Objective, want deze bevat '" _ AantalLades _ "' lades. Dit is meer dan het toegelaten maximum aantal lades ('" _ AantalLadesToegestaan _ "')."
-		
-		Set Exception = ##class(TECH.Exceptions.IllegalArgumentException).%New(ErrorBoodschap)
-		Do ..Logger.ErrorMail("VerifieerIsAantalLadesToegestaan", Exception.GeefErrorInformatie())
-		Do ..ZendMailNaarHalux(Exception.GeefErrorInformatie())
-		
-		Set IsToegestaan = $$$False
-	}
-	
-	Quit IsToegestaan
-]]></Implementation>
-</Method>
-
 <Method name="GeefOptiesVoorToelevering">
 <FormalSpec>Toelevering:DOM.AKP.Toelevering,UitvoeringInfoLijstIterator:TECH.Iterator</FormalSpec>
 <Private>1</Private>
@@ -196,17 +214,17 @@
 </Method>
 
 <Method name="ExporteerDataNaarXmlDocument">
-<FormalSpec>BatchDataLijst:%ListOfObjects</FormalSpec>
+<FormalSpec>BatchDataLijst:%ListOfObjects,IndexUitvoeringInfoLijstGesplitst:%Integer=""</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set Iterator = ##class(TECH.ListIterator).%New(BatchDataLijst)
-	#dim Index As %Integer = 0
+	Set BatchDataIterator = ##class(TECH.ListIterator).%New(BatchDataLijst)
+	#dim BatchDataIndex As %Integer = 0
 	#dim FileWriter As TECH.File.FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
 	
-	While (Iterator.HasNext()) {
-		#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = Iterator.Next()
-		Set Index = Index + 1
-		#dim BestandVolledigNaam As %String = ..GeefBestandVolledigeNaam(BatchData.GebruikersVelden.TekstVelden.BatchId, Index, "xml")
+	While (BatchDataIterator.HasNext()) {
+		#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = BatchDataIterator.Next()
+		Set BatchDataIndex = BatchDataIndex + 1
+		#dim BestandVolledigNaam As %String = ..GeefBestandVolledigeNaam(BatchData.GebruikersVelden.TekstVelden.BatchId, BatchDataIndex, IndexUitvoeringInfoLijstGesplitst, "xml")
 		Do FileWriter.Open(BestandVolledigNaam)
 		Do FileWriter.WriteXML(BatchData)
 		Do FileWriter.Close()
@@ -217,19 +235,24 @@
 </Method>
 
 <Method name="GeefBestandVolledigeNaam">
-<FormalSpec>BatchId:%String,Index:%Integer,Extensie:TECH.String</FormalSpec>
+<FormalSpec>BatchId:%String,BatchIndex:%Integer,GesplitsteIndex:%Integer="",Extensie:TECH.String</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
 	#dim BestandLocatie As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective.FilePath")
-	#dim IndexAsString = $Length(Index)
 	
-	While ($Length(Index) < 4) {
-		Set Index = "0" _ Index
+	While ($Length(BatchIndex) < 4) {
+		Set BatchIndex = "0" _ BatchIndex
 	}
 	
-	#dim BestandVolledigeNaam As %String = ##class(TECH.Files).AppendFile(BestandLocatie, BatchId _ "_" _ Index _ "." _ Extensie)
+	If ($$$HasLength(GesplitsteIndex)) {
+		While ($Length(GesplitsteIndex) < 4) {
+			Set GesplitsteIndex = "0" _ GesplitsteIndex
+		}
+	}
 	
+	#dim BestandVolledigeNaam As %String = ##class(TECH.Files).AppendFile(BestandLocatie, BatchId _ "_" _ BatchIndex _ "_" _ GesplitsteIndex _ "." _ Extensie)
+	
 	Quit BestandVolledigeNaam
 ]]></Implementation>
 </Method>
@@ -252,22 +275,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ZendMailNaarHalux">
-<FormalSpec>Inhoud:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail()
-	Do Mail.ZetVerzender($$$SystemMail("system"))
-	Do Mail.ZetOnderwerp("Fout bij verzenden van een productie-order naar Objective")
-	Do Mail.ZetInhoud(Inhoud)
-	
-	#dim MailTo As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MailNaar")
-	Do Mail.VoegToeOntvanger(MailTo)
-
-	Do ..MailApi.VerstuurMail(Mail)
-]]></Implementation>
-</Method>
-
 <Method name="BevatVhossVerpakking">
 <Abstract>1</Abstract>
 <FormalSpec>ProductId:%String</FormalSpec>