Index: KPRIJS.mac.rou
===================================================================
diff -u -r43083 -r46496
--- KPRIJS.mac.rou	(.../KPRIJS.mac.rou)	(revision 43083)
+++ KPRIJS.mac.rou	(.../KPRIJS.mac.rou)	(revision 46496)
@@ -1,19 +1,20 @@
 KPRIJS ;Produkt prijs
  
+#include vhLib.Macro
 #include Prod.Product
 #include BL.Derde.LevSpecifiek
 #define CodexList "LRSBG"
 #define CodexDeelVork "0;25;50;75;100"
 #define CodexDeelVorkOL "0;27.27272727;45.45454545;72.72727272;100"
- 
- 
+
 KlantPrijsObject(KLNr,PRNr,NoSa,RefDat,Aantal,LevTerm,Optie)
-	quit $$KlantPrijsNaarKlantPrijsObject($$KlantPrijs(.KLNr,.PRNr,.NoSa,.RefDat,.Aantal,.LevTerm,.Optie))
+	Quit $$KlantPrijsNaarKlantPrijsObject($$KlantPrijs(.KLNr,.PRNr,.NoSa,.RefDat,.Aantal,.LevTerm,.Optie))
 	
 KLANTPRObject(KLNr,PRNr,NoSa,SimPPL)
 	quit $$KlantPrijsNaarKlantPrijsObject($$KLANTPR(.KLNr,.PRNr,.NoSa,.SimPPL))
 	
 KlantPrijsNaarKlantPrijsObject(Record)
+	//Do ##class(Tools.Wlip).%New(42).String("KLNr: " _ $piece(Record,"\",16))
 	new PrijsInfo set PrijsInfo = ##class(APPS.VKP.dto.PrijsInfo).%New()
 	set PrijsInfo.Prijs = +$piece(Record,"\",1)
 	set PrijsInfo.Munt = $piece(Record,"\",2)
@@ -88,7 +89,15 @@
  Set KlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KLNr)
  Set Klant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantID)
  Set BusinessType = Klant.GeefBusinessType()
- Do KKORTING,CALC
+ Do KKORTING, CALC
+ 
+ New Fase
+ Set Fase = ##class(TECH.Config.ConfigMgr).Instance().GetString("AX_SalesPriceOut_Fase")
+ 
+ If (Fase = "2A") {
+	 
+ }
+ 
  Quit $$BUILD
  
  // Set twee kortingen om van in % (*100) naar ��n korting in %
@@ -230,8 +239,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
- ; 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)
+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
  
 CALC 
  If $L($G(KlantGrOrde)) Do
@@ -436,4 +445,3 @@
  . Set:+PPL=+SchaduwPPL SchaduwPPL=""
  Quit SchaduwPPL
 
-
Index: vhDeploy/Deploy20171013xAXSalesPriceOutxFasering.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20171013xAXSalesPriceOutxFasering.cls.xml	(revision 0)
+++ vhDeploy/Deploy20171013xAXSalesPriceOutxFasering.cls.xml	(revision 46496)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20171013xAXSalesPriceOutxFasering">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Configitem voor fasering AX SalesPriceOut</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("AX_SalesPriceOut_Fase", "PRE_2A")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>