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

| Категория реферата: Рефераты по страхованию
| Теги реферата: изложение 8 класс русский язык, персонал реферат
| Добавил(а) на сайт: Sitnikov.

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:NREGIONXRE:NREGION THEN BREAK..

T67:PNOMBER=LIC:PNOMBER

GET(T67,T67:C)

IF ~ERRORCODE()

IF MEM:GOD=1992

THEN

IF T67:A495NMEM:VG THEN CYCLE.

ELSE

IF T67:A495KMEM:VG THEN

CYCLE..

PN#+=1

ST1=PN#

ST2=LIC:KNAM

IF MEM:GOD=1992 AND T67:A495N>0 THEN ST3=T67:A495N/1000.

IF MEM:GOD=1993 AND T67:A495K>0 THEN ST3=T67:A495K/1000. ADD(YU)

CLEAR(ST)..

Рекомендуем скачать другие рефераты по теме: культура шпаргалки, сочинения по русскому языку, рефераты на казахском.

Claw.ru | Рефераты по страхованию | База данных страховой компании