Index: KPRIJS.mac.rou
===================================================================
diff -u -r46496 -r46545
--- KPRIJS.mac.rou	(.../KPRIJS.mac.rou)	(revision 46496)
+++ KPRIJS.mac.rou	(.../KPRIJS.mac.rou)	(revision 46545)
@@ -91,13 +91,19 @@
  Set BusinessType = Klant.GeefBusinessType()
  Do KKORTING, CALC
  
- New Fase
+ // VHIP907: Verkoopprijzen
+ // VHIP907->MVI: voorlopig laat ik alles invullen in fase 2a en overschrijf ik enkel de waarden die ax teruggeeft
+ New Fase, SalesPriceService, Output, OutputLine
  Set Fase = ##class(TECH.Config.ConfigMgr).Instance().GetString("AX_SalesPriceOut_Fase")
  
  If (Fase = "2A") {
+	 Set SalesPriceService = ##class(AXimpl.Admin.VKP.SalesPriceService).%New()
+	 Set Output = SalesPriceService.GeefPrijs(KLNr, PRNr, CifPPL)
+	 Set OutputLine = Output.Lines.GetAt(1)
 	 
- }
- 
+	 Set VkpEUR = OutputLine.Price
+ } 
+
  Quit $$BUILD
  
  // Set twee kortingen om van in % (*100) naar ��n korting in %
@@ -239,8 +245,8 @@
 CifPPL(PRNr,NoSa)
 	Quit $P($$PRIJSGEG(PRNr,.NoSa),D,6)
 	 
-BUILD() Quit VkpPr_D_Munt_D_GrOrde_D_LijstPr_D_Korting1_D_Korting2_D_$G(PrijsKl)_D_$G(KortNiv)_D_+$J(1/MuntPar,0,8)_D_GrOrde_1_D_GrOrdNum_D_1_D_AkpEUR_D_VkpEUR_D_LijstEUR_D_KLNr
- ; 1:prijs,2:munt,3:eenheid,4:lijstprijs,5:korting1,6:korting2,7:codex,8:katprijs,9:pariteit,10:afrondingsregel,11:eenheid(numeriek),12:round,13:aankpr(EUR),14:prijs(EUR),15:lijstprijs(EUR),16:KLNr
+BUILD() Quit VkpPr_D_Munt_D_GrOrde_D_LijstPr_D_Korting1_D_Korting2_D_$G(PrijsKl)_D_$G(KortNiv)_D_+$J(1/MuntPar,0,8)_D_GrOrde_1_D_GrOrdNum_D_1_D_AkpEUR_D_VkpEUR_D_LijstEUR
+ ; 1:prijs,2:munt,3:eenheid,4:lijstprijs,5:korting1,6:korting2,7:codex,8:katprijs,9:pariteit,10:afrondingsregel,11:eenheid(numeriek),12:round,13:aankpr(EUR),14:prijs(EUR),15:lijstprijs(EUR)
  
 CALC 
  If $L($G(KlantGrOrde)) Do