Index: vhUnitTest/APPS/Halux/PPS/impl/AansturingService/Test.cls.xml
===================================================================
diff -u -r37508 -r37536
--- vhUnitTest/APPS/Halux/PPS/impl/AansturingService/Test.cls.xml	(.../Test.cls.xml)	(revision 37508)
+++ vhUnitTest/APPS/Halux/PPS/impl/AansturingService/Test.cls.xml	(.../Test.cls.xml)	(revision 37536)
@@ -13,115 +13,75 @@
 <Private>1</Private>
 </Property>
 
-<Property name="AansturingService">
-<Type>APPS.Halux.PPS.AansturingService</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
-	Do ##super(aTestName)
-	
-	Set ..ActiviteitGroepId = "ActiviteitGroepId"
-	Set ..BatchId = "BatchId"
+    Do ##super(aTestName)
 
-	#dim BatchStub As vhTest.Mock.APPS.Halux.common.Batch = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
-	Do BatchStub.IndienMethodCall("GeefCategorie").DanReturn("OnbestaandeCategorie")
-	
-	#dim BatchServiceStub As vhTest.Mock.APPS.Halux.common.BatchService = ##class(vhTest.Mock.APPS.Halux.common.BatchService).%New()
-	Do BatchServiceStub.IndienMethodCall("GeefBatch", ..BatchId).DanReturn(BatchStub)
-	
-	Set ..AansturingService = ##class(APPS.Halux.PPS.impl.AansturingService).%New(BatchServiceStub)
+    Set ..ActiviteitGroepId = "WillekeurigeActiviteitGroepId"
+    Set ..BatchId = "WillekeurigeBatchId"
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Exceptie wordt geraised indien ActiviteitGroep niet bestaat voor Categorie bij opvragen van AansturingActies">
+<Method name="Test: Validator wordt opgeroepen bij uitvoeren van een ActiviteitGroep">
 <Implementation><![CDATA[
-	#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Voor batch", ..BatchId, "met categorie", "bestaat geen activiteitgroep met id", ..ActiviteitGroepId)
-	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("APPS.Halux.PPS.OngeldigeCategorieVoorActiviteitGroepExceptie", Omschrijvingen))
-	
-	Do ..AansturingService.GeefAansturingActies(..ActiviteitGroepId, ..BatchId)
-]]></Implementation>
-</Method>
+    #dim ActiviteitGroepValidatorMock As vhTest.Mock.APPS.Halux.PPS.impl.AansturingService.ActiviteitGroepValidator = ##class(vhTest.Mock.APPS.Halux.PPS.impl.AansturingService.ActiviteitGroepValidator).%New()
+    Do ActiviteitGroepValidatorMock.VerwachtMethodCall("Valideer", ..BatchId, ..ActiviteitGroepId)
+    
+    #dim AansturingStatusResetterStub As vhTest.Mock.APPS.Halux.PPS.Aansturing.AansturingStatusResetter = ##class(vhTest.Mock.APPS.Halux.PPS.Aansturing.AansturingStatusResetter).%New()
+    Do AansturingStatusResetterStub.IndienMethodCall("ResetAansturingStatusVoorActiviteitGroep", ..BatchId, ..ActiviteitGroepId)
 
