Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorBatch/Test.cls.xml
===================================================================
diff -u -r60245 -r60898
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 60245)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 60898)
@@ -86,6 +86,7 @@
 	#dim Toelevering2 As DOM.AKP.Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).ToeleveringMetLijn()
 	
 	Do ..Batch.IndienMethodCall("GeefToeleveringIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(Toelevering1, Toelevering2))
+	Do ..Batch.IndienMethodCall("GeefProductieGroep").DanReturn("")
 	
 	Do ..DnaCodeGeneratorStub.IndienMethodCall("GenereerDnaCode","L").DanReturn("HAAAAA3")
 	
@@ -100,6 +101,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Batch met 2 Toeleveringen voor vhosskast">
+<Implementation><![CDATA[
+	#dim Toelevering1 As DOM.AKP.Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).ToeleveringMetLijn()
+	#dim Toelevering2 As DOM.AKP.Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).ToeleveringMetLijn()
+	
+	Do ..Batch.IndienMethodCall("GeefToeleveringIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(Toelevering1, Toelevering2))
+	Do ..Batch.IndienMethodCall("GeefProductieGroep").DanReturn(##class(APPS.Halux.common.enu.ProductieGroep).Kast())
+	
+	Do ..DnaCodeGeneratorStub.IndienMethodCall("GenereerDnaCode","L").DanReturn("HAAAAA3")
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(, ..ProductTypeApiStub, ..DnaCodeGeneratorStub,, ..ProductApiStub)
+	#dim DnaCodes as %ListOfDataTypes = DnaCodeService.MaakDnaCodesVoorBatch(..Batch)
+	
+	Do $$$AssertEquals(DnaCodes.Count(),2)
+	Do $$$AssertEquals(DnaCodes.GetAt(1).Status,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch())
+	Do $$$AssertEquals(DnaCodes.GetAt(1).ParentDnaCode,"HAAAAA3")
+	Do $$$AssertEquals(DnaCodes.GetAt(2).Status,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch())
+	Do $$$AssertEquals(DnaCodes.GetAt(1).ParentDnaCode,"HAAAAA3")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Batch met 2 Toeleveringen die ParentDnaCode nodig gaan hebben">
 <Implementation><![CDATA[
 	#dim Toelevering1 As DOM.AKP.Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).ToeleveringMetLijn()
Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r60245 -r60898
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60245)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60898)
@@ -71,7 +71,7 @@
 			While Teller <= ToeleveringLijn.GeefAantal() {
 				Set DnaCode = ..MaakDnaCodeVoorToeleveringLijn(ToeleveringLijn, Batch)
 				If ParentCodeVoorToeleveringLijn = "" {
-					Set ParentCodeVoorToeleveringLijn = ..BepaalParentDnaCode(DnaCode)
+					Set ParentCodeVoorToeleveringLijn = ..BepaalParentDnaCode(DnaCode, Batch)
 				}
 				Set DnaCode.ParentDnaCode = ParentCodeVoorToeleveringLijn
 				Do DnaCodes.Insert(DnaCode)
@@ -186,12 +186,12 @@
 </Method>
 
 <Method name="BepaalParentDnaCode">
-<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,Batch:APPS.Halux.common.impl.BatchImpl=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim ParentCode As %String = ""
-	If ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode,"O","G","M") {
+	If ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode,"O","G","M") || (Batch.GeefProductieGroep()=##class(APPS.Halux.common.enu.ProductieGroep).Kast()) {
 		Set ParentCode = DnaCode.DnaCode
 	}