Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r60097 -r60112
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60097)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60112)
@@ -48,6 +48,8 @@
 <Implementation><![CDATA[
 	Set DnaCodes = ##class(%ListOfDataTypes).%New()
 	
+	#dim ParentCodeVoorToeleveringLijn As %String = ""
+	#dim DnaCode As DOM.Halux.AAP.DnaCode
 	#dim Toelevering As DOM.AKP.Toelevering
 	#dim ToeleveringIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
 	#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn
@@ -61,7 +63,12 @@
 			
 			#dim Teller As %Integer = 1
 			While Teller <= ToeleveringLijn.GeefAantal() {
-				Do DnaCodes.Insert(..MaakDnaCodeVoorToeleveringLijn(ToeleveringLijn, Batch))
+				Set DnaCode = ..MaakDnaCodeVoorToeleveringLijn(ToeleveringLijn, Batch)
+				If ParentCodeVoorToeleveringLijn = "" {
+					Set ParentCodeVoorToeleveringLijn = ..BepaalParentDnaCode(DnaCode)
+				}
+				Set DnaCode.ParentDnaCode = ParentCodeVoorToeleveringLijn
+				Do DnaCodes.Insert(DnaCode)
 				Set Teller = Teller + 1
 			}
 		}
@@ -77,22 +84,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="MaakDnaCodesVoorToeleveringLijn">
-<FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn,BatchId:%String=""</FormalSpec>
-<ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[
-	Set DnaCodes = ##class(%ListOfDataTypes).%New()
-	
-	#dim Teller As %Integer = 1
-	While Teller <= ToeleveringLijn.GeefAantal() {
-		Do DnaCodes.Insert(..MaakDnaCodeVoorToeleveringLijn(ToeleveringLijn, BatchId))
-		Set Teller = Teller + 1
-	}
-	
-	Quit DnaCodes
-]]></Implementation>
-</Method>
-
 <Method name="BewaarDnaCodes">
 <FormalSpec>DnaCodes:%ListOfDataTypes</FormalSpec>
 <ReturnType>%Status</ReturnType>
@@ -170,7 +161,7 @@
 	Set DnaCode.DnaCode = ..DnaCodeGenerator.GenereerDnaCode(..ProductTypeAPI.GeefProductTypePrefix(ProductID))
 	Set DnaCode.Toelevering = Toelevering.GeefID()
 	Set DnaCode.KlantNummer = Toelevering.GeefKlantID()
-	Set DnaCode.ParentDnaCode = "" //genereren onder voorwaarde
+	Set DnaCode.ParentDnaCode = ""
 	Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw()
 	Set DnaCode.ToeleveringLijn = ToeleveringLijn.GeefID()
 	Set DnaCode.OrderId = ToeleveringLijn.GeefOrderID()
@@ -185,6 +176,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalParentDnaCode">
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ParentCode As %String = ""
+	If ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode,"O","G","M") {
+		Set ParentCode = DnaCode.DnaCode
+	}
+	
+	Do ##class(Tools.Wlip).%New(127).String("parent result = "_ParentCode)
+	Quit ParentCode
+]]></Implementation>
+</Method>
+
 <Method name="GeefVolgendeAfTeDrukkenDnaCode">
 <FormalSpec>ToeleveringID:%String,ProductID:%String,SequentieNummer:%String=""</FormalSpec>
 <ReturnType>%String</ReturnType>