Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml
===================================================================
diff -u -r73781 -r73785
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 73781)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 73785)
@@ -88,12 +88,15 @@
 <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)
-	Set ..LaatstGebruikteToeleveringID = UitvoeringInfo.ToeleveringID
+	#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)
@@ -111,24 +114,10 @@
 		}
 	}
 	
-	#dim LaatstGebruikteToeleveringID = UitvoeringInfo.ToeleveringID
 	If $$$Not(UitvoeringStatus = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).Fout()) {
-		#dim IndexUitvoeringInfoLijstGesplitst As %Integer = 1
-		#dim IndexSuffixId As %Integer = 1
-		While UitvoeringInfoIterator.HasNext() {
-			#dim UitvoeringInfoLijst As APPS.Halux.PPS.dto.UitvoeringInfoLijst = UitvoeringInfoIterator.Next()
-			If ($$$Not(LaatstGebruikteToeleveringID = UitvoeringInfoLijst.GetAt(1).ToeleveringID)) {
-				Set LaatstGebruikteToeleveringID = UitvoeringInfoLijst.GetAt(1).ToeleveringID
-				Set IndexSuffixId = 1
-			}
-			
-			#dim SuffixId As %String = ..GeefSuffixId(AantalUitSublijstenUitvoeringInfo, IndexSuffixId)
-			#dim BatchData As %ListOfObjects = ..GenereerBatchDataVoorUitvoeringInfoLijst(UitvoeringInfoLijst, SuffixId, IndexUitvoeringInfoLijstGesplitst, FilterToeleveringId)
-			Do ..ExporteerDataNaarXmlDocument(BatchData, SuffixId)
-			
-			Set IndexUitvoeringInfoLijstGesplitst = $Increment(IndexUitvoeringInfoLijstGesplitst)
-			Set IndexSuffixId = $Increment(IndexSuffixId)
-		}
+		#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()
 	}
@@ -137,52 +126,6 @@
 ]]></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")
-	#dim LaatstGebruikteToeleveringNr = UitvoeringInfoLijst.GetAt(1).ToeleveringID
-	
-	Set UitvoeringInfoSubLijst = ##class(APPS.Halux.PPS.dto.UitvoeringInfoLijst).%New()
-	#dim Index As %Integer = 1
-	While (Index <= AantalLades) {
-		Set UitvoeringInfo = UitvoeringInfoLijst.GetAt(Index)
-		
-		If (($$$Not(LaatstGebruikteToeleveringNr = UitvoeringInfo.ToeleveringID) && $$$Not(..BevatBatchVhoss(UitvoeringInfoLijst)))
-			|| (((UitvoeringInfoSubLijst.Count() # MaximumAantalLadesProductieOrder) = 0) && $$$Not(UitvoeringInfoSubLijst.Count() = 0)))
-		{
-			Do UitvoeringInfoLijstGesplitst.Insert(UitvoeringInfoSubLijst)
-			Set UitvoeringInfoSubLijst =  ##class(APPS.Halux.PPS.dto.UitvoeringInfoLijst).%New()
-			Do UitvoeringInfoSubLijst.Insert(UitvoeringInfo)
-		} Else {
-			Do UitvoeringInfoSubLijst.Insert(UitvoeringInfo)	
-		}
-		
-		Set Index = $Increment(Index)		
-		Set LaatstGebruikteToeleveringNr = UitvoeringInfo.ToeleveringID
-	}
-	
-	Do UitvoeringInfoLijstGesplitst.Insert(UitvoeringInfoSubLijst)
-	
-	Quit UitvoeringInfoLijstGesplitst
-]]></Implementation>
-</Method>
-
-<Method name="GeefSuffixId">
-<FormalSpec>AantalUitSublijstenUitvoeringInfo:%Integer,IndexUitvoeringInfoLijstGesplitst:%Integer</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim SuffixId As %String = $Select((AantalUitSublijstenUitvoeringInfo > 1): IndexUitvoeringInfoLijstGesplitst, 1: "")
-	
-	Quit SuffixId
-]]></Implementation>
-</Method>
-
 <Method name="GenereerBatchDataVoorUitvoeringInfoLijst">
 <FormalSpec>UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst,SuffixId:%String,UitvoeringLijstNummer:%Integer,FilterToeleveringId:%String=""</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
@@ -263,8 +206,6 @@
 	#dim ToeleveringenIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
 	Do ToeleveringenIterator.Reset()
 	
-	#dim MaximumAantalLadesProductieOrder As %Integer = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MaximumAantalLadesProductieOrder")
-	
 	While ToeleveringenIterator.HasNext() {
 		#dim ToeleveringId As %String = ToeleveringenIterator.Next().GeefID()
 		#dim IteratieNrSequentieNummers As %Integer = 0
@@ -280,7 +221,6 @@
 				
 				Do BatchDataLijst.Insert(BatchData)
 			}
-			
 		}
 	}
 	
@@ -330,24 +270,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()) {
+		Set BatchDataIndex = BatchDataIndex + 1
 		#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = BatchDataIterator.Next()
-		If ($$$Not( $Piece(BatchData.Id, "_", 1) = ..LaatstGebruikteToeleveringID)) {
-			Set ..LaatstGebruikteToeleveringIDIndex = ..LaatstGebruikteToeleveringIDIndex + 1
-			Set ..FileIndexVoorToelevering = 1
-			Set ..LaatstGebruikteToeleveringID = $Piece(BatchData.Id, "_", 1)
-		} Else {
-			Set ..FileIndexVoorToelevering = ..FileIndexVoorToelevering + 1
-		}
 		
-		#dim BestandVolledigNaam As %String = ..GeefBestandVolledigeNaam(BatchData.GebruikersVelden.TekstVelden.BatchId, ..LaatstGebruikteToeleveringIDIndex, ..FileIndexVoorToelevering, "xml")
+		#dim BestandVolledigNaam As %String = ..GeefBestandVolledigeNaam(BatchData.GebruikersVelden.TekstVelden.BatchId, BatchDataIndex, "xml")
 		Do FileWriter.Open(BestandVolledigNaam)
 		Do FileWriter.WriteXML(BatchData)
 		Do FileWriter.Close()
@@ -358,7 +292,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[
@@ -368,14 +302,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
@@ -406,6 +333,22 @@
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 </Method>
+
+<Method name="ZendMailMaxAantalLadesOverschreden">
+<FormalSpec>BatchID:%String,MaximumAantalLadesProductieOrder:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#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 ..MailApi.VerstuurMail(Mail)
+]]></Implementation>
+</Method>
 </Class>