Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Sender/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Sender/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Sender/Test.cls.xml	(revision 39595)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.Winkelkar.FlowWinkelkarConverter.Sender.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="aTest : Send doet ftp bestand en zet status op Bezig">
+<Implementation><![CDATA[
+	Set ExportStatusServiceMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusService).%New()
+	Set FtpApiMock  = ##class(vhTest.Mock.TECH.Ftp.FtpAPI).%New()
+	Set Sender = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Sender).%New(FtpApiMock,ExportStatusServiceMock)
+	#Dim Winkelkar as WS.Vhisie4.Winkelkar.dto.Winkelkar = ..GeefWinkelkar()
+	#Dim SendResponse as WS.Vhisie4.WinkelkarExport.SendResponse
+
+	//hoe geraak ik aan een sendresponse voor de winkelkar op een correcte manier.
+	
+	Set SendResponse = Sender.Send(Winkelkar)
+
+
+	Do FtpApiMock.Verifieer()
+	Do ExportStatusServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefWinkelkar">
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.Winkelkar.dto.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+		Set Winkelkar = ##class(WS.Vhisie4.Winkelkar.dto.Winkelkar).%New()
+		Set Winkelkar.Id = 666
+		quit Winkelkar
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[	Do ##super(aTestName)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter/Sender.cls.xml
===================================================================
diff -u -r39342 -r39595
--- vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter/Sender.cls.xml	(.../Sender.cls.xml)	(revision 39342)
+++ vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter/Sender.cls.xml	(.../Sender.cls.xml)	(revision 39595)
@@ -15,6 +15,11 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("Send",Winkelkar)
 ]]></Implementation>
 </Method>
+
+<Method name="ZetFtpConfiguratie">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetFtpConfiguratie")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter/Sender.cls.xml
===================================================================
diff -u -r39340 -r39595
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter/Sender.cls.xml	(.../Sender.cls.xml)	(revision 39340)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter/Sender.cls.xml	(.../Sender.cls.xml)	(revision 39595)
@@ -2,42 +2,131 @@
 <Export generator="Cache" version="24">
 <Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Sender">
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%SOAP.WebClient,TECH.Mockable</Super>
+<Super>TECH.Mockable</Super>
 
-<Parameter name="LOCATION">
-<Description>
-This is the URL used to access the web service.</Description>
-<Default>http://127.0.0.1:57772/csp/dev1/WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FakeIntractoService.cls</Default>
-</Parameter>
+<Property name="FtpAPI">
+<Type>TECH.Ftp.FtpAPI</Type>
+<Private>1</Private>
+</Property>
 
-<Parameter name="NAMESPACE">
-<Description>
-This is the namespace used by the Service</Description>
-<Default>http://tempuri.org</Default>
-</Parameter>
+<Property name="FtpConfiguratie">
+<Type>TECH.Ftp.FtpConfiguratie</Type>
+<Private>1</Private>
+</Property>
 
-<Parameter name="OUTPUTTYPEATTRIBUTE">
-<Description>
-Use xsi:type attribute for literal types.</Description>
-<Default>1</Default>
-</Parameter>
+<Property name="ExportStatusService">
+<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusService</Type>
+<Private>1</Private>
+</Property>
 
-<Parameter name="SERVICENAME">
-<Description>
-This is the name of the Service</Description>
-<Default>Tools.Test.WebService</Default>
-</Parameter>
+<Method name="%OnNew">
+<FormalSpec>FtpAPI:TECH.Ftp.FtpAPI="",ExportStatusService:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusService</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())
+	Quit $$$OK
+]]></Implementation>
+</Method>
 
 <Method name="Send">
 <FormalSpec>Winkelkar:WS.Vhisie4.Winkelkar.dto.Winkelkar</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>WS.Vhisie4.WinkelkarExport.SendResponse</ReturnType>
