Index: vhUnitTest/APPS/Halux/common/TestBatchService.cls.xml
===================================================================
diff -u -r36313 -r38152
--- vhUnitTest/APPS/Halux/common/TestBatchService.cls.xml	(.../TestBatchService.cls.xml)	(revision 36313)
+++ vhUnitTest/APPS/Halux/common/TestBatchService.cls.xml	(.../TestBatchService.cls.xml)	(revision 38152)
@@ -114,6 +114,23 @@
 	do $$$AssertEquals(Batch.GeefCategorie(),##class(APPS.Halux.common.enu.Categorie).Kaderdeur())
 ]]></Implementation>
 </Method>
+
+<Method name="TestGeefProductieGroep">
+<Implementation><![CDATA[
+	Set BatchService = ##class(APPS.Halux.common.impl.BatchService).%New()
+	
+	Set Toeleveringen = ##class(%ListOfObjects).%New()
+	Do Toeleveringen.Insert(##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(298006))
+	
+	#dim Batch As APPS.Halux.common.Batch = ##class(vhUnitTest.APPS.Halux.BatchUtils).GeefNieuweBatch(Toeleveringen,##class(APPS.Halux.common.enu.ProductieLijn).Een())
+	Do Batch.%Save()
+	#dim BatchID As %String = Batch.GeefID()
+	Do $$$AssertEquals(BatchService.GeefProductieGroep(BatchID),##class(APPS.Halux.common.enu.ProductieGroep).Stuk(),"De productiegroep")
+	
+	Do BatchService.VerwijderBatch(BatchID)
+	Do $$$AssertFalse(BatchService.BestaatBatch(BatchID))
+]]></Implementation>
+</Method>
 </Class>