Index: KORTING.mac.rou
===================================================================
diff -u -r29059 -r36781
--- KORTING.mac.rou	(.../KORTING.mac.rou)	(revision 29059)
+++ KORTING.mac.rou	(.../KORTING.mac.rou)	(revision 36781)
@@ -12,7 +12,8 @@
 	; Optie : D = Display van optionele kortingen 
 	New I,R,Korting,Korting1,Korting2,DTyp,HoofdGroep,Groep,SubGroep,Niveau,PrijsGegRec
 	New GrootVp,OptMin,OptPlus,OptKort,IsKatPr,PrijsKl,KlantInd,KYW,GenPRNr
- 
+	New KatPrijs,Result,OptKortList,HeeftUitz,DispOption,KortRec
+	
 	Do InitKORTPC ; ophalen van HoofdGroep, groep, subgroep, PrijsGegRec en defaulten option variabelen
 	Set PrijsKl=$$PRIJSKL^KLANT(KLNr,PRNr,NoSa) ;Prijsklasse Beslag of Orgalux
 	Set KatPrijs=$$KATPrijs(KLNr,PRNr,NoSa,PrijsGegRec) ; Katprijs zonder uitzonderingen
Index: KPRIJS.mac.rou
===================================================================
diff -u -r29059 -r36781
--- KPRIJS.mac.rou	(.../KPRIJS.mac.rou)	(revision 29059)
+++ KPRIJS.mac.rou	(.../KPRIJS.mac.rou)	(revision 36781)
@@ -73,7 +73,7 @@
  New R,KatProd,IsKatPr,FaMunt,Munt,MuntPar,VkpPr,KortNiv,AkpEUR,VkpEUR,LijstEUR,KlMunt,KlTyp,NetBrutP,PrijsKl,IsKsCust,IsLidVan,%LidVan,LEVNr,KatPrHan,KatPrInd,KatPrKs,GrOrde,GrOrdNum,PrMunt,CifPPL,LijstPr,Vork,%Vork
  ; Opgezet via GETCUST : KlMunt,KlTyp,NetBrutP,PrijsKl,IsKsCust,IsLidVan,%LidVan
  ; Opgezet via GETPROD : LEVNr,KatPrHan,KatPrInd,KatPrKs,GrOrde,GrOrdNum,PrMunt,CifPPL,LijstPr,Vork,%Vork
- New LEVNr,KatPrHan,KatPrInd,KatPrKs,GrOrde,GrOrdNum,PrMunt,CifPPL,LijstPr,Vork,%Vork,BusinessType,Klant,KlantID
+ New LEVNr,KatPrHan,KatPrInd,KatPrKs,GrOrde,GrOrdNum,PrMunt,CifPPL,LijstPr,Vork,%Vork,BusinessType,Klant,KlantID, CorFakt,KortRec
  Set:$G(NoSa)'="S" NoSa=""
  Set FaMunt=$$FADEF^vhRtn1()
  Do GETCUST(KLNr,NoSa,PRNr),GETPROD(PRNr,NoSa,$G(SimPPL))