Как суммировать Calculated поле в агрегатное

[delphi159]

параметр запроса :id (код товара) получает значения из датасета, а эти значения надо перебирать в while цикле.
например:
выписал накладной, в котором 3 записей. В DBGrid-е кроме полей бд у каждой записи хочу увыдеть вычисляемое поле ндс, который вычисляю в CalcFields процедуре.
Потом в Label нужно получать sum(ндс*количество).
В Datasete встаю на первую запись, который имеет свой ID товара и в while цикле перебираю записи:
while not dataset1.eof do begin
dataset1.close;
dataset1.sql.clear;
dataset1.sql.add('select * from Goods where id=:id');
dataset1.paramsbyname('id').asinteg er:=dataset1Id.asinteger;
dataset1.open;
end;
если товар не облагается ндс-ом тогда ндс:=0
else ндс:=цена*18/118.
но кроме этого надо проверять конкретно этот поставщик платит или нет ндс. А как это проверить на сервере,пока поставщика не выбрал на клиенте?

[Аватар]

Можно в запросе с помощью left join прицепить Goods к основной таблице и там то же самое делать

[delphi159]

Сообщение от Аватар

Можно в запросе с помощью left join прицепить Goods к основной таблице и там то же самое делать

И что это изменит? Мне нужен узнать как обойти перебор записей в цикле и как суммировать вычисляемие значения vat(ндс) в агрегатное поле!

[Аватар]

Этим избавимся от вычисляемого поля на клиенте. И коль IB поддерживает агрегатные поля, то должно нормально просуммировать без твоего цикла. А если агрегатные поля в нем мираж, то вторым запросом суммируй и на клиенте просто бери из него данные

[delphi159]

Сообщение от Аватар

Этим избавимся от вычисляемого поля на клиенте. И коль IB поддерживает агрегатные поля, то должно нормально просуммировать без твоего цикла. А если агрегатные поля в нем мираж, то вторым запросом суммируй и на клиенте просто бери из него данные

Аватар, вы имели ввиду так?

select Goods_Id, income_id, Qty, Price, vatpayer, Nakl.nakl_id, Price*Qty as summa,
CASE when vatpayable=1 then         --если моя фирма платит ндс
  CASE when Vatpayer=1 then          --если поставщик платит ндс 
  case 
    when taxable=0 then 0                    --если товар не платит ндс 
    when taxable=1 then Price*18/118         --если товар платит ндс
  end  
Else 0
  end
else 0
END AS Vat
 
from Income, partn, nakl
where Income.part_id=partn.part_id and nakl. nakl_id=:nakl_id
group by Goods_id, Income_id, Qty, Price, vatpayer, nakl_id, summa, vat

В Firebird 2.5 работает, хотя выбирает все записи с одинаковими Goods_id(см. рисунок), а в Interbase 2009- никак: Expression evalution not supported!

[Аватар]

А просто так без не нужных вложений

CASE when vatpayable=1 AND Vatpayer=1 AND taxable=1 then Price*18/118 Else  0 end

[delphi159]

Сообщение от Аватар

А просто так без не нужных вложений

CASE when vatpayable=1 AND Vatpayer=1 AND taxable=1 then Price*18/118 Else  0 end

Аватар вложение стало гораздо проще и работает. Спасибо вам большое!
А на счёт агрегата, наверно, не получится без Clientdataset-а.
Interbase 2009 наверно не может группировать по выражению. Как, по вашему мнению, можно обойти эту проблему в IB?

[Аватар]

Понятия не имею, ни когда не использовал IB. И агрегаты к СУБД не имеют отношения, этим занимается сам датасет. А чтобы сгруппировать по выражению запрос с ним нужно сделать вложенным в FROM и группировать во внешнем запросе

[delphi159]

Сообщение от Аватар

агрегаты к СУБД не имеют отношения, этим занимается сам датасет.

Да, это знаю, но у меня датасет IBDataset и поэтому проблемы. Как узнал должен быть clientdaset или датасети Firebird-а.