g
clear
set safe off
close database
set talk off
sele 1
use razg
index on n_z to k1
sele 2
use zona
index on n_z to k2
sele 1
set rela to n_z into 2
set skip to 2
c = date ()
@ 2,10 say "Введіть дату" get c
read
v = 0
@ 4,10 say "Введіть номер зони" get v
read
set filter to a.data_razg = c.and. b.n_z = v
browse fields a.data_razg, b.n_z, a.t, b.tar
X1 = a.T
X2 = b.Tar
h = a.T * b.tar
? h, a.n_t
set filter to
close database
zapros3.prg
clear
set safe off
close database
set talk off
sele 1
use razg
index on n_z to k1
sele 2
use zona
index on n_z to k2
sele 1
set rela to n_z into 2
set skip to 2
c = date ()
@ 2,10 say "Введіть дату" get c
read
v = 0
@ 4,10 say "Введіть номер зони" get v
read
set filter to a.data_razg = c.and. b.n_z = v
browse fields a.data_razg, b.n_z, a.t, b.tar
X1 = a.T
X2 = b.Tar
h = a.T * b.tar
? h, a.n_t
set filter to
close database