Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Sender.cls.xml
===================================================================
diff -u -r46643 -r48912
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Sender.cls.xml	(.../Sender.cls.xml)	(revision 46643)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Sender.cls.xml	(.../Sender.cls.xml)	(revision 48912)
@@ -4,7 +4,7 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.Mockable</Super>
 
-<Property name="FtpAPI">
+<Property name="FtpApi">
 <Type>TECH.Ftp.FtpAPI</Type>
 <Private>1</Private>
 </Property>
@@ -25,18 +25,18 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>FtpAPI:TECH.Ftp.FtpAPI="",DateTimeApi:TECH.DateTime.DateTimeAPI,FormatApi:TECH.Format.FormatAPI,IntractoInformeerder:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerder</FormalSpec>
+<FormalSpec>FtpApi:TECH.Ftp.FtpAPI="",DateTimeApi:TECH.DateTime.DateTimeAPI="",FormatApi:TECH.Format.FormatAPI="",IntractoInformeerder:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerder=""</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 ..DateTimeApi = $$$Inject(DateTimeApi,##class(TECH.Context).Instance().GeefDateTimeAPI())
-	set ..FormatApi = $$$Inject(FormatApi,##class(TECH.Context).Instance().GeefFormatAPI())
-	set ..IntractoInformeerder = $$$Inject(IntractoInformeerder,##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IoCContainer).Instance().Resolve("IntractoInformeerder"))
+	Set ..FtpApi = $$$Inject(FtpApi, ##class(TECH.Context).Instance().GeefFtpAPI())
+	Set ..DateTimeApi = $$$Inject(DateTimeApi, ##class(TECH.Context).Instance().GeefDateTimeAPI())
+	Set ..FormatApi = $$$Inject(FormatApi, ##class(TECH.Context).Instance().GeefFormatAPI())
+	Set ..IntractoInformeerder = $$$Inject(IntractoInformeerder, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IoCContainer).Instance().Resolve("IntractoInformeerder"))
 	
-	quit $$$OK
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -46,24 +46,25 @@
 <ReturnType>WS.Vhisie4.WinkelkarExport.SendResponse</ReturnType>
 <Implementation><![CDATA[
 	#dim Response As WS.Vhisie4.WinkelkarExport.SendResponse = ..GeefBezigSendResponse(Winkelkar)
-	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")
+	
+	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")
 		
-		Do ..FtpAPI.Connecteer(FtpConfiguratie)
+		Do ..FtpApi.Connecteer(FtpConfiguratie)
 		
 		#dim BestandNaam As %String = ..GeefBestandNaam(Winkelkar)
 		
-		Do ..FtpAPI.VerzendStream(..GeefXMLStream(Winkelkar), BestandNaam )
-		Do ..FtpAPI.VerbreekVerbinding()
+		Do ..FtpApi.VerzendStream(..GeefXMLStream(Winkelkar), BestandNaam )
+		Do ..FtpApi.VerbreekVerbinding()
 		
-		set Response = ..IntractoInformeerder.Registreer(BestandNaam)
-		
-	} catch {
-		#Dim Exception as TECH.IException = ##class(TECH.ExceptionHandler).Catch()
+		Set Response = ..IntractoInformeerder.Registreer(BestandNaam)
+	} Catch {
+		#dim Exception as TECH.IException = ##class(TECH.ExceptionHandler).Catch()
 		Set Response = ..GeefVerzondenGefaaldSendResponse(Winkelkar,Exception.ToString())
-	}	
-	quit Response
+	}
+		
+	Quit Response
 ]]></Implementation>
 </Method>
 
@@ -74,9 +75,10 @@
 <Implementation><![CDATA[
 	#dim WinkelkarStream As %GlobalCharacterStream
 	
-	do Winkelkar.XMLExportToStream(.WinkelkarStream,,"literal,indent")
-	do ##class(vhLib.Logger).%New().Info("IntractoInformeerder",WinkelkarStream)
-	quit WinkelkarStream
+	Do Winkelkar.XMLExportToStream(.WinkelkarStream,, "literal,indent")
+	Do ##class(vhLib.Logger).%New().Info("IntractoInformeerder", WinkelkarStream)
+	
+	Quit WinkelkarStream
 ]]></Implementation>
 </Method>
 
@@ -119,10 +121,13 @@
 <Private>1</Private>
 <ReturnType>WS.Vhisie4.WinkelkarExport.SendResponse</ReturnType>
 <Implementation><![CDATA[
-	Set SendResponse = ##class(WS.Vhisie4.WinkelkarExport.SendResponse).%New()
+	#dim SendResponse As WS.Vhisie4.WinkelkarExport.SendResponse = ##class(WS.Vhisie4.WinkelkarExport.SendResponse).%New()
+	
 	Set SendResponse.Winkelkar.VanHoeckeId = Winkelkar.Id
 	Set SendResponse.Winkelkar.Status = Status
+	
 	Do SendResponse.Winkelkar.Foutmelding.Write(Foutmelding)
+	
 	Quit SendResponse
 ]]></Implementation>
 </Method>