Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/Sender/Test.cls.xml
===================================================================
diff -u -r39738 -r40567
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/Sender/Test.cls.xml	(.../Test.cls.xml)	(revision 39738)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/Sender/Test.cls.xml	(.../Test.cls.xml)	(revision 40567)
@@ -6,13 +6,10 @@
 <Method name="Test : Send doet ftp bestand en zet status op Bezig">
 <Implementation><![CDATA[
 	do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
-	
-	Set ExportStatusServiceMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusService).%New()
-	
+		
 	Set BezigResponse = ##class(WS.Vhisie4.WinkelkarExport.SendResponse).%New()
 	Set BezigResponse.Winkelkar.VanHoeckeId = "WinkelkarId"
 	Set BezigResponse.Winkelkar.Status = "Bezig"
-	Do ExportStatusServiceMock.VerwachtMethodCall("Registreer",..Matches.DataTransferObject(BezigResponse)).ExactAantalKeer(1)
 	
 	Set FtpApiMock = ##class(vhTest.Mock.TECH.Ftp.FtpAPI).%New()
 
@@ -23,21 +20,18 @@
 	
 	Set FtpConfiguratie = ##class(TECH.Ftp.FtpConfiguratie).%New(ConnectionString)
 	Set FtpConfiguratie.ServerBestandsLocatie = ServerBestandsLocatie
-	
 
-	Do FtpApiMock.VerwachtMethodCall("Connecteer",..Matches.DataTransferObject(FtpConfiguratie)).DanDoeNiks()
-	
+	Do FtpApiMock.VerwachtMethodCall("Connecteer",..Matches.DataTransferObject(FtpConfiguratie)).DanDoeNiks()	
 	Do FtpApiMock.VerwachtMethodCall("VerzendStream",..Matches.Stream(##class(vhTest.Utils.WS.Vhisie4.WinkelkarExport.dto.Winkelkar).StandaardProductAsStream()),"VH-WinkelkarId-2011-06-30-091500.xml").DanDoeNiks()
 	Do FtpApiMock.VerwachtMethodCall("VerbreekVerbinding").DanDoeNiks()
 	
-	Set Sender = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender).%New(FtpApiMock,ExportStatusServiceMock)
+	Set Sender = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender).%New(FtpApiMock)
 	
 	#dim SendResponse As WS.Vhisie4.WinkelkarExport.SendResponse = Sender.Send(##class(vhTest.Utils.WS.Vhisie4.WinkelkarExport.dto.Winkelkar).StandaardProduct())
     Do $$$AssertEquals(SendResponse.Winkelkar.VanHoeckeId,"WinkelkarId")
     Do $$$AssertEquals(SendResponse.Winkelkar.Status,"Bezig")
 
 	Do FtpApiMock.Verifieer()
-	Do ExportStatusServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 </Class>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Sender.cls.xml
===================================================================
diff -u -r39738 -r40567
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Sender.cls.xml	(.../Sender.cls.xml)	(revision 39738)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Sender.cls.xml	(.../Sender.cls.xml)	(revision 40567)
@@ -9,11 +9,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="ExportStatusService">
-<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusService</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="DateTimeApi">
 <Type>TECH.DateTime.DateTimeAPI</Type>
 <Private>1</Private>
@@ -25,14 +20,13 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>FtpAPI:TECH.Ftp.FtpAPI="",ExportStatusService:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusService,DateTimeApi:TECH.DateTime.DateTimeAPI,FormatApi:TECH.Format.FormatAPI</FormalSpec>
+<FormalSpec>FtpAPI:TECH.Ftp.FtpAPI="",DateTimeApi:TECH.DateTime.DateTimeAPI,FormatApi:TECH.Format.FormatAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	set ..FtpAPI = $$$Inject(FtpAPI,##class(TECH.Context).Instance().GeefFtpAPI())
-	Set ..ExportStatusService = $$$Inject(ExportStatusService,##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusService).%New())
 	set ..DateTimeApi = $$$Inject(DateTimeApi,##class(TECH.Context).Instance().GeefDateTimeAPI())
 	set ..FormatApi = $$$Inject(FormatApi,##class(TECH.Context).Instance().GeefFormatAPI())
 	
@@ -46,7 +40,6 @@
 <ReturnType>WS.Vhisie4.WinkelkarExport.SendResponse</ReturnType>
 <Implementation><![CDATA[
 	#dim Response As WS.Vhisie4.WinkelkarExport.SendResponse = ..GeefBezigSendResponse(Winkelkar)
-	Do ..ExportStatusService.Registreer(Response)
 	try {
 		set FtpConfiguratie = ##class(TECH.Ftp.FtpConfiguratie).%New(##class(TECH.Config.ConfigMgr).Instance().GeefString("Vhisie4.WinkelkarExport.FtpConfiguratie.ConnectionString"))
 		set FtpConfiguratie.ServerBestandsLocatie = ##class(TECH.Config.ConfigMgr).Instance().GeefString("Vhisie4.WinkelkarExport.FtpConfiguratie.ServerBestandsLocatie")
@@ -57,9 +50,7 @@
 	} catch {
 		#Dim Exception as TECH.IException = ##class(TECH.ExceptionHandler).Catch()
 		Set Response = ..GeefVerzondenGefaaldSendResponse(Winkelkar,Exception.ToString())
-		Do ..ExportStatusService.Registreer(Response)
-	}
-	
+	}	
 	quit Response
 ]]></Implementation>
 </Method>