Index: EWORDS5.mac.rou
===================================================================
diff -u -r29059 -r47926
--- EWORDS5.mac.rou	(.../EWORDS5.mac.rou)	(revision 29059)
+++ EWORDS5.mac.rou	(.../EWORDS5.mac.rou)	(revision 47926)
@@ -232,10 +232,10 @@
  Do:PRNr
  . Set StockUpd=$P(Rec,D,14)'["S" Set:StockUpd StockUpd=$P(Rec,D,14)'["Z"
  . Set:'$$MAGHANDEL^PRODUKT2(PRNr) StockUpd=0
- . Set:Optie["F" Ok=1
- . Quit:Ok  Quit:TOENr
  . Set OLUNr=$P(Rec,D,15),EwmsVerw=$D(^ORDW("IO",ORDNr,OLUNr))
  . Quit:EwmsVerw
+ . Set:Optie["F" Ok=1
+ . Quit:Ok  Quit:TOENr
  . If StockUpd,Aantal>0 Do  Quit:FysStock'>0
  . . Set FysStock=##class(APPS.common.StockNiveauServiceFactory).Maak(PRNr).GeefFysischeStockMinReservaties()
  . . Set:FysStock'>0 FysStock=FysStock+##class(BL.Legacy.EWORDS5).GeefGestockeerdeFysischeVoorraad(PRNr) ; Fysische voorraad onvoldoende dus gestockeerde voorraad