Index: APPS/VKP/impl/WinkelkarLijnenNaarOrderVisitor.cls.xml
===================================================================
diff -u -r37059 -r37098
--- APPS/VKP/impl/WinkelkarLijnenNaarOrderVisitor.cls.xml	(.../WinkelkarLijnenNaarOrderVisitor.cls.xml)	(revision 37059)
+++ APPS/VKP/impl/WinkelkarLijnenNaarOrderVisitor.cls.xml	(.../WinkelkarLijnenNaarOrderKopieerder.cls.xml)	(revision 37098)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.VKP.impl.WinkelkarLijnenNaarOrderVisitor">
+<Class name="APPS.VKP.impl.WinkelkarLijnenNaarOrderKopieerder">
 <Super>DOM.EC.Winkelkar.WinkelkarVisitor</Super>
 
 <Property name="Order">
@@ -18,16 +18,12 @@
 <Default>APPS.VKP.WinkelkarLijnenNaarOrderVisitor.MaakOrderVanOffertePrijsVerschillen</Default>
 </Parameter>
 
-<Method name="%OnNew">
-<FormalSpec>Order:DOM.VKP.Order,GegevenBevestigingen:APPS.common.Bevestigen.dto.GegevenBevestigingen</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<ServerOnly>1</ServerOnly>
+<Method name="KopieerLijnen">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,Order:DOM.VKP.Order,GegevenBevestigingen:APPS.common.Bevestigen.dto.GegevenBevestigingen</FormalSpec>
 <Implementation><![CDATA[
 	set ..Order = Order
 	set ..GegevenBevestigingen = GegevenBevestigingen
-	quit $$$OK
+	do Winkelkar.Accept($this)
 ]]></Implementation>
 </Method>
 
FishEye: Tag 37098 refers to a dead (removed) revision in file `APPS/VKP/impl/WinkelkarLijnenNaarOrderVisitor.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/VKP/OrderIngaveService.cls.xml
===================================================================
diff -u -r37020 -r37098
--- APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 37020)
+++ APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 37098)
@@ -207,8 +207,8 @@
 <Implementation><![CDATA[
 	#Dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).OpenId(Offerte.WinkelkarID)
 
-	#Dim Visitor As APPS.VKP.impl.WinkelkarLijnenNaarOrderVisitor = ##class(APPS.VKP.impl.WinkelkarLijnenNaarOrderVisitor).%New(Order, GegevenBevestigingen)
-	Do Winkelkar.Accept(Visitor)
+	#Dim WinkelkarLijnenNaarOrderKopieerder As APPS.VKP.impl.WinkelkarLijnenNaarOrderKopieerder = ##class(APPS.VKP.impl.WinkelkarLijnenNaarOrderKopieerder).%New()
+	Do WinkelkarLijnenNaarOrderKopieerder.KopieerLijnen(Winkelkar, Order, GegevenBevestigingen)
 	
 	#Dim Iterator As TECH.Iterator = Order.GeefProductOrderLijnIterator()
 	While (Iterator.HasNext()) {
Index: vhUnitTest/APPS/VKP/impl/WinkelkarLijnenNaarOrderVisitor/TestPrijsVerschilMock.cls.xml
===================================================================
diff -u -r29059 -r37098
--- vhUnitTest/APPS/VKP/impl/WinkelkarLijnenNaarOrderVisitor/TestPrijsVerschilMock.cls.xml	(.../TestPrijsVerschilMock.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/VKP/impl/WinkelkarLijnenNaarOrderVisitor/TestPrijsVerschilMock.cls.xml	(.../TestPrijsVerschilMock.cls.xml)	(revision 37098)
@@ -1,8 +1,21 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.VKP.impl.WinkelkarLijnenNaarOrderVisitor.TestPrijsVerschilMock">
-<Super>APPS.VKP.impl.WinkelkarLijnenNaarOrderVisitor</Super>
+<Super>APPS.VKP.impl.WinkelkarLijnenNaarOrderKopieerder</Super>
 
+<Method name="%OnNew">
+<FormalSpec>Order:DOM.VKP.Order,GegevenBevestigingen:APPS.common.Bevestigen.dto.GegevenBevestigingen</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..Order = Order
+	set ..GegevenBevestigingen = GegevenBevestigingen
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="MaakProductVanMaatwerkLijn">
 <FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <Private>1</Private>