Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/ExportStatusService.cls.xml
===================================================================
diff -u -r39736 -r41062
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/ExportStatusService.cls.xml	(.../ExportStatusService.cls.xml)	(revision 39736)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/ExportStatusService.cls.xml	(.../ExportStatusService.cls.xml)	(revision 41062)
@@ -35,7 +35,7 @@
 </Method>
 
 <Method name="Registreer">
-<FormalSpec>SendResponse:WS.Vhisie4.WinkelkarExport.SendResponse</FormalSpec>
+<FormalSpec>KlantId:%String,SendResponse:WS.Vhisie4.WinkelkarExport.SendResponse</FormalSpec>
 <Implementation><![CDATA[
 	#dim ExportStatus As WSdata.Vhisie4.Winkelkar.WinkelkarExport.ExportStatus
 	
@@ -45,7 +45,7 @@
 		Set ExportStatus = ..ExportStatusRepository.Maak()
 		Set ExportStatus.Hoofding.VanHoeckeId = SendResponse.Winkelkar.VanHoeckeId
 	}	
-	
+	set ExportStatus.KlantId = KlantId
 	set ExportStatus.Hoofding = SendResponse.Winkelkar.%ConstructClone(1)
 	do ExportStatus.Lijnen.Clear()
 	set Iterator = ##class(TECH.ListIterator).%New(SendResponse.Lijnen)
Index: WS/Vhisie4/WinkelkarExport/SendStatus.cls.xml
===================================================================
diff -u -r40812 -r41062
--- WS/Vhisie4/WinkelkarExport/SendStatus.cls.xml	(.../SendStatus.cls.xml)	(revision 40812)
+++ WS/Vhisie4/WinkelkarExport/SendStatus.cls.xml	(.../SendStatus.cls.xml)	(revision 41062)
@@ -30,6 +30,14 @@
 <Type>%GlobalCharacterStream</Type>
 </Property>
 
+<Property name="VanHoeckeEconConfiguratie">
+<Type>%GlobalCharacterStream</Type>
+</Property>
+
+<Property name="IntractoEconConfiguratie">
+<Type>%GlobalCharacterStream</Type>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>SendStatusState</State>
@@ -47,6 +55,12 @@
 <Value name="4">
 <Value>Foutmelding</Value>
 </Value>
+<Value name="5">
+<Value>VanHoeckeEconConfiguratie</Value>
+</Value>
+<Value name="6">
+<Value>IntractoEconConfiguratie</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
FishEye: Tag 41062 refers to a dead (removed) revision in file `WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerder/Cart.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IoCContainer.cls.xml
===================================================================
diff -u -r40812 -r41062
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IoCContainer.cls.xml	(.../IoCContainer.cls.xml)	(revision 40812)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IoCContainer.cls.xml	(.../IoCContainer.cls.xml)	(revision 41062)
@@ -6,7 +6,7 @@
 <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()="DEV" ^TECH.Config.IoC.Container("WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IoCContainer","IntractoInformeerder")="WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerderSoap"
 	#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>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Converter.cls.xml
===================================================================
diff -u -r40823 -r41062
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Converter.cls.xml	(.../Converter.cls.xml)	(revision 40823)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Converter.cls.xml	(.../Converter.cls.xml)	(revision 41062)
@@ -107,7 +107,7 @@
 	while OfferteIterator.HasNext() {
 		#dim Offerte As Flow.Offerte.Hoofding = OfferteIterator.Next()
 		If $$$Not(..ExportStatusService.IsWinkelKarSuccesvolGeexporteerd("Beslag_"_Offerte.ID)) {	
-			Do ..ExportStatusService.Registreer( ..Sender.Send(..BeslagConverter.Convert(Offerte)))
+			Do ..ExportStatusService.Registreer(KlantId, ..Sender.Send(..BeslagConverter.Convert(Offerte)))
 		}
 	}
 ]]></Implementation>
@@ -121,7 +121,7 @@
 	while WebOrders.HasNext() {
 		#dim WebOrder As WS.TBX.Order = WebOrders.Next()
 		If $$$Not(..ExportStatusService.IsWinkelKarSuccesvolGeexporteerd("Tbx_"_WebOrder.mID)) {	
-			Do ..ExportStatusService.Registreer(..Sender.Send(..TandemboxConverter.Convert(WebOrder)))
+			Do ..ExportStatusService.Registreer(KlantId,..Sender.Send(..TandemboxConverter.Convert(WebOrder)))
 		}
 	}
 	
@@ -138,7 +138,7 @@
 	while Offertes.HasNext() {
 		#dim Offerte As APPS.EC.dto.Offerte = Offertes.Next()
 		If $$$Not(..ExportStatusService.IsWinkelKarSuccesvolGeexporteerd("Unishop_"_Offerte.OfferteID)) {	
-			Do ..ExportStatusService.Registreer(..Sender.Send(..UnishopConverter.Convert(Offerte)))
+			Do ..ExportStatusService.Registreer(KlantId,..Sender.Send(..UnishopConverter.Convert(Offerte)))
 		}
 	}
 	
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoapResponse/Winkelkar.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoapResponse/Winkelkar.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoapResponse/Winkelkar.cls.xml	(revision 41062)
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerderSoapResponse.Winkelkar">
+<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/api/cart/import</Default>
+</Parameter>
+
+<Parameter name="XMLNAME">
+<Default>Winkelkar</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>%xsd.int</Type>
+<Parameter name="XMLNAME" value="IntractoID"/>
+</Property>
+
+<Property name="Status">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Status"/>
+</Property>
+
+<Property name="Foutmelding">
+<Type>%GlobalCharacterStream</Type>
+<Parameter name="XMLNAME" value="Foutmelding"/>
+</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/IntractoInformeerderSoapResponse/SendStatus.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoapResponse/SendStatus.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoapResponse/SendStatus.cls.xml	(revision 41062)
@@ -0,0 +1,61 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerderSoapResponse.SendStatus">
+<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/api/cart/import</Default>
+</Parameter>
+
+<Parameter name="XMLNAME">
+<Default>SendStatus</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>%xsd.int</Type>
+<Parameter name="XMLNAME" value="IntractoID"/>
+</Property>
+
+<Property name="Status">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Status"/>
+</Property>
+
+<Property name="Foutmelding">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Foutmelding"/>
+</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>
FishEye: Tag 41062 refers to a dead (removed) revision in file `WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerder/Line.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoap.cls.xml
===================================================================
diff -u -r40812 -r41062
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoap.cls.xml	(.../IntractoInformeerderSoap.cls.xml)	(revision 40812)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoap.cls.xml	(.../IntractoInformeerderSoap.cls.xml)	(revision 41062)
@@ -2,18 +2,18 @@
 <Export generator="Cache" version="24">
 <Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerderSoap">
 <ProcedureBlock>1</ProcedureBlock>
-<Super>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerder,%SOAP.WebClient</Super>
+<Super>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerder,vhLib.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>
+<Default>http://website.testing.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>
+<Default>http://new.vanhoecke.be/api/cart/import</Default>
 </Parameter>
 
 <Parameter name="OUTPUTTYPEATTRIBUTE">
@@ -37,51 +37,63 @@
 <Method name="Registreer">
 <FormalSpec>BestandNaam:%String</FormalSpec>
 <ReturnType>WS.Vhisie4.WinkelkarExport.SendResponse</ReturnType>
-<Implementation><![CDATA[	quit ..ConverteerCartNaarSendStatus(..Import(BestandNaam))
+<Implementation><![CDATA[
+	#dim SoapResponse As WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerderSoapResponse.SendResponse = ..Import(BestandNaam)
+	#dim Response As WS.Vhisie4.WinkelkarExport.SendResponse = ..ConvertSoapResponse(SoapResponse)
+	quit Response
 ]]></Implementation>
 </Method>
 
-<Method name="ConverteerCartNaarSendStatus">
-<FormalSpec>Cart:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerder.Cart</FormalSpec>
-<Private>1</Private>
+<Method name="ConvertSoapResponse">
+<FormalSpec>SoapResponse:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerderSoapResponse.SendResponse</FormalSpec>
 <ReturnType>WS.Vhisie4.WinkelkarExport.SendResponse</ReturnType>
 <Implementation><![CDATA[
 	set SendResponse = ##class(WS.Vhisie4.WinkelkarExport.SendResponse).%New()
-	set SendResponse.Winkelkar = ..ConvertData(Cart)
+	set SendResponse.Winkelkar = ..ConvertSoapSendStatus(SoapResponse.Winkelkar)
 	
-	set Iterator = ##class(TECH.ListIterator).%New(Cart.Lijnen)
+	set Iterator = ##class(TECH.ListIterator).%New(SoapResponse.Lijnen)
 	while Iterator.HasNext() {
-		do SendResponse.Lijnen.Insert(..ConvertData(Iterator.Next()))	
+		#dim LijnSendStatus As WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerderSoapResponse.SendStatus = ..ConvertSoapSendStatus(Iterator.Next())
+		do SendResponse.Lijnen.Insert(LijnSendStatus)	
 	}
 	
 	quit SendResponse
 ]]></Implementation>
 </Method>
 
-<Method name="ConvertData">
-<FormalSpec>Object:%CacheString</FormalSpec>
+<Method name="ConvertSoapSendStatus">
+<FormalSpec>SoapSendStatus:%CacheString</FormalSpec>
 <Private>1</Private>
-<ReturnType>WS.Vhisie4.WinkelkarExport.SendStatus</ReturnType>
+<ReturnType>%String</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)
+	set SendStatus.IntractoId = SoapSendStatus.IntractoID
+	set SendStatus.VanHoeckeId = SoapSendStatus.VanHoeckeID
+	set SendStatus.Status = SoapSendStatus.Status
+	do SendStatus.Foutmelding.CopyFrom(SoapSendStatus.Foutmelding)
+	
+	;do:##class(TECH.CompiledClassUtils).PropertyExists($classname(SoapSendStatus),"IntractoEconConfiguratie") SendStatus.IntractoEconConfiguratie.CopyFrom(SoapSendStatus.IntractoEconConfiguratie)
+	;do:##class(TECH.CompiledClassUtils).PropertyExists($classname(SoapSendStatus),"VanHoeckeEconConfiguratie") SendStatus.VanHoeckeEconConfiguratie.CopyFrom(SoapSendStatus.VanHoeckeEconConfiguratie)
+
 	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>
+<ReturnType>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerderSoapResponse.SendResponse</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><![CDATA[
+ 	try {
+ 		#dim SendResponse As WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerderSoapResponse.SendResponse = ..WebMethod("Import").Invoke($this,"http://website.testing.vanhoecke.be/nl/api/cart/import#Import",.bestandsnaam)
+ 	} catch {
+	 	do ..RaiseException($$$CurrentMethod)	
+ 	}
+ 	quit SendResponse
 ]]></Implementation>
 </Method>
 </Class>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoapWinkelkar.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoapWinkelkar.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoapWinkelkar.cls.xml	(revision 41062)
@@ -0,0 +1,61 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerderSoapWinkelkar">
+<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://website.testing.vanhoecke.be/nl/api/cart/import</Default>
+</Parameter>
+
+<Parameter name="XMLNAME">
+<Default>Winkelkar</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>%xsd.int</Type>
+<Parameter name="XMLNAME" value="IntractoID"/>
+</Property>
+
+<Property name="Status">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Status"/>
+</Property>
+
+<Property name="Foutmelding">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Foutmelding"/>
+</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: WSdata/Vhisie4/Winkelkar/WinkelkarExport/ExportStatus.cls.xml
===================================================================
diff -u -r39686 -r41062
--- WSdata/Vhisie4/Winkelkar/WinkelkarExport/ExportStatus.cls.xml	(.../ExportStatus.cls.xml)	(revision 39686)
+++ WSdata/Vhisie4/Winkelkar/WinkelkarExport/ExportStatus.cls.xml	(.../ExportStatus.cls.xml)	(revision 41062)
@@ -4,6 +4,11 @@
 <ClassType>persistent</ClassType>
 <Super>TECH.Persistent</Super>
 
+<Property name="KlantId">
+<Type>%String</Type>
+<Required>1</Required>
+</Property>
+
 <Property name="Hoofding">
 <Type>WS.Vhisie4.WinkelkarExport.SendStatus</Type>
 <Required>1</Required>
@@ -19,6 +24,10 @@
 <Unique>1</Unique>
 </Index>
 
+<Index name="KlantIdIndex">
+<Properties>KlantId</Properties>
+</Index>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^WSdata.VhisieD900.ExportStatusD</DataLocation>
@@ -33,6 +42,9 @@
 <Value name="2">
 <Value>Hoofding</Value>
 </Value>
+<Value name="3">
+<Value>KlantId</Value>
+</Value>
 </Data>
 <Data name="Lijnen">
 <Attribute>Lijnen</Attribute>
Index: vhTest/Fake/WSimpl/Vhisie4/Winkelkar/impl/ExportStatusService.cls.xml
===================================================================
diff -u -r40599 -r41062
--- vhTest/Fake/WSimpl/Vhisie4/Winkelkar/impl/ExportStatusService.cls.xml	(.../ExportStatusService.cls.xml)	(revision 40599)
+++ vhTest/Fake/WSimpl/Vhisie4/Winkelkar/impl/ExportStatusService.cls.xml	(.../ExportStatusService.cls.xml)	(revision 41062)
@@ -15,7 +15,7 @@
 </Method>
 
 <Method name="Registreer">
-<FormalSpec>SendResponse:WS.Vhisie4.WinkelkarExport.SendResponse</FormalSpec>
+<FormalSpec>KlantId:%String,SendResponse:WS.Vhisie4.WinkelkarExport.SendResponse</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 </Class>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/UnishopWinkelkarConverter/Converter.cls.xml
===================================================================
diff -u -r40894 -r41062
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/UnishopWinkelkarConverter/Converter.cls.xml	(.../Converter.cls.xml)	(revision 40894)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/UnishopWinkelkarConverter/Converter.cls.xml	(.../Converter.cls.xml)	(revision 41062)
@@ -13,6 +13,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LegacyApi">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -21,6 +26,7 @@
 <Implementation><![CDATA[
 	set ..WinkelkarUtils = ##class(APPS.EC.Winkelkar.impl.WinkelkarUtils).%New()
 	set ..WinkelkarLijnConverter = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarLijnConverter).%New()
+	set ..LegacyApi = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
 
 	quit $$$OK
 ]]></Implementation>
@@ -34,13 +40,16 @@
 	
 	Set Winkelkar.Id = "Unishop_"_Offerte.OfferteID
 	Set Winkelkar.Datum = Offerte.Hoofding.BestelDatum
-	Set Winkelkar.KlantId = Offerte.Winkelkar.KlantID
+	Set Winkelkar.KlantId = ..LegacyApi.GeefKlantNummerVoorPartijID(Offerte.Winkelkar.KlantID)
 	set Winkelkar.Referentie = Offerte.Hoofding.Referentie.OrderReferentie
 	Set Winkelkar.Status = "Offerte"
 	
 	#dim LijnIterator As TECH.Iterator = ..WinkelkarUtils.GeefMaatwerkLijnIterator(Offerte.Winkelkar)
-	while LijnIterator.HasNext(){
-		Do Winkelkar.Lijnen.Insert(..WinkelkarLijnConverter.NaarVhisie4(LijnIterator.Next()))
+	while LijnIterator.HasNext() {
+		#dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = LijnIterator.Next()
+		#dim GeconverteerdeLijn As WS.Vhisie4.Winkelkar.dto.WinkelkarLijn = ..WinkelkarLijnConverter.NaarVhisie4(Lijn)
+		set GeconverteerdeLijn.Id = "Unishop_"_Lijn.LijnID
+		Do Winkelkar.Lijnen.Insert(GeconverteerdeLijn)
  	}
  	Quit Winkelkar
 ]]></Implementation>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderMail.cls.xml
