Index: FLOWORD7.mac.rou =================================================================== diff -u -r48964 -r49076 --- FLOWORD7.mac.rou (.../FLOWORD7.mac.rou) (revision 48964) +++ FLOWORD7.mac.rou (.../FLOWORD7.mac.rou) (revision 49076) @@ -342,6 +342,7 @@ For Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) Quit:OLNr="" Do . Set R=^KOD(KLNr,"F",ORDNr,OLNr),PRNr=$P(R,D,2),OLUNr=$P(R,D,15),InventTransId=$P(R,D,55) . Quit:((InventTransId'="")&&($$OrderLijnIsGeblokkeerd(InventTransId))) + . Quit:($P(R,"\",28)'="") . Quit:'PRNr . Set StockUpd=$P(R,D,14)'["S" Set:StockUpd StockUpd=$P(R,D,14)'["Z" . Quit:'StockUpd