Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r66822 -r66823
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 66822)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 66823)
@@ -101,7 +101,7 @@
 			While Teller <= ToeleveringLijn.GeefAantal() {
 				Set DnaCode = ..DnaCodeServiceHelper.MaakDnaCodeVoorToeleveringLijn(ToeleveringLijn, Batch)
 				If ParentCodeVoorToeleveringLijn = "" {
-					Set ParentCodeVoorToeleveringLijn = ..BepaalParentDnaCode(DnaCode, Batch)
+					Set ParentCodeVoorToeleveringLijn = ..DnaCodeServiceHelper.BepaalParentDnaCode(DnaCode, Batch)
 				}
 				Set DnaCode.ParentDnaCode = ParentCodeVoorToeleveringLijn
 				Do DnaCodes.Insert(DnaCode)
@@ -185,21 +185,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalParentDnaCode">
-<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") || (Batch.GeefProductieGroep()=##class(APPS.Halux.common.enu.ProductieGroep).Kast())|| (Batch.GeefProductieGroep()=##class(APPS.Halux.common.enu.ProductieGroep).LosseComponenten() || (..IsTaorLosseComponentenVerpakking(DnaCode))) {
-		Set ParentCode = DnaCode.DnaCode
-	}
-	
-	Quit ParentCode
-]]></Implementation>
-</Method>
-
 <Method name="IsTaorLosseComponentenVerpakking">
 <FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
 <Private>1</Private>