Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Sender.cls.xml
===================================================================
diff -u -r40567 -r40812
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Sender.cls.xml	(.../Sender.cls.xml)	(revision 40567)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Sender.cls.xml	(.../Sender.cls.xml)	(revision 40812)
@@ -19,8 +19,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="IntractoInformeerder">
+<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerder</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>FtpAPI:TECH.Ftp.FtpAPI="",DateTimeApi:TECH.DateTime.DateTimeAPI,FormatApi:TECH.Format.FormatAPI</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>
@@ -29,6 +34,7 @@
 	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
 ]]></Implementation>
@@ -43,10 +49,16 @@
 	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.VerzendStream(..GeefXMLStream(Winkelkar),..GeefBestandNaam(Winkelkar) )
+		#dim BestandNaam As %String = ..GeefBestandNaam(Winkelkar)
+		
+		Do ..FtpAPI.VerzendStream(..GeefXMLStream(Winkelkar), BestandNaam )
 		Do ..FtpAPI.VerbreekVerbinding()
+		
+		Do ..IntractoInformeerder.Registreer(BestandNaam)
+		
 	} catch {
 		#Dim Exception as TECH.IException = ##class(TECH.ExceptionHandler).Catch()
 		Set Response = ..GeefVerzondenGefaaldSendResponse(Winkelkar,Exception.ToString())
@@ -108,7 +120,7 @@
 	Set SendResponse = ##class(WS.Vhisie4.WinkelkarExport.SendResponse).%New()
 	Set SendResponse.Winkelkar.VanHoeckeId = Winkelkar.Id
 	Set SendResponse.Winkelkar.Status = Status
-	Set SendResponse.Winkelkar.Foutmelding = Foutmelding
+	Do SendResponse.Winkelkar.Foutmelding.Write(Foutmelding)
 	Quit SendResponse
 ]]></Implementation>
 </Method>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerder.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerder.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerder.cls.xml	(revision 40812)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerder">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Mockable</Super>
+
+<Method name="Registreer">
+<Abstract>1</Abstract>
+<FormalSpec>BestandNaam:%String</FormalSpec>
+<ReturnType>WS.Vhisie4.WinkelkarExport.SendResponse</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/Sender/Test.cls.xml
===================================================================
diff -u -r40567 -r40812
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/Sender/Test.cls.xml	(.../Test.cls.xml)	(revision 40567)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/Sender/Test.cls.xml	(.../Test.cls.xml)	(revision 40812)
@@ -25,13 +25,18 @@
 	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)
+	set IntractoInformeerderMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerder).%New()
+	do IntractoInformeerderMock.VerwachtMethodCall("Registreer","VH-WinkelkarId-2011-06-30-091500.xml")
 	
+	Set Sender = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender).%New(FtpApiMock,,,IntractoInformeerderMock)
+	
 	#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 $$$AssertEquals(SendResponse.Winkelkar.Foutmelding.Read(),"")
 
 	Do FtpApiMock.Verifieer()
+	Do IntractoInformeerderMock.Verifieer()
 ]]></Implementation>
 </Method>
 </Class>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoap.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoap.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoap.cls.xml	(revision 40812)
