>* Get the PO Entry here... >SELECT * FROM rejects ; >WHERE daterecv BETWEEN StartDate AND EndDate ; >ORDER BY vendorname, daterecv ; >INTO CURSOR VendorPerf > >SELECT ; > vendorID, ; > vendorname, ; > cnt(*) as NumRect, ; > sum(qtyrecv) as RecvQty, ; > sum(qtyrej) as RejQty, ; > Round(100*SUM(qtyrej)/SUM(qtyrecv),2) as PerRej, ; > 0 as OnTime ; && added this for OT field... > FROM rejects GROUP BY 1 ; > WHERE daterecv BETWEEN StartDate AND EndDate ; > INTO CURSOR VendorPerf > >* Calculate % On Time here... >do while Vendor = VendorPerf.vendorname > SELECT OrderMaster > SET KEY TO VendorPerf.Ordernum > LOCATE FOR LINNUM_10 = VendorPerf.Linnum AND ; > DELNUM_10 = VendorPerf.Delnum > > if found() > numDays = weekdays(VendorPerf.daterecv,OrderMaster.CURDUE_10) > if numDays < Tolerance > OnTime = OnTime + 1 > endif > OnTime = Round((OnTime/NumRect)*100,2) > endif > > scan > INSERT INTO VendorPerf(vendorname, OnTime) ; > VALUES (vendor, OnTime) > endscan > > SELECT VendorPerf > SKIP >enddo > >