Index: KPRIJS.mac.rou
===================================================================
diff -u -r36781 -r40321
--- KPRIJS.mac.rou	(.../KPRIJS.mac.rou)	(revision 36781)
+++ KPRIJS.mac.rou	(.../KPRIJS.mac.rou)	(revision 40321)
@@ -105,7 +105,7 @@
  ; De SimPPL wordt genomen ter vervanging van de PPL in PRNr, 
  ; zo kan dan het product een generisch product zijn waarvoor het afgeleid product nog niet bestaat
  ; De SimPPL moet voldoen aan de muntpariteit en de grootteorde
- New R,KatProd,IsKatPr,FaMunt,Munt,MuntPar,IsKsCust,PrijsKl,VkpPr,KortNiv,AkpEUR,VkpEUR,LijstEUR,LEVNr,KatPrHan,KatPrInd,KatPrKs,GrOrde,GrOrdNum,PrMunt,CifPPL,LijstPr,Vork,%Vork
+ New R,KatPr,CorFakt,KatProd,IsKatPr,FaMunt,Munt,MuntPar,IsKsCust,PrijsKl,VkpPr,KortNiv,AkpEUR,VkpEUR,LijstEUR,LEVNr,KatPrHan,KatPrInd,KatPrKs,GrOrde,GrOrdNum,PrMunt,CifPPL,LijstPr,Vork,%Vork
  ; Opgezet via GETPROD : LEVNr,KatPrHan,KatPrInd,KatPrKs,GrOrde,GrOrdNum,PrMunt,CifPPL,LijstPr,Vork,%Vork
  
  Set:$Get(BusinessType)="" BusinessType = ##class(DOM.VKP.enu.BusinessType).B2B()
@@ -433,3 +433,4 @@
  . Set:+PPL=+SchaduwPPL SchaduwPPL=""
  Quit SchaduwPPL
 
+