>

>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
>

Yes, in VFP9. I was thinking about it but for previous versions 0000000000 technique should work.