Index: PRODUKT4.mac.rou =================================================================== diff -u -r52868 -r54047 --- PRODUKT4.mac.rou (.../PRODUKT4.mac.rou) (revision 52868) +++ PRODUKT4.mac.rou (.../PRODUKT4.mac.rou) (revision 54047) @@ -23,6 +23,7 @@ ...Set R=^KPR(PRNr,WIndex) ...Quit:$P(R,D,3) Quit:$$CALCDATE^vhLib.DataTypes($P(R,D,2),"W","MD")>Week ...Set Aantal=$P(R,D),ORDNr=$E(WIndex,18,23),OLNr=100+$TR($E(WIndex,24,26)," ",0) + ...Do:('$D(^KO1(ORDNr,"F"))) ##class(vhLib.Logger).%New("StockNiveauService").Warning("Order niet gevonden voor product met wIndex : '" _WIndex _ "'") ...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))