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>
Index: APPS/Halux/Planning/impl/EventCatcher.cls.xml
===================================================================
diff -u -r56441 -r56845
--- APPS/Halux/Planning/impl/EventCatcher.cls.xml	(.../EventCatcher.cls.xml)	(revision 56441)
+++ APPS/Halux/Planning/impl/EventCatcher.cls.xml	(.../EventCatcher.cls.xml)	(revision 56845)
@@ -65,9 +65,8 @@
 <Implementation><![CDATA[
 	If (EventData.GeefLeverancierID() = ##class(DOM.AKP.enu.Leverancier).Halux())
 	{
-		#dim ProductLijn As DOM.AKP.ProductToeleveringLijn = EventData.GeefProductToeleveringLijn()
 		Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New()
-		Do DnaCodeService.VerwijderDnaCodesVoorToeleveringLijn(ProductLijn)
+		Do DnaCodeService.VerwijderDnaCodesVoorToeleveringLijn(EventData.ToeleveringID, EventData.ToeleveringLijnCode)
 	}
 ]]></Implementation>
 </Method>
Index: vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r56723 -r56845
--- vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56723)
+++ vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56845)
@@ -36,8 +36,8 @@
 </Method>
 
 <Method name="VerwijderDnaCodesVoorToeleveringLijn">
-<FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderDnaCodesVoorToeleveringLijn",ToeleveringLijn)
+<FormalSpec>ToeleveringId:%String,ToeleveringLijnId:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderDnaCodesVoorToeleveringLijn",ToeleveringId,ToeleveringLijnId)
 ]]></Implementation>
 </Method>
 
Index: vhTest/Fake/APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r56723 -r56845
--- vhTest/Fake/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56723)
+++ vhTest/Fake/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56845)
@@ -16,8 +16,7 @@
 
 <Method name="DnaCodeBijwerkenMetBatchGegevens">
 <FormalSpec>Batch:APPS.Halux.common.impl.BatchImpl</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="MaakDnaCodesVoorToeleveringLijn">
@@ -28,15 +27,13 @@
 </Method>
 
 <Method name="VerwijderDnaCodesVoorToeleveringLijn">
-<FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<FormalSpec>ToeleveringId:%String,ToeleveringLijnId:%String</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="WijzigAantalDnaCodesVoorToeleveringLijn">
 <FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 </Class>