Index: APPS/Halux/Planning/Pitching/impl/BatchPitchDataExporter.cls.xml
===================================================================
diff -u -r71883 -r74429
--- APPS/Halux/Planning/Pitching/impl/BatchPitchDataExporter.cls.xml	(.../BatchPitchDataExporter.cls.xml)	(revision 71883)
+++ APPS/Halux/Planning/Pitching/impl/BatchPitchDataExporter.cls.xml	(.../BatchPitchDataExporter.cls.xml)	(revision 74429)
@@ -1,13 +1,23 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.Planning.Pitching.impl.BatchPitchDataExporter">
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
 
+<Parameter name="MESFaseActief">
+<Type>%Integer</Type>
+<Default>1</Default>
+</Parameter>
+
 <Property name="MESService">
 <Type>APPS.Halux.PPS.MES.MESService</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="BatchService">
+<Type>APPS.Halux.common.BatchService</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="BatchPitchedRepository">
 <Type>APPS.Halux.Planning.Pitching.impl.BatchPitchedRepository</Type>
 <Private>1</Private>
@@ -29,7 +39,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>MESService:APPS.Halux.PPS.MES.MESService="",BatchPitchedRepository:APPS.Halux.Planning.Pitching.impl.BatchPitchedRepository="",BatchNaarObjectiveUitvoeringInfoRepository:APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfoRepository="",Logger:vhLib.Logger="",BatchPitchExportedService:APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService=""</FormalSpec>
+<FormalSpec>MESService:APPS.Halux.PPS.MES.MESService="",BatchPitchedRepository:APPS.Halux.Planning.Pitching.impl.BatchPitchedRepository="",BatchNaarObjectiveUitvoeringInfoRepository:APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfoRepository="",Logger:vhLib.Logger="",BatchPitchExportedService:APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService="",BatchService:APPS.Halux.common.BatchService=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -38,23 +48,24 @@
 	Set ..MESService = $$$Inject(MESService, ##class(APPS.Halux.PPS.MES.MESService).%New())
 	Set ..BatchPitchedRepository = $$$Inject(BatchPitchedRepository, ##class(APPS.Halux.Planning.Pitching.impl.BatchPitchedRepository).%New())
 	Set ..BatchNaarObjectiveUitvoeringInfoRepository = $$$Inject(BatchNaarObjectiveUitvoeringInfoRepository, ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfoRepository).%New())
-	Set ..BatchPitchExportedService = $$$Inject(BatchPitchExportedService, ##class(APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService).%New())
+	Set ..BatchPitchExportedService = $$$Inject(BatchPitchExportedService, ##class(APPS.Halux.PPS.Activiteit.impl.common.BatchNaarObjectiveIoCContainer).Instance().Resolve("BatchPitchExportedService"))
 	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New("APPS.Halux.Planning.Pitching.impl.BatchPitchDataExporter"))
+	Set ..BatchService = $$$Inject(BatchService, ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService())
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="ExporteerBatchPitchedDataNaarObjective">
 <Implementation><![CDATA[
-	#dim MESFaseActief As %Integer = 1
 	#dim BatchesPitched As TECH.Iterator = ..BatchPitchedRepository.ZoekAlleGesorteerd("Pitchorde")
 
 	While BatchesPitched.HasNext() {
 		#dim PitchedBatch As APPS.Halux.Planning.Pitching.dto.BatchPitched = BatchesPitched.Next()
 		#dim Batch As APPS.Halux.common.impl.BatchImpl = PitchedBatch.Batch
+		#dim CategorTLM As %Boolean = ((Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Tandembox()) ||(Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Legrabox()) ||(Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Merivobox()))
 
-		If (..MESService.IsActiefVoorMes(Batch.GeefLijn(), MESFaseActief)) {
+		If (..MESService.IsActiefVoorMes(Batch.GeefLijn(), ..#MESFaseActief) && CategorTLM) {
 			Try {
 				If ((Batch.IsReedsGestart()) && ($$$Not(..IsBatchExported(Batch.GeefID())))) {
 					Do ..BatchPitchExportedService.BepaalVolgnummerEnBewaar(PitchedBatch)
@@ -66,14 +77,35 @@
 				}
 			} Catch {
 				#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-				Do ..Logger.Error("ExporteerBatchPitchedDataNaarObjective", Exception.GeefOmschrijving())
+				Do ..Logger.ErrorMail("ExporteerBatchPitchedDataNaarObjective", Exception.GeefOmschrijving())
 			}
 			
 		}
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="ExporteerBatchPitchedDataNaarObjectiveVoorBatch">
+<Description>
+Wordt opgeroepen bij het resetten van een batch</Description>
+<FormalSpec>BatchID:%String,IsTriggerResetBatch:%Boolean=0</FormalSpec>
+<Implementation><![CDATA[
+	#dim Batch As APPS.Halux.common.impl.BatchImpl = ..BatchService.GeefBatch(BatchID)
+	#dim CategorTLM As %Boolean = ((Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Tandembox()) ||(Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Legrabox()) ||(Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Merivobox()))
+	
+	If (..MESService.IsActiefVoorMes(Batch.GeefLijn(), ..#MESFaseActief) && CategorTLM) {
+		Try {
+			If ((Batch.IsReedsGestart()) && ((..IsBatchExported(Batch.GeefID())))) {
+				#dim IsVerzondenNaarObjective As %Boolean = ..TriggerBatchNaarObjectiveAansturingActie(Batch, IsTriggerResetBatch)
+			}
+		} Catch {
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			Do ..Logger.Error("ExporteerBatchPitchedDataNaarObjectiveVoorBatch", Exception.GeefOmschrijving())
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="IsBatchExported">
 <FormalSpec>BatchId:%String</FormalSpec>
 <Private>1</Private>
@@ -83,8 +115,8 @@
 	#dim BatchPitchExportList As %ListOfObjects = ..BatchPitchExportedService.ZoekViaBatchId(BatchId)
 	
 	If (BatchPitchExportList.Size = 1) {
-		#dim BatchPitchExportedDto As APPS.Halux.Planning.Pitching.dto.BatchPitchExported = BatchPitchExportList.GetAt(1)
-		Set IsBatchExported = BatchPitchExportedDto.IsExported
+		#dim BatchPitchExported As APPS.Halux.Planning.Pitching.BatchPitchExported = BatchPitchExportList.GetAt(1)
+		Set IsBatchExported = BatchPitchExported.IsExported
 	} ElseIf (BatchPitchExportList.Size = 0) {
 		Set IsBatchExported = $$$False
 	} Else {
@@ -97,7 +129,7 @@
 </Method>
 
 <Method name="TriggerBatchNaarObjectiveAansturingActie">
-<FormalSpec>Batch:APPS.Halux.common.impl.BatchImpl</FormalSpec>
+<FormalSpec>Batch:APPS.Halux.common.impl.BatchImpl,IsTriggerResetBatch:%Boolean=0</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
@@ -107,16 +139,13 @@
 	
 	If (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Legrabox()) {
 		Set AansturingActie = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective).%New()
-		Set UitvoeringInfoIterator = ..BatchNaarObjectiveUitvoeringInfoRepository.ZoekViaBatchId(Batch.GeefID())
-		Set UitvoeringInfoLijst = ##class(TECH.ListUtils).IteratorToList(UitvoeringInfoIterator)
-		
-		Do AansturingActie.VerwerkUitvoeringInfoLijst(UitvoeringInfoLijst)
+		Do ..VerwerkAansturingActie(AansturingActie, Batch, IsTriggerResetBatch)
 	} ElseIf (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Tandembox()) {
 		Set AansturingActie = ##class(APPS.Halux.PPS.Document.impl.TBX.BatchNaarObjective).%New()
-		Set UitvoeringInfoIterator = ..BatchNaarObjectiveUitvoeringInfoRepository.ZoekViaBatchId(Batch.GeefID())
-		Set UitvoeringInfoLijst = ##class(TECH.ListUtils).IteratorToList(UitvoeringInfoIterator)
-		
-		Do AansturingActie.VerwerkUitvoeringInfoLijst(UitvoeringInfoLijst)
+		Do ..VerwerkAansturingActie(AansturingActie, Batch, IsTriggerResetBatch)
+	} ElseIf (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Merivobox()) {
+		Set AansturingActie = ##class(APPS.Halux.PPS.Document.impl.MVX.BatchNaarObjective).%New()
+		Do ..VerwerkAansturingActie(AansturingActie, Batch, IsTriggerResetBatch)
 	} Else {
 		Set VerzondenNaarObjective = $$$False
 		Set Exception = ##class(TECH.Exceptions.NotSupportedException).%New(..%ClassName(1), "TriggerBatchNaarObjectiveAansturingActie voor categorie '" _ Batch.GeefCategorie() _ "'.")
@@ -126,6 +155,17 @@
 	Quit VerzondenNaarObjective
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkAansturingActie">
+<FormalSpec>AansturingActie:APPS.Halux.PPS.Document.impl.common.BatchNaarObjective,Batch:APPS.Halux.common.impl.BatchImpl,IsTriggerResetBatch:%Boolean=0</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim UitvoeringInfoIterator As TECH.Iterator = ..BatchNaarObjectiveUitvoeringInfoRepository.ZoekViaBatchId(Batch.GeefID())
+	#dim UitvoeringInfoLijst As %ListOfObjects = ##class(TECH.ListUtils).IteratorToList(UitvoeringInfoIterator)
+		
+	Do AansturingActie.VerwerkUitvoeringInfoLijst(UitvoeringInfoLijst,,, IsTriggerResetBatch)
+]]></Implementation>
+</Method>
 </Class>