Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective.cls.xml
===================================================================
diff -u -r71461 -r71466
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71461)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71466)
@@ -10,8 +10,14 @@
 
 <Property name="BatchNaarObjectiveDataGenerator">
 <Type>APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.BatchNaarObjectiveDataGenerator</Type>
+<Private>1</Private>
 </Property>
 
+<Property name="MESService">
+<Type>APPS.Halux.PPS.MES.MESService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>ToeleveringApi:DOM.AKP.ToeleveringAPI="",BatchNaarObjectiveDataGenerator:APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.BatchNaarObjectiveDataGenerator=""</FormalSpec>
 <Private>1</Private>
@@ -21,6 +27,7 @@
 <Implementation><![CDATA[
 	Set ..ToeleveringApi = $$$Inject(ToeleveringApi,##class(DOM.DomeinContext).Instance().GeefToeleveringAPI())
 	Set ..BatchNaarObjectiveDataGenerator = $$$Inject(BatchNaarObjectiveDataGenerator, ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.BatchNaarObjectiveDataGenerator).%New())
+	Set ..MESService = ##class(APPS.Halux.PPS.MES.MESService).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -53,7 +60,7 @@
 		#dim ToeleveringenIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
 		#dim UitvoeringInfoLijstIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
 		
-		If (..IsActiefVoorMES(Batch.GeefLijn())) {
+		If (..MESService.IsActiefVoorMes(Batch.GeefLijn(), 1)) {
 			While ToeleveringenIterator.HasNext() {
 				#dim ToeleveringId As %String = ToeleveringenIterator.Next().GeefID()
 				#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringId)
@@ -77,31 +84,13 @@
 				Do UitvoeringInfoLijstIterator.Reset()
 				Do BatchDataLijst.Insert(BatchData)
 			}	
-		}	
+		}
 	}
 		
 	Quit BatchDataLijst
 ]]></Implementation>
 </Method>
 
-<Method name="IsActiefVoorMES">
-<FormalSpec>ProductieLijn:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim IsActief As %Boolean = $$$False
-	#dim MESFase As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESFase")
-	#dim MESProductieLijnenActief As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESProductieLijnenActief")
-	#dim MESProductieLijnenActiefLijst As %ListOfDataTypes = ##class(TECH.ListUtils).PiecesToList(MESProductieLijnenActief, ";")
-	
-	If (MESFase > 0 && ##class(TECH.ListUtils).Contains(MESProductieLijnenActiefLijst, ProductieLijn)) {
-		Set IsActief = $$$True
-	}
-	
-	Quit IsActief
-]]></Implementation>
-</Method>
-
 <Method name="ExporteerDataNaarXmlDocument">
 <FormalSpec>BatchDataLijst:%ListOfObjects</FormalSpec>
 <Private>1</Private>