Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml
===================================================================
diff -u -r73385 -r74859
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 73385)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 74859)
@@ -35,6 +35,29 @@
 <Private>1</Private>
 </Property>
 
+<Property name="IndexBestanden">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Property name="LaatstGebruikteToeleveringID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LaatstGebruikteToeleveringIDIndex">
+<Type>%Integer</Type>
+<InitialExpression>1</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Property name="FileIndexVoorToelevering">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>ToeleveringApi:DOM.AKP.ToeleveringAPI="",BatchNaarObjectiveDataGenerator:APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.BatchNaarObjectiveDataGenerator="",MailApi:TECH.Mail.MailAPI=""</FormalSpec>
 <Private>1</Private>
@@ -65,11 +88,8 @@
 <ReturnType>APPS.Halux.PPS.dto.UitvoeringResultaat</ReturnType>
 <Implementation><![CDATA[
 	#dim UitvoeringStatus As APPS.Halux.PPS.enu.UitvoeringStatus = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).InUitvoering()
-	#dim UitvoeringInfoLijstGesplitst As %ListOfObjects = ..SplitsUitvoeringInfoLijst(Lijst)
-	#dim AantalUitSublijstenUitvoeringInfo As %Integer = UitvoeringInfoLijstGesplitst.Size
-	Set UitvoeringInfoIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijstGesplitst)
-	
 	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo = Lijst.GetAt(1)
+	
 	#dim IsBatchAlGeexporteerd As %Boolean = $$$False
 	If $IsObject(UitvoeringInfo) {
 		Set IsBatchAlGeexporteerd = ..BatchPitchExportedRepository.IsBatchExported(UitvoeringInfo.BatchID)
@@ -87,17 +107,10 @@
 		}
 	}
 	
-	If $$$Not(UitvoeringStatus = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).Fout()) {
-		#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, FilterToeleveringId)
-			Do ..ExporteerDataNaarXmlDocument(BatchData, SuffixId)
-			
-			Set IndexUitvoeringInfoLijstGesplitst = $Increment(IndexUitvoeringInfoLijstGesplitst)
-		}
+	If ($$$Not(UitvoeringStatus = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).Fout())) {
+		#dim SuffixId As %String = ""
+		#dim BatchData As %ListOfObjects = ..GenereerBatchDataVoorUitvoeringInfoLijst(Lijst, SuffixId, 1, FilterToeleveringId)
+		Do ..ExporteerDataNaarXmlDocument(BatchData)
 		
 		Set UitvoeringStatus = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).Succes()
 	}
@@ -106,42 +119,8 @@
 ]]></Implementation>
 </Method>
 
