Index: APPS/BKH/AankoopFactuurArchivering/impl/DocumentZoeker.cls.xml
===================================================================
diff -u -r29668 -r29670
--- APPS/BKH/AankoopFactuurArchivering/impl/DocumentZoeker.cls.xml	(.../DocumentZoeker.cls.xml)	(revision 29668)
+++ APPS/BKH/AankoopFactuurArchivering/impl/DocumentZoeker.cls.xml	(.../DocumentZoeker.cls.xml)	(revision 29670)
@@ -1,56 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.BKH.AankoopFactuurArchivering.impl.DocumentZoeker">
-<Super>TECH.Mockable</Super>
+<Super>TECH.Mockable,APPS.BKH.AankoopFactuurArchivering.impl.EasyFormRepository</Super>
 
-<Parameter name="EasyFormDocumentID">
-<Default>'abf50d8c-fb8d-410a-a569-c13db4fd593f'</Default>
-</Parameter>
-
-<Parameter name="InvoiceDocument">
-<Default>'e21e9db8-a803-4921-a97a-ac1b6ff890d2'</Default>
-</Parameter>
-
-<Parameter name="Leverancier">
-<Default>'089c3138-764b-4bb0-8c65-8b70275abacc'</Default>
-</Parameter>
-
-<Parameter name="FactuurReferentie">
-<Default>'243d1e41-d642-4d5d-81bd-512a4d38b545'</Default>
-</Parameter>
-
-<Parameter name="LeverancierFiche">
-<Default>'94d6dfa4-0155-4d31-8bf7-c5609e539a92'</Default>
-</Parameter>
-
-<Parameter name="Code">
-<Default>'8354c2e2-de47-4b89-9bba-ba770bfcb78d'</Default>
-</Parameter>
-
-<Parameter name="DatumTijd">
-<Default>'7e264f7b-4766-4687-9ee7-d9d2a2a57598'</Default>
-</Parameter>
-
-<Parameter name="FactuurBedrag">
-<Default>'103befcc-2f8c-4297-a317-74d549c096f3'</Default>
-</Parameter>
-
-<Parameter name="AankoopFactuurID">
-<Default>'A49E4A22-4AD5-4A22-8D97-CE175D760160'</Default>
-</Parameter>
-
-<Parameter name="Firma">
-<Default>'3CBB1FC3-D8A9-482C-8062-1412A9ABE017'</Default>
-</Parameter>
-
-<Parameter name="FirmaEntityIdVanHoecke">
-<Default>'E4A6D3B3-059C-4E6B-87B2-22B4C238A4D6'</Default>
-</Parameter>
-
-<Parameter name="FirmaEntityIdHalux">
-<Default>'E5A6D3B3-059C-4E6B-87B2-22B4C238A4D6'</Default>
-</Parameter>
-
 <Property name="ViaReferentie">
 <Type>%String</Type>
 <Collection>list</Collection>
@@ -110,6 +62,7 @@
 <FormalSpec>AankoopFactuurID:%String</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
+	do ..ViaAankoopFactuurID.Clear()
 	set ..AankoopFactuurID = AankoopFactuurID
 	do ..ExecViaAankoopFactuurID()
 	quit ..ViaAankoopFactuurID
@@ -120,6 +73,7 @@
 <FormalSpec>LeverancierID:%String,Referentie:%String</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
+	do ..ViaReferentie.Clear()
 	set ..LeverancierID = LeverancierID
 	set ..Referentie = Referentie
 	do ..ExecViaReferentie()
@@ -131,6 +85,7 @@
 <FormalSpec>LeverancierID:%String,Datum:%Date</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
+	do ..ViaDatum.Clear()
 	set ..LeverancierID = LeverancierID
 	
 	if $length(Datum) {
@@ -147,6 +102,7 @@
 <FormalSpec>LeverancierID:%String,FactuurBedrag:%Decimal</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
+	do ..ViaFactuurBedrag.Clear()
 	set ..FactuurBedrag = FactuurBedrag
 	set ..LeverancierID = LeverancierID
 	do ..ExecViaFactuurBedrag()
@@ -217,19 +173,6 @@
 	do ..Execute(Query,$listbuild(..LeverancierID,..DatumTijd),..ViaDatum)
 ]]></Implementation>
 </Method>
