Index: PRODUKT4.mac.rou
===================================================================
diff -u -r48696 -r49351
--- PRODUKT4.mac.rou	(.../PRODUKT4.mac.rou)	(revision 48696)
+++ PRODUKT4.mac.rou	(.../PRODUKT4.mac.rou)	(revision 49351)
@@ -1,4 +1,6 @@
 #include BL.Derde.LevSpecifiek
+#include TECH.Error
+
 PRODUKT4 ;VOORRAAD [ 10/29/2003  11:06 AM ]
  ;
 DYNSTOCK(PRNr,Type,Week) 
@@ -23,6 +25,8 @@
  ...Set Aantal=$P(R,D),ORDNr=$E(WIndex,18,23),OLNr=100+$TR($E(WIndex,24,26)," ",0)
  ...Set KLNr=$P(^KO1(ORDNr,"F"),D),R=$G(^KOD(KLNr,"F",ORDNr,OLNr))
  ...Set OLUNr=$P(R,D,15)
+ ...Do:(""=OLUNr) ##class(vhLib.Logger).%New("StockNiveauService").Warning("Order al op bon","KO1='"_^KO1(ORDNr,"F")_"'. " _ $$$CRLF _ ##class(TECH.Context).Instance().GeefSystemAPI().GeefStackTrace(1))
+ ...Quit:(""=OLUNr)
  ...Quit:$D(^ORDW("IO",ORDNr,OLUNr))  ; Reeds in WMS geen dubbeltelling
  ...Set StockUpd=$P(R,D,14)'["S" Set:StockUpd StockUpd=$P(R,D,14)'["Z"
  ...Set:StockUpd InOrder=InOrder+Aantal