Index: MRPSTOCK.mac.rou
===================================================================
diff -u -r48151 -r67550
--- MRPSTOCK.mac.rou	(.../MRPSTOCK.mac.rou)	(revision 48151)
+++ MRPSTOCK.mac.rou	(.../MRPSTOCK.mac.rou)	(revision 67550)
@@ -290,7 +290,7 @@
  . Set BestQty=$S(HerbPunt>(Stock-InTransfer):$S(BestQty>HerbQty:BestQty,1:HerbQty),1:BestQty) ; Indien herbestelpunt bereikt dan kijken wat groter is verschil reservatie of herbestelqty
  
  ; Indien onvoldoende praktische voorraad dan juist het nodige 
- ;If $$GETSTOCK^PRODUKT4(PRNr,"P")<BestQty Set BestQty=Res-Stock-InTransfer
+ If $$GETSTOCK^PRODUKT4(PRNr,"P")<BestQty Set BestQty=Reservatie-Stock-InTransfer ;  terug geactiveerd PV 12/10/2020 op vraag van VDR
  Set BestQty=$J(BestQty+.499,0,0) ; geheel getal !
  Set @CRef@("SCANONE",PRNr)="BestQty:"_BestQty_"\Res:"_Reservatie_"\Stock:"_Stock_"\Intransfer:"_InTransfer_"\CheckQty:"_(Reservatie+(HerbQty/2)-Stock-InTransfer)_"\AanvulQty:"_(Reservatie+HerbQty-Stock-InTransfer)_"\HerbQty:"_$G(HerbQty)_"\VPQty:"_$G(VPQty)_"\Faktor:"_$G(Faktor)_"\Step:"_$G(Step)
  Quit:BestQty'>0
@@ -306,13 +306,12 @@
  If TimeOut Lock +^PRSTOCK("D",PRNr):TimeOut Else  Quit 0
  Else  Lock +^PRSTOCK("D",PRNr)
  New WaardeVoor, WaardeNa
- Set WaardeVoor = $P(^PRSTOCK("D",PRNr),D,Piece)
+ Set WaardeVoor=$P($G(^PRSTOCK("D",PRNr)),D,Piece)
  Set $P(^PRSTOCK("D",PRNr),D,Piece)=$S($G(IsSet):0,1:$P($G(^PRSTOCK("D",PRNr)),D,Piece))+QtyWV
- Set WaardeNa = $P(^PRSTOCK("D",PRNr),D,Piece)
+ Set WaardeNa=$P($G(^PRSTOCK("D",PRNr)),D,Piece)
  If (('(WaardeVoor = WaardeNa)) && ((Piece = 1) || (Piece = 5))){
  	Do ##class(DOM.MAG.event.EventRaiser).%New().RaiseStockGewijzigdEvent(PRNr)
  }
  Lock -^PRSTOCK("D",PRNr)
  Quit:TimeOut 1
  Quit
-