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

CLEAR(ST)

ST='¦ N ¦ страховой организации ¦ ¦'

ADD(YU)

CLEAR(ST) ST='+----+------------------------------+------------------¦'

ADD(YU)

CLEAR(ST)

ST='¦ 1 ¦ 2 ¦ 3 ¦'

ADD(YU)

CLEAR(ST) ST='+----+------------------------------+------------------¦'

ADD(YU)

CLEAR(ST)

IF MEM:PR=2

THEN

LIC:NREGION=XRE:NREGION

SET(LIC:CNREG,LIC:CNREG)

ELSE

SET(LIC:CLIC,LIC:CLIC).

LOOP UNTIL EOF(LIC)

NEXT(LIC)

IF MEM:PR=2

IF LIC:NREGION<>XRE:NREGION THEN BREAK..

T67:PNOMBER=LIC:PNOMBER

GET(T67,T67:C)

IF ~ERRORCODE()

IF MEM:GOD=1992

THEN

IF T67:A495N<=MEM:NG OR T67:A495N>MEM:VG THEN CYCLE.

ELSE

IF T67:A495K<=MEM:NG OR T67:A495K>MEM:VG THEN CYCLE..