Index: APPS/Halux/PPS/impl/AansturingService.cls.xml
===================================================================
diff -u -r29059 -r37508
--- APPS/Halux/PPS/impl/AansturingService.cls.xml	(.../AansturingService.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/impl/AansturingService.cls.xml	(.../AansturingService.cls.xml)	(revision 37508)
@@ -34,13 +34,23 @@
 <Private>1</Private>
 </Property>
 
+<Property name="BatchService">
+<Type>APPS.Halux.common.BatchService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
+<FormalSpec>BatchService:APPS.Halux.common.BatchService="",ActiviteitGroepenBepaler:APPS.Halux.PPS.Aansturing.ActiviteitGroepenBepaler="",AansturingActieUitvoerder:APPS.Halux.PPS.Aansturing.AansturingActieUitvoerder=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..ProductieAPI = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI()
+	Set ..BatchService = $$$Inject(BatchService, ##class(APPS.Halux.common.impl.BatchService).%New())
+	Set ..ActiviteitGroepenBepaler = ActiviteitGroepenBepaler
+	Set ..AansturingActieUitvoerder = AansturingActieUitvoerder
+	Set ..ProductieAPI = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -49,6 +59,8 @@
 <FormalSpec>ActiviteitGroepID:%String,BatchID:%String=""</FormalSpec>
 <ReturnType>APPS.Halux.PPS.dto.AansturingActieDataList</ReturnType>
 <Implementation><![CDATA[
+	Do ..ValideerActiviteitGroepVoorBatch(BatchID, ActiviteitGroepID)
+	
 	set Acties = ##class(%ListOfObjects).%New()
 	#dim Query As %String = "SELECT ID FROM APPS_Halux_PPS_impl.AansturingActie WHERE ActiviteitGroepID = ?"
 	#dim rsActies As %ResultSet = $$ExecDynQuery^vhLib.Query(Query,$listbuild(ActiviteitGroepID))
@@ -85,6 +97,8 @@
 <FormalSpec>BatchID:%String,ActiviteitGroepID:%String</FormalSpec>
 <ReturnType>APPS.Halux.PPS.dto.ActiviteitGroepAansturingStatus</ReturnType>
 <Implementation><![CDATA[
+	Do ..ValideerActiviteitGroepVoorBatch(BatchID, ActiviteitGroepID)
+	
 	do ..AansturingStatusResetter.ResetAansturingStatusVoorActiviteitGroep(BatchID,ActiviteitGroepID)
 	
 	set ActieParametersLijst = ##class(APPS.Halux.PPS.dto.ActieParametersLijst).%New()
@@ -122,21 +136,30 @@
 <Method name="VoerUitReworkAansturingActieVoorBatch">
 <FormalSpec>BatchID:%String,ActiviteitGroepID:%String,ActieID:%String,ActieParameters:%ListOfDataTypes</FormalSpec>
 <ReturnType>APPS.Halux.PPS.dto.ActieResultaat</ReturnType>
-<Implementation><![CDATA[	quit ..AansturingActieUitvoerderVoorRework.VoerUitAansturingActieVoorBatch(BatchID,ActiviteitGroepID,ActieID,ActieParameters)
+<Implementation><![CDATA[
+	Do ..ValideerActiviteitGroepVoorBatch(BatchID, ActiviteitGroepID)
+	
+	quit ..AansturingActieUitvoerderVoorRework.VoerUitAansturingActieVoorBatch(BatchID,ActiviteitGroepID,ActieID,ActieParameters)
 ]]></Implementation>
 </Method>
 
 <Method name="VoerUitAansturingActieVoorBatch">
 <FormalSpec>BatchID:%String,ActiviteitGroepID:%String,ActieID:%String,ActieParameters:%ListOfDataTypes</FormalSpec>
 <ReturnType>APPS.Halux.PPS.dto.ActieResultaat</ReturnType>
-<Implementation><![CDATA[	quit ..AansturingActieUitvoerder.VoerUitAansturingActieVoorBatch(BatchID,ActiviteitGroepID,ActieID,ActieParameters)
+<Implementation><![CDATA[
+	Do ..ValideerActiviteitGroepVoorBatch(BatchID, ActiviteitGroepID)
+	
+	Quit ..AansturingActieUitvoerder.VoerUitAansturingActieVoorBatch(BatchID,ActiviteitGroepID,ActieID,ActieParameters)
 ]]></Implementation>
 </Method>
 
 <Method name="VoerUitAansturingActiesVoorBatch">
 <FormalSpec>BatchID:%String,ActiviteitGroepID:%String,ActieIDs:%ListOfDataTypes,ActieParametersLijst:APPS.Halux.PPS.dto.ActieParametersLijst=""</FormalSpec>
 <ReturnType>APPS.Halux.PPS.dto.ActiviteitGroepAansturingStatus</ReturnType>
-<Implementation><![CDATA[	quit ..AansturingActieUitvoerder.VoerUitAansturingActiesVoorBatch(BatchID,ActiviteitGroepID,ActieIDs,ActieParametersLijst)
+<Implementation><![CDATA[
+	Do ..ValideerActiviteitGroepVoorBatch(BatchID, ActiviteitGroepID)
+	
+	quit ..AansturingActieUitvoerder.VoerUitAansturingActiesVoorBatch(BatchID,ActiviteitGroepID,ActieIDs,ActieParametersLijst)
 ]]></Implementation>
 </Method>
 
@@ -145,6 +168,8 @@
 <ReturnType>%ListOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="APPS.Halux.PPS.dto.ActieResultaat"</ReturnTypeParams>
 <Implementation><![CDATA[
+	Do ..ValideerActiviteitGroepVoorBatch(BatchID, ActiviteitGroepID)
+	
 	set ActieResultaten = ##class(%ListOfObjects).%New()
 	#dim itAansturingActies As TECH.ListIterator = ##class(TECH.ListIterator).%New(..GeefAansturingActies(ActiviteitGroepID,BatchID))
 	while itAansturingActies.HasNext() {
@@ -183,6 +208,8 @@
 <FormalSpec>BatchID:%String,ActiviteitGroepID:%String</FormalSpec>
 <ReturnType>APPS.Halux.PPS.dto.ActiviteitGroepAansturingStatus</ReturnType>
 <Implementation><![CDATA[
+	Do ..ValideerActiviteitGroepVoorBatch(BatchID, ActiviteitGroepID)
+	
 	set StatusProvider = ##class(APPS.Halux.PPS.impl.Aansturing.AansturingStatusProvider).%New()
 	quit StatusProvider.GeefAansturingStatusPerActiviteitGroepVoorBatch(BatchID,ActiviteitGroepID)
 ]]></Implementation>
@@ -197,6 +224,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ValideerActiviteitGroepVoorBatch">
+<FormalSpec>BatchID:TECH.String,ActiviteitGroepID:TECH.String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(BatchID)
+	#dim Categorie As APPS.Halux.common.enu.Categorie = Batch.GeefCategorie()
+	#dim ActiviteitGroepen As %ListOfDataTypes = ..GeefActiviteitGroepen(Categorie)
+	
+	If $$$Not(ActiviteitGroepen.Find(ActiviteitGroepID)) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.Halux.PPS.OngeldigeCategorieVoorActiviteitGroepExceptie).%New(BatchID, ActiviteitGroepID, Categorie))
+	}
+]]></Implementation>
+</Method>
+
 <Method name="AansturingStatusResetterGet">
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.impl.Aansturing.AansturingStatusResetter</ReturnType>