Index: vhTest/Fake/DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u
--- vhTest/Fake/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(revision 0)
+++ vhTest/Fake/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(revision 55654)
@@ -0,0 +1,77 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.DOM.Halux.AAP.DnaCodeRepository">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.Halux.AAP.DnaCodeRepository</Super>
+
+<Method name="BestaatViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="Bewaar">
+<FormalSpec>Data:TECH.Persistent</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="Dupliceer">
+<FormalSpec>Data:TECH.Persistent,Deep:%Boolean=0</FormalSpec>
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="Maak">
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderViaObject">
+<FormalSpec>Data:TECH.Persistent</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="ZoekAlle">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="ZoekViaPalletCode">
+<FormalSpec>PalletCode:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="ZoekViaToeleveringId">
+<FormalSpec>ToelveringId:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u
--- vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(revision 0)
+++ vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(revision 55654)
@@ -0,0 +1,85 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.Halux.AAP.DnaCodeRepository,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="%OnNew">
+<FormalSpec>Gateway:TECH.Persistent.Gateway="",QueryAPI:TECH.Query.QueryAPI=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BestaatViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BestaatViaID",ID)
+]]></Implementation>
+</Method>
+
+<Method name="Bewaar">
+<FormalSpec>Data:TECH.Persistent</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Bewaar",Data)
+]]></Implementation>
+</Method>
+
+<Method name="Dupliceer">
+<FormalSpec>Data:TECH.Persistent,Deep:%Boolean=0</FormalSpec>
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Dupliceer",Data,Deep)
+]]></Implementation>
+</Method>
+
+<Method name="GeefViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefViaID",ID)
+]]></Implementation>
+</Method>
+
+<Method name="Maak">
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Maak")
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderViaID",ID)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderViaObject">
+<FormalSpec>Data:TECH.Persistent</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderViaObject",Data)
+]]></Implementation>
+</Method>
+
+<Method name="ZoekAlle">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZoekAlle")
+]]></Implementation>
+</Method>
+
+<Method name="ZoekViaPalletCode">
+<FormalSpec>PalletCode:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZoekViaPalletCode",PalletCode)
+]]></Implementation>
+</Method>
+
+<Method name="ZoekViaToeleveringId">
+<FormalSpec>ToelveringId:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZoekViaToeleveringId",ToelveringId)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u
--- DOM/Halux/AAP/DnaCodeRepository.cls.xml	(revision 0)
+++ DOM/Halux/AAP/DnaCodeRepository.cls.xml	(revision 55654)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.Halux.AAP.DnaCodeRepository">
+<Super>TECH.Persistentie.impl.Repository,TECH.Mockable</Super>
+
+<Parameter name="DataClassName">
+<Type>%String</Type>
+<Default>DOM.Halux.AAP.DnaCode</Default>
+</Parameter>
+
+<Method name="ZoekViaPalletCode">
+<FormalSpec>PalletCode:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ..ZoekViaFilter("PalletCode = ? ", $LB(PalletCode))
+]]></Implementation>
+</Method>
+
+<Method name="ZoekViaToeleveringId">
+<FormalSpec>ToelveringId:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ..ZoekViaFilter("Toelvering = ?", $LB(ToelveringId))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>