Index: Prod/Product/StockBeheer/StockScan.mac.rou
===================================================================
diff -u -r29059 -r41122
--- Prod/Product/StockBeheer/StockScan.mac.rou	(.../StockScan.mac.rou)	(revision 29059)
+++ Prod/Product/StockBeheer/StockScan.mac.rou	(.../StockScan.mac.rou)	(revision 41122)
@@ -77,6 +77,7 @@
  New R,StockUpd,KLNr,ORDNr,OLNr
  Set StockUpd=0,ORDNr=$E(Ref,18,23),OLNr=$TR($E(Ref,24,26)," ","")+100
  If ORDNr,OLNr Do
+ .Quit:'$Data(^KO1(ORDNr,"F"))
  .Set R=^KO1(ORDNr,"F"),KLNr=$P(R,D)
  .Quit:'KLNr
  .Set R=$G(^KOD(KLNr,"F",ORDNr,OLNr))
@@ -153,3 +154,4 @@
  Lock -@("^"_Q_"SPW(PR)")
  Quit
  ;
+