-<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,FilterToeleveringId:%String=""</FormalSpec>
+<FormalSpec>UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst,SuffixId:%String,UitvoeringLijstNummer:%Integer,FilterToeleveringId:%String=""</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData"</ReturnTypeParams>
 <Implementation><![CDATA[
@@ -152,14 +131,14 @@
 		#dim BatchId As %String  = UitvoeringInfoLijst.GetAt(1).BatchID
 		#dim Batch As APPS.Halux.common.Batch  = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(BatchId)
 		#dim UitvoeringInfoLijstIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
+		#dim CategorTLM As %Boolean = ((Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Tandembox()) ||(Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Legrabox()) ||(Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Merivobox()))
 		
-		If (..MESService.IsActiefVoorMes(Batch.GeefLijn(), MesFaseActief)) {	
+		If (..MESService.IsActiefVoorMes(Batch.GeefLijn(), MesFaseActief) && CategorTLM) {	
 			If (..BevatBatchVhoss(UitvoeringInfoLijst)) {
-				Set BatchDataLijst = ..GeefVhossBatchDataLijst(Batch, UitvoeringInfoLijstIterator, UitvoeringInfoLijst.Size, SuffixId)
+				Set BatchDataLijst = ..GeefVhossBatchDataLijst(Batch, UitvoeringInfoLijstIterator, UitvoeringInfoLijst.Size, SuffixId, UitvoeringLijstNummer)
 			} Else {
-				Set BatchDataLijst = ..GeefStandaardBatchDataLijst(Batch, UitvoeringInfoLijstIterator, UitvoeringInfoLijst.Size, SuffixId, FilterToeleveringId)
-			}	
-			
+				Set BatchDataLijst = ..GeefStandaardBatchDataLijst(Batch, UitvoeringInfoLijstIterator, SuffixId, FilterToeleveringId)
+			}
 		}
 	}
 		
@@ -168,59 +147,120 @@
 </Method>
 
 <Method name="GeefVhossBatchDataLijst">
-<FormalSpec>Batch:APPS.Halux.common.Batch,UitvoeringInfoLijstIterator:TECH.Iterator,AantalLades:%Integer,SuffixId:%String</FormalSpec>
+<FormalSpec>Batch:APPS.Halux.common.Batch,UitvoeringInfoLijstIterator:TECH.Iterator,AantalLades:%Integer,SuffixId:%String,UitvoeringLijstNummer:%Integer</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set BatchDataLijst = ##class(%ListOfObjects).%New()
+	#dim MaximumAantalLadesProductieOrder As %Integer = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MaximumAantalLadesProductieOrder")
+
+	If (AantalLades > MaximumAantalLadesProductieOrder)
+	{
+		Do ..ZendMailMaxAantalLadeBatchOverschreden(Batch.GeefID(), MaximumAantalLadesProductieOrder)
+	} Else {	
+		#dim ToeleveringenIterator As TECH.Iterator = ..GeefLijstIteratorVanToeleveringenInVolgordeVanSequentieNummer(UitvoeringInfoLijstIterator)
+		#dim ToeleveringId As %String = ToeleveringenIterator.Next()
+		#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, UitvoeringLijstNummer, AantalLades, SuffixId)
+		Set BatchData.GebruikersVelden.Vlag.IsProductionLineFixed = "false"
+		
+		Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..BatchNaarObjectiveDataGenerator.GenereerAlgemeneInfoOptiesVoorBatch(Batch))
+		Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..GeefOptiesVoorToelevering(Toelevering, 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, AantalLades, SuffixId)
+		While ToeleveringenIterator.HasNext() {		
+			Set ToeleveringId = ToeleveringenIterator.Next()
+			Set Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringId)
+		
+			Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator))
+			Set BatchData.GebruikersVelden.Vlag.IsProductionLineFixed =  $Select((BatchData.GebruikersVelden.Vlag.IsProductionLineFixed || ..GeefIsMinstensEenStalenRugFastMover(BatchData.Opties)) : "true", 1:"false")
+		}
 	
-	Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..BatchNaarObjectiveDataGenerator.GenereerAlgemeneInfoOptiesVoorBatch(Batch))
-	Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator))
+		Do BatchDataLijst.Insert(BatchData)
+	}
+	Quit BatchDataLijst
+]]></Implementation>
+</Method>
+
+<Method name="GeefLijstIteratorVanToeleveringenInVolgordeVanSequentieNummer">
+<FormalSpec>UitvoeringInfoLijstIterator:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim LijstVanToeleveringenInVolgordeVanSequentieNummer As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	
-	While ToeleveringenIterator.HasNext() {		
-		Set ToeleveringId = ToeleveringenIterator.Next().GeefID()
-		Set Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringId)
-		
-		Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator))
+	Do UitvoeringInfoLijstIterator.Reset()
+	While UitvoeringInfoLijstIterator.HasNext() {
+		#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo = UitvoeringInfoLijstIterator.Next()
+		If $$$Not(##class(TECH.ListUtils).Contains(LijstVanToeleveringenInVolgordeVanSequentieNummer, UitvoeringInfo.ToeleveringID)) {
+			Do LijstVanToeleveringenInVolgordeVanSequentieNummer.Insert(UitvoeringInfo.ToeleveringID)
+		}
 	}
+	Do UitvoeringInfoLijstIterator.Reset()
 	
-	Do BatchDataLijst.Insert(BatchData)
-
-	Quit BatchDataLijst
+	Quit ##class(TECH.ListIterator).%New(LijstVanToeleveringenInVolgordeVanSequentieNummer)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefStandaardBatchDataLijst">
-<FormalSpec>Batch:APPS.Halux.common.Batch,UitvoeringInfoLijstIterator:TECH.Iterator,AantalLades:%Integer,SuffixId:%String,FilterToeleveringId:%String=""</FormalSpec>
+<FormalSpec>Batch:APPS.Halux.common.Batch,UitvoeringInfoLijstIterator:TECH.Iterator,SuffixId:%String,FilterToeleveringId:%String=""</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set BatchDataLijst = ##class(%ListOfObjects).%New()
 	#dim ToeleveringenIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
