Index: APPS/Halux/common/BatchService.cls.xml
===================================================================
diff -u -r29059 -r38152
--- APPS/Halux/common/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 29059)
+++ APPS/Halux/common/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 38152)
@@ -16,6 +16,12 @@
 <ReturnType>APPS.Halux.common.Batch</ReturnType>
 </Method>
 
+<Method name="GeefProductieGroep">
+<Abstract>1</Abstract>
+<FormalSpec>BatchID:%Integer</FormalSpec>
+<ReturnType>APPS.Halux.common.enu.ProductieGroep</ReturnType>
+</Method>
+
 <Method name="MaakNieuweLegeBatch">
 <Abstract>1</Abstract>
 <FormalSpec>GeplandOp:%Date,Categorie:APPS.Halux.common.enu.Categorie</FormalSpec>
Index: vhUnitTest/APPS/Halux/common/impl/SequentieService/MaakSequentie/BatchService.cls.xml
===================================================================
diff -u -r29059 -r38152
--- vhUnitTest/APPS/Halux/common/impl/SequentieService/MaakSequentie/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/Halux/common/impl/SequentieService/MaakSequentie/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 38152)
@@ -20,7 +20,13 @@
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(Batch_" wordt niet herkend door "_..%ClassName(1)))
 	}
 
-	#dim ProductieGroep As APPS.Halux.common.enu.ProductieGroep = ..GeefProductieGroep(BatchID)	
+	#dim ProductieGroep As APPS.Halux.common.enu.ProductieGroep
+	If BatchID [ "VHOSS" {
+		Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()
+	}Else{
+		Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Pallet()
+	}
+
 	If ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Kast() {
 		Do Batch.IndienMethodCall("GeefToeleveringIterator").DanReturn(..GeefToeleveringVHossIt(Categorie))
 	}Else{
@@ -74,21 +80,6 @@
 	Quit Categorie
 ]]></Implementation>
 </Method>
-
-<Method name="GeefProductieGroep">
-<FormalSpec>BatchID:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>APPS.Halux.common.enu.ProductieGroep</ReturnType>
-<Implementation><![CDATA[
-	#dim ProductieGroep As APPS.Halux.common.enu.ProductieGroep
-	If BatchID [ "VHOSS" {
-		Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()
-	}Else{
-		Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Pallet()
-	}
-	Quit ProductieGroep
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhTest/Mock/APPS/Halux/common/BatchService.cls.xml
===================================================================
diff -u -r29059 -r38152
--- vhTest/Mock/APPS/Halux/common/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 29059)
+++ vhTest/Mock/APPS/Halux/common/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 38152)
@@ -50,6 +50,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductieGroep">
+<FormalSpec>BatchID:%Integer</FormalSpec>
+<ReturnType>APPS.Halux.common.enu.ProductieGroep</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefProductieGroep",BatchID)
+]]></Implementation>
+</Method>
+
 <Method name="MaakNieuweLegeBatch">
 <FormalSpec>GeplandOp:%Date,Categorie:APPS.Halux.common.enu.Categorie</FormalSpec>
 <ReturnType>APPS.Halux.common.Batch</ReturnType>
Index: APPS/Halux/common/impl/BatchService.cls.xml
===================================================================
diff -u -r29059 -r38152
--- APPS/Halux/common/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 29059)
+++ APPS/Halux/common/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 38152)
@@ -19,6 +19,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductieGroep">
+<FormalSpec>BatchID:%Integer</FormalSpec>
+<ReturnType>APPS.Halux.common.enu.ProductieGroep</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.common.impl.BatchImpl).%OpenId(BatchID).GeefProductieGroep()
+]]></Implementation>
+</Method>
+
 <Method name="MaakNieuweLegeBatch">
 <FormalSpec>GeplandOp:%Date,Categorie:APPS.Halux.common.enu.Categorie</FormalSpec>
 <ReturnType>APPS.Halux.common.Batch</ReturnType>
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>