Index: zTryout/ARC/APPS/VKP/OrderIngaveService.cls.xml
===================================================================
diff -u -r1222 -r1408
--- zTryout/ARC/APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 1222)
+++ zTryout/ARC/APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 1408)
@@ -16,7 +16,7 @@
 	Set ProductVerkoopInfo.EersteLeverdatums = LeverTermijnService.GeefLeverDatums(PRNr, KlantNr)
 	
 	Set ProductService = ##class(zTryout.ARC.APPS.common.ProductService).%New()
-	Set ProductVerkoopInfo.Verkoopprijs = ProductService.GeefVerkoopprijs(PRNr, KlantNr, Aantal)
+	Set ProductVerkoopInfo.Verkoopprijs = ..GeefVerkoopprijs(PRNr, KlantNr, Aantal)
 	
 	Set StockNiveauService = ##class(APPS.common.impl.StockNiveauService).%New(PRNr)
 	Set ProductVerkoopInfo.PraktischeStock = StockNiveauService.GeefPraktischeStock()
@@ -40,7 +40,7 @@
 
 	Do OrderLijn.ZetProductNr(PRNr)
 	Do OrderLijn.ZetAantal(Aantal)
-	Set EenheidsPrijs = ##class(ProductService).%New().GeefVerkoopprijs(PRNr, Order.GeefKlantNr(), Aantal)
+	Set EenheidsPrijs = ..GeefVerkoopprijs(PRNr, Order.GeefKlantNr(), Aantal)
 	Do OrderLijn.ZetBedrag(Aantal * EenheidsPrijs)
 	
 	Do Order.VoegToeAlsNieuw(OrderLijn)
@@ -120,5 +120,15 @@
 	Quit AantalLijnen
 ]]></Implementation>
 </Method>
+
+<Method name="GeefVerkoopprijs">
+<FormalSpec>PRNr:%String,KLNr:%String,Aantal:%Integer</FormalSpec>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	Set ProductService = ##class(zTryout.ARC.APPS.common.ProductService).%New()
+	Do ##class(zTryout.ARC.TECH.DataMContext).InitConstanten()
+	Quit ProductService.GeefVerkoopprijs(PRNr, KLNr, Aantal)
+]]></Implementation>
+</Method>
 </Class>
 </Export>