Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r56730 -r56845
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56730)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56845)
@@ -58,8 +58,8 @@
 </Method>
 
 <Method name="VerwijderDnaCodesVoorToeleveringLijn">
-<FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn</FormalSpec>
-<Implementation><![CDATA[	Do ..DnaCodeRepository.VerwijderNieuweCodesVoorToeleveringId(ToeleveringLijn.GeefToelevering().GeefID())
+<FormalSpec>ToeleveringId:%String,ToeleveringLijnId:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..DnaCodeRepository.VerwijderNieuweCodesVoorToeleveringLijnId(ToeleveringId, ToeleveringLijnId)
 ]]></Implementation>
 </Method>
 
@@ -120,6 +120,7 @@
 	Set DnaCode.KlantNummer = Toelevering.GeefKlantID()
 	Set DnaCode.ParentDnaCode = "" //genereren onder voorwaarde
 	Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw()
+	Set DnaCode.ToeleveringLijn = ToeleveringLijn.GeefID()
 
 	Quit DnaCode
 ]]></Implementation>