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