-	#dim IndexToelevering As %Integer = 0
+	#dim Minstens1ToelevMetTeVeelLades As %Boolean = $$$False
+	Do ToeleveringenIterator.Reset()
 	
 	While ToeleveringenIterator.HasNext() {
 		#dim ToeleveringId As %String = ToeleveringenIterator.Next().GeefID()
-		
-		If (($$$Not(FilterToeleveringId = "") && (ToeleveringId = FilterToeleveringId)) || (FilterToeleveringId = "")) {
+		#dim IteratieNrSequentieNummers As %Integer = 0
+		If ((($$$Not(FilterToeleveringId = "") && (ToeleveringId = FilterToeleveringId)) || (FilterToeleveringId = ""))) {
 			#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringId)
-			Set IndexToelevering = IndexToelevering + 1
-			
-			#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = ..BatchNaarObjectiveDataGenerator.GenereerDataVoorToelevering(Batch, Toelevering, IndexToelevering, AantalLades, 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)
+			#dim AantalLadesInToelevering As %Integer = ..GeefAantalLadesInToelevering(Toelevering.GeefID(), UitvoeringInfoLijstIterator)			
+			#dim MaximumAantalLadesProductieOrder As %Integer = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MaximumAantalLadesProductieOrder")
+	
+			If (AantalLadesInToelevering > MaximumAantalLadesProductieOrder)
+			{
+				Do ..ZendMailMaxAantalLadesToeleveringOverschreden(ToeleveringId, MaximumAantalLadesProductieOrder)
+				Set Minstens1ToelevMetTeVeelLades = $$$True
+			} ElseIf (AantalLadesInToelevering > 0) {
+				Set ..IndexBestanden = ..IndexBestanden + 1
+				#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = ..BatchNaarObjectiveDataGenerator.GenereerDataVoorToelevering(Batch, Toelevering, ..IndexBestanden, AantalLadesInToelevering, SuffixId)
+				Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..BatchNaarObjectiveDataGenerator.GenereerAlgemeneInfoOptiesVoorToelevering(Toelevering, Batch.GeefCategorie()))
+				Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator))
+				Set BatchData.GebruikersVelden.Vlag.IsProductionLineFixed = $Select(..GeefIsMinstensEenStalenRugFastMover(BatchData.Opties) : "true", 1:"false")
+				
+				Do BatchDataLijst.Insert(BatchData)
+			}
 		}
 	}
 	
+	If (Minstens1ToelevMetTeVeelLades) {
+		Do BatchDataLijst.Clear()	
+	}
+	
 	Quit BatchDataLijst
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAantalLadesInToelevering">
+<FormalSpec>ToeleveringId:%String,UitvoeringInfoLijstIterator:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim AantalLades As %Integer = 0
+	
+	Do UitvoeringInfoLijstIterator.Reset()
+	While (UitvoeringInfoLijstIterator.HasNext()) {
+		#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo = UitvoeringInfoLijstIterator.Next()
+		If (UitvoeringInfo.ToeleveringID = ToeleveringId) {
+			Set AantalLades = AantalLades + 1
+		}
+	}
+	Do UitvoeringInfoLijstIterator.Reset()
+	
+	Quit AantalLades
+]]></Implementation>
+</Method>
+
 <Method name="GeefOptiesVoorToelevering">
 <FormalSpec>Toelevering:DOM.AKP.Toelevering,UitvoeringInfoLijstIterator:TECH.Iterator</FormalSpec>
 <Private>1</Private>
@@ -243,17 +283,18 @@
 </Method>
 
 <Method name="ExporteerDataNaarXmlDocument">
