Index: APPS/Halux/Planning/Pitching/impl/BatchPitchDataExporter.cls.xml
===================================================================
diff -u -r71928 -r71929
--- APPS/Halux/Planning/Pitching/impl/BatchPitchDataExporter.cls.xml	(.../BatchPitchDataExporter.cls.xml)	(revision 71928)
+++ APPS/Halux/Planning/Pitching/impl/BatchPitchDataExporter.cls.xml	(.../BatchPitchDataExporter.cls.xml)	(revision 71929)
@@ -107,22 +107,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)
 	} 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)
 	} ElseIf (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Merivobox()) {
 		Set AansturingActie = ##class(APPS.Halux.PPS.Document.impl.MVX.BatchNaarObjective).%New()
-		Set UitvoeringInfoIterator = ..BatchNaarObjectiveUitvoeringInfoRepository.ZoekViaBatchId(Batch.GeefID())
-		Set UitvoeringInfoLijst = ##class(TECH.ListUtils).IteratorToList(UitvoeringInfoIterator)
-		
-		Do AansturingActie.VerwerkUitvoeringInfoLijst(UitvoeringInfoLijst)
+		Do ..VerwerkAansturingActie(AansturingActie, Batch)
 	} Else {
 		Set VerzondenNaarObjective = $$$False
 		Set Exception = ##class(TECH.Exceptions.NotSupportedException).%New(..%ClassName(1), "TriggerBatchNaarObjectiveAansturingActie voor categorie '" _ Batch.GeefCategorie() _ "'.")
@@ -132,6 +123,17 @@
 	Quit VerzondenNaarObjective
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkAansturingActie">
+<FormalSpec>AansturingActie:APPS.Halux.PPS.Activiteit.impl.UitvoeringInfoLijstVerwerkerBasis,Batch:APPS.Halux.common.impl.BatchImpl</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)
+]]></Implementation>
+</Method>
 </Class>