Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoap.cls.xml
===================================================================
diff -u -r41062 -r41092
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoap.cls.xml	(.../IntractoInformeerderSoap.cls.xml)	(revision 41062)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoap.cls.xml	(.../IntractoInformeerderSoap.cls.xml)	(revision 41092)
@@ -49,11 +49,11 @@
 <ReturnType>WS.Vhisie4.WinkelkarExport.SendResponse</ReturnType>
 <Implementation><![CDATA[
 	set SendResponse = ##class(WS.Vhisie4.WinkelkarExport.SendResponse).%New()
-	set SendResponse.Winkelkar = ..ConvertSoapSendStatus(SoapResponse.Winkelkar)
+	set SendResponse.Winkelkar = ..ConvertSoapSendStatus(SoapResponse.Winkelkar,"Winkelkar")
 	
 	set Iterator = ##class(TECH.ListIterator).%New(SoapResponse.Lijnen)
 	while Iterator.HasNext() {
-		#dim LijnSendStatus As WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerderSoapResponse.SendStatus = ..ConvertSoapSendStatus(Iterator.Next())
+		#dim LijnSendStatus As WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerderSoapResponse.SendStatus = ..ConvertSoapSendStatus(Iterator.Next(),"Lijn")
 		do SendResponse.Lijnen.Insert(LijnSendStatus)	
 	}
 	
@@ -62,19 +62,22 @@
 </Method>
 
 <Method name="ConvertSoapSendStatus">
-<FormalSpec>SoapSendStatus:%CacheString</FormalSpec>
+<FormalSpec>SoapSendStatus:%CacheString,Type:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	set SendStatus = ##class(WS.Vhisie4.WinkelkarExport.SendStatus).%New()
+	#dim SendStatus As WS.Vhisie4.WinkelkarExport.LijnStatus = $classmethod("WS.Vhisie4.WinkelkarExport."_Type_"Status","%New")
 	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)
-
+	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)
+	
+	set:##class(TECH.CompiledClassUtils).PropertyExists($classname(SoapSendStatus),"EconStatus") SendStatus.EconStatus = SoapSendStatus.EconStatus
+	
 	quit SendStatus
 ]]></Implementation>
 </Method>
Index: WS/Vhisie4/WinkelkarExport/WinkelkarStatus.cls.xml
===================================================================
diff -u
--- WS/Vhisie4/WinkelkarExport/WinkelkarStatus.cls.xml	(revision 0)
+++ WS/Vhisie4/WinkelkarExport/WinkelkarStatus.cls.xml	(revision 41092)
@@ -0,0 +1,69 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Vhisie4.WinkelkarExport.WinkelkarStatus">
+<ClassType>serial</ClassType>
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Type>STRING</Type>
+<Default>1</Default>
+</Parameter>
+
+<Property name="VanHoeckeId">
+<Type>%String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="VanHoeckeID"/>
+</Property>
+
+<Property name="IntractoId">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="IntractoID"/>
+</Property>
+
+<Property name="Status">
+<Type>%String</Type>
+<Required>1</Required>
+<Parameter name="VALUELIST" value=",Bezig,Geslaagd,Gefaald"/>
+</Property>
+
+<Property name="Foutmelding">
+<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>WinkelkarStatusState</State>
+<StreamLocation>^WS.Vhisie4CFEF.WinkelkarSt446AS</StreamLocation>
+<Data name="WinkelkarStatusState">
+<Value name="1">
+<Value>VanHoeckeId</Value>
+</Value>
+<Value name="2">
+<Value>IntractoId</Value>
+</Value>
+<Value name="3">
+<Value>Status</Value>
+</Value>
+<Value name="4">
+<Value>Foutmelding</Value>
+</Value>
+<Value name="5">
+<Value>VanHoeckeEconConfiguratie</Value>
+</Value>
+<Value name="6">
+<Value>IntractoEconConfiguratie</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoapResponse/SendStatus.cls.xml
===================================================================
diff -u -r41066 -r41092
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoapResponse/SendStatus.cls.xml	(.../SendStatus.cls.xml)	(revision 41066)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoapResponse/SendStatus.cls.xml	(.../SendStatus.cls.xml)	(revision 41092)
@@ -41,8 +41,7 @@
 </Property>
 
 <Property name="Foutmelding">
-<Type>%String</Type>
-<Parameter name="MAXLEN"/>
+<Type>%GlobalCharacterStream</Type>
 <Parameter name="XMLNAME" value="Foutmelding"/>
 </Property>
 
@@ -57,7 +56,7 @@
 </Property>
 
 <Property name="EconStatus">
