Index: vhUnitTest/APPS/Halux/Planning/TestBatchService.cls.xml
===================================================================
diff -u -r29059 -r33346
--- vhUnitTest/APPS/Halux/Planning/TestBatchService.cls.xml	(.../TestBatchService.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/Halux/Planning/TestBatchService.cls.xml	(.../TestBatchService.cls.xml)	(revision 33346)
@@ -292,17 +292,20 @@
 	#dim Query As %String = "INSERT INTO vhUnitTest_APPS_Halux_Planning_impl.BatchImpl (Categorie,Status) VALUES (?,?)"
 	Do ExecDynQuery^vhLib.Query(Query,$LB("UnitTestCategorie1",##class(APPS.Halux.common.enu.BatchStatus).Gestart()))
 	Do ExecDynQuery^vhLib.Query(Query,$LB("UnitTestCategorie2",##class(APPS.Halux.common.enu.BatchStatus).Manueel()))
+	Do ExecDynQuery^vhLib.Query(Query,$LB("UnitTestCategorie3",##class(APPS.Halux.common.enu.BatchStatus).Gestart()))
 	
 	Set BatchService = ##class(APPS.Halux.Planning.impl.BatchService).%New()
 	#dim ActieveCategorieen As List Of APPS.Halux.common.enu.Categorie = BatchService.GeefActieveCategorieen()
-	Do $$$AssertTrue(BatchService.GeefActieveCategorieen().Count()>=1,"Er zijn actieve categorieën")
+	Do $$$AssertTrue(ActieveCategorieen.Count()>=1,"Er zijn actieve categorieën")
 	
 	Do $$$AssertTrue(ActieveCategorieen.Find("UnitTestCategorie1"),"Actief")
 	Do $$$AssertFalse(ActieveCategorieen.Find("UnitTestCategorie2"),"Niet actief en niet gevonden.")
+	Do $$$AssertFalse(ActieveCategorieen.Find("UnitTestCategorie3"),"Niet actief, want de UT_BatchImpl geeft geen toeleveringen terug.")
 	
 	Set Query = "DELETE APPS_Halux_common_impl.BatchImpl WHERE  Categorie = ?"
 	Do ExecDynQuery^vhLib.Query(Query,$LB("UnitTestCategorie1"))
 	Do ExecDynQuery^vhLib.Query(Query,$LB("UnitTestCategorie2"))
+	Do ExecDynQuery^vhLib.Query(Query,$LB("UnitTestCategorie3"))
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/Halux/Planning/enu/Categorie.cls.xml
===================================================================
diff -u -r29059 -r33346
--- vhUnitTest/APPS/Halux/Planning/enu/Categorie.cls.xml	(.../Categorie.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/Halux/Planning/enu/Categorie.cls.xml	(.../Categorie.cls.xml)	(revision 33346)
@@ -4,7 +4,7 @@
 <Super>APPS.Halux.common.enu.Categorie</Super>
 
 <Parameter name="VALUELIST">
-<Default>,UnitTestCategorie1,UnitTestCategorie2,Hoekkast,Servodrive,Tandembox,Burobox ladeblok,Kaderdeur,Mondo,Product op maat,Inpak,Verlichting,Banco,MDS,Mat,Verlichtingsbodem,ISS,ILS,Onbepaald</Default>
+<Default>,UnitTestCategorie1,UnitTestCategorie2,UnitTestCategorie3,Hoekkast,Servodrive,Tandembox,Burobox ladeblok,Kaderdeur,Mondo,Product op maat,Inpak,Verlichting,Banco,MDS,Mat,Verlichtingsbodem,ISS,ILS,Onbepaald</Default>
 </Parameter>
 
 <Method name="UnitTestCategorie1">
@@ -20,6 +20,13 @@
 <Implementation><![CDATA[	Quit "UnitTestCategorie2"
 ]]></Implementation>
 </Method>
+
+<Method name="UnitTestCategorie3">
+<ClassMethod>1</ClassMethod>
+<ReturnType>vhUnitTest.APPS.Halux.Planning.enu.Categorie</ReturnType>
+<Implementation><![CDATA[	Quit "UnitTestCategorie3"
+]]></Implementation>
+</Method>
 </Class>