Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml
===================================================================
diff -u -r71684 -r74859
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71684)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 74859)
@@ -2,6 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.Document.impl.common.BatchNaarObjective">
 <Abstract>1</Abstract>
+<IncludeCode>vhLib.Macro</IncludeCode>
 <Super>APPS.Halux.PPS.Activiteit.impl.UitvoeringInfoLijstVerwerkerBasis</Super>
 
 <Property name="ToeleveringApi">
@@ -19,13 +20,46 @@
 <Private>1</Private>
 </Property>
 
-<Property name="ToeleveringProductInfoOptiesGenerator">
-<Type>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ToeleveringProductInfoOptiesGenerator</Type>
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="MailApi">
+<Type>TECH.Mail.MailAPI</Type>
+<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=""</FormalSpec>
+<FormalSpec>ToeleveringApi:DOM.AKP.ToeleveringAPI="",BatchNaarObjectiveDataGenerator:APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.BatchNaarObjectiveDataGenerator="",MailApi:TECH.Mail.MailAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -34,7 +68,9 @@
 	Set ..ToeleveringApi = $$$Inject(ToeleveringApi,##class(DOM.DomeinContext).Instance().GeefToeleveringAPI())
 	Set ..BatchNaarObjectiveDataGenerator = $$$Inject(BatchNaarObjectiveDataGenerator, ..GeefBatchNaarObjectiveDataGenerator())
 	Set ..MESService = ##class(APPS.Halux.PPS.MES.MESService).%New()
-	Set ..ToeleveringProductInfoOptiesGenerator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ToeleveringProductInfoOptiesGenerator).%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>
@@ -48,59 +84,180 @@
 </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[
 	Set BatchDataLijst = ##class(%ListOfObjects).%New()
 	#dim MesFaseActief As %Integer = 1
-	
+
 	If (UitvoeringInfoLijst.Count() > 0) {
 		#dim BatchId As %String  = UitvoeringInfoLijst.GetAt(1).BatchID
 		#dim Batch As APPS.Halux.common.Batch  = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(BatchId)
-		#dim ToeleveringenIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
 		#dim UitvoeringInfoLijstIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
-		#dim IndexToelevering As %Integer = 0
+		#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)) {			
-			While ToeleveringenIterator.HasNext() {
-				#dim ToeleveringId As %String = ToeleveringenIterator.Next().GeefID()
-				#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringId)
-				Set IndexToelevering = IndexToelevering + 1
+		If (..MESService.IsActiefVoorMes(Batch.GeefLijn(), MesFaseActief) && CategorTLM) {	
+			If (..BevatBatchVhoss(UitvoeringInfoLijst)) {
+				Set BatchDataLijst = ..GeefVhossBatchDataLijst(Batch, UitvoeringInfoLijstIterator, UitvoeringInfoLijst.Size, SuffixId, UitvoeringLijstNummer)
+			} Else {
+				Set BatchDataLijst = ..GeefStandaardBatchDataLijst(Batch, UitvoeringInfoLijstIterator, SuffixId, FilterToeleveringId)
+			}
+		}
+	}
+		
+	Quit BatchDataLijst
+]]></Implementation>
+</Method>
+
+<Method name="GeefVhossBatchDataLijst">
+<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))
+	
+		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 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,SuffixId:%String,FilterToeleveringId:%String=""</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set BatchDataLijst = ##class(%ListOfObjects).%New()
+	#dim ToeleveringenIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
+	#dim Minstens1ToelevMetTeVeelLades As %Boolean = $$$False
+	Do ToeleveringenIterator.Reset()
+	
+	While ToeleveringenIterator.HasNext() {
+		#dim ToeleveringId As %String = ToeleveringenIterator.Next().GeefID()
+		#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")
 				
-				#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = ..GeefBatchData(Batch, Toelevering, IndexToelevering, UitvoeringInfoLijstIterator)
 				Do BatchDataLijst.Insert(BatchData)
 			}
 		}
 	}
-		
+	
+	If (Minstens1ToelevMetTeVeelLades) {
+		Do BatchDataLijst.Clear()	
+	}
+	
 	Quit BatchDataLijst
 ]]></Implementation>
 </Method>
 
-<Method name="GeefBatchData">
-<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering,IndexToelevering:%Integer,UitvoeringInfoLijstIterator:TECH.Iterator</FormalSpec>
+<Method name="GeefAantalLadesInToelevering">
+<FormalSpec>ToeleveringId:%String,UitvoeringInfoLijstIterator:TECH.Iterator</FormalSpec>
 <Private>1</Private>
-<ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData</ReturnType>
+<ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-	#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = ..BatchNaarObjectiveDataGenerator.GenereerBatchDataVoorToelevering(Batch, Toelevering, IndexToelevering)
-	Set BatchData.Opties = ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator)
+	#dim AantalLades As %Integer = 0
 	
-	Quit BatchData
+	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>
 
@@ -110,20 +267,17 @@
 <Implementation><![CDATA[
 	Set Opties = ##class(%ListOfObjects).%New()
 	
-	Do ##class(TECH.ListUtils).AppendList(Opties, ..ToeleveringProductInfoOptiesGenerator.GenereerOptiesVoorLade(Toelevering))				
-	
+	Do UitvoeringInfoLijstIterator.Reset()
 	While (UitvoeringInfoLijstIterator.HasNext()) {
 		#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo = UitvoeringInfoLijstIterator.Next()
-		
+				
 		If (UitvoeringInfo.ToeleveringID = Toelevering.GeefID()) {
 			#dim OptiesVoorAlleLades As %ListOfObjects = ..BatchNaarObjectiveDataGenerator.GenereerOptiesVoorLadePerUitvoeringInfo(Toelevering, UitvoeringInfo)
 			
 			Do ##class(TECH.ListUtils).AppendList(Opties, OptiesVoorAlleLades)
 		}
 	}
 	
-	Do UitvoeringInfoLijstIterator.Reset()
-	
 	Quit Opties
 ]]></Implementation>
 </Method>
@@ -132,40 +286,119 @@
 <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 ##class(vhLib.Logger).%New("APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective").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>
 </Method>
+
+<Method name="BevatBatchVhoss">
+<FormalSpec>UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim BevatBatchVhoss As %Boolean = $$$False
+	
+	If (UitvoeringInfoLijst.Size > 0) {
+		#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo = UitvoeringInfoLijst.GetAt(1)
+		#dim ProductId As %String = UitvoeringInfo.ProductID
+		
+		Set BevatBatchVhoss = ..BevatVhossVerpakking(ProductId)
+	}
+	
+	Quit BevatBatchVhoss
+]]></Implementation>
+</Method>
+
+<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("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>