Index: vhTest/Fake/APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r58964 -r60112
--- vhTest/Fake/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58964)
+++ vhTest/Fake/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60112)
@@ -14,6 +14,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalParentDnaCode">
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="DnaCodeBijwerkenMetBatchGegevens">
 <FormalSpec>Batch:APPS.Halux.common.impl.BatchImpl</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorBatch/Test.cls.xml
===================================================================
diff -u -r58728 -r60112
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 58728)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 60112)
@@ -70,21 +70,41 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Batch met 2 Toeleveringen">
+<Method name="Test: Batch met 2 Toeleveringen zonder ParentDnaCode">
 <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 ..DnaCodeGeneratorStub.IndienMethodCall("GenereerDnaCode","L").DanReturn("HAAAAA3")
+	
 	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(, ..ProductTypeApiStub, ..DnaCodeGeneratorStub)
 	#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,"")
 	Do $$$AssertEquals(DnaCodes.GetAt(2).Status,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch())
+	Do $$$AssertEquals(DnaCodes.GetAt(1).ParentDnaCode,"")
 ]]></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()
+	#dim Toelevering2 As DOM.AKP.Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).ToeleveringMetLijn()
+	
+	Do ..Batch.IndienMethodCall("GeefToeleveringIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(Toelevering1, Toelevering2))
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(, ..ProductTypeApiStub, ..DnaCodeGeneratorStub)
+	#dim DnaCodes as %ListOfDataTypes = DnaCodeService.MaakDnaCodesVoorBatch(..Batch)
+	
+	Do $$$AssertEquals(DnaCodes.Count(),2)
+	Do $$$AssertEquals(DnaCodes.GetAt(1).ParentDnaCode,"OAAAAA3")
+	Do $$$AssertEquals(DnaCodes.GetAt(2).ParentDnaCode,"OAAAAA3")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r59589 -r60112
--- vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 59589)
+++ vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60112)
@@ -42,13 +42,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="MaakDnaCodesVoorToeleveringLijn">
-<FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn,BatchId:%String=""</FormalSpec>
-<ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakDnaCodesVoorToeleveringLijn",ToeleveringLijn,BatchId)
-]]></Implementation>
-</Method>
-
 <Method name="VerwijderDnaCodesVoorBatch">
 <FormalSpec>BatchId:%String</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderDnaCodesVoorBatch",BatchId)
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>
FishEye: Tag 60112 refers to a dead (removed) revision in file `vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorToeleveringLijn/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?