Index: DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r56418 -r56433
--- DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 56418)
+++ DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 56433)
@@ -35,6 +35,12 @@
 <Implementation><![CDATA[	Do ..VerwijderViaFilter("Toelevering = ? and Status = ?", $LB(ToeleveringId, ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw()))
 ]]></Implementation>
 </Method>
+
+<Method name="VerwijderDnaCodeVoorToeleveringId">
+<FormalSpec>ToeleveringId:%String,DnaCode:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..VerwijderViaFilter("Toelevering = ? and DnaCode = ?", $LB(ToeleveringId, DnaCode))
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Fake/DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r56428 -r56433
--- vhTest/Fake/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 56428)
+++ vhTest/Fake/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 56433)
@@ -39,6 +39,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderDnaCodeVoorToeleveringId">
+<FormalSpec>ToeleveringId:%String,DnaCode:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderNieuweCodesVoorToeleveringId">
 <FormalSpec>ToeleveringId:%String</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
Index: vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r56418 -r56433
--- vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 56418)
+++ vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 56433)
@@ -48,6 +48,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderDnaCodeVoorToeleveringId">
+<FormalSpec>ToeleveringId:%String,DnaCode:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderDnaCodeVoorToeleveringId",ToeleveringId,DnaCode)
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderNieuweCodesVoorToeleveringId">
 <FormalSpec>ToeleveringId:%String</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>