Index: APPS/Halux/PPS/impl/AansturingService.cls.xml
===================================================================
diff -u -r37508 -r37536
--- APPS/Halux/PPS/impl/AansturingService.cls.xml	(.../AansturingService.cls.xml)	(revision 37508)
+++ APPS/Halux/PPS/impl/AansturingService.cls.xml	(.../AansturingService.cls.xml)	(revision 37536)
@@ -34,21 +34,23 @@
 <Private>1</Private>
 </Property>
 
-<Property name="BatchService">
-<Type>APPS.Halux.common.BatchService</Type>
+<Property name="ActiviteitGroepValidator">
+<Type>APPS.Halux.PPS.impl.AansturingService.ActiviteitGroepValidator</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>
+<FormalSpec>ActiviteitGroepValidator:APPS.Halux.PPS.impl.AansturingService.ActiviteitGroepValidator="",ActiviteitGroepenBepaler:APPS.Halux.PPS.Aansturing.ActiviteitGroepenBepaler="",AansturingActieUitvoerder:APPS.Halux.PPS.Aansturing.AansturingActieUitvoerder="",AansturingActieUitvoerderVoorRework:APPS.Halux.PPS.Aansturing.AansturingActieUitvoerder="",AansturingStatusResetter:APPS.Halux.PPS.Aansturing.AansturingStatusResetter=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..BatchService = $$$Inject(BatchService, ##class(APPS.Halux.common.impl.BatchService).%New())
+	Set ..ActiviteitGroepValidator = $$$Inject(ActiviteitGroepValidator, ##class(APPS.Halux.PPS.impl.AansturingService.ActiviteitGroepValidator).%New())	
 	Set ..ActiviteitGroepenBepaler = ActiviteitGroepenBepaler
 	Set ..AansturingActieUitvoerder = AansturingActieUitvoerder
+	Set ..AansturingActieUitvoerderVoorRework = AansturingActieUitvoerderVoorRework
+	Set ..AansturingStatusResetter = AansturingStatusResetter
 	Set ..ProductieAPI = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI()
 	
 	Quit $$$OK
@@ -59,8 +61,6 @@
 <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))
@@ -97,13 +97,14 @@
 <FormalSpec>BatchID:%String,ActiviteitGroepID:%String</FormalSpec>
 <ReturnType>APPS.Halux.PPS.dto.ActiviteitGroepAansturingStatus</ReturnType>
 <Implementation><![CDATA[
-	Do ..ValideerActiviteitGroepVoorBatch(BatchID, ActiviteitGroepID)
+	Do ..ActiviteitGroepValidator.Valideer(BatchID, ActiviteitGroepID)
 	
 	do ..AansturingStatusResetter.ResetAansturingStatusVoorActiviteitGroep(BatchID,ActiviteitGroepID)
-	
+	/*
 	set ActieParametersLijst = ##class(APPS.Halux.PPS.dto.ActieParametersLijst).%New()
 	#dim ActiviteitGroep As APPS.Halux.PPS.Activiteit.ActiviteitGroep = ..ProductieAPI.GeefActiviteitGroep(ActiviteitGroepID)
-	quit ..AansturingActieUitvoerder.VoerUitAansturingActiesVoorBatch(BatchID,ActiviteitGroepID,ActiviteitGroep.GeefStandaardAansturingActieIDs(),ActieParametersLijst)
+	quit ..AansturingActieUitvoerder.VoerUitAansturingActiesVoorBatch(BatchID,ActiviteitGroepID,ActiviteitGroep.GeefStandaardAansturingActieIDs(),ActieParametersLijst)*/
+	Quit ""
 ]]></Implementation>
 </Method>
 
@@ -137,7 +138,7 @@
 <FormalSpec>BatchID:%String,ActiviteitGroepID:%String,ActieID:%String,ActieParameters:%ListOfDataTypes</FormalSpec>
 <ReturnType>APPS.Halux.PPS.dto.ActieResultaat</ReturnType>
 <Implementation><![CDATA[
-	Do ..ValideerActiviteitGroepVoorBatch(BatchID, ActiviteitGroepID)
+	Do ..ActiviteitGroepValidator.Valideer(BatchID, ActiviteitGroepID)
 	
 	quit ..AansturingActieUitvoerderVoorRework.VoerUitAansturingActieVoorBatch(BatchID,ActiviteitGroepID,ActieID,ActieParameters)
 ]]></Implementation>
@@ -147,7 +148,7 @@
 <FormalSpec>BatchID:%String,ActiviteitGroepID:%String,ActieID:%String,ActieParameters:%ListOfDataTypes</FormalSpec>
 <ReturnType>APPS.Halux.PPS.dto.ActieResultaat</ReturnType>
 <Implementation><![CDATA[
-	Do ..ValideerActiviteitGroepVoorBatch(BatchID, ActiviteitGroepID)
+	Do ..ActiviteitGroepValidator.Valideer(BatchID, ActiviteitGroepID)
 	
 	Quit ..AansturingActieUitvoerder.VoerUitAansturingActieVoorBatch(BatchID,ActiviteitGroepID,ActieID,ActieParameters)
 ]]></Implementation>
@@ -157,7 +158,7 @@
 <FormalSpec>BatchID:%String,ActiviteitGroepID:%String,ActieIDs:%ListOfDataTypes,ActieParametersLijst:APPS.Halux.PPS.dto.ActieParametersLijst=""</FormalSpec>
 <ReturnType>APPS.Halux.PPS.dto.ActiviteitGroepAansturingStatus</ReturnType>
 <Implementation><![CDATA[
-	Do ..ValideerActiviteitGroepVoorBatch(BatchID, ActiviteitGroepID)
+	Do ..ActiviteitGroepValidator.Valideer(BatchID, ActiviteitGroepID)
 	
 	quit ..AansturingActieUitvoerder.VoerUitAansturingActiesVoorBatch(BatchID,ActiviteitGroepID,ActieIDs,ActieParametersLijst)
 ]]></Implementation>
@@ -168,8 +169,6 @@
 <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() {
@@ -208,7 +207,6 @@
 <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)
@@ -224,20 +222,6 @@
 ]]></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>