Index: zTryout/KCA/VerzendKvikFacturen.cls.xml
===================================================================
diff -u -r33544 -r33556
--- zTryout/KCA/VerzendKvikFacturen.cls.xml	(.../VerzendKvikFacturen.cls.xml)	(revision 33544)
+++ zTryout/KCA/VerzendKvikFacturen.cls.xml	(.../VerzendKvikFacturen.cls.xml)	(revision 33556)
@@ -5,8 +5,8 @@
 
 <Method name="VerzendBeideKlanten">
 <Implementation><![CDATA[
-	Do ..Verzend(##class(DOM.VKP.enu.Klant).KvikBE())
-	///Do ..Verzend(##class(DOM.VKP.enu.Klant).KvikNL())
+	///Do ..Verzend(##class(DOM.VKP.enu.Klant).KvikBE())
+	Do ..Verzend(##class(DOM.VKP.enu.Klant).KvikNL())
 ]]></Implementation>
 </Method>
 
@@ -21,16 +21,23 @@
 	{
 		#dim FactuurID As %String = FactuurIterator.Next().GeefID()
 		
-		if (FactuurID > 587000) && (FactuurID < 588000) {
-			#dim Data As DOM.VKP.event.VerkoopfactuurEventData = ##class(DOM.VKP.event.VerkoopfactuurEventData).%New(FactuurID)
-			write FactuurID, !
-		
-			#dim Event As DOM.VKP.event.VerkoopfactuurGemaaktEvent = ##class(DOM.VKP.event.VerkoopfactuurGemaaktEvent).%New(Data)
-			Do ##class(APPS.EDIExport.FactuurVerzender.impl.Kvik.Verzender).StartVerwerking(Event)
+		if (FactuurID > 56500) && (FactuurID < 588281) {
+			Do ..VerzendFactuur(FactuurID)
 		}
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="VerzendFactuur">
+<FormalSpec>FactuurID:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim Data As DOM.VKP.event.VerkoopfactuurEventData = ##class(DOM.VKP.event.VerkoopfactuurEventData).%New(FactuurID)
+	write FactuurID, !
+
+	#dim Event As DOM.VKP.event.VerkoopfactuurGemaaktEvent = ##class(DOM.VKP.event.VerkoopfactuurGemaaktEvent).%New(Data)
+	Do ##class(APPS.EDIExport.FactuurVerzender.impl.Kvik.Verzender).StartVerwerking(Event)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/EDIExport/FactuurVerzender/impl/Kvik/Verzender/Verzend/Test.cls.xml
===================================================================
diff -u -r33550 -r33556
--- vhUnitTest/APPS/EDIExport/FactuurVerzender/impl/Kvik/Verzender/Verzend/Test.cls.xml	(.../Test.cls.xml)	(revision 33550)
+++ vhUnitTest/APPS/EDIExport/FactuurVerzender/impl/Kvik/Verzender/Verzend/Test.cls.xml	(.../Test.cls.xml)	(revision 33556)
@@ -3,6 +3,21 @@
 <Class name="vhUnitTest.APPS.EDIExport.FactuurVerzender.impl.Kvik.Verzender.Verzend.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("MSMGATEWAY","E:\CacheExport\2010v2\ADMIN1\MSMGATEWAY",..#Applicatie)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim TestBestandsLocatie As %String = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("MSMGATEWAY"),"Kvik\EdiFactuur\Archief") 
+	Do ##class(TECH.File.impl.DirectoryUtils).%New().VerwijderBestanden(TestBestandsLocatie)
+	write TestBestandsLocatie,!
+]]></Implementation>
+</Method>
+
 <Method name="Test: Converteerder van de Kvik factuur voor Nederlands afleveradres zonder BTW">
 <Implementation><![CDATA[
 	#dim FileAPI As TECH.File.FileAPI = ##class(TECH.Context).Instance().GeefFileAPI()
Index: vhTest/Mock/TECH/File/DirectoryUtils.cls.xml
===================================================================
diff -u -r29059 -r33556
--- vhTest/Mock/TECH/File/DirectoryUtils.cls.xml	(.../DirectoryUtils.cls.xml)	(revision 29059)
+++ vhTest/Mock/TECH/File/DirectoryUtils.cls.xml	(.../DirectoryUtils.cls.xml)	(revision 33556)
@@ -3,7 +3,8 @@
 <Class name="vhTest.Mock.TECH.File.DirectoryUtils">
 <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>
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.File.DirectoryUtils,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
@@ -33,6 +34,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderBestanden">
+<FormalSpec>Directory:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderBestanden",Directory)
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderBestandenOuderDan">
 <FormalSpec>Directory:%String,Datum:%Date</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderBestandenOuderDan",Directory,Datum)
Index: APPS/EDIExport/FactuurVerzender/impl/Kvik/Verzender.cls.xml
===================================================================
diff -u -r33441 -r33556
--- APPS/EDIExport/FactuurVerzender/impl/Kvik/Verzender.cls.xml	(.../Verzender.cls.xml)	(revision 33441)
+++ APPS/EDIExport/FactuurVerzender/impl/Kvik/Verzender.cls.xml	(.../Verzender.cls.xml)	(revision 33556)
@@ -109,15 +109,15 @@
 
 <Method name="ZetConfiguratie">
 <Implementation><![CDATA[
-		Set ..BestandLocatie = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("MSMGATEWAY"),"Kvik\EdiFactuur") 
-		Set ..BestandsNaam = ..GeefBestandNaam()
+	Set ..BestandLocatie = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("MSMGATEWAY"),"Kvik\EdiFactuur") 
+	Set ..BestandsNaam = ..GeefBestandNaam()
 
-		if (..ServerBestandsNaam = "") { 
-			Set ..ServerBestandsNaam = ..BestandsNaam
-			}
-		If $$$Not($Isobject(..FtpConfiguratie)) { 	
-			Set ..FtpConfiguratie = ..GeefKvikFtpConfiguratie() 
+	if (..ServerBestandsNaam = "") { 
+		Set ..ServerBestandsNaam = ..BestandsNaam
 		}
+	If $$$Not($Isobject(..FtpConfiguratie)) { 	
+		Set ..FtpConfiguratie = ..GeefKvikFtpConfiguratie() 
+	}
 ]]></Implementation>
 </Method>