-<FormalSpec>BatchDataLijst:%ListOfObjects,IndexUitvoeringInfoLijstGesplitst:%Integer=""</FormalSpec>
+<FormalSpec>BatchDataLijst:%ListOfObjects</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	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 (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")
+		#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = BatchDataIterator.Next()
+		
+		#dim BestandVolledigNaam As %String = ..GeefBestandVolledigeNaam(BatchData.GebruikersVelden.TekstVelden.BatchId, BatchDataIndex, "xml")
 		Do FileWriter.Open(BestandVolledigNaam)
 		Do FileWriter.WriteXML(BatchData)
 		Do FileWriter.Close()
@@ -264,7 +305,7 @@
 </Method>
 
 <Method name="GeefBestandVolledigeNaam">
-<FormalSpec>BatchId:%String,BatchIndex:%Integer,GesplitsteIndex:%Integer="",Extensie:TECH.String</FormalSpec>
+<FormalSpec>BatchId:%String,BatchIndex:%Integer,Extensie:TECH.String</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
@@ -274,14 +315,7 @@
 		Set BatchIndex = "0" _ BatchIndex
 	}
 	
-	If ($$$HasLength(GesplitsteIndex)) {
-		While ($Length(GesplitsteIndex) < 4) {
-			Set GesplitsteIndex = "0" _ GesplitsteIndex
-		}
-	}
-	
 	#dim BestandVolledigeNaam As %String = ##class(TECH.Files).AppendFile(BestandLocatie, BatchId _ "_" _ BatchIndex)
-	Set:$$$HasLength(GesplitsteIndex) BestandVolledigeNaam = BestandVolledigeNaam _ "_" _ GesplitsteIndex
 	Set BestandVolledigeNaam = BestandVolledigeNaam _ "." _ Extensie
 	
 	Quit BestandVolledigeNaam
@@ -312,6 +346,59 @@
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 </Method>
+
+<Method name="ZendMailMaxAantalLadesToeleveringOverschreden">
+<FormalSpec>ToeleveringID:%String,MaximumAantalLadesProductieOrder:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim MailNaar As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MailNaar")
+	#dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail()
+	Do Mail.ZetVerzender($$$SystemMail("system"))
+	Do Mail.ZetOnderwerp("Toelevering '"_ToeleveringID_"' heeft te veel lades !!!")
+	Do Mail.ZetInhoud("Opgelet : Toelevering '"_ToeleveringID_"' bevat meer lades dan toegelaten (max. toegelaten is '"_MaximumAantalLadesProductieOrder_"')!")
+	Do Mail.ZetIsHTML($$$True)
+
+	Do Mail.VoegToeOntvanger(MailNaar)
+
+	Do ..MailApi.VerstuurMail(Mail)
+]]></Implementation>
+</Method>
+
+<Method name="ZendMailMaxAantalLadeBatchOverschreden">
+<FormalSpec>BatchID:%String,MaximumAantalLadesProductieOrder:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim MailNaar As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MailNaar")
+	#dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail()
+	Do Mail.ZetVerzender($$$SystemMail("system"))
+	Do Mail.ZetOnderwerp("Batch '"_BatchID_"' heeft te veel lades !!!")
+	Do Mail.ZetInhoud("Opgelet : Batch '"_BatchID_"' bevat meer lades dan toegelaten (max. toegelaten is '"_MaximumAantalLadesProductieOrder_"')!")
+	Do Mail.ZetIsHTML($$$True)
+
+	Do Mail.VoegToeOntvanger(MailNaar)
+
+	Do ..MailApi.VerstuurMail(Mail)
+]]></Implementation>
+</Method>
+
+<Method name="GeefIsMinstensEenStalenRugFastMover">
+<FormalSpec>Opties:%ListOfObjects</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsMinstensEenStalenRugFastMover = "false"
+	#dim OptieIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Opties)
+	
+	While (OptieIterator.HasNext() && $$$Not(IsMinstensEenStalenRugFastMover)) {
+		#dim Optie As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions = OptieIterator.Next()
+		
+		If (##class(TECH.StringUtils).Contains(Optie.Naam, "BackSteelIsFastMover") && (Optie.Waarde = $$$True)) {
+			Set IsMinstensEenStalenRugFastMover = "true"
+		}
+	}
+	
+	Quit IsMinstensEenStalenRugFastMover
+]]></Implementation>
+</Method>
 </Class>