Код: Выделить всё
var i_dog : byte;
i_dog := 1;
SQL
Select SaldMoun.KauOS[:(i_dog)] as dogovor
, Sum(SaldMoun.SumS) as summa
from SaldMoun
where ( :(dateSaldo) = SaldMoun.DateSal
and :(schSaldo) = SaldMoun.SchetO
)
group by SaldMoun.KauOS[:(i_dog)]
into tsSaldoUp byName
;