Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml
===================================================================
diff -u -r71684 -r71827
--- 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 71827)
@@ -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,18 @@
 <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>
+
 <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 +40,8 @@
 	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())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -68,62 +75,123 @@
 <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
 		
-		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
-				
-				#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = ..GeefBatchData(Batch, Toelevering, IndexToelevering, UitvoeringInfoLijstIterator)
-				Do BatchDataLijst.Insert(BatchData)
-			}
+		If (..MESService.IsActiefVoorMes(Batch.GeefLijn(), MesFaseActief)) {	
+			If (..BevatBatchVhoss(UitvoeringInfoLijst)) {
+				Set BatchDataLijst = ..GeefVhossBatchDataLijst(Batch, UitvoeringInfoLijstIterator)
+			} Else {
+				Set BatchDataLijst = ..GeefStandaardBatchDataLijst(Batch, UitvoeringInfoLijstIterator)
+			}	
+			
 		}
 	}
 		
 	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="GeefVhossBatchDataLijst">
+<FormalSpec>Batch:APPS.Halux.common.Batch,UitvoeringInfoLijstIterator:TECH.Iterator</FormalSpec>
 <Private>1</Private>
-<ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData</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)
+	Set BatchDataLijst = ##class(%ListOfObjects).%New()
 	
-	Quit BatchData
+	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 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)
+		
+		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 Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringId)
+			
+			Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator))
+		}
+		
+		Do BatchDataLijst.Insert(BatchData)
+	}
+
+	Quit BatchDataLijst
 ]]></Implementation>
 </Method>
 
+<Method name="GeefStandaardBatchDataLijst">
+<FormalSpec>Batch:APPS.Halux.common.Batch,UitvoeringInfoLijstIterator:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set BatchDataLijst = ##class(%ListOfObjects).%New()
+	#dim ToeleveringenIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
+	#dim IndexToelevering As %Integer = 0
+	
+	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)
+		}
+	}
+	
+	Quit BatchDataLijst
+]]></Implementation>
+</Method>
+
+<Method name="IsAantalLadesToegestaan">
+<FormalSpec>AantalLades:%Integer,BatchId:%String,UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst,ToeleveringId:%String=""</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsToegestaan As %Boolean = $$$True
+	
+	#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
+	}
+	
+	Quit IsToegestaan
+]]></Implementation>
+</Method>
+
 <Method name="GeefOptiesVoorToelevering">
 <FormalSpec>Toelevering:DOM.AKP.Toelevering,UitvoeringInfoLijstIterator:TECH.Iterator</FormalSpec>
 <Private>1</Private>
 <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>
@@ -144,7 +212,7 @@
 		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.BatchId _ "' en toelevering '"_ BatchData.ToeleveringId _ "' op locatie '" _ BestandVolledigNaam _ "'")
 	}
 ]]></Implementation>
 </Method>
@@ -166,6 +234,47 @@
 	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="ZendMailNaarHalux">
+<FormalSpec>Inhoud:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#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 ..MailApi.VerstuurMail(Mail)
+]]></Implementation>
+</Method>
+
+<Method name="BevatVhossVerpakking">
+<Abstract>1</Abstract>
+<FormalSpec>ProductId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+</Method>
 </Class>