===================================================================
diff -u -r40812 -r41062
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderMail.cls.xml	(.../IntractoInformeerderMail.cls.xml)	(revision 40812)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderMail.cls.xml	(.../IntractoInformeerderMail.cls.xml)	(revision 41062)
@@ -32,6 +32,7 @@
 	set SendResponse = ##class(WS.Vhisie4.WinkelkarExport.SendResponse).%New()
 	set SendResponse.Winkelkar.IntractoId = "Random : "_$random(6545646446545)
 	set SendResponse.Winkelkar.VanHoeckeId = $piece(BestandNaam,"-",2)
+	set SendResponse.Winkelkar.Status = "Geslaagd"
 	quit SendResponse
 ]]></Implementation>
 </Method>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoapResponse/SendResponse.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoapResponse/SendResponse.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoapResponse/SendResponse.cls.xml	(revision 41062)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerderSoapResponse.SendResponse">
+<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/api/cart/import</Default>
+</Parameter>
+
+<Parameter name="XMLNAME">
+<Default>SendResponse</Default>
+</Parameter>
+
+<Parameter name="XMLSEQUENCE">
+<Default>0</Default>
+</Parameter>
+
+<Property name="Winkelkar">
+<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerderSoapResponse.Winkelkar</Type>
+<Parameter name="XMLNAME" value="Winkelkar"/>
+</Property>
+
+<Property name="Lijnen">
+<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerderSoapResponse.SendStatus</Type>
+<Collection>list</Collection>
+<Parameter name="XMLNAME" value="Lijnen"/>
+<Parameter name="XMLNIL" value="1"/>
+<Parameter name="XMLPROJECTION" value="COLLECTION"/>
+</Property>
+</Class>
+
+
+</Export>