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

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

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()

THEN

IF MEM:GOD=1992

THEN

IF T67:A400NMEM:VG THEN CYCLE.

ELSE

IF T67:A400KMEM:VG THEN CYCLE..

PN#+=1

ST1=PN#

ST2=LIC:KNAM

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

IF MEM:GOD=1993 AND T67:A400K>0 THEN ST3=T67:A400K/1000.

ADD(YU)

CLEAR(ST)..

CLOSE(YU)
! ------ ВЫБОРКА ПО СТРАХОВЫМ ВЗНОСАМ ----> YU DOS,ASCII,NAME('YU.YU')

RECORD
ST STRING(56)..

GROUP,OVER(ST)

STRING(1)
ST1 STRING(@N4)

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

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