Index: vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r55666 -r55671
--- vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 55666)
+++ vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 55671)
@@ -66,6 +66,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZoekViaDnaCode">
+<FormalSpec>DnaCode:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZoekViaDnaCode",DnaCode)
+]]></Implementation>
+</Method>
+
 <Method name="ZoekViaPalletCode">
 <FormalSpec>PalletCode:%String</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
Index: vhTest/Fake/DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r55654 -r55671
--- vhTest/Fake/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 55654)
+++ vhTest/Fake/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 55671)
@@ -58,6 +58,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZoekViaDnaCode">
+<FormalSpec>DnaCode:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="ZoekViaPalletCode">
 <FormalSpec>PalletCode:%String</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
Index: DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r55666 -r55671
--- DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 55666)
+++ DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 55671)
@@ -21,6 +21,13 @@
 <Implementation><![CDATA[	Quit ..ZoekViaFilter("Toelevering = ?", $LB(ToeleveringId))
 ]]></Implementation>
 </Method>
+
+<Method name="ZoekViaDnaCode">
+<FormalSpec>DnaCode:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ..ZoekViaFilter("DnaCode = ?", $LB(DnaCode))
+]]></Implementation>
+</Method>
 </Class>