Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Sender.cls.xml
===================================================================
diff -u -r48912 -r48916
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Sender.cls.xml	(.../Sender.cls.xml)	(revision 48912)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Sender.cls.xml	(.../Sender.cls.xml)	(revision 48916)
@@ -24,8 +24,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KlantIdConverter">
+<Type>WSimpl.Vhisie4.KlantIdConverter</Type>
+<Private>1</Private>
+</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="",KlantIdConverter:WSimpl.Vhisie4.KlantIdConverter=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -35,6 +40,7 @@
 	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 ..KlantIdConverter = $$$Inject(KlantIdConverter, ##class(WSimpl.Vhisie4.KlantIdConverter).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -48,6 +54,8 @@
 	#dim Response As WS.Vhisie4.WinkelkarExport.SendResponse = ..GeefBezigSendResponse(Winkelkar)
 	
 	Try {
+		Set Winkelkar.KlantId = ..KlantIdConverter.ConvertToVanHoecke(Winkelkar.KlantId, Winkelkar.PersonalityId)
+		
 		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")
 		
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/Sender/Test.cls.xml
===================================================================
diff -u -r40826 -r48916
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/Sender/Test.cls.xml	(.../Test.cls.xml)	(revision 40826)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/Sender/Test.cls.xml	(.../Test.cls.xml)	(revision 48916)
@@ -3,7 +3,7 @@
 <Class name="vhUnitTest.WSimpl.Vhisie4.Winkelkar.Sender.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test : Send plaatst een bestand op een ftp server en informeert daarna de client en gebruikt dat resultaat">
+<Method name="Test: Send plaatst een bestand op een ftp server en informeert daarna de client en gebruikt dat resultaat">
 <Implementation><![CDATA[
 	do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
 		
@@ -42,6 +42,28 @@
 	Do IntractoInformeerderMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: KlantIdConverter wordt opgeroepen">
+<Implementation><![CDATA[
+	#dim Winkelkar As WS.Vhisie4.WinkelkarExport.dto.Winkelkar = ##class(vhTest.Utils.WS.Vhisie4.WinkelkarExport.dto.Winkelkar).StandaardProduct()
+	
+	#dim FtpApiStub As vhTest.Mock.TECH.Ftp.FtpAPI = ##class(vhTest.Mock.TECH.Ftp.FtpAPI).%New()
+	Do FtpApiStub.IndienMethodCall("Connecteer", $$$ElkeWaarde).DanDoeNiks()
+	Do FtpApiStub.IndienMethodCall("VerzendStream", $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
+	Do FtpApiStub.IndienMethodCall("VerbreekVerbinding").DanDoeNiks()
+	
+	#dim IntractoInformeerderStub As vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerder = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerder).%New()
+	Do IntractoInformeerderStub.IndienMethodCall("Registreer", $$$ElkeWaarde).DanDoeNiks()
+	
+	#dim KlantIdConverterMock As vhTest.Mock.WSimpl.Vhisie4.KlantIdConverter = ##class(vhTest.Mock.WSimpl.Vhisie4.KlantIdConverter).%New()
+	Do KlantIdConverterMock.VerwachtMethodCall("ConvertToVanHoecke", Winkelkar.KlantId, Winkelkar.PersonalityId)
+	
+	#dim Sender As WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender).%New(FtpApiStub,,, IntractoInformeerderStub, KlantIdConverterMock)
+	Do Sender.Send(Winkelkar)
+	
+	Do KlantIdConverterMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>