Index: APPS/Halux/Planning/Pitching/impl/BatchPitchDataExporter.cls.xml
===================================================================
diff -u -r71754 -r71883
--- APPS/Halux/Planning/Pitching/impl/BatchPitchDataExporter.cls.xml	(.../BatchPitchDataExporter.cls.xml)	(revision 71754)
+++ APPS/Halux/Planning/Pitching/impl/BatchPitchDataExporter.cls.xml	(.../BatchPitchDataExporter.cls.xml)	(revision 71883)
@@ -102,13 +102,21 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim VerzondenNaarObjective As %Boolean = $$$True
-
+	#dim UitvoeringInfoIterator As TECH.Iterator
+	#dim UitvoeringInfoLijst As %ListOfObjects
+	
 	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)
+		Set UitvoeringInfoIterator = ..BatchNaarObjectiveUitvoeringInfoRepository.ZoekViaBatchId(Batch.GeefID())
+		Set UitvoeringInfoLijst = ##class(TECH.ListUtils).IteratorToList(UitvoeringInfoIterator)
 		
 		Do AansturingActie.VerwerkUitvoeringInfoLijst(UitvoeringInfoLijst)
+	} 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)
 	} Else {
 		Set VerzondenNaarObjective = $$$False
 		Set Exception = ##class(TECH.Exceptions.NotSupportedException).%New(..%ClassName(1), "TriggerBatchNaarObjectiveAansturingActie voor categorie '" _ Batch.GeefCategorie() _ "'.")