-<Type>%Boolean</Type>
+<Type>%String</Type>
 <Parameter name="XMLNAME" value="EconStatus"/>
 </Property>
 </Class>
Index: WS/Vhisie4/WinkelkarExport/LijnStatus.cls.xml
===================================================================
diff -u
--- WS/Vhisie4/WinkelkarExport/LijnStatus.cls.xml	(revision 0)
+++ WS/Vhisie4/WinkelkarExport/LijnStatus.cls.xml	(revision 41092)
@@ -0,0 +1,90 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Vhisie4.WinkelkarExport.LijnStatus">
+<ClassType>serial</ClassType>
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Type>STRING</Type>
+<Default>1</Default>
+</Parameter>
+
+<Property name="VanHoeckeId">
+<Type>%String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="VanHoeckeID"/>
+</Property>
+
+<Property name="IntractoId">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="IntractoID"/>
+</Property>
+
+<Property name="Status">
+<Type>%String</Type>
+<Required>1</Required>
+<Parameter name="VALUELIST" value=",Bezig,Geslaagd,Gefaald"/>
+</Property>
+
+<Property name="Foutmelding">
+<Type>%GlobalCharacterStream</Type>
+</Property>
+
+<Property name="VanHoeckeEconConfiguratie">
+<Type>%GlobalCharacterStream</Type>
+</Property>
+
+<Property name="IntractoEconConfiguratie">
+<Type>%GlobalCharacterStream</Type>
+</Property>
+
+<Property name="EconStatus">
+<Type>%String</Type>
+</Property>
+
+<Property name="PrijsVhisie3">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="PrijsVhisie4">
+<Type>%Decimal</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>LijnStatusState</State>
+<StreamLocation>^WS.Vhisie4.WinkCFEF.LijnStatusS</StreamLocation>
+<Data name="LijnStatusState">
+<Value name="1">
+<Value>VanHoeckeId</Value>
+</Value>
+<Value name="2">
+<Value>IntractoId</Value>
+</Value>
+<Value name="3">
+<Value>Status</Value>
+</Value>
+<Value name="4">
+<Value>Foutmelding</Value>
+</Value>
+<Value name="5">
+<Value>VanHoeckeEconConfiguratie</Value>
+</Value>
+<Value name="6">
+<Value>IntractoEconConfiguratie</Value>
+</Value>
+<Value name="7">
+<Value>EconStatus</Value>
+</Value>
+<Value name="8">
+<Value>PrijsVhisie3</Value>
+</Value>
+<Value name="9">
+<Value>PrijsVhisie4</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: WSdata/Vhisie4/Winkelkar/WinkelkarExport/ExportStatus.cls.xml
===================================================================
diff -u -r41062 -r41092
--- WSdata/Vhisie4/Winkelkar/WinkelkarExport/ExportStatus.cls.xml	(.../ExportStatus.cls.xml)	(revision 41062)
+++ WSdata/Vhisie4/Winkelkar/WinkelkarExport/ExportStatus.cls.xml	(.../ExportStatus.cls.xml)	(revision 41092)
@@ -10,12 +10,12 @@
 </Property>
 
 <Property name="Hoofding">
-<Type>WS.Vhisie4.WinkelkarExport.SendStatus</Type>
+<Type>WS.Vhisie4.WinkelkarExport.WinkelkarStatus</Type>
 <Required>1</Required>
 </Property>
 
 <Property name="Lijnen">
-<Type>WS.Vhisie4.WinkelkarExport.SendStatus</Type>
+<Type>WS.Vhisie4.WinkelkarExport.LijnStatus</Type>
 <Collection>list</Collection>
 </Property>
 
@@ -24,6 +24,11 @@
 <Unique>1</Unique>
 </Index>
 
+<Index name="IntractoIdIndex">
+<Properties>Hoofding.IntractoId</Properties>
+<Unique>1</Unique>
+</Index>
+
 <Index name="KlantIdIndex">
 <Properties>KlantId</Properties>
 </Index>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter/Retriever.cls.xml