-<Method name="Test: Exceptie wordt geraised indien ActiviteitGroep niet bestaat voor Categorie bij uitvoeren van ActiviteitGroepen voor een opgegeven Batch">
-<Implementation><![CDATA[
-	#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Voor batch", ..BatchId, "met categorie", "bestaat geen activiteitgroep met id", ..ActiviteitGroepId)
-	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("APPS.Halux.PPS.OngeldigeCategorieVoorActiviteitGroepExceptie", Omschrijvingen))
-	
-	Do ..AansturingService.VoerUitActiviteitGroepVoorBatch(..BatchId, ..ActiviteitGroepId)
+    #dim AansturingService As APPS.Halux.PPS.AansturingService = ##class(APPS.Halux.PPS.impl.AansturingService).%New(ActiviteitGroepValidatorMock,,,, AansturingStatusResetterStub)
+    Do AansturingService.VoerUitActiviteitGroepVoorBatch(..BatchId, ..ActiviteitGroepId)
+    
+    Do ActiviteitGroepValidatorMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Exceptie wordt geraised indien ActiviteitGroep niet bestaat voor Categorie bij uitvoeren van rework voor een opgegeven Batch">
+<Method name="Test: Validator wordt opgeroepen bij uitvoeren van een AansturingActie">
 <Implementation><![CDATA[
-	#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Voor batch", ..BatchId, "met categorie", "bestaat geen activiteitgroep met id", ..ActiviteitGroepId)
-	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("APPS.Halux.PPS.OngeldigeCategorieVoorActiviteitGroepExceptie", Omschrijvingen))
-	
-	Do ..AansturingService.VoerUitReworkAansturingActieVoorBatch(..BatchId, ..ActiviteitGroepId)
+    #dim ActiviteitGroepValidatorMock As vhTest.Mock.APPS.Halux.PPS.impl.AansturingService.ActiviteitGroepValidator = ##class(vhTest.Mock.APPS.Halux.PPS.impl.AansturingService.ActiviteitGroepValidator).%New()
+    Do ActiviteitGroepValidatorMock.VerwachtMethodCall("Valideer", ..BatchId, ..ActiviteitGroepId)
+    
+    #dim AansturingActieUitvoerderStub As vhTest.Mock.APPS.Halux.PPS.Aansturing.AansturingActieUitvoerder = ##class(vhTest.Mock.APPS.Halux.PPS.Aansturing.AansturingActieUitvoerder).%New()
+    Do AansturingActieUitvoerderStub.IndienMethodCall("VoerUitAansturingActieVoorBatch", ..BatchId, ..ActiviteitGroepId, $$$ElkeWaarde, $$$ElkeWaarde)
+    
+    #dim AansturingService As APPS.Halux.PPS.AansturingService = ##class(APPS.Halux.PPS.impl.AansturingService).%New(ActiviteitGroepValidatorMock,, AansturingActieUitvoerderStub)
+    Do AansturingService.VoerUitAansturingActieVoorBatch(..BatchId, ..ActiviteitGroepId, "", "")
+    
+    Do ActiviteitGroepValidatorMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Exceptie wordt geraised indien ActiviteitGroep niet bestaat voor Categorie bij uitvoeren van een AansturingActie voor een opgegeven Batch">
+<Method name="Test: Validator wordt opgeroepen bij uitvoeren van AansturingActies">
 <Implementation><![CDATA[
-	#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Voor batch", ..BatchId, "met categorie", "bestaat geen activiteitgroep met id", ..ActiviteitGroepId)
-	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("APPS.Halux.PPS.OngeldigeCategorieVoorActiviteitGroepExceptie", Omschrijvingen))
-	
-	Do ..AansturingService.VoerUitAansturingActieVoorBatch(..BatchId, ..ActiviteitGroepId)
+    #dim ActiviteitGroepValidatorMock As vhTest.Mock.APPS.Halux.PPS.impl.AansturingService.ActiviteitGroepValidator = ##class(vhTest.Mock.APPS.Halux.PPS.impl.AansturingService.ActiviteitGroepValidator).%New()
+    Do ActiviteitGroepValidatorMock.VerwachtMethodCall("Valideer", ..BatchId, ..ActiviteitGroepId)
+    
+    #dim AansturingActieUitvoerderStub As vhTest.Mock.APPS.Halux.PPS.Aansturing.AansturingActieUitvoerder = ##class(vhTest.Mock.APPS.Halux.PPS.Aansturing.AansturingActieUitvoerder).%New()
+    Do AansturingActieUitvoerderStub.IndienMethodCall("VoerUitAansturingActiesVoorBatch", ..BatchId, ..ActiviteitGroepId, $$$ElkeWaarde, $$$ElkeWaarde)
+    
+    #dim AansturingService As APPS.Halux.PPS.AansturingService = ##class(APPS.Halux.PPS.impl.AansturingService).%New(ActiviteitGroepValidatorMock,, AansturingActieUitvoerderStub)
+    Do AansturingService.VoerUitAansturingActiesVoorBatch(..BatchId, ..ActiviteitGroepId, "", "")
+    
+    Do ActiviteitGroepValidatorMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Exceptie wordt geraised indien ActiviteitGroep niet bestaat voor Categorie bij uitvoeren van AansturingActies voor een opgegeven Batch">
+<Method name="Test: Validator wordt opgeroepen bij uitvoeren van een Rework AansturingActie">
 <Implementation><![CDATA[
-	#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Voor batch", ..BatchId, "met categorie", "bestaat geen activiteitgroep met id", ..ActiviteitGroepId)
-	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("APPS.Halux.PPS.OngeldigeCategorieVoorActiviteitGroepExceptie", Omschrijvingen))
-	
-	Do ..AansturingService.VoerUitAansturingActiesVoorBatch(..BatchId, ..ActiviteitGroepId)
-]]></Implementation>
-</Method>
+    #dim ActiviteitGroepValidatorMock As vhTest.Mock.APPS.Halux.PPS.impl.AansturingService.ActiviteitGroepValidator = ##class(vhTest.Mock.APPS.Halux.PPS.impl.AansturingService.ActiviteitGroepValidator).%New()
+    Do ActiviteitGroepValidatorMock.VerwachtMethodCall("Valideer", ..BatchId, ..ActiviteitGroepId)
+    
+    #dim AansturingActieUitvoerderVoorReworkStub As vhTest.Mock.APPS.Halux.PPS.Aansturing.AansturingActieUitvoerder = ##class(vhTest.Mock.APPS.Halux.PPS.Aansturing.AansturingActieUitvoerder).%New()
+    Do AansturingActieUitvoerderVoorReworkStub.IndienMethodCall("VoerUitAansturingActieVoorBatch", ..BatchId, ..ActiviteitGroepId, $$$ElkeWaarde, $$$ElkeWaarde)
 
-<Method name="Test: Exceptie wordt geraised indien ActiviteitGroep niet bestaat voor Categorie bij opvragen van ActieResultaten voor een opgegeven Batch">
-<Implementation><![CDATA[
-	#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Voor batch", ..BatchId, "met categorie", "bestaat geen activiteitgroep met id", ..ActiviteitGroepId)
-	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("APPS.Halux.PPS.OngeldigeCategorieVoorActiviteitGroepExceptie", Omschrijvingen))
-	
-	Do ..AansturingService.GeefActieResultaten(..BatchId, ..ActiviteitGroepId)
+    #dim AansturingService As APPS.Halux.PPS.AansturingService = ##class(APPS.Halux.PPS.impl.AansturingService).%New(ActiviteitGroepValidatorMock,,, AansturingActieUitvoerderVoorReworkStub) //, "", "", AansturingStatusResetterStub)
+    Do AansturingService.VoerUitReworkAansturingActieVoorBatch(..BatchId, ..ActiviteitGroepId, "", "")
+    
+    Do ActiviteitGroepValidatorMock.Verifieer()
 ]]></Implementation>
 </Method>
-
-<Method name="Test: Exceptie wordt geraised indien ActiviteitGroep niet bestaat voor Categorie bij opvragen van een AansturingStatus voor een opgegeven Batch">
-<Implementation><![CDATA[
-	#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Voor batch", ..BatchId, "met categorie", "bestaat geen activiteitgroep met id", ..ActiviteitGroepId)
-	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("APPS.Halux.PPS.OngeldigeCategorieVoorActiviteitGroepExceptie", Omschrijvingen))
-	
-	Do ..AansturingService.GeefAansturingStatusPerActiviteitGroepVoorBatch(..BatchId, ..ActiviteitGroepId)
-]]></Implementation>
-</Method>
-
-<Method name="Test: Geen OngeldigeCategorieVoorActiviteitGroepExceptie wordt geraised indien de ActiviteitGroep bestaat voor de Categorie van de opgegeven Batch">
-<Implementation><![CDATA[
-	#dim Categorie As TECH.String = "BestaandeCategorie"
-	#dim ActiviteitGroepen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(..ActiviteitGroepId)
-	
-	#dim BatchStub As vhTest.Mock.APPS.Halux.common.Batch = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
-	Do BatchStub.IndienMethodCall("GeefCategorie").DanReturn(Categorie)
-	
-	#dim BatchServiceStub As vhTest.Mock.APPS.Halux.common.BatchService = ##class(vhTest.Mock.APPS.Halux.common.BatchService).%New()
-	Do BatchServiceStub.IndienMethodCall("GeefBatch", ..BatchId).DanReturn(BatchStub)
-
-	#dim ActiviteitGroepenBepalerStub As vhTest.Mock.APPS.Halux.PPS.Aansturing.ActiviteitGroepenBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.Aansturing.ActiviteitGroepenBepaler).%New()
-	Do ActiviteitGroepenBepalerStub.IndienMethodCall("GeefActiviteitGroepen", Categorie).DanReturn(ActiviteitGroepen)
-	
-	#dim AansturingActieUitvoerderMock As vhTest.Mock.APPS.Halux.PPS.Aansturing.AansturingActieUitvoerder = ##class(vhTest.Mock.APPS.Halux.PPS.Aansturing.AansturingActieUitvoerder).%New()
-	Do AansturingActieUitvoerderMock.VerwachtMethodCall("VoerUitAansturingActieVoorBatch", ..BatchId, ..ActiviteitGroepId, "", "")
-	
-	#dim AansturingService As APPS.Halux.PPS.AansturingService = ##class(APPS.Halux.PPS.impl.AansturingService).%New(BatchServiceStub, ActiviteitGroepenBepalerStub, AansturingActieUitvoerderMock)
-	Do AansturingService.VoerUitAansturingActieVoorBatch(..BatchId, ..ActiviteitGroepId, "", "")
-	
-	Do AansturingActieUitvoerderMock.Verifieer()
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhTest/Fake/APPS/Halux/PPS/impl/AansturingService/ActiviteitGroepValidator.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/Halux/PPS/impl/AansturingService/ActiviteitGroepValidator.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/Halux/PPS/impl/AansturingService/ActiviteitGroepValidator.cls.xml	(revision 37536)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.Halux.PPS.impl.AansturingService.ActiviteitGroepValidator">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.PPS.impl.AansturingService.ActiviteitGroepValidator</Super>
+
+<Method name="Valideer">
+<FormalSpec>BatchId:TECH.String,ActiviteitGroepId:TECH.String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/ActiviteitGroepRepository.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/ActiviteitGroepRepository.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/ActiviteitGroepRepository.cls.xml	(revision 37536)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.ActiviteitGroepRepository">
+<Super>TECH.Persistentie.impl.Repository,TECH.RegisteredObject</Super>
+
+<Parameter name="DataClassName">
+<Type>%String</Type>
+<Default>APPS.Halux.PPS.Activiteit.ActiviteitGroep</Default>
+</Parameter>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/PPS/impl/AansturingService/ActiviteitGroepValidator/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/impl/AansturingService/ActiviteitGroepValidator/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/impl/AansturingService/ActiviteitGroepValidator/Test.cls.xml	(revision 37536)
@@ -0,0 +1,96 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.impl.AansturingService.ActiviteitGroepValidator.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="ActiviteitGroepId">
+<Type>TECH.String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BatchId">
+<Type>TECH.String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Categorie">
+<Type>TECH.String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..ActiviteitGroepId = "WillekeurigeActiviteitGroepId"
+	Set ..BatchId = "WillekeurigeBatchId"
+	Set ..Categorie = "WillekeurigeCategorie"
+]]></Implementation>
+</Method>
+
+<Method name="Test: Exceptie wordt geraised indien ActiviteitGroep niet bestaat">
+<Implementation><![CDATA[
+	#dim BatchStub As vhTest.Mock.APPS.Halux.common.Batch = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
+	Do BatchStub.IndienMethodCall("GeefCategorie").DanReturn(..Categorie)
+
+	#dim BatchServiceStub As vhTest.Mock.APPS.Halux.common.BatchService = ##class(vhTest.Mock.APPS.Halux.common.BatchService).%New()
+	Do BatchServiceStub.IndienMethodCall("GeefBatch", ..BatchId).DanReturn(BatchStub)
+	
+	#dim ActiviteitGroepRepositoryStub As vhTest.Mock.TECH.Persistentie.Repository = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
+	Do ActiviteitGroepRepositoryStub.IndienMethodCall("BestaatViaID", ..ActiviteitGroepId).DanReturn($$$False)
+
+	#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Voor batch", ..BatchId, "met categorie", "bestaat geen activiteitgroep met id", ..ActiviteitGroepId)
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("APPS.Halux.PPS.OngeldigeCategorieVoorActiviteitGroepExceptie", Omschrijvingen))
+	
+	#dim ActiviteitGroepValidator As APPS.Halux.PPS.impl.AansturingService.ActiviteitGroepValidator = ##class(APPS.Halux.PPS.impl.AansturingService.ActiviteitGroepValidator).%New(BatchServiceStub, ActiviteitGroepRepositoryStub)
+	Do ActiviteitGroepValidator.Valideer(..BatchId, ..ActiviteitGroepId)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Exceptie wordt geraised indien de Categorie van de ActiviteitGroep niet gelijk is aan de Categorie van de Batch">
+<Implementation><![CDATA[
+	#dim OngeldigeCategorie As TECH.String = "OngeldigeCategorie"
+	
+	#dim BatchStub As vhTest.Mock.APPS.Halux.common.Batch = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
+	Do BatchStub.IndienMethodCall("GeefCategorie").DanReturn(..Categorie)
+
+	#dim BatchServiceStub As vhTest.Mock.APPS.Halux.common.BatchService = ##class(vhTest.Mock.APPS.Halux.common.BatchService).%New()
+	Do BatchServiceStub.IndienMethodCall("GeefBatch", ..BatchId).DanReturn(BatchStub)
+	
+	#dim ActiviteitGroep As APPS.Halux.PPS.Activiteit.ActiviteitGroep = ##class(APPS.Halux.PPS.Activiteit.ActiviteitGroep).%New(OngeldigeCategorie, "")
+	
+	#dim ActiviteitGroepRepositoryStub As vhTest.Mock.TECH.Persistentie.Repository = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
+	Do ActiviteitGroepRepositoryStub.IndienMethodCall("BestaatViaID", ..ActiviteitGroepId).DanReturn($$$True)
+	Do ActiviteitGroepRepositoryStub.IndienMethodCall("GeefViaID", ..ActiviteitGroepId).DanReturn(ActiviteitGroep)
+
+	#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Voor batch", ..BatchId, "met categorie", "bestaat geen activiteitgroep met id", ..ActiviteitGroepId)
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("APPS.Halux.PPS.OngeldigeCategorieVoorActiviteitGroepExceptie", Omschrijvingen))
+	
+	#dim ActiviteitGroepValidator As APPS.Halux.PPS.impl.AansturingService.ActiviteitGroepValidator = ##class(APPS.Halux.PPS.impl.AansturingService.ActiviteitGroepValidator).%New(BatchServiceStub, ActiviteitGroepRepositoryStub)
+	Do ActiviteitGroepValidator.Valideer(..BatchId, ..ActiviteitGroepId)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Validatie slaagt indien de ActiviteitGroep bestaat en de Categorie van de ActiviteitGroep gelijk is aan de Categorie van de Batch">
+<Implementation><![CDATA[
+	#dim BatchStub As vhTest.Mock.APPS.Halux.common.Batch = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
+	Do BatchStub.IndienMethodCall("GeefCategorie").DanReturn(..Categorie)
+	
+	#dim BatchServiceStub As vhTest.Mock.APPS.Halux.common.BatchService = ##class(vhTest.Mock.APPS.Halux.common.BatchService).%New()
+	Do BatchServiceStub.IndienMethodCall("GeefBatch", ..BatchId).DanReturn(BatchStub)
+	
+	#dim ActiviteitGroep As APPS.Halux.PPS.Activiteit.ActiviteitGroep = ##class(APPS.Halux.PPS.Activiteit.ActiviteitGroep).%New(..Categorie, "")
+	
+	#dim ActiviteitGroepRepositoryStub As vhTest.Mock.TECH.Persistentie.Repository = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
+	Do ActiviteitGroepRepositoryStub.IndienMethodCall("BestaatViaID", ..ActiviteitGroepId).DanReturn($$$True)
+	Do ActiviteitGroepRepositoryStub.IndienMethodCall("GeefViaID", ..ActiviteitGroepId).DanReturn(ActiviteitGroep)
+	
+	#dim ActiviteitGroepValidator As APPS.Halux.PPS.impl.AansturingService.ActiviteitGroepValidator = ##class(APPS.Halux.PPS.impl.AansturingService.ActiviteitGroepValidator).%New(BatchServiceStub, ActiviteitGroepRepositoryStub)
+	Do ActiviteitGroepValidator.Valideer(..BatchId, ..ActiviteitGroepId)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/impl/AansturingService/ActiviteitGroepValidator.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/impl/AansturingService/ActiviteitGroepValidator.cls.xml	(revision 0)
+++ APPS/Halux/PPS/impl/AansturingService/ActiviteitGroepValidator.cls.xml	(revision 37536)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.impl.AansturingService.ActiviteitGroepValidator">
+<Super>TECH.Mockable</Super>
+
+<Property name="BatchService">
+<Type>APPS.Halux.common.BatchService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ActiviteitGroepRepository">
+<Type>APPS.Halux.PPS.Activiteit.ActiviteitGroepRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>BatchService:APPS.Halux.common.BatchService="",ActiviteitGroepRepository:APPS.Halux.PPS.Activiteit.ActiviteitGroepRepository=""</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 ..ActiviteitGroepRepository = $$$Inject(ActiviteitGroepRepository, ##class(APPS.Halux.PPS.Activiteit.ActiviteitGroepRepository).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Valideer">
+<FormalSpec>BatchId:TECH.String,ActiviteitGroepId:TECH.String</FormalSpec>
+<Implementation><![CDATA[
+	#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(BatchId)
+	#dim ActiviteitGroep As APPS.Halux.PPS.Activiteit.ActiviteitGroep = ""
+	
+	If (..ActiviteitGroepRepository.BestaatViaID(ActiviteitGroepId)) {
+		Set ActiviteitGroep = ..ActiviteitGroepRepository.GeefViaID(ActiviteitGroepId)	
+	}
+	
+	If $$$Not($IsObject(ActiviteitGroep) && (ActiviteitGroep.Categorie = Batch.GeefCategorie())) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.Halux.PPS.OngeldigeCategorieVoorActiviteitGroepExceptie).%New(BatchId, ActiviteitGroepId, Batch.GeefCategorie()))
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/Halux/PPS/impl/AansturingService/ActiviteitGroepValidator.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/Halux/PPS/impl/AansturingService/ActiviteitGroepValidator.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/Halux/PPS/impl/AansturingService/ActiviteitGroepValidator.cls.xml	(revision 37536)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.Halux.PPS.impl.AansturingService.ActiviteitGroepValidator">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.PPS.impl.AansturingService.ActiviteitGroepValidator,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="Valideer">
+<FormalSpec>BatchId:TECH.String,ActiviteitGroepId:TECH.String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Valideer",BatchId,ActiviteitGroepId)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
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>