Untitled

LOCAL myear
myear=thisform.combo1.value

SELECT ppmp_ngas, acc_no, SUM(amount) AS amount FROM ppmp ;
WHERE YEAR(date) = myear ;
AND acctype like "%MOOE%" INTO CURSOR ann GROUP BY ppmp_ngas
SELECT ann

SELECT tempannual
DELETE ALL

GO top
DO WHILE !EOF()
  mgas=ppmp_ngas
  DO whil mgas=ann.ppmp_ngas
     SELECT tempannual
     APPEND BLANK
     replace ppmp_ngas WITH ann.ppmp_ngas
     replace acc_no WITH ann.acc_no
     replace amount WITH ann.amount
     SELECT ann
     skip
  ENDDO
ENDDO

thisform.grid1.Refresh