Index: APPS/Halux/Planning/Pitching/impl/BatchPitchDataExporter.cls.xml =================================================================== diff -u -r71904 -r71928 --- APPS/Halux/Planning/Pitching/impl/BatchPitchDataExporter.cls.xml (.../BatchPitchDataExporter.cls.xml) (revision 71904) +++ APPS/Halux/Planning/Pitching/impl/BatchPitchDataExporter.cls.xml (.../BatchPitchDataExporter.cls.xml) (revision 71928) @@ -117,6 +117,12 @@ Set UitvoeringInfoLijst = ##class(TECH.ListUtils).IteratorToList(UitvoeringInfoIterator) Do AansturingActie.VerwerkUitvoeringInfoLijst(UitvoeringInfoLijst) + } 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) } Else { Set VerzondenNaarObjective = $$$False Set Exception = ##class(TECH.Exceptions.NotSupportedException).%New(..%ClassName(1), "TriggerBatchNaarObjectiveAansturingActie voor categorie '" _ Batch.GeefCategorie() _ "'.")