>If there's an index on IdField, the following may be faster
>

>local SumPayment, IdToDo
>SumPayment = 0
>IdToDo = 2134
>
>&& set order to the index on IdField
>&& best set talk Off
>
>if( seek(m.IdToDo, 'AliasName') )
>    sum Payment rest while (IdField == m.IdToDo) to SumPayment
>endif
>
>

Yes, it may be faster.