>* Create VendorPerformance cursor to hold the report... >CREATE CURSOR VndrPerf(VendorID C(5), VenName C(25), NumReceipts I, QtyRecv N(10), ; > QtyRej N(6), PerRej B(2), OnTime B(2)) > >SELECT vendorID, vendorname, ; > cnt(*) AS NumReceipts, ; > SUM(qtyrecv) AS qtyrecv, ; > SUM(qtyrej) AS qtyrej, ; > ROUND(100*SUM(qtyrej)/SUM(qtyrecv),2) AS PerRej ; >FROM PoEntry GROUP BY 1 ; >INTO CURSOR PoOrders > >Scan > INSERT INTO VndrPerf(VendorID, VenName, NumReceipts, QtyRecv, QtyRej, PerRej, OnTime) ; > VALUES (PoOrders.VendorID, PoOrders.VendorName, PoOrders.NumReceipts, PoOrders.QtyRecv, ; > PoOrders.QtyRej, PoOrders.PerRej,0) >EndScan >>
>Select vendorid,vendorname,cnt() as vendorcnt,sum(qtyrecv) as qtyrecv, ; >sum(qtyrej) as qtyrej,round(100*sum(qtyrej)/sum(qtyrecv),2) as perrej ; >from rejects group by 1 >