Index: vhTest/Fake/DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r61422 -r61746
--- vhTest/Fake/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 61422)
+++ vhTest/Fake/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 61746)
@@ -33,6 +33,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZoekViaParentDnaCode">
+<FormalSpec>ParentDnaCode:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="ZoekKaderdeurenViaDatum">
 <FormalSpec>Horolog:TECH.Horolog</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
Index: vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r61422 -r61746
--- vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 61422)
+++ vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 61746)
@@ -183,6 +183,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZoekViaParentDnaCode">
+<FormalSpec>ParentDnaCode:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZoekViaParentDnaCode",ParentDnaCode)
+]]></Implementation>
+</Method>
+
 <Method name="ZoekViaToeleveringEnToeleveringLijnId">
 <FormalSpec>ToeleveringId:%String,ToeleveringLijnId:%String</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
Index: DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r61422 -r61746
--- DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 61422)
+++ DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 61746)
@@ -180,6 +180,13 @@
 <Implementation><![CDATA[	Quit ..ZoekViaFilter("LadeCode = ? and (AanmaakTijdstip > current_date - 30)",$lb(Ladecode))
 ]]></Implementation>
 </Method>
+
+<Method name="ZoekViaParentDnaCode">
+<FormalSpec>ParentDnaCode:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ..ZoekViaFilter("ParentDnaCode = ? ", $LB(ParentDnaCode))
+]]></Implementation>
+</Method>
 </Class>