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()) {