Index: DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r56433 -r56842
--- DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 56433)
+++ DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 56842)
@@ -36,6 +36,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderNieuweCodesVoorToeleveringLijnId">
+<FormalSpec>ToeleveringId:%String,ToeleveringLijnId:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Do ..VerwijderViaFilter("Toelevering = ? and Status = ? and ToeleveringlijnId = ?", $LB(ToeleveringId, ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw(), ToeleveringLijnId))
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderDnaCodeVoorToeleveringId">
 <FormalSpec>ToeleveringId:%String,DnaCode:%String</FormalSpec>
 <Implementation><![CDATA[	Do ..VerwijderViaFilter("Toelevering = ? and DnaCode = ?", $LB(ToeleveringId, DnaCode))