Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator/DataVoorToeleveringGenerator/GenereerData/Test.cls.xml
===================================================================
diff -u -r72950 -r73004
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator/DataVoorToeleveringGenerator/GenereerData/Test.cls.xml	(.../Test.cls.xml)	(revision 72950)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator/DataVoorToeleveringGenerator/GenereerData/Test.cls.xml	(.../Test.cls.xml)	(revision 73004)
@@ -117,6 +117,67 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Test indien suffixId aanwezig is, komt deze in de id te staan">
+<Implementation><![CDATA[
+	#dim DummySuffixId = "123"
+	#dim VerwachtTijdstipGeformatteerd = "2023-08-18T17:30:10.000Z"
+	#dim BatchPitchExportedVolgnummer As %String = 100
+	#dim VerzendingWijze As %String = "OD3;1`OD3;3"
+	#dim KlantId As %String = "1000"
+	#dim LijnNummer As %Integer = 1
+	Set Afleveradres = ##class(DOM.VKP.impl.LeverAdres).%New()
+	
+	#dim BatchMock As vhTest.Mock.APPS.Halux.common.Batch = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
+	Do BatchMock.VerwachtMethodCall("GeefID").ExactAantalKeer(3).DanReturn(..#BatchId)
+	
+	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ..GeefToeleveringMock(..#ToeleveringId, ..#AantalLades, ..#Horolog, 1)
+	
+	Set DummyDocumentReferenties = ##class(DOM.VKP.DocumentReferenties).%New()
+	Set DummyDocumentReferenties.KlantOrderNummer = ..#KlantOrderNummer
+	
+	Set BatchPitchExported = ##class(APPS.Halux.Planning.Pitching.BatchPitchExported).%New()
+	Set BatchPitchExported.Volgnummer = BatchPitchExportedVolgnummer
+	Set BatchPitchExported.LijnNummer = LijnNummer
+	#dim BatchPitchExportedLijst As %ListOfObjects = ##class(TECH.ListUtils).CreateListOfObjects(BatchPitchExported)
+	#dim BatchPitchExportedServiceMock As vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService = ..GeefBatchPitchExportedServiceMock(..#BatchId, BatchPitchExportedLijst)
+	
+	#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ##class(vhTest.Mock.DOM.VKP.Order).%New()
+	Do OrderMock.VerwachtMethodCall("GeefAxSalesId").ExactAantalKeer(1).DanDoeNiks()
+	Do OrderMock.VerwachtMethodCall("GeefOrderReferentie").ExactAantalKeer(1).DanDoeNiks()
+	Do OrderMock.VerwachtMethodCall("GeefCommissieReferentie").ExactAantalKeer(1).DanDoeNiks()
+	Do OrderMock.VerwachtMethodCall("GeefVerzendingWijze").ExactAantalKeer(1).DanReturn(VerzendingWijze)
+	Do OrderMock.VerwachtMethodCall("GeefDocumentReferenties").ExactAantalKeer(1).DanReturn(DummyDocumentReferenties)
+	Do OrderMock.VerwachtMethodCall("GeefAfleveradres").ExactAantalKeer(1).DanReturn(Afleveradres)
+
+	#dim OrderApiMock As vhTest.Mock.DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Do OrderApiMock.VerwachtMethodCall("GeefOrder", 1).ExactAantalKeer(1).DanReturn(OrderMock)
+	
+	#dim Partij As DOM.PARTIJ.Partij = ##class(vhTest.Utils.DOM.PARTIJ.Partij).StandaardPartij()
+	Set PartijAPIMock = ##class(vhTest.Mock.DOM.PARTIJ.PartijAPI).%New()
+	Set PartijMock = ##class(vhTest.Mock.DOM.PARTIJ.Partij).%New()
+	Do PartijAPIMock.VerwachtMethodCall("GeefPartij", "K||1234").DanReturn(Partij)
+	
+	Set LegacyPartijApiMock = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
+	Do LegacyPartijApiMock.VerwachtMethodCall("GeefKlantNummerVoorPartijID", "K||1234").ExactAantalKeer(1).DanReturn(KlantId)
+		
+	Set DataVoorToeleveringGenerator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.HoofdDataGenerator.DataVoorToeleveringGenerator).%New(BatchPitchExportedServiceMock, OrderApiMock, PartijAPIMock, LegacyPartijApiMock)
+	#dim BatchNaarObjectiveData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = DataVoorToeleveringGenerator.GenereerData(BatchMock, ToeleveringMock, ..#SequentieNummerToelevering, DummySuffixId)
+	
+	Do $$$AssertEquals(BatchNaarObjectiveData.Id, ..#ToeleveringId _ "_" _ DummySuffixId)
+	Do $$$AssertEquals(BatchNaarObjectiveData.Omschrijving, "Productieorder gegenereerd vanuit Caché")
+	Do $$$AssertEquals(BatchNaarObjectiveData.AantalLades, ..#AantalLades)
+	Do $$$AssertEquals(BatchNaarObjectiveData.DueBefore, VerwachtTijdstipGeformatteerd)
+	
+	Do BatchMock.Verifieer()
+	Do ToeleveringMock.Verifieer()
+	Do OrderApiMock.Verifieer()
+	Do OrderMock.Verifieer()
+	Do PartijAPIMock.Verifieer()
+	Do LegacyPartijApiMock.Verifieer()
+	Do BatchPitchExportedServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test: Rangorde kan niet bepaald worden aangezien deze leeg is -&gt; error gooien en loggen">
 <Implementation><![CDATA[
 	#dim ErrorBoodschap As %String = "Rangorde kan niet gevonden worden aangezien de batch nog niet gepitcht is voor BatchId '111111'."
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml
===================================================================
diff -u -r72932 -r73004
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml	(.../HoofdDataGenerator.cls.xml)	(revision 72932)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml	(.../HoofdDataGenerator.cls.xml)	(revision 73004)
@@ -59,22 +59,22 @@
 </Method>
 
 <Method name="GenereerData">
-<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering,SequentieNummerToelevering:%Integer</FormalSpec>
+<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering,SequentieNummerToelevering:%Integer,SuffixId:%String=""</FormalSpec>
 <ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData</ReturnType>
 <Implementation><![CDATA[
 	Set BatchNaarObjectiveData = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData).%New()
-	Do ..VoegToeAlgemenInfo(BatchNaarObjectiveData, Batch, Toelevering)
+	Do ..VoegToeAlgemenInfo(BatchNaarObjectiveData, Batch, Toelevering, SuffixId)
 	Do ..VoegToeGebruikersVelden(BatchNaarObjectiveData, Batch, Toelevering, SequentieNummerToelevering)
 	
 	Quit BatchNaarObjectiveData
 ]]></Implementation>
 </Method>
 
 <Method name="VoegToeAlgemenInfo">
-<FormalSpec><![CDATA[&BatchNaarObjectiveData:APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData,Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering]]></FormalSpec>
+<FormalSpec><![CDATA[&BatchNaarObjectiveData:APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData,Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering,SuffixId:%String]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set BatchNaarObjectiveData.Id = ..GeefWaardeOfNull(Toelevering.GeefID())
+	Set BatchNaarObjectiveData.Id = ..GeefId(Toelevering, SuffixId)
 	Set BatchNaarObjectiveData.Omschrijving = ..GeefWaardeOfNull("Productieorder gegenereerd vanuit Caché")
 	Set BatchNaarObjectiveData.ReceptNaam = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_Receptnaam")
 	Set BatchNaarObjectiveData.AantalLades = ..GeefWaardeOfNull(..GeefAantalLades(Batch, Toelevering))
@@ -96,6 +96,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefId">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering,SuffixId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Id As %String = Toelevering.GeefID()
+	Set:$$$HasLength(SuffixId) Id = Id _ "_" _ SuffixId
+		
+	Quit Id
+]]></Implementation>
+</Method>
+
 <Method name="GeefDatumVelden">
 <FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
 <Private>1</Private>
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>
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml
===================================================================
diff -u -r72957 -r73004
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 72957)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 73004)
@@ -64,20 +64,20 @@
 </Method>
 
 <Method name="GenereerDataVoorToelevering">
-<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering,SequentieNummerToelevering:%Integer</FormalSpec>
+<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering,SequentieNummerToelevering:%Integer,SuffixId:%String</FormalSpec>
 <ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData</ReturnType>
 <Implementation><![CDATA[
 	#dim DataVoorToeleveringGenerator As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.HoofdDataGenerator.DataVoorToeleveringGenerator = ..HoofdDataGeneratorFactory.MaakDataVoorToeleveringGenerator()
-	Quit DataVoorToeleveringGenerator.GenereerData(Batch, Toelevering, SequentieNummerToelevering)
+	Quit DataVoorToeleveringGenerator.GenereerData(Batch, Toelevering, SequentieNummerToelevering, SuffixId)
 ]]></Implementation>
 </Method>
 
 <Method name="GenereerDataVoorBatch">
-<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering,SequentieNummerToelevering:%Integer</FormalSpec>
+<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering,SequentieNummerToelevering:%Integer,SuffixId:%String</FormalSpec>
 <ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData</ReturnType>
 <Implementation><![CDATA[
 	#dim DataVoorBatchGenerator As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.HoofdDataGenerator.DataVoorBatchGenerator = ..HoofdDataGeneratorFactory.MaakDataVoorBatchGenerator()
-	Quit DataVoorBatchGenerator.GenereerData(Batch, Toelevering, SequentieNummerToelevering)
+	Quit DataVoorBatchGenerator.GenereerData(Batch, Toelevering, SequentieNummerToelevering, SuffixId)
 ]]></Implementation>
 </Method>