Index: EWBON.mac.rou
===================================================================
diff -u -r49280 -r49630
--- EWBON.mac.rou	(.../EWBON.mac.rou)	(revision 49280)
+++ EWBON.mac.rou	(.../EWBON.mac.rou)	(revision 49630)
@@ -230,10 +230,7 @@
  . Set:$L($P(R,D,48)) FSCHout=$P(R,D,48)
  . Set StockUpd=$P(R,D,14)'["S" Set:StockUpd StockUpd=$P(R,D,14)'["Z"
  . If $P(R,D,2),'$$MAGHANDEL^PRODUKT2($P(R,D,2)) Set StockUpd=0
- . Set StukPr=$P($$KLANTPR^KPRIJS(KLNr,KPRNr),D,14)
- . If StukPr Do
- . . Set R=^KUL(KLNr,"F",CONSNr,1),Munt=$P(R,D,18)
- . . Set Pariteit=$$MUNT^vhRtn1(Munt,,12),StukPr=StukPr/Pariteit
+ . Set StukPr=0
  . If SOPRPRNr Do
  . . Do HIST(KLNr,CONSNr,BLUNr,SOPRPRNr,AantWMS,StukPr,StockUpd,.WMS,,MPRNr,,.FSCHout)
  . . Do HIST(KLNr,CONSNr,BLUNr,KPRNr,AantWMS,StukPr,StockUpd,.WMS,,SOPRPRNr,,.FSCHout)
@@ -722,4 +719,3 @@
 
 
 
-