Index: APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml
===================================================================
diff -u -r32129 -r32438
--- APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 32129)
+++ APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 32438)
@@ -393,12 +393,12 @@
 <ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
 <Implementation><![CDATA[
 	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..GeefWinkelkarDto(WinkelkarImpl)	
+	#dim LijnNaarDtoVisitor As APPS.EC.Winkelkar.impl.LijnNaarDtoVisitor = ##class(APPS.EC.Winkelkar.impl.LijnNaarDtoVisitor).%New(Winkelkar, WinkelkarImpl.GeefApplicatieType())
+	#dim TotaalPrijsBepaler As APPS.EC.Winkelkar.impl.TotaalPrijsBepaler = ##class(APPS.EC.Winkelkar.impl.TotaalPrijsBepaler).%New()
 	
-	Set LijnNaarDtoVisitor = ##class(APPS.EC.Winkelkar.impl.LijnNaarDtoVisitor).%New(Winkelkar,WinkelkarImpl.GeefApplicatieType())
 	Do WinkelkarImpl.Accept(LijnNaarDtoVisitor)	
-	
-	Set TotaalPrijsBepaler = ##class(APPS.EC.Winkelkar.impl.TotaalPrijsBepaler).%New()
 	Do Winkelkar.Accept(TotaalPrijsBepaler)
+	
 	Set Winkelkar.TotaalPrijs = TotaalPrijsBepaler.GeefPrijs()
 		
 	Quit Winkelkar