Реферат: База данных страховой компании

ADD(YU1)

CLEAR(STT)

STT='¦ 1 ¦ 12 ¦ 13 ¦ 14 ¦ 15 ¦ 16 ¦ 17 ¦ 18 ¦ 19 ¦'

ADD(YU1)

CLEAR(STT)STT='

ADD(YU1)

CLEAR(STT)

INS:NTER=0

SET(INS:K1,INS:K1)

LOOP UNTIL EOF(INSP) ! 1

NEXT(INSP)

PN#=0

if ins:nter>23 ! 2

THEN

ST2=CLIP(INS:NAME)&' инспекция'

ST02=CLIP(INS:NAME)&' инспекция'

ELSE

ST2='Инспекция '

ADD(yu)

ST2=INS:NAME

ST02='Инспекция '

ADD(YU1)

ST02=INS:NAME. ! 2

TER:KODT=INS:NTER

SET(TER:K1,TER:K1)

LOOP UNTIL EOF(TERR) ! 3

NEXT(TERR)

IF TER:KODT<>INS:NTER THEN BREAK.

IF INS:NTER>23 AND PN#=0 ! 4