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

IF ST12 OR ST11

ST13=ST12-ST11.

IF ST12>0 AND ST11>0

ST14=ST12/ST11*100.

IF F:F13>0

ST15=F:F13.

IF F:F14>0

ST16=F:F14.

IF ST15 OR ST16

ST17=ST16-ST15.

IF ST15>0 AND ST16>0

ST18=ST16/ST15*100.

IF ~ST THEN CYCLE.

ST2=' '&GOR:GOROD

ADD(YU)

CLEAR(ST)

ADD(YU)

LIC:NREGION=XRE:NREGION

LIC:KNAM=' '

SET(LIC:CNREG,LIC:CNREG)

LOOP UNTIL EOF(LIC)

NEXT(LIC)

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

IF LIC:NCITY<>GOR:KG THEN CYCLE.

CLEAR(T67:RECORD)

T67:PNOMBER=LIC:PNOMBER

GET(T67,T67:C)

IF ERRORCODE() THEN CYCLE.

T=0