group by taxliab.clientno, year, qtr, taxliab.duedate ; order by taxliab.clientno, year, qtr, taxliab.duedate ;
> select taxliab.clientno as clientno, ; > YEAR(taxliab.chkdate) as year, QUARTER(taxliab.chkdate) as qtr, ; > taxliab.duedate as duedate, ; > sum(taxliab.amount-taxliab.credtaken-taxliab.removed) as amount, ; > client.eftpscode as pin, client.fedid as fedid, ; > lcfirsttaxtype as taxtype, lccode as code ; > from taxliab, client ; > where taxliab.clientno == client.clientno and ; > taxliab.taxtype $ lctaxtype and ; > taxliab.duedate <= lddate and ; > taxliab.status == 'P' ; > group by taxliab.clientno, YEAR(taxliab.chkdate), QUARTER(taxliab.chkdate), taxliab.duedate ; > order by taxliab.clientno, YEAR(taxliab.chkdate), QUARTER(taxliab.chkdate), taxliab.duedate ; > into cursor tcdata readwrite >>