Index: WSdata/Vhisie4/Winkelkar/WinkelkarExport/impl/ExportStatusRepository.cls.xml
===================================================================
diff -u -r39313 -r39522
--- WSdata/Vhisie4/Winkelkar/WinkelkarExport/impl/ExportStatusRepository.cls.xml	(.../ExportStatusRepository.cls.xml)	(revision 39313)
+++ WSdata/Vhisie4/Winkelkar/WinkelkarExport/impl/ExportStatusRepository.cls.xml	(.../ExportStatusRepository.cls.xml)	(revision 39522)
@@ -11,7 +11,7 @@
 <Method name="BestaatViaVanhoeckeId">
 <FormalSpec>VanHoeckeId:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit ##class(APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenBestanden).VanHoeckeIdIndexExists(VanHoeckeId)
+<Implementation><![CDATA[	quit ##class(WSdata.Vhisie4.Winkelkar.WinkelkarExport.ExportStatus).VanHoeckeIdIndexExists(VanHoeckeId)
 ]]></Implementation>
 </Method>
 
Index: vhTest/Spy/WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Converter.cls.xml
===================================================================
diff -u
--- vhTest/Spy/WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Converter.cls.xml	(revision 0)
+++ vhTest/Spy/WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Converter.cls.xml	(revision 39522)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Spy.WSimpl.Vhisie4.Winkelkar.FlowWinkelkarConverter.Converter">
+<Super>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Converter</Super>
+
+<Property name="ConvertAangeroepen">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefConvertAangeroepen">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[		Quit ..ConvertAangeroepen
+]]></Implementation>
+</Method>
+
+<Method name="Convert">
+<FormalSpec>Hoofding:Flow.Offerte.Hoofding</FormalSpec>
+<ReturnType>WS.Vhisie4.Winkelkar.dto.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	Set ..ConvertAangeroepen = ..ConvertAangeroepen + 1
+	quit ##Super(Hoofding)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Test.cls.xml
===================================================================
diff -u -r39352 -r39522
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 39352)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 39522)
@@ -3,15 +3,15 @@
 <Class name="vhUnitTest.WSimpl.Vhisie4.Winkelkar.FlowWinkelkarConverter.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test ConvertCustomer roept ExportStatusService-registreer en vervolg op indien een offerte van een klant nog niet success volgeexporteerd was">
+<Method name="Test ConvertCustomer roept ExportStatusService-registreer en vervolg op indien een offerte van een klant nog niet succesvol geexporteerd was">
 <Implementation><![CDATA[
 
-	#Dim RetrieverMock as vhTest.Mock.WSimpl.Vhisie4.Winkelkar.FlowWinkelkarConverter.Retriever = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Retriever).%New()
-	#Dim SenderMock as vhTest.Mock.WSimpl.Vhisie4.Winkelkar.FlowWinkelkarConverter.Sender = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Sender).%New()
-	#Dim ConverterMock as vhTest.Mock.WSimpl.Vhisie4.Winkelkar.FlowWinkelkarConverter.Converter = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Converter).%New()
-	#Dim ExportStatusServiceMock as vhTest.Mock.WSimpl.Vhisie4.Winkelkar.impl.ExportStatusService = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusService).%New()
+	Set RetrieverMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Retriever).%New()
+	Set SenderMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Sender).%New()
+	Set ConverterMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Converter).%New()
+	Set ExportStatusServiceMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusService).%New()
 	
-	#Dim FlowWinkelkarConverter as WSimpl.Vhisie4.Winkelkar.FlowWinkelkarConverter = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter).%New(,RetrieverMock,SenderMock,ConverterMock,ExportStatusServiceMock)
+	Set FlowWinkelkarConverter = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter).%New(,RetrieverMock,SenderMock,ConverterMock,ExportStatusServiceMock)
 
 	#Dim OfferteList as %ListOfObjects = ##class(%ListOfObjects).%New()
 
@@ -29,7 +29,9 @@
 	Do RetrieverMock.VerwachtMethodCall("ZoekViaKlantId","xx").DanReturn(OfferteList)
 	Do ExportStatusServiceMock.VerwachtMethodCall("IsWinkelKarSuccesvolGeexporteerd",123456).DanReturn(0)
 	Do ExportStatusServiceMock.VerwachtMethodCall("IsWinkelKarSuccesvolGeexporteerd",654321).DanReturn(1)
