Insert Into crsDist (From,To,Amount) ;
          values ;
          ( m.ldFrom, m.ldTo,m.lnAmount)
      Endfor

 IF month(txtstart)=2 or month(txtstart)=4 or month(txtstart)=6 or month    (txtstart)=9 or month(txtstart)=11 and day(txtstart)=1

use crsDist
go bottom
m.val=amount
delet the last record

go top first record
amount=amount+m.val