Index: KPRIJS.mac.rou
===================================================================
diff -u -r948 -r1273
--- KPRIJS.mac.rou	(.../KPRIJS.mac.rou)	(revision 948)
+++ KPRIJS.mac.rou	(.../KPRIJS.mac.rou)	(revision 1273)
@@ -1,4 +1,4 @@
-KPRIJS ;Produkt prijs 
+KPRIJS ;Produkt prijs
  
 #include %Prod.Product
 #include BL.Derde.LevSpecifiek
@@ -290,7 +290,7 @@
  
  ; Controle of de prijs niet onder de aankoopprijs zit
  ; Controle of de prijs niet boven de lijstprijs zit
-CHKPRIJS(PRNr,LijstPr,VerkPr,Eenheid,Pariteit,AankPr,WachtW,Position,TimeOut,Time,Check) 
+CHKPRIJS(PRNr,LijstPr,VerkPr,Eenheid,Pariteit,AankPr,WachtW,Position,TimeOut,Time,Check,KLNr) 
  New R,KortText,Ok
  Set WachtW=$G(WachtW),Position=$G(Position),TimeOut=$G(TimeOut),Time=$G(Time)
  Set Check=$G(Check) Set:Check="" Check="ALV"
@@ -308,6 +308,7 @@
  .If $H<61301,$G(KC)=11708,$$ISORGAL^PRODUKT2(PRNr) Quit  ; Tijdelijk geen controle voor Bruynzeel - orgalux CW 06.10.08
  .If $G(KLNr)'=3479,$G(KC)'=3479,$G(KLNr)'=3711,$G(KC)'=3711
  .Else  Quit:$$LEVNR^PRODUKT2(PRNr)=6332
+ .If $G(KLNr),$$HeeftUitzondering^KLPUTZ(KLNr,PRNr,4) Quit
  .Set KortText=$P(^KPR(PRNr,0),D)
  .Set R=$$^vhTXTPOP("KPRIJS","CHK-VERK-AANK-PRIJS","",KortText,$J(VerkPr,0,2)),Ok=R'="A"
  .If Ok,$L(WachtW) Set Ok=$$ASK^vhWACHTW(WachtW,Position,TimeOut,Time)