Index: KOF0.mac.rou
===================================================================
diff -u -r920 -r1273
--- KOF0.mac.rou	(.../KOF0.mac.rou)	(revision 920)
+++ KOF0.mac.rou	(.../KOF0.mac.rou)	(revision 1273)
@@ -80,7 +80,7 @@
  I $D(Prijs) Do
  .I $L(Prijs),+Prijs'=+UEP S Korting1=$J(1-(Prijs/PLP)*100,0,1),Korting2=""
  .S:$L(Prijs) UEP=Prijs S:$L(Korting1) PK1=Korting1 S:$L(Korting2) PK2=Korting2
- I "\C\P\"'[(D_$$PRIJSKL^KLANT(KC,PR,$G(NoSa))_D),'$$CHKPRIJS^KPRIJS(PR,PLP,UEP,AFE,UPAR,CIFPPL) G YZ
+ I "\C\P\"'[(D_$$PRIJSKL^KLANT(KC,PR,$G(NoSa))_D),'$$CHKPRIJS^KPRIJS(PR,PLP,UEP,AFE,UPAR,CIFPPL,,,,,,KC) G YZ
 27 S ULT=1 S:'PSN ULT=$$ListToPieces^vhLib(blLeveringsTermijn.GetLeverTermijn(PR),"#")
  I $L($G(LevTerm)) S ULT=LevTerm
  E  D:BackGrnd IDPROD S BackGrnd=0