Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorBatch/Test.cls.xml
===================================================================
diff -u -r60898 -r61742
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 60898)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 61742)
@@ -137,6 +137,30 @@
 	Do $$$AssertEquals(DnaCodes.GetAt(2).ParentDnaCode,"OAAAAA3")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Losse Componenten -&gt; parentdnacode invullen">
+<Implementation><![CDATA[
+	#dim ProductToeleveringLijn As vhTest.Utils.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
+	Do ProductToeleveringLijn.IndienMethodCall("GeefAantal").DanReturn(2)
+	Do ProductToeleveringLijn.IndienMethodCall("GeefProductID").DanReturn(1000)
+	Do ProductToeleveringLijn.IndienMethodCall("GeefOrderID").DanReturn(123000)
+	
+	Set ProductToeleveringLijnList = ##class(%ListOfObjects).%New()
+	Do ProductToeleveringLijnList.Insert(ProductToeleveringLijn)
+	#dim Toelevering1 As DOM.AKP.Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).StandaardToeleveringHoofding(,ProductToeleveringLijnList)
+	
+	Do ..Batch.IndienMethodCall("GeefToeleveringIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(Toelevering1))
+	Do ..Batch.IndienMethodCall("GeefProductieGroep").DanReturn(##class(APPS.Halux.common.enu.ProductieGroep).LosseComponenten())
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(, ..ProductTypeApiStub, ..DnaCodeGeneratorStub,, ..ProductApiStub)
+	#dim DnaCodes as %ListOfDataTypes = DnaCodeService.MaakDnaCodesVoorBatch(..Batch)
+	
+	If $$$AssertEquals(DnaCodes.Count(),2) {
+		Do $$$AssertEquals(DnaCodes.GetAt(1).ParentDnaCode,"OAAAAA3")
+		Do $$$AssertEquals(DnaCodes.GetAt(2).ParentDnaCode,"OAAAAA3")
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r61692 -r61742
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61692)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61742)
@@ -203,7 +203,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim ParentCode As %String = ""
-	If ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode,"O","G","M") || (Batch.GeefProductieGroep()=##class(APPS.Halux.common.enu.ProductieGroep).Kast()) {
+	If ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode,"O","G","M") || (Batch.GeefProductieGroep()=##class(APPS.Halux.common.enu.ProductieGroep).Kast())|| (Batch.GeefProductieGroep()=##class(APPS.Halux.common.enu.ProductieGroep).LosseComponenten()) {
 		Set ParentCode = DnaCode.DnaCode
 	}