Index: vhTest/Fake/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter/Sender.cls.xml
===================================================================
diff -u -r39658 -r39668
--- vhTest/Fake/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter/Sender.cls.xml	(.../Sender.cls.xml)	(revision 39658)
+++ vhTest/Fake/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter/Sender.cls.xml	(.../Sender.cls.xml)	(revision 39668)
@@ -5,7 +5,7 @@
 Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
 Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Sender</Super>
+<Super>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender</Super>
 
 <Method name="Send">
 <FormalSpec>Winkelkar:WS.Vhisie4.Winkelkar.dto.Winkelkar</FormalSpec>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Sender.cls.xml
===================================================================
diff -u -r39665 -r39668
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Sender.cls.xml	(.../FlowWinkelkarConverter/Sender.cls.xml)	(revision 39665)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Sender.cls.xml	(.../Sender.cls.xml)	(revision 39668)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Sender">
+<Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.Mockable</Super>
 
Index: vhTest/Fake/WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Sender.cls.xml
===================================================================
diff -u -r39340 -r39668
--- vhTest/Fake/WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Sender.cls.xml	(.../Sender.cls.xml)	(revision 39340)
+++ vhTest/Fake/WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Sender.cls.xml	(.../Sender.cls.xml)	(revision 39668)
@@ -5,7 +5,7 @@
 Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
 Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Sender</Super>
+<Super>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender</Super>
 
 <Method name="Send">
 <FormalSpec>Winkelkar:WS.Vhisie4.Winkelkar.dto.Winkelkar</FormalSpec>
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Sender/Test.cls.xml
===================================================================
diff -u -r39665 -r39668
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Sender/Test.cls.xml	(.../Test.cls.xml)	(revision 39665)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Sender/Test.cls.xml	(.../Test.cls.xml)	(revision 39668)
@@ -26,7 +26,7 @@
 	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("VerbreekVerbinding").DanDoeNiks()
 	
-	Set Sender = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Sender).%New(FtpApiMock,ExportStatusServiceMock)
+	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())
     Do $$$AssertEquals(SendResponse.Winkelkar.VanHoeckeId,"WinkelkarId")
FishEye: Tag 39668 refers to a dead (removed) revision in file `WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter/Sender.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 39668 refers to a dead (removed) revision in file `WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FakeIntractoService.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter.cls.xml
===================================================================
diff -u -r39350 -r39668
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter.cls.xml	(.../FlowWinkelkarConverter.cls.xml)	(revision 39350)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter.cls.xml	(.../FlowWinkelkarConverter.cls.xml)	(revision 39668)
@@ -14,7 +14,7 @@
 </Property>
 
 <Property name="Sender">
-<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Sender</Type>
+<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender</Type>
 <Private>1</Private>
 </Property>
 
@@ -29,15 +29,15 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>VerkoopAPI:DOM.VKP.VerkoopAPI,Retriever:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Retriever,Sender:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Sender,Converter:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Converter,ExportStatusService:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusService</FormalSpec>
+<FormalSpec>VerkoopAPI:DOM.VKP.VerkoopAPI,Retriever:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Retriever,Sender:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender,Converter:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Converter,ExportStatusService:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusService</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	set ..VerkoopAPI = $$$Inject(VerkoopAPI,##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
 	set ..Retriever = $$$Inject(Retriever,##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Retriever).%New())
-	set ..Sender = $$$Inject(Sender,##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Sender).%New())
+	set ..Sender = $$$Inject(Sender,##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender).%New())
 	set ..Converter = $$$Inject(Converter, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Converter).%New())
 	Set ..ExportStatusService = $$$Inject(ExportStatusService,##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusService).%New())
 	Quit $$$OK
Index: vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter/Sender.cls.xml
===================================================================
diff -u -r39658 -r39668
--- vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter/Sender.cls.xml	(.../Sender.cls.xml)	(revision 39658)
+++ vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter/Sender.cls.xml	(.../Sender.cls.xml)	(revision 39668)
@@ -6,7 +6,7 @@
 Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
 Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Sender,Tools.Mock.MockClassBase</Super>
+<Super>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
 <Method name="Send">
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/ExportStatusService.cls.xml
===================================================================
diff -u -r39350 -r39668
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/ExportStatusService.cls.xml	(.../ExportStatusService.cls.xml)	(revision 39350)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/ExportStatusService.cls.xml	(.../ExportStatusService.cls.xml)	(revision 39668)
@@ -5,6 +5,7 @@
 
 <Property name="ExportStatusRepository">
 <Type>WSdata.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusRepository</Type>
+<Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
@@ -24,8 +25,8 @@
 <FormalSpec>VanHoeckeId:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#Dim SuccesvolGeexporteerd as %Boolean = 0
-	If ..ExportStatusRepository.BestaatViaVanhoeckeId(VanHoeckeId){
+	#dim SuccesvolGeexporteerd As %Boolean = 0
+	If ..ExportStatusRepository.BestaatViaVanhoeckeId(VanHoeckeId) {
 		Set SuccesvolGeexporteerd = (..ExportStatusRepository.GeefViaVanHoeckId(VanHoeckeId).Hoofding.Status = "Geslaagd")
 	}
 	Quit SuccesvolGeexporteerd
@@ -35,14 +36,14 @@
 <Method name="Registreer">
 <FormalSpec>SendResponse:WS.Vhisie4.WinkelkarExport.SendResponse</FormalSpec>
 <Implementation><![CDATA[
-	#Dim ExportStatus as WSdata.Vhisie4.Winkelkar.WinkelkarExport.ExportStatus
+	#dim ExportStatus As WSdata.Vhisie4.Winkelkar.WinkelkarExport.ExportStatus
 	
-	If ..ExportStatusRepository.BestaatViaVanHoeckId(SendResponse.Winkelkar.VanHoeckeId){
+	If ..ExportStatusRepository.BestaatViaVanHoeckId(SendResponse.Winkelkar.VanHoeckeId) {
 		Set ExportStatus = ..ExportStatusRepository.GeefViaVanHoeckId(SendResponse.Winkelkar.VanHoeckeId)
 	} else {
-		Set ExportStatus = ##class(WSdata.Vhisie4.Winkelkar.WinkelkarExport.ExportStatus).%New()
+		Set ExportStatus = ..ExportStatusRepository.Maak()
 	}	
-	Do ExportStatus.%Save()
+	Do ..ExportStatusRepository.Bewaar(ExportStatus)
 ]]></Implementation>
 </Method>
 
@@ -51,8 +52,8 @@
 <Private>1</Private>
 <ReturnType>WSdata.Vhisie4.Winkelkar.WinkelkarExport.ExportStatus</ReturnType>
 <Implementation><![CDATA[
-	Set ExportStatus.Hoofding = SendResponse.Winkelkar
-	Set ExportStatus.Lijnen = SendResponse.Lijnen	
+	Set ExportStatus.Hoofding = SendResponse.Winkelkar.%ConstructClone(1)
+	Set ExportStatus.Lijnen = SendResponse.Lijnen.%ConstructClone(1)	
 	Quit ExportStatus
 ]]></Implementation>
 </Method>