Index: PRHIST.mac.rou
===================================================================
diff -u -r55344 -r62525
--- PRHIST.mac.rou	(.../PRHIST.mac.rou)	(revision 55344)
+++ PRHIST.mac.rou	(.../PRHIST.mac.rou)	(revision 62525)
@@ -29,7 +29,7 @@
  
  If Magazijn="W" Set R=$G(^PRSTOCK("D",PRNr)),Stock=$P(R,D,5)
  Else  Set R=^KPR(PRNr,0),Stock=$P(R,D,14)
- Set Waarde=$J($P($$PRIJSGEG^KPRIJS(PRNr),D,6)*Aantal,0,2) ; omgezet van CIFPPLPR naar PRIJSGEG
+ Set Waarde=$J($$CifPPL^KPRIJS(PRNr)*Aantal,0,2) ; omgezet van CIFPPLPR naar PRIJSGEG
  If $E($G(Refer),1,2)="**" Set Refer="",Type="O" ;Optimalisatie
  If Type="M",+Aantal=0 Set Type="E" ; Bij manuele correctie wordt het type omgezet naar E = Telling zonder stockwijziging (meestal bij lege pallet)
  If Type="D",+Aantal=0 Set Type="Z" ; Bij manuele correctie en met AUTOCC flag wordt het type omgezet naar Z = Telling zonder stockwijziging (meestal bij lege pallet)
@@ -276,7 +276,7 @@
  .Set BONNr=$P(Rec,D,7)
  .Quit:'BONNr  Quit:$D(^KU1(BONNr))
  .If $ISVALIDNUM(BONNr,,200000,299999) Set Omschr=Omschr_" (DO)"
- .Else  Set FANr=$P(Rec,D,10) Set:'FANr Omschr=Omschr_" (STORNO)"
+ .Else  Set FANr=$P(Rec,D,10) ;Set:'FANr Omschr=Omschr_" (STORNO)"
  Else  If KLNr,$P(Rec,D,4)="I" Do
  .Quit:$$LEVNR^PRODUKT2(PRNr)=KLNr  ; Leverancier van het produkt
  .If TOENr>199999,TOENr<300000 Quit
@@ -430,3 +430,4 @@
  ;
 
 
+