Реферат: Телефонный справочник

set filter to b.dolg>100000

brow fields a.fio,b.dolg

set rela to

set filter to

zapros2.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