Index: DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r57105 -r57870
--- DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 57105)
+++ DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 57870)
@@ -55,6 +55,12 @@
 <Implementation><![CDATA[	Do ..VerwijderViaFilter("Toelevering = ? and DnaCode = ?", $LB(ToeleveringId, DnaCode))
 ]]></Implementation>
 </Method>
+
+<Method name="VerwijderDnaCodesVoorBatchId">
+<FormalSpec>BatchId:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..VerwijderViaFilter("BatchId = ? and Status = ?",$LB(BatchId, ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw()))
+]]></Implementation>
+</Method>
 </Class>