Top 10 Best & Worst Selling

{ Vfp Code }
* Function Top 10 Best
Select Top 10 tbarang.nm_barang,;
SUM( ttransdt.qty*ttransdt.nominal);
FROM tbarang INNER Join ttransdt ;
ON tbarang.kd_barang = ttransdt.kd_barang;
GROUP By tbarang.nm_barang;
ORDER By 2 Desc Into Cursor curtopbest

* Function Top 10 Worst
Select Top 10 tbarang.nm_barang,;
SUM( ttransdt.qty*ttransdt.nominal);
FROM tbarang INNER Join ttransdt ;
ON tbarang.kd_barang = ttransdt.kd_barang;
GROUP By tbarang.nm_barang;
ORDER By 2 Into Cursor curtopworst
{ End Code }