Index: APPS/Halux/Planning/Pitching/impl/BatchPitchDataExporter.cls.xml
===================================================================
diff -u -r71505 -r71508
--- APPS/Halux/Planning/Pitching/impl/BatchPitchDataExporter.cls.xml	(.../BatchPitchDataExporter.cls.xml)	(revision 71505)
+++ APPS/Halux/Planning/Pitching/impl/BatchPitchDataExporter.cls.xml	(.../BatchPitchDataExporter.cls.xml)	(revision 71508)
@@ -97,10 +97,19 @@
 <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
+	#dim BatchPitchesExportedIterator As TECH.Iterator = ..BatchPitchExportedRepository.ZoekViaBatchId(BatchId)
+	#dim BatchPitchesExportedLijst As %ListOfObjects = ##class(TECH.ListUtils).IteratorToList(BatchPitchesExportedIterator)
+	#dim BatchPitchExportedDto As APPS.Halux.Planning.Pitching.dto.BatchPitchExported
 	
+	If (BatchPitchesExportedLijst.Size = 1) {
+		Set BatchPitchExportedDto = BatchPitchesExportedLijst.GetAt(1)
+		Set BatchPitchExportedDto.IsExported = $$$True
+	} ElseIf (BatchPitchesExportedLijst.Size = 0) {
+		Set BatchPitchExportedDto = ##class(APPS.Halux.Planning.Pitching.dto.BatchPitchExported).%New()
+		Set BatchPitchExportedDto.BatchId = BatchId
+		Set BatchPitchExportedDto.IsExported = $$$True
+	}
+	
 	Do ..BatchPitchExportedRepository.Bewaar(BatchPitchExportedDto)
 ]]></Implementation>
 </Method>