Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r56385 -r56418
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56385)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56418)
@@ -53,6 +53,12 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="VerwijderDnaCodesVoorToeleveringLijn">
+<FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn</FormalSpec>
+<Implementation><![CDATA[	Do ..DnaCodeRepository.VerwijderNieuweCodesVoorToeleveringId(ToeleveringLijn.GeefID())
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r55671 -r56418
--- vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 55671)
+++ vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 56418)
@@ -48,6 +48,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderNieuweCodesVoorToeleveringId">
+<FormalSpec>ToeleveringId:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("VerwijderNieuweCodesVoorToeleveringId",ToeleveringId)
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderViaID">
 <FormalSpec>ID:%String</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderViaID",ID)
Index: DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r55671 -r56418
--- DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 55671)
+++ DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 56418)
@@ -28,6 +28,13 @@
 <Implementation><![CDATA[	Quit ..ZoekViaFilter("DnaCode = ?", $LB(DnaCode))
 ]]></Implementation>
 </Method>
+
+<Method name="VerwijderNieuweCodesVoorToeleveringId">
+<FormalSpec>ToeleveringId:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Do ..VerwijderViaFilter("Toelevering = ? and Status = ?", $LB(ToeleveringId, ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw()))
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Fake/DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r55671 -r56418
--- vhTest/Fake/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 55671)
+++ vhTest/Fake/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 56418)
@@ -40,6 +40,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderNieuweCodesVoorToeleveringId">
+<FormalSpec>ToeleveringId:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderViaID">
 <FormalSpec>ID:%String</FormalSpec>
 <Implementation><![CDATA[