У меня в форме считаются суммы по данным из другой формы, суммы по диапазонам даты, а мне нужно то же самое только по диапазонам номеров, нужно написать типо условия, в котором говорится что если в форме TextBox будет пустым, то применяется другой TexBox типо того.
if [vagn] = 0 AND [vagk] = 0
LOCAL b, e, sv, pl, zn, cu, au, ag, pid, pr, vv
b = THISFORM.Begin.Value
e = THISFORM.End.Value
SELECT Vag_cu
SET ORDER TO P_Ident IN Vag_cu
SELECT Party_cu
CALCULATE SUM(Party_cu.sves) FOR Party_cu.date_e >= b AND Party_cu.date_e <= e TO sv
pl = 0
zn = 0
cu = 0
au = 0
ag = 0
pr = 0
vv = 0
SELECT Party_cu
SCAN FOR Party_cu.date_e >= b AND Party_cu.date_e <= e
pid = Party_cu.P_Ident
SEEK pid ORDER P_Ident IN Anal_cu
IF FOUND('Anal_cu')
pl = pl + Anal_cu.pl_ves
zn = zn + Anal_cu.zn_ves
cu = cu + Anal_cu.cu_ves
au = au + Anal_cu.au_ves
ag = ag + Round(Anal_cu.ag_ves,0)
ENDIF
SEEK pid ORDER P_Ident IN Vag_cu
DO WHILE NOT EOF('Vag_cu') AND Vag_cu.P_Ident = pid
pr = pr + Vag_cu.spr
vv = vv + 1
SKIP 1 IN Vag_cu
ENDDO
SELECT Party_cu
ENDSCAN
WITH THISFORM
.SVesS.Value = sv
.Pl_ves.Value = pl
.Zn_ves.Value = zn
.Cu_ves.Value = cu
.Au_ves.Value = au
.Ag_ves.Value = ag
.Pl_pr.Value = ROUND(100*pl/sv, 2)
.Zn_pr.Value = ROUND(100*zn/sv, 2)
.Cu_pr.Value = ROUND(100*cu/sv, 2)
.Au_g_t.Value = ROUND(au/sv, 2)
.Ag_g_t.Value = ROUND(ag/sv, 2)
.Perg.Value = pr
.Vagon.Value = vv
ENDWITH
else
LOCAL s, t, sv, pl, zn, cu, au, ag, pid, pr, vv
s = THISFORM.vagn.Value
t = THISFORM.vagk.Value
SELECT Vag_cu
SET ORDER TO P_Ident IN Vag_cu
SELECT Party_cu
CALCULATE SUM(Party_cu.sves) FOR Party_cu.P_number >= s AND Party_cu.P_number <= t TO sv
pl = 0
zn = 0
cu = 0
au = 0
ag = 0
pr = 0
vv = 0
SELECT Party_cu
SCAN FOR Party_cu.P_number >= s AND Party_cu.P_number <= t
pid = Party_cu.P_Ident
SEEK pid ORDER P_Ident IN Anal_cu
IF FOUND('Anal_cu')
pl = pl + Anal_cu.pl_ves
zn = zn + Anal_cu.zn_ves
cu = cu + Anal_cu.cu_ves
au = au + Anal_cu.au_ves
ag = ag + Round(Anal_cu.ag_ves,0)
ENDIF
SEEK pid ORDER P_Ident IN Vag_cu
DO WHILE NOT EOF('Vag_cu') AND Vag_cu.P_Ident = pid
pr = pr + Vag_cu.spr
vv = vv + 1
SKIP 1 IN Vag_cu
ENDDO
SELECT Party_cu
ENDSCAN
WITH THISFORM
.SVesS.Value = sv
.Pl_ves.Value = pl
.Zn_ves.Value = zn
.Cu_ves.Value = cu
.Au_ves.Value = au
.Ag_ves.Value = ag
.Pl_pr.Value = ROUND(100*pl/sv, 2)
.Zn_pr.Value = ROUND(100*zn/sv, 2)
.Cu_pr.Value = ROUND(100*cu/sv, 2)
.Au_g_t.Value = ROUND(au/sv, 2)
.Ag_g_t.Value = ROUND(ag/sv, 2)
.Perg.Value = pr
.Vagon.Value = vv
ENDIF
ENDWITH
Я в этой программе отметила Text Box как vagn и vagk и также диапазоны дат описываются.
Помогите пожалуйста

ВладимирМВопрос непонятен. Что именно ты хочешь узнать?

Как проверить на пустое значение? Для этого существует функция EMPTY()
Как получить ссылку на другую форму? Почитай здесь

http://www.foxclub.ru/kb/index.php?sid=75423&aktion=artikel&rubrik=004&id=4&lang=ru

Как написать универсальное условие на проверку либо дат, либо номеров? В принципе можно, но лучше писать 2 отдельные функции или хотя бы разделять по IF...ELSE...ENDIF

Да я и разделяю, посмотри процедуру, там написано всё, а мне нужно такое условие:
Если TexBox например с такого числа по такое равен нулю, тогда выполняется ссылка на TextBox числа и естественно в процедуре нужно описание ссумирования значений этого диапазона...
Спасибо за ответ. Елена.

[quot ВладимирМ]Да можно оставить и так как есть. Но если очень хочется, то можно и так


Здесь весь фокус в макроподстановке &lcFilter

Или я опять не о том?[/quo


Вадим, я по - другому решила сделать, я буду вводить данные только в одно поле без всякого условия и теперь мне нужно в Prorerties перевести поле Character в Numeric как это можно сделать?