Index: APPS/Halux/Planning/Pitching/impl/BatchPitchDataExporter.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Pitching/impl/BatchPitchDataExporter.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Pitching/impl/BatchPitchDataExporter.cls.xml	(revision 71505)
@@ -0,0 +1,110 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Pitching.impl.BatchPitchDataExporter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="BatchPitchedRepository">
+<Type>APPS.Halux.Planning.Pitching.impl.BatchPitchedRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BatchPitchExportedRepository">
+<Type>APPS.Halux.Planning.Pitching.impl.BatchPitchExportedRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BatchNaarObjectiveUitvoeringInfoRepository">
+<Type>APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfoRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>BatchPitchedRepository:APPS.Halux.Planning.Pitching.impl.BatchPitchedRepository="",BatchPitchExportedRepository:APPS.Halux.Planning.Pitching.impl.BatchPitchExportedRepository="",BatchNaarObjectiveUitvoeringInfoRepository:APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfoRepository="",Logger:vhLib.Logger=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..BatchPitchedRepository = $$$Inject(BatchPitchedRepository, ##class(APPS.Halux.Planning.Pitching.impl.BatchPitchedRepository).%New())
+	Set ..BatchPitchExportedRepository = $$$Inject(BatchPitchExportedRepository, ##class(APPS.Halux.Planning.Pitching.impl.BatchPitchExportedRepository).%New())
+	Set ..BatchNaarObjectiveUitvoeringInfoRepository = $$$Inject(BatchNaarObjectiveUitvoeringInfoRepository, ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfoRepository).%New())
+	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New("APPS.Halux.Planning.Pitching.impl.BatchPitchDataExporter"))
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ExporteerBatchPitchedDataNaarObjective">
+<Implementation><![CDATA[
+	#dim BatchesPitched As TECH.Iterator = ..BatchPitchedRepository.ZoekAlle()
+
+	While BatchesPitched.HasNext() {
+		#dim PitchedBatch As APPS.Halux.Planning.Pitching.dto.BatchPitched = BatchesPitched.Next()
+		#dim Batch As APPS.Halux.common.impl.BatchImpl = PitchedBatch.Batch
+				
+		If ((Batch.IsReedsGestart()) && ($$$Not(..IsBatchExported(Batch.GeefID())))) {
+			Do ..TriggerBatchNaarObjectiveAansturingActie(Batch)
+			Do ..MarkeerBatchAlsExportedNaarObjective(Batch.GeefID())
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="IsBatchExported">
+<FormalSpec>BatchId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsBatchExported As %Boolean = $$$True
+	#dim BatchPitchExportedIterator As TECH.Iterator = ..BatchPitchExportedRepository.ZoekViaBatchId(BatchId)
+	#dim BatchPitchExportList As %ListOfObjects = ##class(TECH.ListUtils).IteratorToList(BatchPitchExportedIterator)
+
+	If (BatchPitchExportList.Size = 1) {
+		#dim BatchPitchExportedDto As APPS.Halux.Planning.Pitching.dto.BatchPitchExported = BatchPitchExportList.GetAt(1)
+		Set IsBatchExported = BatchPitchExportedDto.IsExported
+	} ElseIf (BatchPitchExportList.Size = 0) {
+		Set IsBatchExported = $$$False
+	} Else {
+		Set Exception = ##class(TECH.Exceptions.DataCorruptException).%New("De batch kan niet naar Objective verzonden worden aangezien er reeds meerdere zijn verzonden voor BatchId '" _ BatchId _ "'.")
+		Do ..Logger.Error("IsBatchExported", Exception.GeefOmschrijving())
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	Quit IsBatchExported
+]]></Implementation>
+</Method>
+
+<Method name="TriggerBatchNaarObjectiveAansturingActie">
+<FormalSpec>Batch:APPS.Halux.common.impl.BatchImpl</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Legrabox()) {
+		Set AansturingActie = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective).%New()
+		#dim UitvoeringInfoIterator As TECH.Iterator = ..BatchNaarObjectiveUitvoeringInfoRepository.ZoekViaBatchId(Batch.GeefID())
+		#dim UitvoeringInfoLijst As %ListOfObjects = ##class(TECH.ListUtils).IteratorToList(UitvoeringInfoIterator)
+		
+		Do AansturingActie.VerwerkUitvoeringInfoLijst(UitvoeringInfoLijst)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MarkeerBatchAlsExportedNaarObjective">
+<FormalSpec>BatchId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set BatchPitchExportedDto = ##class(APPS.Halux.Planning.Pitching.dto.BatchPitchExported).%New()
+	Set BatchPitchExportedDto.BatchId = BatchId
+	Set BatchPitchExportedDto.IsExported = $$$True
+	
+	Do ..BatchPitchExportedRepository.Bewaar(BatchPitchExportedDto)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>