>******************************* >PROCEDURE GetViosInRange >******************************* >LPARAMETERS tcVioCat,tnLowMonths,tnHiMonths,tnLowBound,tnHiBound >LOCAL lnRetVal >SELECT * FROM WCDRVA ; >WHERE mvrcat = tcVioCat ; >AND BETWEEN(monthsago,tnLowMonths,tnHiMonths) ; >AND drvseq = this.drivernum; >INTO cursor thesevios >lnRetVal = 0 >IF tnlowbound > 0 > SKIP tnlowbound-1 > SCAN WHILE RECNO() <= tnhibound > lnretval = lnretval + 1 > ENDSCAN >endi >RETURN lnRetVal >
* VFP9 SELECT; COUNT(*) AS counts; FROM; (SELECT * FROM WCDRVA ; WHERE mvrcat = m.tcVioCat ; AND BETWEEN(monthsago,m.tnLowMonths,m.tnHiMonths) ; AND drvseq = m.this.drivernum) X; WHERE RECNO() BETWEEN m.tnlowbound AND m.tnhibound; INTO cursor RETURN RETURN counts