Index: vhTest/Utils/WS/Vhisie4/WinkelkarExport/dto/ProductLijn.cls.xml
===================================================================
diff -u
--- vhTest/Utils/WS/Vhisie4/WinkelkarExport/dto/ProductLijn.cls.xml	(revision 0)
+++ vhTest/Utils/WS/Vhisie4/WinkelkarExport/dto/ProductLijn.cls.xml	(revision 39686)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.WS.Vhisie4.WinkelkarExport.dto.ProductLijn">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="StandaardProduct">
+<ClassMethod>1</ClassMethod>
+<ReturnType>WS.Vhisie4.WinkelkarExport.dto.ProductLijn</ReturnType>
+<Implementation><![CDATA[
+	set ProductLijn = ##class(WS.Vhisie4.WinkelkarExport.dto.ProductLijn).%New()
+	set ProductLijn.Aantal = 1
+	set ProductLijn.Id = 1001
+	set ProductLijn.EenheidPrijs = 10
+	quit ProductLijn
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/Vhisie4/WinkelkarExport/SendStatus.cls.xml
===================================================================
diff -u -r39595 -r39686
--- WS/Vhisie4/WinkelkarExport/SendStatus.cls.xml	(.../SendStatus.cls.xml)	(revision 39595)
+++ WS/Vhisie4/WinkelkarExport/SendStatus.cls.xml	(.../SendStatus.cls.xml)	(revision 39686)
@@ -11,6 +11,7 @@
 
 <Property name="VanHoeckeId">
 <Type>%String</Type>
+<Required>1</Required>
 <Parameter name="XMLNAME" value="VanHoeckeID"/>
 </Property>
 
@@ -21,6 +22,7 @@
 
 <Property name="Status">
 <Type>%String</Type>
+<Required>1</Required>
 <Parameter name="VALUELIST" value=",Bezig,Geslaagd,Gefaald"/>
 </Property>
 
Index: vhTest/Utils/WS/Vhisie4/WinkelkarExport/dto/Winkelkar.cls.xml
===================================================================
diff -u
--- vhTest/Utils/WS/Vhisie4/WinkelkarExport/dto/Winkelkar.cls.xml	(revision 0)
+++ vhTest/Utils/WS/Vhisie4/WinkelkarExport/dto/Winkelkar.cls.xml	(revision 39686)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.WS.Vhisie4.WinkelkarExport.dto.Winkelkar">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="StandaardProduct">
+<ClassMethod>1</ClassMethod>
+<ReturnType>WS.Vhisie4.WinkelkarExport.dto.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	set Winkelkar = ##class(WS.Vhisie4.WinkelkarExport.dto.Winkelkar).%New()
+	set Winkelkar.Referentie = 12345
+	set Winkelkar.Status = "Offerte"
+	Set Winkelkar.Datum = $$$CurrentDate
+	set Winkelkar.Id = "WinkelkarId"
+	set Winkelkar.KlantId = 1000
+	do Winkelkar.Lijnen.Insert(##class(vhTest.Utils.WS.Vhisie4.WinkelkarExport.dto.ProductLijn).StandaardProduct())
+	quit Winkelkar
+]]></Implementation>
+</Method>
+
+<Method name="StandaardProductAsStream">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Stream.Object</ReturnType>
+<Implementation><![CDATA[
+	set Stream = ##class(%GlobalCharacterStream).%New()
+	do Stream.WriteLine("<Winkelkar>")
+	do Stream.WriteLine("  <ID>WinkelkarId</ID>")
+	do Stream.WriteLine("  <KlantID>1000</KlantID>")
+	do Stream.WriteLine("  <Lijnen>")
+	do Stream.WriteLine("    <WinkelkarLijn d5p1:type=""ProductLijn"" xmlns:d5p1=""http://www.w3.org/2001/XMLSchema-instance"">")
+	do Stream.WriteLine("      <ID>1001</ID>")
+	do Stream.WriteLine("      <EenheidPrijs>10</EenheidPrijs>")
+	do Stream.WriteLine("      <ProductID></ProductID>")
+	do Stream.WriteLine("      <Aantal>1</Aantal>")
+	do Stream.WriteLine("    </WinkelkarLijn>")
+	do Stream.WriteLine("  </Lijnen>")
+	do Stream.WriteLine("  <Datum>2011-06-30</Datum>")
+	do Stream.WriteLine("  <Referentie>12345</Referentie>")
+	do Stream.WriteLine("  <Status>Offerte</Status>")
+	do Stream.WriteLine("</Winkelkar>")	
+	quit Stream
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/Vhisie4/WinkelkarExport/dto/MaatwerkLijn.cls.xml
===================================================================
diff -u
--- WS/Vhisie4/WinkelkarExport/dto/MaatwerkLijn.cls.xml	(revision 0)
+++ WS/Vhisie4/WinkelkarExport/dto/MaatwerkLijn.cls.xml	(revision 39686)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Vhisie4.WinkelkarExport.dto.MaatwerkLijn">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WS.Vhisie4.WinkelkarExport.dto.WinkelkarLijn</Super>
+
+<Property name="EconConfiguratie">
+<Type>TECH.String</Type>
+<Collection>array</Collection>
+</Property>
+
+<Property name="EconConfiguratieSleutel">
+<Type>TECH.String</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/ExportStatusService.cls.xml
===================================================================
diff -u -r39668 -r39686
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/ExportStatusService.cls.xml	(.../ExportStatusService.cls.xml)	(revision 39668)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/ExportStatusService.cls.xml	(.../ExportStatusService.cls.xml)	(revision 39686)
@@ -15,7 +15,7 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..ExportStatusRepository = $$$Inject(ExportStatusRepository,##class(WSdata.Vhisie4.Winkelkar.WinkelkarExport.impl.ExportStatusRepository).%New())
+	Set ..ExportStatusRepository = $$$Inject(ExportStatusRepository,##class(WSdata.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusRepository).%New())
 
 	Quit $$$OK
 ]]></Implementation>
@@ -27,7 +27,8 @@
 <Implementation><![CDATA[
 	#dim SuccesvolGeexporteerd As %Boolean = 0
 	If ..ExportStatusRepository.BestaatViaVanhoeckeId(VanHoeckeId) {
-		Set SuccesvolGeexporteerd = (..ExportStatusRepository.GeefViaVanHoeckId(VanHoeckeId).Hoofding.Status = "Geslaagd")
+		Set SuccesvolGeexporteerd = (..ExportStatusRepository.GeefViaVanHoeckeId(VanHoeckeId).Hoofding.Status = "Geslaagd")
+		Set:'SuccesvolGeexporteerd SuccesvolGeexporteerd = (..ExportStatusRepository.GeefViaVanHoeckeId(VanHoeckeId).Hoofding.Status = "Bezig")
 	}
 	Quit SuccesvolGeexporteerd
 ]]></Implementation>
@@ -38,11 +39,20 @@
 <Implementation><![CDATA[
 	#dim ExportStatus As WSdata.Vhisie4.Winkelkar.WinkelkarExport.ExportStatus
 	
-	If ..ExportStatusRepository.BestaatViaVanHoeckId(SendResponse.Winkelkar.VanHoeckeId) {
-		Set ExportStatus = ..ExportStatusRepository.GeefViaVanHoeckId(SendResponse.Winkelkar.VanHoeckeId)
+	If ..ExportStatusRepository.BestaatViaVanhoeckeId(SendResponse.Winkelkar.VanHoeckeId) {
+		Set ExportStatus = ..ExportStatusRepository.GeefViaVanHoeckeId(SendResponse.Winkelkar.VanHoeckeId)
 	} else {
 		Set ExportStatus = ..ExportStatusRepository.Maak()
+		Set ExportStatus.Hoofding.VanHoeckeId = SendResponse.Winkelkar.VanHoeckeId
 	}	
+	
+	set ExportStatus.Hoofding.Status = SendResponse.Winkelkar.Status
+	do ExportStatus.Lijnen.Clear()
+	set Iterator = ##class(TECH.ListIterator).%New(SendResponse.Lijnen)
+	while Iterator.HasNext() {
+		do ExportStatus.Lijnen.Insert(Iterator.Next().%ConstructClone(1))
+	}
+	
 	Do ..ExportStatusRepository.Bewaar(ExportStatus)
 ]]></Implementation>
 </Method>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/TbxWinkelkarConverter/Converter.cls.xml
===================================================================
diff -u -r39343 -r39686
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/TbxWinkelkarConverter/Converter.cls.xml	(.../Converter.cls.xml)	(revision 39343)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/TbxWinkelkarConverter/Converter.cls.xml	(.../Converter.cls.xml)	(revision 39686)
@@ -1,7 +1,214 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarExport.TbxWinkelkarConverter.Converter">
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="LegacyConverter">
+<Type>APPS.EDI.common.impl.LegacyConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="EconConverter">
+<Type>ECONimpl.PM.Maatwerk.EdiConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerkoopPrijsBepalerTbx">
+<Type>DOM.PM.impl.VerkoopPrijsBepaler.TbxHelper</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Streams">
+<Type>%Stream.Object</Type>
+<Collection>array</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="FileWriter">
+<Type>TECH.File.FileWriter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..LegacyConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New()
+	set ..EconConverter = ##class(ECONimpl.PM.Maatwerk.EdiConverter).%New()
+	set ..VerkoopPrijsBepalerTbx = ##class(DOM.PM.impl.VerkoopPrijsBepaler.TbxHelper).%New()
+	set ..FileWriter = ##class(TECH.File.impl.FileWriter).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Convert">
+<FormalSpec>TbxOrder:WS.TBX.Order</FormalSpec>
+<ReturnType>WS.Vhisie4.WinkelkarExport.dto.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	do ..Streams.Clear()
+	
+	set Winkelkar = ##class(WS.Vhisie4.WinkelkarExport.dto.Winkelkar).%New()
+	Set Winkelkar.Id = TbxOrder.mID
+	Set Winkelkar.KlantId = TbxOrder.KLNummer
+	Set Winkelkar.Datum = ##class(TECH.DateTime).TimestampToDate(TbxOrder.IngaveTijdStip)
+	set Winkelkar.Referentie = TbxOrder.Commissie
+	set Winkelkar.Status = $select(TbxOrder.BonType="BBON":"Bestelling",TbxOrder.BonType["OFF":"Offerte",1:"Offerte")
+	
+	Set LijnIterator = ##class(TECH.ListIterator).%New(TbxOrder.Lijnen)
+	while LijnIterator.HasNext(){
+		#dim Lijn As WS.TBX.EM.OrderLijn = LijnIterator.Next()
+		try {
+			Do Winkelkar.Lijnen.Insert(..ConvertLijn(TbxOrder,Lijn))
+		} catch {
+			Do ..Streams.SetAt(##class(TECH.ExceptionHandler).Catch().ToStream(),TbxOrder.mID_"#"_Lijn.LijnNr_" Exception")
+			Do ..DumpStreams()
+		}
+ 	}
+ 	Quit Winkelkar
+]]></Implementation>
+</Method>
+
+<Property name="ExceptionString">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="ConvertLijn">
+<FormalSpec>TbxOrder:WS.TBX.Order,Lijn:WS.TBX.EM.OrderLijn</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.WinkelkarExport.dto.MaatwerkLijn</ReturnType>
+<Implementation><![CDATA[
+	set ..ExceptionString = ""
+	
+	Set WinkelkarLijn = ##class(WS.Vhisie4.WinkelkarExport.dto.MaatwerkLijn).%New()
+	Set WinkelkarLijn.EenheidPrijs = +Lijn.AKPrijs
+	Set WinkelkarLijn.Id = TbxOrder.mID_"#"_Lijn.LijnNr
+	
+	Write WinkelkarLijn.Id,*13
+	
+	#dim LegacyKenmerken As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ..GeefLegacyKenmerken(TbxOrder,Lijn)  
+	#dim EdiKenmerken As APPS.EDI.common.dto.v001.LadeTBX = ..LegacyConverter.ConverteerLegacyNaarEdi(LegacyKenmerken)
+	#dim EconKenmerken As ECON.PM.Maatwerk.dto.TbxKenmerken = ..EconConverter.ConverteerEdiNaarEcon(EdiKenmerken)
+	#dim EconConfiguratie As %ArrayOfDataTypes = EconKenmerken.ToArray()
+	
+	Do ..AddToStream(LegacyKenmerken,WinkelkarLijn.Id_" LegacyKenmerken_1",WinkelkarLijn.EenheidPrijs)
+	Do ..AddToStream(EdiKenmerken,WinkelkarLijn.Id_" EdiKenmerken_1",WinkelkarLijn.EenheidPrijs)
+	Do ..AddToStream(EconKenmerken,WinkelkarLijn.Id_" EconKenmerken_1",WinkelkarLijn.EenheidPrijs)
+	Do ..AddToStream(EconConfiguratie,WinkelkarLijn.Id_" EconConfiguratie_1",WinkelkarLijn.EenheidPrijs)
+		
+	Set WinkelkarLijn.EconConfiguratie = EconConfiguratie
+	Do WinkelkarLijn.EconConfiguratie.SetAt(Lijn.Qty,"Data.Lijn.Aantal")
+	Do WinkelkarLijn.EconConfiguratie.SetAt("Maatwerk","Data.Lijn.Groeperingcode")
+	Do WinkelkarLijn.EconConfiguratie.SetAt(Lijn.KlantRef,"Data.Lijn.Referentie")
+
+	Do ..VergelijkPrijs(WinkelkarLijn,Lijn.Qty,"K||"_TbxOrder.KLNummer)
+
+	Quit WinkelkarLijn
+]]></Implementation>
+</Method>
+
+<Method name="VergelijkPrijs">
+<FormalSpec>WinkelkarLijn:WS.Vhisie4.WinkelkarExport.dto.MaatwerkLijn,Aantal:%Integer,KlantId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set EconKenmerken = ##class(ECON.PM.Maatwerk.dto.TbxKenmerken).%New()
+	Do EconKenmerken.FromArray(WinkelkarLijn.EconConfiguratie)
+	
+	#dim EdiKenmerken As APPS.EDI.common.dto.v001.LadeTBX = ..EconConverter.ConverteerEconNaarEdi(EconKenmerken)
+	#dim LegacyKenmerken As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy= ..LegacyConverter.ConverteerEdiNaarLegacy(EdiKenmerken)
+
+	try {
+		#dim BerekendeVerkoopprijs As %Decimal = ..VerkoopPrijsBepalerTbx.BepaalVerkoopPrijs(LegacyKenmerken,Aantal,KlantId)
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		set BerekendeVerkoopprijs = 0
+		set ..ExceptionString = Exception.ToString()
+	}
+
+	Do ..AddToStream(LegacyKenmerken,WinkelkarLijn.Id_" LegacyKenmerken_2",BerekendeVerkoopprijs)
+	Do ..AddToStream(EdiKenmerken,WinkelkarLijn.Id_" EdiKenmerken_2",BerekendeVerkoopprijs)
+	Do ..AddToStream(EconKenmerken,WinkelkarLijn.Id_" EconKenmerken_2",BerekendeVerkoopprijs)
+	
+	if $$$Not(+BerekendeVerkoopprijs = +WinkelkarLijn.EenheidPrijs)  {
+		do ..DumpStreams()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="DumpStreams">
+<Private>1</Private>
+<Implementation><![CDATA[
+	set Iterator = ##class(TECH.ListIterator).%New(..Streams)
+	while Iterator.HasNext() {
+		#dim Stream As %Stream.Object = Iterator.Next()
+		#dim FileName As %String = "D:\Dump\"_Iterator.Key()_".txt"
+		do ..FileWriter.Open(FileName,1)
+		do ..FileWriter.WriteStream(Stream)
+		do ..FileWriter.Close()
+		
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AddToStream">
+<FormalSpec>Object:%CacheString,Key:%String,Prijs:%Decimal</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	set Stream = ##class(%GlobalCharacterStream).%New()
+	do Stream.WriteLine(Prijs)
+	do Stream.WriteLine($$ObjToText^vhLib(Object))
+	do Stream.WriteLine(..ExceptionString)
+		
+	do ..Streams.SetAt(Stream,Key)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLegacyKenmerken">
+<FormalSpec>TbxOrder:WS.TBX.Order,Lijn:WS.TBX.EM.OrderLijn</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy</ReturnType>
+<Implementation><![CDATA[
+	Set Product = ##class(APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).%New()
+	set Product.ItemKL = Lijn.ItemKL
+	set Product.ItemKB = Lijn.ItemKB
+	set Product.ItemRK = Lijn.ItemRK
+	set Product.ItemKX = Lijn.ItemKX
+	set Product.ItemKV = Lijn.ItemKV
+	set Product.ItemDS = Lijn.ItemDS
+	set Product.ItemLT = Lijn.ItemLT
+	set Product.ItemBX = Lijn.ItemBX
+	set Product.ItemCB = Lijn.ItemCB
+	set Product.ItemWD = Lijn.ItemWD
+	set Product.ItemLD = Lijn.ItemLD
+	set Product.ItemDK = Lijn.ItemDK
+	set Product.ItemFB = Lijn.ItemFB
+	set Product.ItemBM = Lijn.ItemBM
+	set Product.ItemASM = Lijn.ItemASM
+	set Product.ItemBGRP = Lijn.ItemBGRP
+	set Product.ItemSPZK = Lijn.ItemSPZK
+	set Product.ItemSB = Lijn.ItemSB
+	set Product.ItemVPK = Lijn.ItemVPK
+	set Product.ItemFS = Lijn.ItemFS
+	set Product.ItemDWV = Lijn.ItemDWV
+	set Product.ItemOPVL = Lijn.ItemOPVL
+	set Product.ItemKLROPVL = Lijn.ItemKLROPVL
+	set Product.ItemRSTL = Lijn.ItemRSTL
+	set Product.ItemSTDL = Lijn.ItemSTDL
+	set Product.ItemOLP = Lijn.ItemOLP
+	set Product.ItemDC = Lijn.ItemDC
+	set Product.ItemDCOms = Lijn.ItemDCOms
+	set Product.ItemDSOms = Lijn.ItemDSOms
+	set Product.ItemKLOms = Lijn.ItemKLOms
+	set Product.ItemKBOms = Lijn.ItemKBOms
+	set Product.ItemRKOms = Lijn.ItemRKOms
+	set Product.ItemKXOms = Lijn.ItemKXOms
+	set Product.ItemKVOms = Lijn.ItemKVOms
+	set Product.NietMeeleveren = TbxOrder.NietMeeleveren
+	quit Product
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WS/Vhisie4/WinkelkarExport/dto/ProductLijn.cls.xml
===================================================================
diff -u
--- WS/Vhisie4/WinkelkarExport/dto/ProductLijn.cls.xml	(revision 0)
+++ WS/Vhisie4/WinkelkarExport/dto/ProductLijn.cls.xml	(revision 39686)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Vhisie4.WinkelkarExport.dto.ProductLijn">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WS.Vhisie4.WinkelkarExport.dto.WinkelkarLijn</Super>
+
+<Property name="ProductId">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="ProductID"/>
+</Property>
+
+<Property name="Aantal">
+<Type>TECH.Decimal</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Sender.cls.xml
===================================================================
diff -u -r39668 -r39686
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Sender.cls.xml	(.../Sender.cls.xml)	(revision 39668)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Sender.cls.xml	(.../Sender.cls.xml)	(revision 39686)
@@ -45,14 +45,12 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>WS.Vhisie4.WinkelkarExport.SendResponse</ReturnType>
 <Implementation><![CDATA[
-	Set Response = ##class(WS.Vhisie4.WinkelkarExport.SendResponse).%New()
-	Do ..ExportStatusService.Registreer(..GeefBezigSendResponse(Winkelkar))
+	#dim Response As WS.Vhisie4.WinkelkarExport.SendResponse = ..GeefBezigSendResponse(Winkelkar)
+	Do ..ExportStatusService.Registreer(Response)
 	try {
 		Do ..FtpAPI.Connecteer(##class(TECH.Ftp.FtpConfiguratie).%New("username:passworword@ftp.com"))
 		Do ..FtpAPI.VerzendStream(..GeefXMLStream(Winkelkar),..GeefBestandNaam(Winkelkar) )
 		Do ..FtpAPI.VerbreekVerbinding()
-		Set Response = ..GeefVerzondenSendResponse(Winkelkar)
-		Do ..ExportStatusService.Registreer(Response)		
 	} catch {
 		#Dim Exception as TECH.IException = ##class(TECH.ExceptionHandler).Catch()
 		Set Response = ..GeefVerzondenGefaaldSendResponse(Winkelkar,Exception.ToString())
@@ -69,7 +67,7 @@
 <ReturnType>%Stream</ReturnType>
 <Implementation><![CDATA[
 	#dim WinkelkarStream As %GlobalCharacterStream
-	do Winkelkar.XMLExportToStream(.WinkelkarStream)
+	do Winkelkar.XMLExportToStream(.WinkelkarStream,,"literal,indent")
 	quit WinkelkarStream
 ]]></Implementation>
 </Method>
Index: WSdata/Vhisie4/Winkelkar/WinkelkarExport/ExportStatus.cls.xml
===================================================================
diff -u -r39313 -r39686
--- WSdata/Vhisie4/Winkelkar/WinkelkarExport/ExportStatus.cls.xml	(.../ExportStatus.cls.xml)	(revision 39313)
+++ WSdata/Vhisie4/Winkelkar/WinkelkarExport/ExportStatus.cls.xml	(.../ExportStatus.cls.xml)	(revision 39686)
@@ -6,6 +6,7 @@
 
 <Property name="Hoofding">
 <Type>WS.Vhisie4.WinkelkarExport.SendStatus</Type>
+<Required>1</Required>
 </Property>
 
 <Property name="Lijnen">
@@ -15,6 +16,7 @@
 
 <Index name="VanHoeckeIdIndex">
 <Properties>Hoofding.VanHoeckeId</Properties>
+<Unique>1</Unique>
 </Index>
 
 <Storage name="Default">
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/Sender/Test.cls.xml
===================================================================
diff -u -r39670 -r39686
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/Sender/Test.cls.xml	(.../Test.cls.xml)	(revision 39670)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/Sender/Test.cls.xml	(.../Test.cls.xml)	(revision 39686)
@@ -14,23 +14,18 @@
 	Set BezigResponse.Winkelkar.Status = "Bezig"
 	Do ExportStatusServiceMock.VerwachtMethodCall("Registreer",..Matches.DataTransferObject(BezigResponse)).ExactAantalKeer(1)
 	
-	Set GeslaagdResponse = ##class(WS.Vhisie4.WinkelkarExport.SendResponse).%New()
-	Set GeslaagdResponse.Winkelkar.VanHoeckeId = "WinkelkarId"
-	Set GeslaagdResponse.Winkelkar.Status = "Geslaagd"
-	Do ExportStatusServiceMock.VerwachtMethodCall("Registreer",..Matches.DataTransferObject(GeslaagdResponse)).ExactAantalKeer(1)
-	
 	Set FtpApiMock = ##class(vhTest.Mock.TECH.Ftp.FtpAPI).%New()
 	Set FtpConfiguratie = ##class(TECH.Ftp.FtpConfiguratie).%New("username:passworword@ftp.com")
 	Do FtpApiMock.VerwachtMethodCall("Connecteer",..Matches.DataTransferObject(FtpConfiguratie)).DanDoeNiks()
 	
-	Do FtpApiMock.VerwachtMethodCall("VerzendStream",..Matches.Stream(##class(vhTest.Utils.WS.Vhisie4.Winkelkar.dto.Winkelkar).StandaardProductAsStream()),"VH-WinkelkarId-2011-06-30-091500.xml").DanDoeNiks()
+	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,ExportStatusServiceMock)
 	
-	#dim SendResponse As WS.Vhisie4.WinkelkarExport.SendResponse = Sender.Send(##class(vhTest.Utils.WS.Vhisie4.Winkelkar.dto.Winkelkar).StandaardProduct())
+	#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,"Geslaagd")
+    Do $$$AssertEquals(SendResponse.Winkelkar.Status,"Bezig")
 
 	Do FtpApiMock.Verifieer()
 	Do ExportStatusServiceMock.Verifieer()
Index: WSdata/Vhisie4/Winkelkar/WinkelkarExport/ExportStatusRepository.cls.xml
===================================================================
diff -u -r39284 -r39686
--- WSdata/Vhisie4/Winkelkar/WinkelkarExport/ExportStatusRepository.cls.xml	(.../ExportStatusRepository.cls.xml)	(revision 39284)
+++ WSdata/Vhisie4/Winkelkar/WinkelkarExport/ExportStatusRepository.cls.xml	(.../ExportStatusRepository.cls.xml)	(revision 39686)
@@ -1,19 +1,25 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="WSdata.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusRepository">
-<Abstract>1</Abstract>
-<Super>TECH.Persistentie.Repository</Super>
+<Super>TECH.Mockable,TECH.Persistentie.impl.Repository</Super>
 
+<Parameter name="DataClassName">
+<Type>%String</Type>
+<Default>WSdata.Vhisie4.Winkelkar.WinkelkarExport.ExportStatus</Default>
+</Parameter>
+
 <Method name="BestaatViaVanhoeckeId">
-<Abstract>1</Abstract>
 <FormalSpec>VanHoeckeId:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..BestaatViaFilter("Hoofding_VanHoeckeId = ?",$listbuild(VanHoeckeId))
+]]></Implementation>
 </Method>
 
-<Method name="GeefViaVanHoeckId">
-<Abstract>1</Abstract>
+<Method name="GeefViaVanHoeckeId">
 <FormalSpec>VanHoeckeId:%String</FormalSpec>
 <ReturnType>WSdata.Vhisie4.Winkelkar.WinkelkarExport.ExportStatus</ReturnType>
+<Implementation><![CDATA[	quit ..GeefViaFilter("Hoofding_VanHoeckeId = ?",$listbuild(VanHoeckeId))
+]]></Implementation>
 </Method>
 </Class>
 
Index: WS/Vhisie4/WinkelkarExport/dto/WinkelkarLijn.cls.xml
===================================================================
diff -u
--- WS/Vhisie4/WinkelkarExport/dto/WinkelkarLijn.cls.xml	(revision 0)
+++ WS/Vhisie4/WinkelkarExport/dto/WinkelkarLijn.cls.xml	(revision 39686)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Vhisie4.WinkelkarExport.dto.WinkelkarLijn">
+<ClassType>serial</ClassType>
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Type>STRING</Type>
+<Default>1</Default>
+</Parameter>
+
+<Property name="Id">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="ID"/>
+</Property>
+
+<Property name="EenheidPrijs">
+<Type>TECH.Decimal</Type>
+<Parameter name="SCALE" value="6"/>
+</Property>
+
+<Property name="TotaalPrijs">
+<Type>TECH.Decimal</Type>
+<Parameter name="SCALE" value="6"/>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>WinkelkarLijnState</State>
+<StreamLocation>^WS.Vhisie4.W302B.WinkelkarLijnS</StreamLocation>
+<Data name="WinkelkarLijnState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>Id</Value>
+</Value>
+<Value name="2">
+<Value>EenheidPrijs</Value>
+</Value>
+<Value name="3">
+<Value>TotaalPrijs</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: WS/Vhisie4/WinkelkarExport/dto/Winkelkar.cls.xml
===================================================================
diff -u
--- WS/Vhisie4/WinkelkarExport/dto/Winkelkar.cls.xml	(revision 0)
+++ WS/Vhisie4/WinkelkarExport/dto/Winkelkar.cls.xml	(revision 39686)
@@ -0,0 +1,71 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Vhisie4.WinkelkarExport.dto.Winkelkar">
+<ClassType>serial</ClassType>
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Type>STRING</Type>
+<Default>1</Default>
+</Parameter>
+
+<Property name="Id">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="ID"/>
+</Property>
+
+<Property name="KlantId">
+<Type>%String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="KlantID"/>
+</Property>
+
+<Property name="Lijnen">
+<Type>WS.Vhisie4.WinkelkarExport.dto.WinkelkarLijn</Type>
+<Collection>list</Collection>
+</Property>
+
+<Property name="Datum">
+<Type>%Date</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="Referentie">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Status">
+<Type>TECH.String</Type>
+<Parameter name="VALUELIST" value=",Offerte,Bestelling"/>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>WinkelkarState</State>
+<StreamLocation>^WS.Vhisie4.Winke302B.WinkelkarS</StreamLocation>
+<Data name="WinkelkarState">
+<Value name="1">
+<Value>Id</Value>
+</Value>
+<Value name="2">
+<Value>KlantId</Value>
+</Value>
+<Value name="3">
+<Value>Lijnen</Value>
+</Value>
+<Value name="4">
+<Value>Datum</Value>
+</Value>
+<Value name="5">
+<Value>Referentie</Value>
+</Value>
+<Value name="6">
+<Value>Status</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/TbxWinkelkarConverter.cls.xml
===================================================================
diff -u -r39345 -r39686
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/TbxWinkelkarConverter.cls.xml	(.../TbxWinkelkarConverter.cls.xml)	(revision 39345)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/TbxWinkelkarConverter.cls.xml	(.../TbxWinkelkarConverter.cls.xml)	(revision 39686)
@@ -14,7 +14,7 @@
 </Property>
 
 <Property name="Sender">
-<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.TbxWinkelkarConverter.Sender</Type>
+<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender</Type>
 <Private>1</Private>
 </Property>
 
@@ -23,6 +23,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ExportStatusService">
+<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>VerkoopAPI:DOM.VKP.VerkoopAPI</FormalSpec>
 <Private>1</Private>
@@ -32,8 +37,9 @@
 <Implementation><![CDATA[
 	set ..VerkoopAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
 	set ..Retriever = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.TbxWinkelkarConverter.Retriever).%New()
-	set ..Sender = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.TbxWinkelkarConverter.Sender).%New()
+	set ..Sender = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender).%New()
 	set ..Converter = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.TbxWinkelkarConverter.Converter).%New()
+	Set ..ExportStatusService = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusService).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -53,7 +59,10 @@
 <Implementation><![CDATA[
 	#dim WebOrders As TECH.ListIterator = ##class(TECH.ListIterator).%New(..Retriever.ZoekViaKlantId(KlantId))
 	while WebOrders.HasNext() {
-		do ..Sender.Send(..Converter.Convert(WebOrders.Next())) 	
+		#dim WebOrder As WS.TBX.Order = WebOrders.Next()
+		If $$$Not(..ExportStatusService.IsWinkelKarSuccesvolGeexporteerd(WebOrder.mID)) {	
+			Do ..ExportStatusService.Registreer(..Sender.Send(..Converter.Convert(WebOrder)))
+		}
 	}
 ]]></Implementation>
 </Method>
Index: vhTest/Utils/WS/Vhisie4/Winkelkar/dto/Winkelkar.cls.xml
===================================================================
diff -u -r39665 -r39686
--- vhTest/Utils/WS/Vhisie4/Winkelkar/dto/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 39665)
+++ vhTest/Utils/WS/Vhisie4/Winkelkar/dto/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 39686)
@@ -20,7 +20,18 @@
 <ReturnType>%Stream.Object</ReturnType>
 <Implementation><![CDATA[
 	set Stream = ##class(%GlobalCharacterStream).%New()
-	do Stream.Write("<Winkelkar><ID>WinkelkarId</ID><KlantID>1000</KlantID><Lijnen><WinkelkarLijn d5p1:type=""ProductLijn"" xmlns:d5p1=""http://www.w3.org/2001/XMLSchema-instance""><ID>1001</ID><EenheidPrijs>10</EenheidPrijs><ProductID></ProductID><Aantal>1</Aantal></WinkelkarLijn></Lijnen></Winkelkar>")
+	do Stream.WriteLine("<Winkelkar>")
+	do Stream.WriteLine("  <ID>WinkelkarId</ID>")
+	do Stream.WriteLine("  <KlantID>1000</KlantID>")
+	do Stream.WriteLine("  <Lijnen>")
+	do Stream.WriteLine("    <WinkelkarLijn d5p1:type=""ProductLijn"" xmlns:d5p1=""http://www.w3.org/2001/XMLSchema-instance"">")
+	do Stream.WriteLine("      <ID>1001</ID>")
+	do Stream.WriteLine("      <EenheidPrijs>10</EenheidPrijs>")
+	do Stream.WriteLine("      <ProductID></ProductID>")
+	do Stream.WriteLine("      <Aantal>1</Aantal>")
+	do Stream.WriteLine("    </WinkelkarLijn>")
+	do Stream.WriteLine("  </Lijnen>")
+	do Stream.WriteLine("</Winkelkar>")	
 	quit Stream
 ]]></Implementation>
 </Method>