Select ; Main.DCode, ; Main.PCode, ; SUM(Payment), ; sum(CAST(IIF(Disount>0,1,0) as I ) as DisNum, ; sum(CAST(IIF(Disount>0,0,1) as I ) as UnDisNum ; From Main ; Group by Main.DCode,Main.PCode ; Into cursor TempCrs Readwrite