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
 	}