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>