Index: KPRIJSADMIN.mac.rou
===================================================================
diff -u -r48137 -r48147
--- KPRIJSADMIN.mac.rou	(.../KPRIJSADMIN.mac.rou)	(revision 48137)
+++ KPRIJSADMIN.mac.rou	(.../KPRIJSADMIN.mac.rou)	(revision 48147)
@@ -94,19 +94,19 @@
  
  // VHIP907: Verkoopprijzen
  // VHIP907->MVI: voorlopig laat ik alles invullen in fase 2a en overschrijf ik enkel de waarden die ax teruggeeft
- New SalesPriceService, Output, OutputLine
+ New SalesPriceService, Result
  
  If $$IsAX(KLNr,PRNr) {
  	 Set SalesPriceService = ##class(AXimpl.Admin.VKP.SalesPriceService).%New()
 	 #Dim Result as AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceLineOutputDC
-	 Set Result = SalesPriceService.GeefPrijs(KLNr, PRNr, $S($G(SimPPL):CifPPL,1:""))
+	 Set Result = SalesPriceService.GeefPrijs(KLNr, PRNr, $S($G(SimPPL):SimPPL,1:""))
 	 
 	 Set VkpEUR = Result.Price
 	 Set VkpPr = VkpEUR
 	 Set LijstEUR = Result.GrossPrice
 	 Set LijstPr = LijstEUR
 	 Set Korting2=0
-	 Set Korting1=(VkpEUR/LijstEUR-1)*100
+	 Set Korting1=(1-(VkpEUR/LijstEUR))*100
  } 
 
  Quit $$BUILD