Помогите дописать отчет

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Denver82
Посетитель
Сообщения: 36
Зарегистрирован: 27 июл 2010, 20:00

Помогите дописать отчет

Сообщение Denver82 »

Доброго времени суток!
фрагмент отчета...
.fields
CommonFormHeader
header1
NameFltCO
kontrname
kontraddr
kontrtel
If (insaldo<0,Then,0) Здесь я хочу, что бы в поле прописалось сальдо меньше ноля
If (insaldo>0,Then,0) а здесь больше..., (Типа дебет и кредит)
if (saldokon<0,Then,0)
if (saldokon>0,Then,0)
if (outsaldokon<0,Then,0)
if (outsaldokon>0,Then,0)
saldotot
outsaldotot
.endfields
Помогите пожалуйста.
Pehterev
Новичок
Сообщения: 26
Зарегистрирован: 16 мар 2007, 12:52
Откуда: Кемерово

Re: Помогите дописать отчет

Сообщение Pehterev »

Наверно так

Код: Выделить всё

If (insaldo < 0, - insaldo, 0)
If (insaldo > 0,   insaldo, 0) 
Denver82
Посетитель
Сообщения: 36
Зарегистрирован: 27 июл 2010, 20:00

Re: Помогите дописать отчет

Сообщение Denver82 »

Pehterev писал(а):Наверно так

Код: Выделить всё

If (insaldo < 0, - insaldo, 0)
If (insaldo > 0,   insaldo, 0) 
Спасибо, сейчас попробую!
Denver82
Посетитель
Сообщения: 36
Зарегистрирован: 27 июл 2010, 20:00

Re: Помогите дописать отчет

Сообщение Denver82 »

чет не то!!
Denver82
Посетитель
Сообщения: 36
Зарегистрирован: 27 июл 2010, 20:00

Re: Помогите дописать отчет

Сообщение Denver82 »

все понял
If (insaldo < 0, insaldo, 0)
If (insaldo > 0, insaldo, 0)
Спасибо, :-)
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5187
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: Помогите дописать отчет

Сообщение edward_K »

тему не там открыли - есть "программирование"
Denver82
Посетитель
Сообщения: 36
Зарегистрирован: 27 июл 2010, 20:00

Re: Помогите дописать отчет

Сообщение Denver82 »

Ижвените, испарвлюсь.
Denver82
Посетитель
Сообщения: 36
Зарегистрирован: 27 июл 2010, 20:00

Re: Помогите дописать отчет

Сообщение Denver82 »

Доброго времени суток!!!
Можно еще вопросик?
Мне теперь нужно зделать ИТОГО:
If (insaldo < 0, insaldo, 0) Внизу сумма этого
If (insaldo > 0, insaldo, 0)и соответственно сумма этого
Подскажите пожалуйста!
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5187
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: Помогите дописать отчет

Сообщение edward_K »

проще завести две переменные
.var
w1,w2:double
.endvar
.begin
w1:=0;w2:=0;
end.
...
.{
...
.begin
w1:=w1+
w2:=w2+
.}
.fiedls
w1 w2
.endfields
^ ^
а так читайте viprogr.chm - там примеры есть использования атрибутов полей типа :sum
Denver82
Посетитель
Сообщения: 36
Зарегистрирован: 27 июл 2010, 20:00

Re: Помогите дописать отчет

Сообщение Denver82 »

edward_K писал(а):проще завести две переменный
.var
w1,w2:double
.endvar
.begin
w1:=0;w2:=0;
end.
...
.{
...
.begin
w1:=w1+
w2:=w2+
.}
.fiedls
w1 w2
.endfields
^ ^
а так читайте viprogr.chm - там примеры есть использования атрибутов полей типа :sum
Да, спасибо.
Ответить