-	Do ConverterMock.VerwachtMethodCall("Convert", Offerte1).DanReturn(Winkelkar)
+	
+	Do ConverterMock.VerwachtMethodCall("Convert", Offerte1).DanReturn(Winkelkar).ExactAantalKeer(1)
+	Do ConverterMock.VerwachtMethodCall("Convert", Offerte2).Nooit()
 	Do SenderMock.VerwachtMethodCall("Send",Winkelkar).DanReturn(SendResponse)
 	Do ExportStatusServiceMock.VerwachtMethodCall("Registreer",SendResponse).DanDoeNiks()
 	
@@ -45,12 +47,11 @@
 <Method name="Test ConvertCustomer roept ExportStatusService-registreer niet op indien de offertes van een klant successvol geexporteerd zijn">
 <Implementation><![CDATA[
 
-	#Dim RetrieverMock as vhTest.Mock.WSimpl.Vhisie4.Winkelkar.FlowWinkelkarConverter.Retriever = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Retriever).%New()
-	#Dim SenderMock as vhTest.Mock.WSimpl.Vhisie4.Winkelkar.FlowWinkelkarConverter.Sender = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Sender).%New()
-	#Dim ConverterMock as vhTest.Mock.WSimpl.Vhisie4.Winkelkar.FlowWinkelkarConverter.Converter = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Converter).%New()
-	#Dim ExportStatusServiceMock as vhTest.Mock.WSimpl.Vhisie4.Winkelkar.impl.ExportStatusService = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusService).%New()
-	
-	#Dim FlowWinkelkarConverter as WSimpl.Vhisie4.Winkelkar.FlowWinkelkarConverter = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter).%New(,RetrieverMock,SenderMock,ConverterMock,ExportStatusServiceMock)
+	Set RetrieverMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Retriever).%New()
+	Set SenderMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Sender).%New()
+	Set ConverterSpy = ##class(vhTest.Spy.WSimpl.Vhisie4.Winkelkar.FlowWinkelkarConverter.Converter).%New()
+	Set ExportStatusServiceMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusService).%New()	
+	Set FlowWinkelkarConverter = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter).%New(,RetrieverMock,SenderMock,ConverterSpy,ExportStatusServiceMock)
 
 	#Dim OfferteList as %ListOfObjects = ##class(%ListOfObjects).%New()
 
@@ -63,21 +64,22 @@
 	
 	#Dim SendResponse as WS.Vhisie4.WinkelkarExport.SendResponse = ..GeefSendResponse(123456,"Geslaagd")
 	
-	#Dim Winkelkar as WS.Vhisie4.Winkelkar.dto.Winkelkar = ##class(WS.Vhisie4.Winkelkar.dto.Winkelkar).%New()
+	Set Winkelkar = ##class(WS.Vhisie4.Winkelkar.dto.Winkelkar).%New()
 
 	Do RetrieverMock.VerwachtMethodCall("ZoekViaKlantId","xx").DanReturn(OfferteList)
 	Do ExportStatusServiceMock.VerwachtMethodCall("IsWinkelKarSuccesvolGeexporteerd",123456).DanReturn(1)
 	Do ExportStatusServiceMock.VerwachtMethodCall("IsWinkelKarSuccesvolGeexporteerd",654321).DanReturn(1)
 	
 	Do FlowWinkelkarConverter.ConvertCustomer("xx")
-	
+	Do $$$AssertEquals(ConverterSpy.GeefConvertAangeroepen(),0)	
 	Do RetrieverMock.Verifieer()
 	Do ExportStatusServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="GeefSendResponse">
 <FormalSpec>VanHoeckId:%String,Status:%String</FormalSpec>
+<Private>1</Private>
 <ReturnType>WS.Vhisie4.WinkelkarExport.SendResponse</ReturnType>
 <Implementation><![CDATA[
 	#Dim SendResponse as WS.Vhisie4.WinkelkarExport.SendResponse = ##class(WS.Vhisie4.WinkelkarExport.SendResponse).%New()