Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml
===================================================================
diff -u -r71827 -r74859
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71827)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 74859)
@@ -30,6 +30,34 @@
 <Private>1</Private>
 </Property>
 
+<Property name="BatchPitchExportedRepository">
+<Type>APPS.Halux.Planning.Pitching.impl.BatchPitchExportedRepository</Type>
+<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>
@@ -42,6 +70,7 @@
 	Set ..MESService = ##class(APPS.Halux.PPS.MES.MESService).%New()
 	Set ..Logger = ##class(vhLib.Logger).%New("APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective")
 	Set ..MailApi = $$$Inject(MailApi, ##class(TECH.Context).Instance().GeefMailAPI())
+	Set ..BatchPitchExportedRepository = ##class(APPS.Halux.Planning.Pitching.impl.BatchPitchExportedRepository).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -55,21 +84,43 @@
 </Method>
 
 <Method name="VerwerkUitvoeringInfoLijst">
-<FormalSpec>Lijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst</FormalSpec>
+<FormalSpec>Lijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst,ActiviteitParameters:APPS.Halux.PPS.Activiteit.ActiviteitParameters,ActieParameters:%ListOfDataTypes="",IsTriggerResetBatch:%Boolean=0</FormalSpec>
 <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 UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo = Lijst.GetAt(1)
 	
-	#dim BatchData As %ListOfObjects = ..GenereerBatchDataVoorUitvoeringInfoLijst(Lijst)
-	Do ..ExporteerDataNaarXmlDocument(BatchData)
+	#dim IsBatchAlGeexporteerd As %Boolean = $$$False
+	If $IsObject(UitvoeringInfo) {
+		Set IsBatchAlGeexporteerd = ..BatchPitchExportedRepository.IsBatchExported(UitvoeringInfo.BatchID)
+	}
+	#dim FilterToeleveringId As %String = ""
 	
-	Set UitvoeringStatus = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).Succes()
+	If ($$$Not(IsTriggerResetBatch) && ((IsBatchAlGeexporteerd) && $$$Not(..BevatBatchVhoss(Lijst)))) {
+		If ($$$Not(ActieParameters = "")) {
+			Set ActieParameterIterator = ##class(TECH.ListIterator).%New(ActieParameters)
+			If (ActieParameterIterator.HasNext()) {
+				Set FilterToeleveringId = ActieParameterIterator.Next()
+			}
+		}  Else {
+			Set UitvoeringStatus = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).Fout()
+		}
+	}
+	
+	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()
+	}
+	
 	Quit UitvoeringStatus
 ]]></Implementation>
 </Method>
 
 <Method name="GenereerBatchDataVoorUitvoeringInfoLijst">
-<FormalSpec>UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst</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[
@@ -80,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)
+				Set BatchDataLijst = ..GeefVhossBatchDataLijst(Batch, UitvoeringInfoLijstIterator, UitvoeringInfoLijst.Size, SuffixId, UitvoeringLijstNummer)
 			} Else {
-				Set BatchDataLijst = ..GeefStandaardBatchDataLijst(Batch, UitvoeringInfoLijstIterator)
-			}	
-			
+				Set BatchDataLijst = ..GeefStandaardBatchDataLijst(Batch, UitvoeringInfoLijstIterator, SuffixId, FilterToeleveringId)
+			}
 		}
 	}
 		
@@ -96,82 +147,117 @@
 </Method>
 
 <Method name="GeefVhossBatchDataLijst">
-<FormalSpec>Batch:APPS.Halux.common.Batch,UitvoeringInfoLijstIterator:TECH.Iterator</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()
-	
-	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 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, 1)
+		#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))
-		
+	
 		While ToeleveringenIterator.HasNext() {		
-			Set ToeleveringId = ToeleveringenIterator.Next().GeefID()
+			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 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()
+	
+	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()
+	
+	Quit ##class(TECH.ListIterator).%New(LijstVanToeleveringenInVolgordeVanSequentieNummer)
+]]></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,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()
-		#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))
-			Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator))
-			
-			Do BatchDataLijst.Insert(BatchData)
+		#dim IteratieNrSequentieNummers As %Integer = 0
+		If ((($$$Not(FilterToeleveringId = "") && (ToeleveringId = FilterToeleveringId)) || (FilterToeleveringId = ""))) {
+			#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringId)
+			#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="IsAantalLadesToegestaan">
-<FormalSpec>AantalLades:%Integer,BatchId:%String,UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst,ToeleveringId:%String=""</FormalSpec>
+<Method name="GeefAantalLadesInToelevering">
+<FormalSpec>ToeleveringId:%String,UitvoeringInfoLijstIterator:TECH.Iterator</FormalSpec>
 <Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
+<ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-	#dim IsToegestaan As %Boolean = $$$True
+	#dim AantalLades As %Integer = 0
 	
-	#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
+	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 IsToegestaan
+	Quit AantalLades
 ]]></Implementation>
 </Method>
 
@@ -200,36 +286,37 @@
 <FormalSpec>BatchDataLijst:%ListOfObjects</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.BatchId, Index, "xml")
+	While (BatchDataIterator.HasNext()) {
+		Set BatchDataIndex = BatchDataIndex + 1
+		#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()
 		
-		Do ..Logger.Debug("GenereerBatchDataVoorUitvoeringInfoLijst", "XML bestand gegenereerd voor Batch '" _ BatchData.BatchId _ "' en toelevering '"_ BatchData.ToeleveringId _ "' op locatie '" _ BestandVolledigNaam _ "'")
+		Do ..Logger.Debug("GenereerBatchDataVoorUitvoeringInfoLijst", "XML bestand gegenereerd voor Batch '" _ BatchData.GebruikersVelden.TekstVelden.BatchId _ "' en toelevering '"_ BatchData.GebruikersVelden.TekstVelden.ToeleveringId _ "' op locatie '" _ BestandVolledigNaam _ "'")
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="GeefBestandVolledigeNaam">
-<FormalSpec>BatchId:%String,Index:%Integer,Extensie:TECH.String</FormalSpec>
+<FormalSpec>BatchId:%String,BatchIndex:%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)
+	#dim BestandVolledigeNaam As %String = ##class(TECH.Files).AppendFile(BestandLocatie, BatchId _ "_" _ BatchIndex)
+	Set BestandVolledigeNaam = BestandVolledigeNaam _ "." _ Extensie
 	
 	Quit BestandVolledigeNaam
 ]]></Implementation>
@@ -253,27 +340,64 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ZendMailNaarHalux">
-<FormalSpec>Inhoud:%String</FormalSpec>
+<Method name="BevatVhossVerpakking">
+<Abstract>1</Abstract>
+<FormalSpec>ProductId:%String</FormalSpec>
 <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("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 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="BevatVhossVerpakking">
-<Abstract>1</Abstract>
-<FormalSpec>ProductId:%String</FormalSpec>
+<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>