-<WebMethod>1</WebMethod>
-<SoapBindingStyle>document</SoapBindingStyle>
-<SoapBodyUse>literal</SoapBodyUse>
-<Implementation><![CDATA[ 	Quit ..WebMethod("Send").Invoke($this,"http://tempuri.org/WSimpl.Vhisie4.Winkelkar.TbxWinkelkarConverter.FakeIntractoService.Send",.Winkelkar)
+<Implementation><![CDATA[
+	#Dim Response as WS.Vhisie4.WinkelkarExport.SendResponse = ##class(WS.Vhisie4.WinkelkarExport.SendResponse).%New()
+	Do ..ExportStatusService.Registreer(..GeefBezigSendResponse(Winkelkar))
+	try {
+		Do ..ZetFtpConfiguratie()
+		Do ..FtpAPI.Connecteer(..FtpConfiguratie)
+		Do ..FtpAPI.VerzendStream(..GeefXMLStream(Winkelkar),..GeefNaamBestand(Winkelkar) )
+		Do ..FtpAPI.VerbreekVerbinding()
+		Do ..ExportStatusService.Registreer(..GeefVerzondenSendResponse(Winkelkar))		
+	} catch {
+		#Dim Exception as TECH.IException = ##class(TECH.ExceptionHandler).Catch()
+		Do ..ExportStatusService.Registreer(..GeefVerzondenGefaaldSendResponse(Winkelkar),Exception.ToString())
+	}
 ]]></Implementation>
 </Method>
+
+<Method name="GeefXMLStream">
+<FormalSpec>Winkelkar:WS.Vhisie4.Winkelkar.dto.Winkelkar</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Stream</ReturnType>
+<Implementation><![CDATA[
+	Set WinkelkarStream = ##class(%GlobalCharacterStream).%New()
+	Quit Winkelkar.XMLExportToStream(.WinkelkarStream)
+]]></Implementation>
+</Method>
+
+<Method name="GeefNaamBestand">
+<FormalSpec>Winkelkar:WS.Vhisie4.Winkelkar.dto.Winkelkar</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Context As TECH.Context = ##class(TECH.Context).Instance()
+	#dim HuidigeDatumTijd As TECH.Horolog = Context.GeefDateTimeAPI().CurrentHorolog()
+	#dim NieuwFormaatDatumTijd As %String = Context.GeefFormatAPI().FormatHorolog(HuidigeDatumTijd, "yyyy-mm-dd-hhnnss")
+
+	Quit "VH-"_Winkelkar.Id_"-"_NieuwFormaatDatumTijd_".xml"
+]]></Implementation>
+</Method>
+
+<Method name="GeefBezigSendResponse">
+<FormalSpec>Winkelkar:WS.Vhisie4.Winkelkar.dto.Winkelkar</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.WinkelkarExport.SendResponse</ReturnType>
+<Implementation><![CDATA[
+	#Dim SendResponse as WS.Vhisie4.WinkelkarExport.SendResponse = ..GeefSendResponse(Winkelkar)
+	Set SendResponse.Winkelkar.Status = "Bezig"
+	Quit SendResponse
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerzondenSendResponse">
+<FormalSpec>Winkelkar:WS.Vhisie4.Winkelkar.dto.Winkelkar</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.WinkelkarExport.SendResponse</ReturnType>
+<Implementation><![CDATA[
+	#Dim SendResponse as WS.Vhisie4.WinkelkarExport.SendResponse = ..GeefSendResponse(Winkelkar)
+	Set SendResponse.Winkelkar.Status = "Geslaagd"
+	Quit SendResponse
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerzondenGefaaldSendResponse">
+<FormalSpec>Winkelkar:WS.Vhisie4.Winkelkar.dto.Winkelkar,Foutmelding:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.WinkelkarExport.SendResponse</ReturnType>
+<Implementation><![CDATA[
+	#Dim SendResponse as WS.Vhisie4.WinkelkarExport.SendResponse = ..GeefSendResponse(Winkelkar)
+	Set SendResponse.Winkelkar.Status = "Gefaald"
+	Set SendResponse.Winkelkar.Foutmelding = Foutmelding
+	Quit SendResponse
+]]></Implementation>
+</Method>
+
+<Method name="GeefSendResponse">
+<FormalSpec>Winkelkar:WS.Vhisie4.Winkelkar.dto.Winkelkar</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.WinkelkarExport.SendResponse</ReturnType>
+<Implementation><![CDATA[
+	Set SendResponse = ##class(WS.Vhisie4.WinkelkarExport.SendResponse).%New()
+	Set SendResponse.Winkelkar.VanHoeckeId = Winkelkar.Id
+	Quit SendResponse
+]]></Implementation>
+</Method>
+
+<Method name="ZetFtpConfiguratie">
+<Implementation><![CDATA[
+	#Dim FtpConnectionString as %String
+	Set FtpConnectionString = "username:passworword@ftp.com"
+	Set ..FtpConfiguratie  = ##class(TECH.Ftp.FtpConfiguratie).%New(FtpConnectionString)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WS/Vhisie4/WinkelkarExport/SendStatus.cls.xml
===================================================================
diff -u -r39578 -r39595
--- WS/Vhisie4/WinkelkarExport/SendStatus.cls.xml	(.../SendStatus.cls.xml)	(revision 39578)
+++ WS/Vhisie4/WinkelkarExport/SendStatus.cls.xml	(.../SendStatus.cls.xml)	(revision 39595)
@@ -21,7 +21,7 @@
 
 <Property name="Status">
 <Type>%String</Type>
-<Parameter name="VALUELIST" value=",Geslaagd,Gefaald"/>
+<Parameter name="VALUELIST" value=",Bezig,Geslaagd,Gefaald"/>
 </Property>
 
 <Property name="Foutmelding">
Index: vhTest/Fake/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter/Sender.cls.xml
===================================================================
diff -u
--- vhTest/Fake/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter/Sender.cls.xml	(revision 0)
+++ vhTest/Fake/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter/Sender.cls.xml	(revision 39595)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Sender">
+<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>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Sender</Super>
+
+<Method name="Send">
+<FormalSpec>Winkelkar:WS.Vhisie4.Winkelkar.dto.Winkelkar</FormalSpec>
+<ReturnType>WS.Vhisie4.WinkelkarExport.SendResponse</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="SendFtp">
+<FormalSpec>Winkelkar:WS.Vhisie4.Winkelkar.dto.Winkelkar</FormalSpec>
+<ReturnType>WS.Vhisie4.WinkelkarExport.SendResponse</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="ZetFtpConfiguratie">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>