Index: APPS/Halux/Planning/Pitching/impl/BatchPitchDataExporter.cls.xml
===================================================================
diff -u -r71733 -r71753
--- APPS/Halux/Planning/Pitching/impl/BatchPitchDataExporter.cls.xml	(.../BatchPitchDataExporter.cls.xml)	(revision 71733)
+++ APPS/Halux/Planning/Pitching/impl/BatchPitchDataExporter.cls.xml	(.../BatchPitchDataExporter.cls.xml)	(revision 71753)
@@ -58,8 +58,11 @@
 			Try {
 				If ((Batch.IsReedsGestart()) && ($$$Not(..IsBatchExported(Batch.GeefID())))) {
 					Do ..BatchPitchExportedService.BepaalVolgnummerEnBewaar(PitchedBatch)
-					Do ..TriggerBatchNaarObjectiveAansturingActie(Batch)
-					Do ..BatchPitchExportedService.MarkeerBatchAlsExportedNaarObjective(Batch.GeefID())
+					#dim IsVerzondenNaarObjective As %Boolean = ..TriggerBatchNaarObjectiveAansturingActie(Batch)
+					
+					If (IsVerzondenNaarObjective) {
+						Do ..BatchPitchExportedService.MarkeerBatchAlsExportedNaarObjective(Batch.GeefID())
+					}
 				}
 			} Catch {
 				#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
@@ -96,17 +99,24 @@
 <Method name="TriggerBatchNaarObjectiveAansturingActie">
 <FormalSpec>Batch:APPS.Halux.common.impl.BatchImpl</FormalSpec>
 <Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
+	#dim VerzondenNaarObjective As %Boolean = $$$False
+
 	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)
+		
+		Set VerzondenNaarObjective = $$$True
 	} Else {
-		Set Exception = ##class(TECH.Exceptions.NotSupportedException).%New("'ExporteerBatchPitchedDataNaarObjective()' is niet geïmplementeerd voor '" _ Batch.GeefCategorie() _ "'.")
+		Set Exception = ##class(TECH.Exceptions.NotSupportedException).%New(..%ClassName(1), "TriggerBatchNaarObjectiveAansturingActie voor categorie '" _ Batch.GeefCategorie() _ "'.")
 		Do ..Logger.Error("TriggerBatchNaarObjectiveAansturingActie", Exception.GeefOmschrijving())
 	}
+	
+	Quit VerzondenNaarObjective
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/Halux/Planning/Pitching/impl/BatchPitchDataExporter/ExporteerBatchPitchedDataNaarObjective/Test.cls.xml
===================================================================
diff -u -r71733 -r71753
--- vhUnitTest/APPS/Halux/Planning/Pitching/impl/BatchPitchDataExporter/ExporteerBatchPitchedDataNaarObjective/Test.cls.xml	(.../Test.cls.xml)	(revision 71733)
+++ vhUnitTest/APPS/Halux/Planning/Pitching/impl/BatchPitchDataExporter/ExporteerBatchPitchedDataNaarObjective/Test.cls.xml	(.../Test.cls.xml)	(revision 71753)
@@ -132,6 +132,42 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Indien verzenden batch niet gelukt -&gt; niet markeren als &apos;verzonden&apos; en error loggen">
+<Implementation><![CDATA[
+	#dim DummyBatchId = 12345
+	#dim IsReedsGestart As %Boolean = $$$True
+	#dim IsExported As %Boolean = $$$False
+	
+	Do ..BatchMock.VerwachtMethodCall("IsReedsGestart").DanReturn(IsReedsGestart)
+	Do ..BatchMock.VerwachtMethodCall("GeefID").DanReturn(DummyBatchId)
+	Do ..BatchMock.VerwachtMethodCall("GeefCategorie").DanReturn("Onbepaald")
+	Set DummyBatchPitchedDto = ##class(APPS.Halux.Planning.Pitching.dto.BatchPitched).%New()
+	#dim BatchPitchedRepositoryMock As vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchedRepository = ..GeefBatchPitchedRepositoryMock(..BatchMock, DummyBatchPitchedDto)
+	
+	#dim BatchesExportedLijst As %ListOfObjects = ..GeefBatchesExportedLijst(DummyBatchId, IsExported)
+	
+	Set BatchPitchExportedServiceMock = ##class(vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService).%New()
+	Do BatchPitchExportedServiceMock.VerwachtMethodCall("ZoekViaBatchId", DummyBatchId).DanReturn(BatchesExportedLijst)
+	Do BatchPitchExportedServiceMock.VerwachtMethodCall("MarkeerBatchAlsExportedNaarObjective", DummyBatchId).ExactAantalKeer(0)
+	Do BatchPitchExportedServiceMock.VerwachtMethodCall("BepaalVolgnummerEnBewaar", DummyBatchPitchedDto).DanDoeNiks()
+	
+	Set BatchNaarObjectiveUitvoeringInfoRepositoryMock = ##class(vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfoRepository).%New()
+	Do BatchNaarObjectiveUitvoeringInfoRepositoryMock.VerwachtMethodCall("ZoekViaBatchId", DummyBatchId).ExactAantalKeer(0)
+	
+	Set LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
+	Do LoggerMock.VerwachtMethodCall("Error", "TriggerBatchNaarObjectiveAansturingActie", "De identifier 'TriggerBatchNaarObjectiveAansturingActie voor categorie 'Onbepaald'.' wordt niet ondersteund door de klasse 'APPS.Halux.Planning.Pitching.impl.BatchPitchDataExporter.", $$$False).DanDoeNiks()
+	
+	Set BatchPitchDataExporter = ##class(APPS.Halux.Planning.Pitching.impl.BatchPitchDataExporter).%New(..MESServiceStub, BatchPitchedRepositoryMock, BatchNaarObjectiveUitvoeringInfoRepositoryMock, LoggerMock, BatchPitchExportedServiceMock)
+	Do BatchPitchDataExporter.ExporteerBatchPitchedDataNaarObjective()
+	
+	Do ..BatchMock.Verifieer()
+	Do BatchPitchedRepositoryMock.Verifieer()
+	Do BatchNaarObjectiveUitvoeringInfoRepositoryMock.Verifieer()
+	Do BatchPitchExportedServiceMock.Verifieer()
+	Do LoggerMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test: Indien meerdere verzonden batches -&gt; geen error gooien, wel loggen">
 <Implementation><![CDATA[
 	#dim DummyBatchId = 12345