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

[delphi159]

делается накладная прихода.
DBGrid>DataSource>IBDataset

Есть Calculated поле ("DedVat") в котором получаю ндс(18% от цены закупки) в процедуре CalcFields(DataSet: TDataSet).

Нужно получить итог умножения DedVat на количество в LabelDedVat(сумма ндс).
Для этого создаю аггрегатное поле AggrVat.
В NewField выбираю: type Aggregate, FieldType-calculated.
В expression аггрегатного поля AggrVat пишу: SUM(RS*DEDVAT)- количество прихода умножить на ндс товара.

procedure TFsem.QrecsCalcFields(DataSet: TDataSet);
begin

QrecsDedVat.AsFloat:=(QrecsFsl2.AsFloat*18/118)*10;  
LabelDedvat.Caption:=VarToStr(QrecsAggrVat.Value);
end;

Но AggrVat не получает значение: AggrVat.Value=Null.

[Аватар]

Для ClientDataSet вычисляемое поле для того, что бы агрегатное его съело нужно объявлять fkInternalCalc вместо fkCalculated. Может и для IBDataset чего-то в этом духе есть?

[xxbesoxx]

если вычислять всё на SQL запросе в SELECT-е и компилировать его на сервере как "view представление" и это "представление" вызвать потом как такблица SELECT-е

[Аватар]

И зачем, если агрегатные поля предоставляют возможно подбивать итоги по полю. Или по группам записей в соответствии с индексом, по-крайней мере в ClientDataSet и родственниках это можно. А вычисляемое конечно можно и запросом сделать

[xxbesoxx]

И зачем, если агрегатные поля предоставляют возможно подбивать итоги по полю.

Аватар Я так думаю, преимущество в том что
1) Лучше вычилять все на сервере и вызвать резултать ! чем из клиентское приложение
2) Можеть через некоторый время работодатель захочет уже НЕ (18% от цены закупки) А (25% от цены закупки) или 11% что бы не компилировать программа и не менять .exe файл везде "если ешё программа многопользовательски"
3) Для сопровождение проекта я думаю что все (вычисление поля) компилировать на сервере !
Это я так думаю ! не спорю ! и не забиваю что МНОГО ЧЕГО НАУЧИЛ ОТ ВАС

[Аватар]

Вообще-то все в разумных пределах нужно делать. Запросом удобней и, возможно предпочтительней, и код клиента короче, но с вычисляемыми полями запрос или представление дольше работает и трафик сетевой увеличивает. Да и не всякое вычисляемое поле на сервере можно эффективно вычислить

[delphi159]

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

Для ClientDataSet вычисляемое поле для того, что бы агрегатное его съело нужно объявлять fkInternalCalc вместо fkCalculated. Может и для IBDataset чего-то в этом духе есть?

Захотел поменять fkCalculated на fkInternalCalc в инспекторе но ругается: QrecsDEDVAT: Invalid field kind!

[Аватар]

Нельзя fkCalculated на fkAggregate менять, это совершенно разное. Речь шла о замене fkCalculated на fkInternalCalc. Если еще для этого датасета это прокатит

ЗЫ вижу подправил сообщение, значит не прокатит. Сделай в запросе вычисляемое поле как xxbesoxx подсказывает и не парься

еще ЗЫ - а в самом датасете есть свойство для активизации агрегатных полей. чего-то типа AggregatesActive?

[delphi159]

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

а в самом датасете есть свойство для активизации агрегатных полей. чего-то типа AggregatesActive?

В самом датасете нет такое свойство. Есть только Active у агрегатного поля. Установил Active в true но ...

Сообщение от xxbesoxx

если вычислять всё на SQL запросе в SELECT-е и компилировать его на сервере как "view представление" и это "представление" вызвать потом как таблица SELECT-е

Дело в том, что в бд записываю записи прихода, там есть поле "цена прихода вместе ндс".
я хочу:
1) цену без ндс-а и сам ндс хранить не в бд, а вычислять в calculated полях и отобразить в DBGrid-е.
2) суммировать вычисляемые значения calculated поля "ндс" каждой записи и в Label получать общую сумму ндс-а(количество товара*ндс).

Не могу понять как написать параметризированный запрос, посколько тогда в while цикле надо перебирать записи датасета и проверять первый товарь облагается или нет ндс-ом и так до конца. Тогда while цикл для, например, 1000 записей будеть работать медленно!

[xxbesoxx]

Не могу понять как написать параметризированный запрос, посколько тогда в while цикле

Я не магу понять причем тут в месте (параметризированный запрос while цикле) если все можно в SELECT написат CASE WHEN.... THEN