Index: APPS/Halux/Planning/impl/BatchStarter.cls.xml
===================================================================
diff -u -r73385 -r74778
--- APPS/Halux/Planning/impl/BatchStarter.cls.xml	(.../BatchStarter.cls.xml)	(revision 73385)
+++ APPS/Halux/Planning/impl/BatchStarter.cls.xml	(.../BatchStarter.cls.xml)	(revision 74778)
@@ -48,8 +48,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="MESService">
+<Type>APPS.Halux.PPS.MES.MESService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>BatchBewaarder:APPS.Halux.Planning.BatchBewaarder,BatchSequentieService:APPS.Halux.common.impl.SequentieService,BatchSequentieVerwijderaar:APPS.Halux.Planning.impl.BatchSequentieVerwijderaar,Logger:vhLib.Logger,DnaCodeService:APPS.Halux.AAP.DnaCodeService,MatService:APPS.Halux.PPS.MatService,DocumentGeneratorService:APPS.Halux.PPS.DocumentGeneratorService,BatchService:APPS.Halux.common.impl.BatchService="",BatchPitchDataExporter:APPS.Halux.Planning.Pitching.impl.BatchPitchDataExporter=""</FormalSpec>
+<FormalSpec>BatchBewaarder:APPS.Halux.Planning.BatchBewaarder,BatchSequentieService:APPS.Halux.common.impl.SequentieService,BatchSequentieVerwijderaar:APPS.Halux.Planning.impl.BatchSequentieVerwijderaar,Logger:vhLib.Logger,DnaCodeService:APPS.Halux.AAP.DnaCodeService,MatService:APPS.Halux.PPS.MatService,DocumentGeneratorService:APPS.Halux.PPS.DocumentGeneratorService,BatchService:APPS.Halux.common.impl.BatchService="",BatchPitchDataExporter:APPS.Halux.Planning.Pitching.impl.BatchPitchDataExporter="",MESService:APPS.Halux.PPS.MES.MESService=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -64,6 +69,7 @@
 	Set ..DocumentGeneratorService = $$$Inject(DocumentGeneratorService, ##class(APPS.Halux.PPS.DocumentGeneratorService).%New())
 	Set ..BatchService = $$$Inject(BatchService, ##class(APPS.Halux.common.impl.BatchService).%New())
 	Set ..BatchPitchDataExporter = $$$Inject(BatchPitchDataExporter, ##class(APPS.Halux.Planning.Pitching.impl.BatchPitchDataExporter).%New())
+	Set ..MESService = $$$Inject(MESService, ##class(APPS.Halux.PPS.MES.MESService).%New())
 
 	Quit $$$OK
 ]]></Implementation>
@@ -97,6 +103,8 @@
 		
 		If (IsTriggerResetBatch) {
 			Do ..ExporteerBatchPitchedDataNaarObjectiveVoorBatch(Batch.GeefID(), IsTriggerResetBatch)
+		} Else {
+			Do ..UpdateSalesLineStatusNaarKlaargezet(Batch)
 		}
 		
 		Do Batch.ZetStatus(##class(APPS.Halux.common.enu.BatchStatus).Gestart())
@@ -168,6 +176,38 @@
 <Implementation><![CDATA[	Do ..BatchPitchDataExporter.ExporteerBatchPitchedDataNaarObjectiveVoorBatch(BatchID, IsTriggerResetBatch)
 ]]></Implementation>
 </Method>
+
+<Method name="UpdateSalesLineStatusNaarKlaargezet">
+<FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim CategorTLM As %Boolean = ##class(TECH.StringUtils).Equals(Batch.GeefCategorie(), ##class(APPS.Halux.common.enu.Categorie).Tandembox(), ##class(APPS.Halux.common.enu.Categorie).Legrabox(), ##class(APPS.Halux.common.enu.Categorie).Merivobox())
+	
+	If ((CategorTLM) && (..MESService.GeefHuidigeMESFase() > 1) && $$$Not(..IsTestRunTimeContext())) {
+		#dim ToeleveringIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
+	
+		While ToeleveringIterator.HasNext()
+		{
+			#dim Toelevering As DOM.AKP.Toelevering = ToeleveringIterator.Next()		
+			#dim ToeleveringLijnIterator As DOM.AKP.impl.DataM.DataMToeleveringLijnIterator = Toelevering.GeefToeleveringLijnIterator()
+		
+			While (ToeleveringLijnIterator.HasNext()) {
+				#dim ProductToeleveringLijn As DOM.AKP.impl.DataM.DataMProductToeleveringLijn = ToeleveringLijnIterator.Next()
+				Set ProductToeleveringLijnKlaargezetVoorProductieEventData = ##class(BL.Legacy.HaluxProductieOpvolging.ProductToeleveringLijnKlaargezetVoorProductieEventData).%New(Toelevering.GeefID()_";"_ProductToeleveringLijn.GeefID(), "Klaargezet")
+			 	Set ProductToeleveringLijnKlaargezetVoorProductieEvent = ##class(BL.Legacy.HaluxProductieOpvolging.ProductToeleveringLijnKlaargezetVoorProductieEvent).%New(ProductToeleveringLijnKlaargezetVoorProductieEventData)
+			 	Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(ProductToeleveringLijnKlaargezetVoorProductieEvent)
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="IsTestRunTimeContext">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).Equals(##class(TECH.Context.RuntimeContext).Instance().GeefApplicatie(), "UnitTest","IntegratieTest")
+]]></Implementation>
+</Method>
 </Class>