@@ -0,0 +1,90 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerderSoap">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerder,%SOAP.WebClient</Super>
+
+<Parameter name="LOCATION">
+<Description>
+This is the URL used to access the web service.</Description>
+<Default>http://new.vanhoecke.be/nl/api/cart/import</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Description>
+This is the namespace used by the Service</Description>
+<Default>http://new.vanhoecke.be/nl/api/cart/import</Default>
+</Parameter>
+
+<Parameter name="OUTPUTTYPEATTRIBUTE">
+<Description>
+Use xsi:type attribute for literal types.</Description>
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="SERVICENAME">
+<Description>
+This is the name of the Service</Description>
+<Default>CartImportService</Default>
+</Parameter>
+
+<Parameter name="SOAPVERSION">
+<Description>
+This is the SOAP version supported by the service.</Description>
+<Default>1.1</Default>
+</Parameter>
+
+<Method name="Registreer">
+<FormalSpec>BestandNaam:%String</FormalSpec>
+<ReturnType>WS.Vhisie4.WinkelkarExport.SendResponse</ReturnType>
+<Implementation><![CDATA[	quit ..ConverteerCartNaarSendStatus(..Import(BestandNaam))
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerCartNaarSendStatus">
+<FormalSpec>Cart:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerder.Cart</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.WinkelkarExport.SendResponse</ReturnType>
+<Implementation><![CDATA[
+	set SendResponse = ##class(WS.Vhisie4.WinkelkarExport.SendResponse).%New()
+	set SendResponse.Winkelkar = ..ConvertData(Cart)
+	
+	set Iterator = ##class(TECH.ListIterator).%New(Cart.Lijnen)
+	while Iterator.HasNext() {
+		do SendResponse.Lijnen.Insert(..ConvertData(Iterator.Next()))	
+	}
+	
+	quit SendResponse
+]]></Implementation>
+</Method>
+
+<Method name="ConvertData">
+<FormalSpec>Object:%CacheString</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.WinkelkarExport.SendStatus</ReturnType>
+<Implementation><![CDATA[
+	set SendStatus = ##class(WS.Vhisie4.WinkelkarExport.SendStatus).%New()
+	set SendStatus.IntractoId = Object.IntractoId 
+	set SendStatus.VanHoeckeId = Object.VanhoeckeId
+	set SendStatus.Status = Object.Status
+	do SendStatus.Foutmelding.CopyFrom(Object.Foutmelding)
+	quit SendStatus
+]]></Implementation>
+</Method>
+
+<Method name="Import">
+<Final>1</Final>
+<FormalSpec>bestandsnaam:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerder.Cart</ReturnType>
+<WebMethod>1</WebMethod>
+<SoapBindingStyle>rpc</SoapBindingStyle>
+<SoapBodyUse>encoded</SoapBodyUse>
+<Implementation><![CDATA[ 	quit ..WebMethod("Import").Invoke($this,"http://new.vanhoecke.be/nl/api/cart/import#Import",.bestandsnaam)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerder/Line.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerder/Line.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerder/Line.cls.xml	(revision 40812)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerder.Line">
+<ClassType/>
+<CompileAfter/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<Inheritance>right</Inheritance>
+
+<Parameter name="ELEMENTQUALIFIED">
+<Default>0</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://new.vanhoecke.be/nl/api/cart/import</Default>
+</Parameter>
+
+<Parameter name="XMLNAME">
+<Default>Line</Default>
+</Parameter>
+
+<Parameter name="XMLSEQUENCE">
+<Default>0</Default>
+</Parameter>
+
+<Property name="VanHoeckeId">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="vanhoeckeId"/>
+</Property>
+
+<Property name="IntractoId">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="intractoId"/>
+</Property>
+
+<Property name="Status">
+<Type>%String</Type>
+<Required>1</Required>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="state"/>
+</Property>
+
+<Property name="Foutmelding">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="message"/>
+</Property>
+
+<Property name="VanHoeckeEconConfiguratie">
+<Type>%GlobalCharacterStream</Type>
+<Parameter name="XMLNAME" value="vanHoeckeEconConfiguratie"/>
+</Property>
+
+<Property name="IntractoEconConfiguratie">
+<Type>%GlobalCharacterStream</Type>
+<Parameter name="XMLNAME" value="intractoEconConfiguratie"/>
+</Property>
+</Class>
+
+
+</Export>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderMail.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderMail.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderMail.cls.xml	(revision 40812)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerderMail">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.RegisteredObject,WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerder</Super>
+
+<Property name="MailApi">
+<Type>TECH.Mail.MailAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..MailApi = ##class(TECH.Context).Instance().GeefMailAPI()
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Registreer">
+<FormalSpec>BestandNaam:%String</FormalSpec>
+<ReturnType>WS.Vhisie4.WinkelkarExport.SendResponse</ReturnType>
+<Implementation><![CDATA[
+	#dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMailVoorICT()
+	do Mail.ZetVerzender($$$SystemMail("IntractoInformeerder"))
+	do Mail.ZetOnderwerp("Bestand '"_BestandNaam_"' werd gedropt naar intracto (EOM)")
+	do ..MailApi.VerstuurMail(Mail)
+	
+	set SendResponse = ##class(WS.Vhisie4.WinkelkarExport.SendResponse).%New()
+	set SendResponse.Winkelkar.IntractoId = "Random : "_$random(6545646446545)
+	set SendResponse.Winkelkar.VanHoeckeId = $piece(BestandNaam,"-",2)
+	quit SendResponse
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IoCContainer.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IoCContainer.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IoCContainer.cls.xml	(revision 40812)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IoCContainer">
+<Super>TECH.IoC.Container</Super>
+
+<Method name="Initialization">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#execute set:##class(TECH.Config.ConfigMgr).Instance().GeefOmgeving()="DEV" ^TECH.Config.IoC.Container("WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IoCContainer","IntractoInformeerder")="WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerderMail"
+	#execute set:##class(TECH.Config.ConfigMgr).Instance().GeefOmgeving()="PROD" ^TECH.Config.IoC.Container("WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IoCContainer","IntractoInformeerder")="WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerderSoap"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerder/Cart.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerder/Cart.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerder/Cart.cls.xml	(revision 40812)
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerder.Cart">
+<ClassType/>
+<CompileAfter/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<Inheritance>right</Inheritance>
+
+<Parameter name="ELEMENTQUALIFIED">
+<Default>0</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://new.vanhoecke.be/nl/api/cart/import</Default>
+</Parameter>
+
+<Parameter name="XMLNAME">
+<Default>Cart</Default>
+</Parameter>
+
+<Parameter name="XMLSEQUENCE">
+<Default>0</Default>
+</Parameter>
+
+<Property name="VanhoeckeId">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="vanhoeckeId"/>
+</Property>
+
+<Property name="IntractoId">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="intractoId"/>
+</Property>
+
+<Property name="Status">
+<Type>%String</Type>
+<Required>1</Required>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="state"/>
+</Property>
+
+<Property name="Foutmelding">
+<Type>%GlobalCharacterStream</Type>
+<Parameter name="XMLNAME" value="message"/>
+</Property>
+
+<Property name="Lijnen">
+<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerder.Line</Type>
+<Collection>list</Collection>
+<Parameter name="XMLNAME" value="lines"/>
+<Parameter name="XMLPROJECTION" value="COLLECTION"/>
+</Property>
+</Class>
+
+
+</Export>
Index: WS/Vhisie4/WinkelkarExport/SendStatus.cls.xml
===================================================================
diff -u -r39686 -r40812
--- WS/Vhisie4/WinkelkarExport/SendStatus.cls.xml	(.../SendStatus.cls.xml)	(revision 39686)
+++ WS/Vhisie4/WinkelkarExport/SendStatus.cls.xml	(.../SendStatus.cls.xml)	(revision 40812)
@@ -27,8 +27,7 @@
 </Property>
 
 <Property name="Foutmelding">
-<Type>%String</Type>
-<Parameter name="MAXLEN" value="32768"/>
+<Type>%GlobalCharacterStream</Type>
 </Property>
 
 <Storage name="Default">