Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r56434 -r56435
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56434)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56435)
@@ -28,14 +28,7 @@
 	
 	#dim Teller As %Integer = 1
 	While Teller <= ToeleveringLijn.GeefAantal() {
-		Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
-		Set DnaCode.ProductNummer = ToeleveringLijn.GeefProductID()
-		Set DnaCode.DnaCode = 0 //nog te genereren
-		Set DnaCode.Toelevering = ToeleveringLijn.GeefToelevering().GeefID()
-		Set DnaCode.KlantNummer = ToeleveringLijn.GeefToelevering().GeefKlantID()
-		Set DnaCode.ParentDnaCode = "" //genereren onder voorwaarde
-		Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw()
-		Do DnaCodes.Insert(DnaCode)
+		Do DnaCodes.Insert(..MaakDnaCodeVoorToeleveringLijn(ToeleveringLijn))
 		Set Teller = Teller + 1
 	}
 	
@@ -75,6 +68,23 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="MaakDnaCodeVoorToeleveringLijn">
+<FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.Halux.AAP.DnaCode</ReturnType>
+<Implementation><![CDATA[
+	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode.ProductNummer = ToeleveringLijn.GeefProductID()
+	Set DnaCode.DnaCode = 0 //nog te genereren
+	Set DnaCode.Toelevering = ToeleveringLijn.GeefToelevering().GeefID()
+	Set DnaCode.KlantNummer = ToeleveringLijn.GeefToelevering().GeefKlantID()
+	Set DnaCode.ParentDnaCode = "" //genereren onder voorwaarde
+	Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw()
+
+	Quit DnaCode
+]]></Implementation>
+</Method>
 </Class>