Index: APPS/EC/Winkelkar/impl/LijnPrijsBepaler.cls.xml
===================================================================
diff -u -r32700 -r32717
--- APPS/EC/Winkelkar/impl/LijnPrijsBepaler.cls.xml	(.../LijnPrijsBepaler.cls.xml)	(revision 32700)
+++ APPS/EC/Winkelkar/impl/LijnPrijsBepaler.cls.xml	(.../LijnPrijsBepaler.cls.xml)	(revision 32717)
@@ -82,7 +82,7 @@
 <Implementation><![CDATA[
 	If WebshopModus = ##class(APPS.EC.enu.WebshopModus).AdviesPrijs() {
 		Set AdviesPrijsInstellenOpWinkelkar = ##class(APPS.EC.Winkelkar.impl.AdviesPrijsInstellenOpWinkelkar).%New(..KlantID,..VerkoopPrijsBepaler)
-		Do ..WinkelkarLijn.Accept(AdviesPrijsInstellenOpWinkelkar)
+		Do AdviesPrijsInstellenOpWinkelkar.StelInAdviesPrijs(..WinkelkarLijn)
 	}
 ]]></Implementation>
 </Method>
Index: APPS/EC/Winkelkar/impl/AdviesPrijsInstellenOpWinkelkar.cls.xml
===================================================================
diff -u -r32700 -r32717
--- APPS/EC/Winkelkar/impl/AdviesPrijsInstellenOpWinkelkar.cls.xml	(.../AdviesPrijsInstellenOpWinkelkar.cls.xml)	(revision 32700)
+++ APPS/EC/Winkelkar/impl/AdviesPrijsInstellenOpWinkelkar.cls.xml	(.../AdviesPrijsInstellenOpWinkelkar.cls.xml)	(revision 32717)
@@ -38,6 +38,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="StelInAdviesPrijs">
+<FormalSpec><![CDATA[&WinkelkarLijn:APPS.EC.Winkelkar.dto.Lijn]]></FormalSpec>
+<Implementation><![CDATA[	Do WinkelkarLijn.Accept($this)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkMaatwerkLijn">
 <FormalSpec>MaatwerkLijn:APPS.EC.Winkelkar.dto.MaatwerkLijn</FormalSpec>
 <Implementation><![CDATA[
@@ -82,6 +88,9 @@
 </Method>
 
 <Method name="GeefTotaalPrijsVoorWinkelkar">
+<Description>
+DEPRECATED - stond public ! </Description>
+<Private>1</Private>
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[	Quit ..TotaalPrijs
 ]]></Implementation>