VPF::Как это сделать --> Sum ({@field1}, {@field2})

Chyslyvchyk

Дата 24.1.2007, 10:44 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 446
Регистрация: 9.5.2004

Репутация: нет
Всего: 5

К Crystal репорту подключена база base.dbf. На репорте поля:

1) @st - в формуле прописано if({base.TR} = "R") or (({base.TR} = "B") and ({base.AMOUNT} < 0)) then 1 else 2
2) @amount - в формуле прописано if({@st} = 1) then ({base.AMOUNT} *-1) else {base.AMOUNT}
3) @bank - переменная, присвается в коде программы, берется из поля Edit1.Text
4) @sb - в формуле прописано if({@st} = 1) then Sum ({@amount}, {@st}) + {@bank}

Это все конвертится в QReport:

1) Делаемся вычисляемое поле:

Код


procedure TFormBankRec.Table1CalcFields(DataSet: TDataSet);
begin
    if (Table1.fieldbyname('TR').AsString = 'R')
        or ((Table1.fieldbyname('TR').AsString = 'B')
        and (Table1.fieldbyname('AMOUNT').AsVariant < 0))
    then
        Table1ST.Value := '1'
    else
        Table1ST.Value := '2';
end;

2) Кидаем QRExpr, c Expression := 'if(Table1.ST='1',Table1.AMOUNT*(-1),Table1.AMOUNT)'
3) bank - переменная, присвается в коде программы, берется из поля Edit1.Text

4) А вот как это реализовать?...

--------------------

Простота - сестра таланта!

Savek

Дата 24.1.2007, 12:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 355
Регистрация: 10.4.2006
Где: Воронеж

Репутация: 7
Всего: 7

Цитата(Chyslyvchyk @ 24.1.2007, 10:44

)

4) А вот как это реализовать?...

Те же условия из 1) и 2)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »