Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml
===================================================================
diff -u -r71792 -r71795
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71792)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71795)
@@ -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">
@@ -24,8 +25,13 @@
 <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>
@@ -35,6 +41,7 @@
 	Set ..BatchNaarObjectiveDataGenerator = $$$Inject(BatchNaarObjectiveDataGenerator, ..GeefBatchNaarObjectiveDataGenerator())
 	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())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -158,7 +165,8 @@
 		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.Error("VerifieerIsAantalLadesToegestaan", Exception.GeefErrorInformatie())
+		Do ..Logger.ErrorMail("VerifieerIsAantalLadesToegestaan", Exception.GeefErrorInformatie())
+		Do ..ZendMailNaarHalux(Exception.GeefErrorInformatie())
 		
 		Set IsToegestaan = $$$False
 	}
@@ -246,6 +254,22 @@
 ]]></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>