Index: DOM/EC/Winkelkar/impl/WinkelkarKopieerder.cls.xml
===================================================================
diff -u
--- DOM/EC/Winkelkar/impl/WinkelkarKopieerder.cls.xml	(revision 0)
+++ DOM/EC/Winkelkar/impl/WinkelkarKopieerder.cls.xml	(revision 37585)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.EC.Winkelkar.impl.WinkelkarKopieerder">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Kopieer">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
+<ReturnType>DOM.EC.Winkelkar.Winkelkar</ReturnType>
+<Implementation><![CDATA[	quit Winkelkar.%ConstructClone()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml
===================================================================
diff -u -r37581 -r37585
--- APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 37581)
+++ APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 37585)
@@ -50,6 +50,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="WinkelkarKopieerder">
+<Type>DOM.EC.Winkelkar.impl.WinkelkarKopieerder</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="GroepnaamVoorIngegevenKenmerkenBepaler">
 <Type>APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler</Type>
 <Private>1</Private>
@@ -70,6 +75,7 @@
 	Set ..WinkelkarRepository = $$$Inject(WinkelkarRepository,##class(DOM.EC.Winkelkar.impl.WinkelkarRepository).%New())
 	Set ..ProductLijnBuilder = $$$Inject(ProductLijnBuilder,##class(APPS.EC.Winkelkar.impl.ProductLijnBuilder).%New())
 	Set ..WinkelkarLijnRepository = $$$Inject(WinkelkarLijnRepository,##class(DOM.EC.Winkelkar.impl.LijnRepository).%New())
+ 	Set ..WinkelkarKopieerder = ##class(DOM.EC.Winkelkar.impl.WinkelkarKopieerder).%New()
 
 	Set ..MaatwerkLijnBuilder = $$$Inject(MaatwerkLijnBuilder,##class(APPS.EC.Winkelkar.impl.MaatwerkLijnBuilder).%New())
 	Set ..GroepnaamVoorIngegevenKenmerkenBepaler = ##class(APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler).%New()
@@ -82,7 +88,7 @@
 <ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
 <Implementation><![CDATA[
 	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..OpenWinkelkar(WinkelkarID)
-	#dim WinkelkarKopie As DOM.EC.Winkelkar.Winkelkar = Winkelkar.%ConstructClone()
+	#dim WinkelkarKopie As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarKopieerder.Kopieer(Winkelkar)
 	Quit ..GeefWinkelkarDto(WinkelkarKopie)
 ]]></Implementation>
 </Method>