===================================================================
diff -u -r39688 -r41092
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter/Retriever.cls.xml	(.../Retriever.cls.xml)	(revision 39688)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter/Retriever.cls.xml	(.../Retriever.cls.xml)	(revision 41092)
@@ -26,7 +26,7 @@
 <Implementation><![CDATA[
 	#dim SqlStatement As TECH.String = ""
 	Set SqlStatement = "SELECT Distinct(Hoofding->ID) FROM Flow_Offerte.LijnProduct WHERE Hoofding->Klant = ? "
-					_ " AND Hoofding->Status is null AND not ( x__ClassName [ 'Flow_Offerte.LijnProductGA' ) "
+					_ " AND Hoofding->Status is null AND not ( x__ClassName [ 'Flow_Offerte.LijnProductGA' ) And Hoofding->Datum > '2017-01-01'"
 	set Query = ##class(TECH.DynamicQuery).%New(SqlStatement,$listbuild($piece(KlantId,"||",2)))
 		
 	#dim ResultSet As TECH.ResultSet =  ..QueryAPI.GetResultSet(Query)
Index: WS/Vhisie4/WinkelkarExport/SendResponse.cls.xml
===================================================================
diff -u -r38990 -r41092
--- WS/Vhisie4/WinkelkarExport/SendResponse.cls.xml	(.../SendResponse.cls.xml)	(revision 38990)
+++ WS/Vhisie4/WinkelkarExport/SendResponse.cls.xml	(.../SendResponse.cls.xml)	(revision 41092)
@@ -4,11 +4,11 @@
 <Super>TECH.DataTransferObject</Super>
 
 <Property name="Winkelkar">
-<Type>WS.Vhisie4.WinkelkarExport.SendStatus</Type>
+<Type>WS.Vhisie4.WinkelkarExport.WinkelkarStatus</Type>
 </Property>
 
 <Property name="Lijnen">
-<Type>WS.Vhisie4.WinkelkarExport.SendStatus</Type>
+<Type>WS.Vhisie4.WinkelkarExport.LijnStatus</Type>
 <Collection>list</Collection>
 </Property>
 </Class>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/TbxWinkelkarConverter/Retriever.cls.xml
===================================================================
diff -u -r40813 -r41092
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/TbxWinkelkarConverter/Retriever.cls.xml	(.../Retriever.cls.xml)	(revision 40813)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/TbxWinkelkarConverter/Retriever.cls.xml	(.../Retriever.cls.xml)	(revision 41092)
@@ -49,6 +49,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZoekViaOrderId">
+<FormalSpec>OrderId:%String</FormalSpec>
+<ReturnType>WS.TBX.Order</ReturnType>
+<Implementation><![CDATA[	quit ..GetOrder("GetData",OrderId)
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantVoorkeurEconSqlStatement">
 <FormalSpec>KlantId:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Converter.cls.xml
===================================================================
diff -u -r41062 -r41092
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Converter.cls.xml	(.../Converter.cls.xml)	(revision 41062)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Converter.cls.xml	(.../Converter.cls.xml)	(revision 41092)
@@ -8,6 +8,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="QueryAPI">
+<Type>TECH.Query.QueryAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="BeslagRetriever">
 <Type>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Retriever</Type>
 <Private>1</Private>
@@ -75,6 +80,8 @@
 	
 	Set ..ExportStatusService = $$$Inject(ExportStatusService,##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusService).%New())
 	Set ..EconKlantVoorkeurBewaarder = ##class(WSimpl.Vhisie4.Winkelkar.EconKlantVoorkeurBewaarder).%New()
+	
+	Set ..QueryAPI = ##class(TECH.Context).Instance().GeefQueryAPI()
 
 	Quit $$$OK
 ]]></Implementation>
@@ -91,8 +98,9 @@
 </Method>
 
 <Method name="ConvertCustomer">
-<FormalSpec>KlantId:%String</FormalSpec>
+<FormalSpec>KlantId:%String,Reconvert:%Boolean=$$$False</FormalSpec>
 <Implementation><![CDATA[
+	do:Reconvert ..QueryAPI.Execute(##class(TECH.DynamicQuery).%New("delete from WSdata_Vhisie4_Winkelkar_WinkelkarExport.ExportStatus where klantid = ?",$listbuild(KlantId)))
 	do ..ConvertBeslag(KlantId)
 	do ..ConvertTandembox(KlantId)
 	do ..ConvertUnishop(KlantId)
@@ -122,14 +130,29 @@
 		#dim WebOrder As WS.TBX.Order = WebOrders.Next()
 		If $$$Not(..ExportStatusService.IsWinkelKarSuccesvolGeexporteerd("Tbx_"_WebOrder.mID)) {	
 			Do ..ExportStatusService.Registreer(KlantId,..Sender.Send(..TandemboxConverter.Convert(WebOrder)))
+			Do ..UpdateTandemboxPrijsInformatie(WebOrder)
 		}
 	}
 	
-	#dim SqlStatement As %String = ..TandemboxRetriever.GeefKlantVoorkeurEconSqlStatement(KlantId)
-	Do:$length(SqlStatement) ..EconKlantVoorkeurBewaarder.Bewaar(SqlStatement)
+	;#dim SqlStatement As %String = ..TandemboxRetriever.GeefKlantVoorkeurEconSqlStatement(KlantId)
+	;Do:$length(SqlStatement) ..EconKlantVoorkeurBewaarder.Bewaar(SqlStatement)
 ]]></Implementation>
 </Method>
 
+<Method name="UpdateTandemboxPrijsInformatie">
+<FormalSpec>WebOrder:WS.TBX.Order</FormalSpec>
+<Implementation><![CDATA[
+	set LijnIterator = ##class(TECH.ListIterator).%New(WebOrder.Lijnen)
+	while LijnIterator.HasNext() {
+		#dim Lijn As WS.TBX.EM.OrderLijn = LijnIterator.Next()
+		#dim VanHoeckeLijnId As %String = WebOrder.mID_"#"_LijnIterator.Key()
+		Do ..QueryAPI.Execute(##class(TECH.DynamicQuery).%New("update WSdata_Vhisie4_Winkelkar_WinkelkarExport.ExportStatus_Lijnen set Lijnen_PrijsVhisie3 = ? WHERE Lijnen_VanHoeckeId = ?",$listbuild(Lijn.AKPrijs,VanHoeckeLijnId)))
+		#dim Vhisie4Prijs As %Decimal = ..GeefVhisie4Prijs(..GeefIntractoLijnId(VanHoeckeLijnId))
+		Do ..QueryAPI.Execute(##class(TECH.DynamicQuery).%New("update WSdata_Vhisie4_Winkelkar_WinkelkarExport.ExportStatus_Lijnen set Lijnen_PrijsVhisie4 = ? WHERE Lijnen_VanHoeckeId = ?",$listbuild(Vhisie4Prijs,VanHoeckeLijnId)))
+	}
+]]></Implementation>
+</Method>
+
 <Method name="ConvertUnishop">
 <FormalSpec>KlantId:%String</FormalSpec>
 <Private>1</Private>
@@ -139,13 +162,54 @@
 		#dim Offerte As APPS.EC.dto.Offerte = Offertes.Next()
 		If $$$Not(..ExportStatusService.IsWinkelKarSuccesvolGeexporteerd("Unishop_"_Offerte.OfferteID)) {	
 			Do ..ExportStatusService.Registreer(KlantId,..Sender.Send(..UnishopConverter.Convert(Offerte)))
+			Do ..UpdateUnishopPrijsInformatie(Offerte)
 		}
 	}
 	
 	//#dim SqlStatement As %String = ..UnishopRetriever.GeefKlantVoorkeurEconSqlStatement(KlantId)
 	//Do:$length(SqlStatement) ..EconKlantVoorkeurBewaarder.Bewaar(SqlStatement)
 ]]></Implementation>
 </Method>
+
+<Method name="UpdateUnishopPrijsInformatie">
+<FormalSpec>Offerte:APPS.EC.dto.Offerte</FormalSpec>
+<Implementation><![CDATA[
+	set LijnIterator = ##class(APPS.EC.Winkelkar.impl.WinkelkarUtils).%New().GeefMaatwerkLijnIterator(Offerte.Winkelkar)
+	while LijnIterator.HasNext() {
+		#dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = LijnIterator.Next()
+		#dim LijnId As %String = "Unishop_"_Lijn.LijnID
+		Do ..QueryAPI.Execute(##class(TECH.DynamicQuery).%New("update WSdata_Vhisie4_Winkelkar_WinkelkarExport.ExportStatus_Lijnen set Lijnen_PrijsVhisie3 = ? WHERE Lijnen_VanHoeckeId = ?",$listbuild(Lijn.EenheidPrijs,LijnId)))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefVhisie4Prijs">
+<FormalSpec>LijnId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+	#dim Prijs As %Decimal = 0
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New("SELECT EenheidPrijsExclBTW FROM DOM_EC_Winkelkar.MaatwerkLijn WHERE ExterneId = ?",$listbuild(LijnId)))
+	if ResultSet.Next() {
+		set Prijs = ResultSet.GetData(1)
+	}
+	quit Prijs
+]]></Implementation>
+</Method>
+
+<Method name="GeefIntractoLijnId">
+<FormalSpec>VanHoeckeId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim IntractoId As %String = ""
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New("SELECT Lijnen_IntractoId FROM WSdata_Vhisie4_Winkelkar_WinkelkarExport.ExportStatus_Lijnen WHERE Lijnen_VanHoeckeId = ?",$listbuild(VanHoeckeId)))
+	if ResultSet.Next() {
+		set IntractoId = ResultSet.GetData(1)
+	}
+	quit IntractoId
+]]></Implementation>
+</Method>
 </Class>
 
 
FishEye: Tag 41092 refers to a dead (removed) revision in file `WS/Vhisie4/WinkelkarExport/SendStatus.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?