Index: APPS/VKP/impl/WinkelkarKopieerder.cls.xml
===================================================================
diff -u -r44723 -r46850
--- APPS/VKP/impl/WinkelkarKopieerder.cls.xml	(.../WinkelkarKopieerder.cls.xml)	(revision 44723)
+++ APPS/VKP/impl/WinkelkarKopieerder.cls.xml	(.../WinkelkarKopieerder.cls.xml)	(revision 46850)
@@ -3,30 +3,49 @@
 <Class name="APPS.VKP.impl.WinkelkarKopieerder">
 <Super>APPS.VKP.WinkelkarKopieerder,TECH.RegisteredObject</Super>
 
+<Property name="WinkelkarRepo">
+<Type>DOM.EC.Winkelkar.WinkelkarRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Lijnkopieerder">
+<Type>APPS.EC.Winkelkar.impl.LijnKopieerder</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>WinkelkarRepo:DOM.EC.Winkelkar.WinkelkarRepository,Lijnkopieerder:APPS.EC.Winkelkar.impl.LijnKopieerder</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..WinkelkarRepo = $$$Inject(WinkelkarRepo,##class(DOM.EC.Winkelkar.impl.WinkelkarRepository).%New())
+	Set ..Lijnkopieerder = $$$Inject(Lijnkopieerder,##class(APPS.EC.Winkelkar.impl.LijnKopieerder).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="KopieerWinkelkar">
 <FormalSpec>WinkelkarID:%String,KlantID:DOM.VKP.VanHoeckeKlantID="",PersonalityID:DOM.common.enu.Personality=""</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%OpenId(WinkelkarID)
+	#dim OrigineleWinkelkar As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarRepo.GeefViaID(WinkelkarID)
 	
-	#dim WinkelkarKopie As DOM.EC.Winkelkar.Winkelkar = Winkelkar.%ConstructClone(0)
-	If $Length(KlantID)'=0 {
-		Do WinkelkarKopie.ZetKlantID(KlantID)
-	}
-	If $Length(PersonalityID)'=0 {
-		Do WinkelkarKopie.ZetPersonalityID(PersonalityID)
-	}
-	do WinkelkarKopie.VerwijderAlleInhoud()
+	#dim GekopieerdeWinkelkar As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarRepo.Dupliceer(OrigineleWinkelkar)
 	
-	Set Lijnkopieerder = ##class(APPS.EC.Winkelkar.impl.LijnKopieerder).%New()
-	do Lijnkopieerder.Kopieer(Winkelkar,WinkelkarKopie)
+	Do:$$$HasLength(KlantID) GekopieerdeWinkelkar.ZetKlantID(KlantID)
+	Do:$$$HasLength(PersonalityID) GekopieerdeWinkelkar.ZetPersonalityID(PersonalityID)
 	
-	Set WinkelkarKopie.ExterneId = ""
+	Do GekopieerdeWinkelkar.VerwijderAlleInhoud()
 	
-	do WinkelkarKopie.Save()
-	#dim WinkelkarKopieID As %String = WinkelkarKopie.GeefID()
+	Do ..Lijnkopieerder.Kopieer(OrigineleWinkelkar,GekopieerdeWinkelkar)
+	
+	Set GekopieerdeWinkelkar.ExterneId = ""
+	
+	Do ..WinkelkarRepo.Bewaar(GekopieerdeWinkelkar)
 
-	Quit WinkelkarKopieID
+	Quit GekopieerdeWinkelkar.GeefID()
 ]]></Implementation>
 </Method>
 </Class>