Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml
===================================================================
diff -u -r73785 -r73892
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 73785)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 73892)
@@ -89,14 +89,7 @@
 <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 MaximumAantalLadesProductieOrder As %Integer = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MaximumAantalLadesProductieOrder")
-	#dim AantalLadesInLijst As %Integer = Lijst.Size
 	
-	If (AantalLadesInLijst > MaximumAantalLadesProductieOrder)
-	{
-		Do ..ZendMailMaxAantalLadesOverschreden(UitvoeringInfo.BatchID)
-	}
-	
 	#dim IsBatchAlGeexporteerd As %Boolean = $$$False
 	If $IsObject(UitvoeringInfo) {
 		Set IsBatchAlGeexporteerd = ..BatchPitchExportedRepository.IsBatchExported(UitvoeringInfo.BatchID)
@@ -114,7 +107,7 @@
 		}
 	}
 	
-	If $$$Not(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)
@@ -157,30 +150,36 @@
 <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)
 	
-	#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)
+		Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..BatchNaarObjectiveDataGenerator.GenereerAlgemeneInfoOptiesVoorBatch(Batch))
+		Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator))
 	
-	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)
+		While ToeleveringenIterator.HasNext() {		
+			Set ToeleveringId = ToeleveringenIterator.Next()
+			Set Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringId)
 		
-		Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator))
-	}
+			Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator))
+		}
 	
-	Do BatchDataLijst.Insert(BatchData)
-
+		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()
@@ -204,16 +203,22 @@
 <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)
-			
-			If (AantalLadesInToelevering > 0) {
+			#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()))
@@ -224,6 +229,10 @@
 		}
 	}
 	
+	If (Minstens1ToelevMetTeVeelLades) {
+		Do BatchDataLijst.Clear()	
+	}
+	
 	Quit BatchDataLijst
 ]]></Implementation>
 </Method>
@@ -334,17 +343,35 @@
 <ReturnType>%Boolean</ReturnType>
 </Method>
 
-<Method name="ZendMailMaxAantalLadesOverschreden">
+<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("planning_halux@vanhoecke.be")
+	Do Mail.VoegToeOntvanger(MailNaar)
 
 	Do ..MailApi.VerstuurMail(Mail)
 ]]></Implementation>