-
-<Method name="Execute">
-<FormalSpec><![CDATA[Query:%String,Param:%List,&List:%ListOfDataTypes]]></FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
- 	#dim DocumentID As %String = ""
-  	#dim rsDocumentID As %ResultSet = $$ExecDynQuery^vhLib.Query(Query,Param)
-  	while rsDocumentID.Next() {
-	  do List.Insert(rsDocumentID.GetData(1))
-    }
-  	quit
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: APPS/BKH/AankoopFactuurArchivering/impl/EasyFormRepository.cls.xml
===================================================================
diff -u -r29059 -r29670
--- APPS/BKH/AankoopFactuurArchivering/impl/EasyFormRepository.cls.xml	(.../EasyFormRepository.cls.xml)	(revision 29059)
+++ APPS/BKH/AankoopFactuurArchivering/impl/EasyFormRepository.cls.xml	(.../EasyFormRepository.cls.xml)	(revision 29670)
@@ -39,6 +39,18 @@
 <Default>'A49E4A22-4AD5-4A22-8D97-CE175D760160'</Default>
 </Parameter>
 
+<Parameter name="Firma">
+<Default>'3CBB1FC3-D8A9-482C-8062-1412A9ABE017'</Default>
+</Parameter>
+
+<Parameter name="FirmaEntityIdVanHoecke">
+<Default>'E4A6D3B3-059C-4E6B-87B2-22B4C238A4D6'</Default>
+</Parameter>
+
+<Parameter name="FirmaEntityIdHalux">
+<Default>'E5A6D3B3-059C-4E6B-87B2-22B4C238A4D6'</Default>
+</Parameter>
+
 <Method name="Execute">
 <FormalSpec><![CDATA[Query:%String,Param:%List,&List:%ListOfDataTypes]]></FormalSpec>
 <Private>1</Private>
Index: vhTest/Mock/APPS/BKH/AankoopFactuurArchivering/impl/DocumentZoeker.cls.xml
===================================================================
diff -u -r29059 -r29670
--- vhTest/Mock/APPS/BKH/AankoopFactuurArchivering/impl/DocumentZoeker.cls.xml	(.../DocumentZoeker.cls.xml)	(revision 29059)
+++ vhTest/Mock/APPS/BKH/AankoopFactuurArchivering/impl/DocumentZoeker.cls.xml	(.../DocumentZoeker.cls.xml)	(revision 29670)
@@ -8,32 +8,6 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.BKH.AankoopFactuurArchivering.impl.DocumentZoeker,Tools.Mock.MockClassBase</Super>
 
-<Method name="ExecViaAankoopFactuurID">
-<Implementation><![CDATA[	do ..VerwerkMethodCall("ExecViaAankoopFactuurID")
-]]></Implementation>
-</Method>
-
-<Method name="ExecViaDatum">
-<Implementation><![CDATA[	do ..VerwerkMethodCall("ExecViaDatum")
-]]></Implementation>
-</Method>
-
-<Method name="ExecViaFactuurBedrag">
-<Implementation><![CDATA[	do ..VerwerkMethodCall("ExecViaFactuurBedrag")
-]]></Implementation>
-</Method>
-
-<Method name="ExecViaReferentie">
-<Implementation><![CDATA[	do ..VerwerkMethodCall("ExecViaReferentie")
-]]></Implementation>
-</Method>
-
-<Method name="Execute">
-<FormalSpec><![CDATA[Query:%String,Param:%List,&List:%ListOfDataTypes]]></FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("Execute",Query,Param,.List)
-]]></Implementation>
-</Method>
-
 <Method name="ZoekViaAankoopFactuurID">
 <FormalSpec>AankoopFactuurID:%String</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>