Index: vhTest/Fake/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/ExportStatusService.cls.xml
===================================================================
diff -u -r39666 -r39736
--- vhTest/Fake/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/ExportStatusService.cls.xml	(.../ExportStatusService.cls.xml)	(revision 39666)
+++ vhTest/Fake/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/ExportStatusService.cls.xml	(.../ExportStatusService.cls.xml)	(revision 39736)
@@ -16,8 +16,7 @@
 
 <Method name="Registreer">
 <FormalSpec>SendResponse:WS.Vhisie4.WinkelkarExport.SendResponse</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 </Class>
 
Index: vhUnitTest/WS/Vhisie4/WinkelkarExport/ExportService/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WS/Vhisie4/WinkelkarExport/ExportService/Test.cls.xml	(revision 0)
+++ vhUnitTest/WS/Vhisie4/WinkelkarExport/ExportService/Test.cls.xml	(revision 39736)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WS.Vhisie4.WinkelkarExport.ExportService.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test RegistreerWinkelkarMigratie">
+<Implementation><![CDATA[
+	Set ExportStatusServiceMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusService).%New()
+	#Dim MigratieRequest as WS.Vhisie4.WinkelkarExport.RegistreerWinkelkarMigratieRequest = ..GeefRegistreerWinkelkarMigratieRequest()
+	Set ExportService = ##class(WS.Vhisie4.WinkelkarExport.ExportService).%New(ExportStatusServiceMock)
+
+	Do ExportStatusServiceMock.VerwachtMethodCall( "Registreer",..Matches.DataTransferObject(MigratieRequest)).DanDoeNiks()
+
+	Do ExportService.RegistreerWinkelkarMigratie(MigratieRequest)
+
+	Do ExportStatusServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefRegistreerWinkelkarMigratieRequest">
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.WinkelkarExport.RegistreerWinkelkarMigratieRequest</ReturnType>
+<Implementation><![CDATA[
+	#Dim Request as WS.Vhisie4.WinkelkarExport.RegistreerWinkelkarMigratieRequest  = ##class(WS.Vhisie4.WinkelkarExport.RegistreerWinkelkarMigratieRequest).%New()
+	Quit Request
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/ExportStatusService.cls.xml
===================================================================
diff -u -r39686 -r39736
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/ExportStatusService.cls.xml	(.../ExportStatusService.cls.xml)	(revision 39686)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/ExportStatusService.cls.xml	(.../ExportStatusService.cls.xml)	(revision 39736)
@@ -46,7 +46,7 @@
 		Set ExportStatus.Hoofding.VanHoeckeId = SendResponse.Winkelkar.VanHoeckeId
 	}	
 	
-	set ExportStatus.Hoofding.Status = SendResponse.Winkelkar.Status
+	set ExportStatus.Hoofding = SendResponse.Winkelkar.%ConstructClone(1)
 	do ExportStatus.Lijnen.Clear()
 	set Iterator = ##class(TECH.ListIterator).%New(SendResponse.Lijnen)
 	while Iterator.HasNext() {
Index: WS/Vhisie4/WinkelkarExport/ExportService.cls.xml
===================================================================
diff -u -r39695 -r39736
--- WS/Vhisie4/WinkelkarExport/ExportService.cls.xml	(.../ExportService.cls.xml)	(revision 39695)
+++ WS/Vhisie4/WinkelkarExport/ExportService.cls.xml	(.../ExportService.cls.xml)	(revision 39736)
@@ -5,15 +5,46 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>WS.OngeauthenticeerdeWebService</Super>
 
+<Property name="ExportStatusService">
+<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusService</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ExportStatusService:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusService</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ExportStatusService = $$$Inject(ExportStatusService,##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.ExportStatusService).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="RegistreerWinkelkarMigratie">
 <FormalSpec>Request:WS.Vhisie4.WinkelkarExport.RegistreerWinkelkarMigratieRequest</FormalSpec>
 <WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	#Dim SendResponse as WS.Vhisie4.WinkelkarExport.SendResponse
+	Set SendResponse = ..ConverteerNaarSendResponse(Request)
+	Do ..ExportStatusService.Registreer(SendResponse)
+]]></Implementation>
 </Method>
 
 <Method name="UpdateWinkelkar">
 <FormalSpec>Request:WS.Vhisie4.WinkelkarExport.UpdateWinkelkarRequest</FormalSpec>
 <WebMethod>1</WebMethod>
 </Method>
+
+<Method name="ConverteerNaarSendResponse">
+<FormalSpec>Request:WS.Vhisie4.WinkelkarExport.RegistreerWinkelkarMigratieRequest</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.WinkelkarExport.SendResponse</ReturnType>
+<Implementation><![CDATA[
+	// interne structuur is zelfde, method voorzien indien er evt toch iets moet gebeuren
+	Quit Request
+]]></Implementation>
+</Method>
 </Class>