Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364139
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62791)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21319)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21692)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8692)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3462)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20644)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

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

Название: База данных страховой компании
Раздел: Рефераты по банковскому делу
Тип: реферат Добавлен 02:57:32 25 мая 2011 Похожие работы
Просмотров: 32 Комментариев: 12 Оценило: 2 человек Средний балл: 5 Оценка: неизвестно     Скачать

(antb)


MEMBER('ANT')

! НАЧАЛЬНАЯ СОРТИРОВКА

S PROCEDURE

M GROUP

M1 REAL,DIM(79,14) !T17

MK REAL,DIM(8,14)

MG REAL,DIM(350,14).

CODE

CLEAR(M)

BUFFER(LIC,0.9)

SET(LIC)

LOOP UNTIL EOF(LIC)

NEXT(LIC)

CLEAR(T17:RECORD)

T17:PNOMBER=LIC:PNOMBER

GET(T17,T17:C)

IF ~ERRORCODE()

M1[LIC:NREGION,1]+=T17:F001/1000 MG[LIC:NCITY,1]+=T17:F001/1000 M1[LIC:NREGION,2]+=T17:F004/1000 MG[LIC:NCITY,2]+=T17:F004/1000 M1[LIC:NREGION,3]+=T17:F010/1000 MG[LIC:NCITY,3]+=T17:F010/1000

IF T17:F018>0

THEN

M1[LIC:NREGION,4]+=T17:F018/1000 MG[LIC:NCITY,4]+=T17:F018/1000

ELSE

IF T17:F020>0

M1[LIC:NREGION,4]-=T17:F020/1000

MG[LIC:NCITY,4]-=T17:F020/1000...

CLEAR(T67:RECORD)

T67:PNOMBER=LIC:PNOMBER

GET(T67,T67:C)

IF ~ERRORCODE()

M1[LIC:NREGION,5]+=T67:A400N/1000

MG[LIC:NCITY,5]+=T67:A400N/1000

M1[LIC:NREGION,6]+=T67:A400K/1000 MG[LIC:NCITY,6]+=T67:A400K/1000 M1[LIC:NREGION,7]+=T67:A495N/1000 MG[LIC:NCITY,7]+=T67:A495N/1000 M1[LIC:NREGION,8]+=T67:A495K/1000 MG[LIC:NCITY,8]+=T67:A495K/1000.

CLEAR(F92:RECORD)

F92:PNOMBER=LIC:PNOMBER

GET(F92,F92:FC)

IF ~ERRORCODE()

M1[LIC:NREGION,9]+=F92:F1/1000 MG[LIC:NCITY,9]+=F92:F1/1000 M1[LIC:NREGION,10]+=F92:F7/1000 MG[LIC:NCITY,10]+=F92:F7/1000 M1[LIC:NREGION,11]+=F92:F10/1000 MG[LIC:NCITY,11]+=F92:F10/1000

IF F92:F19>0

THEN

M1[LIC:NREGION,12]+=F92:F19/1000 MG[LIC:NCITY,12]+=F92:F19/1000

ELSE

IF F92:F21>0

M1[LIC:NREGION,12]-=F92:F21/1000

MG[LIC:NCITY,12]-=F92:F21/1000...

CLEAR(SVV:RECORD)

SVV:PNOM=LIC:PNOMBER

SVV:KZ=2

GET(SVV,SVV:K)

IF ~ERRORCODE()

M1[LIC:NREGION,13]+=SVV:CR2

MG[LIC:NCITY,13]+=SVV:CR2.

CLEAR(DF:RECORD)

DF:PNOMBER=LIC:PNOMBER

GET(DF,DF:C)

IF ~ERRORCODE()

M1[LIC:NREGION,14]+=DF:S750N MG[LIC:NCITY,14]+=DF:S750N.

.

LOOP N#=24 TO 31

TER:KODT=N#

SET(TER:K,TER:K)

LOOP UNTIL EOF(TERR)

NEXT(TERR)

IF TER:KODT<>N# THEN BREAK.

LOOP M#=1 TO 14 MK[N#-23,M#]+=M1[TER:NREGION,M#]...

LOOP I#=1 TO 8

F:NKUST=I#+23

F:F1=MK[I#,5]

F:F2=MK[I#,6]

F:F3=MK[I#,7]

F:F4=MK[I#,8]

F:F5=MK[I#,12]

F:F6=MK[I#,4]

F:F9=MK[I#,10]

F:F10=MK[I#,2]

F:F11=MK[I#,9]

F:F12=MK[I#,1]

F:F13=MK[I#,11]

F:F14=MK[I#,3]

F:F15=MK[I#,13]

F:F16=MK[I#,14]

ADD(F).

LOOP I#=1 TO 79

F:NKUST=0

F:NREGION=I#

F:F1=M1[I#,5]

F:F2=M1[I#,6]

F:F3=M1[I#,7]

F:F4=M1[I#,8]

F:F5=M1[I#,12]

F:F6=M1[I#,4]

F:F9=M1[I#,10]

F:F10=M1[I#,2]

F:F11=M1[I#,9]

F:F12=M1[I#,1]

F:F13=M1[I#,11]

F:F14=M1[I#,3]

F:F15=M1[I#,13]

F:F16=M1[I#,14]

ADD(F).

LOOP I#=1 TO 350

F:NKUST=0

F:NREGION=0

F:NGOR=I#

F:F1=MG[I#,5]

F:F2=MG[I#,6]

F:F3=MG[I#,7]

F:F4=MG[I#,8]

F:F5=MG[I#,12]

F:F6=MG[I#,4]

F:F9=MG[I#,10]

F:F10=MG[I#,2]

F:F11=MG[I#,9]

F:F12=MG[I#,1]

F:F13=MG[I#,11]

F:F14=MG[I#,3]

F:F15=MG[I#,13]

F:F16=MG[I#,14]

ADD(F).

! PUT(F).

! ----- АНАЛИЗ ПОКАЗАТЕЛЕЙ РАЗВИТИЯ ------

AT2 PROCEDURE

YU DOS,ASCII,NAME('YU.YU')

RECORD

ST STRING(140)..

GROUP,OVER(ST)

STRING(1)

ST2 STRING(32)

STRING(4)

ST3 STRING(@N-_8.2)

STRING(1)

ST4 STRING(@N_10.2)

STRING(1)

ST5 STRING(@N_8.2)

STRING(1)

ST6 STRING(@N_9.2)

STRING(1)

ST7 STRING(@N_8.2)

STRING(1)

ST8 STRING(@N_10.2)

STRING(1)

ST9 STRING(@N-_10.2)

STRING(1)

ST10 STRING(@N_10.2)

STRING(1)

ST11 STRING(@N-_9.2)

STRING(1)

ST12 STRING(@N_8.2)

.

YU1 DOS,ASCII,NAME('YU1.YU')

RECORD

STT STRING(130)..

GROUP,OVER(STT)

STRING(1)

ST02 STRING(32)

STRING(5)

ST13 STRING(@N_8.2)

STRING(3)

ST14 STRING(@N_9.2)

STRING(3)

ST15 STRING(@N_7.2)

STRING(3)

ST16 STRING(@N_9.2)

STRING(3)

ST17 STRING(@N_9.2)

STRING(3)

ST18 STRING(@N_8.2)

STRING(3)

ST19 STRING(@N-_8.2)

STRING(3)

ST20 STRING(@N_9.2)

.

M GROUP

M1 REAL,DIM(79,14) !T17

MK REAL,DIM(8,14)

MG REAL,DIM(350,14).

CODE

PN#=0

CREATE(YU)

ST='АНАЛИЗ ПОКАЗАТЕЛЕЙ РАЗВИТИЯ СТРАХОВЫХ ОРГАНИЗАЦИЙ'

ST=CENTER(ST)

ADD(YU)

CLEAR(ST)

ST=' млн.руб. '

ADD(YU)

CLEAR(ST) ST=' ' ADD(YU)

CLEAR(ST)

ST='¦ ¦ Доход (балансовая ¦ Уставный ¦ Страховые ¦ Доход (балансовая прибыль) в % к ¦'

ADD(YU)

CLEAR(ST)

ST='¦ Наименование ¦ прибыль (убыток) ¦ капитал ¦ взносы

¦'

ADD(YU)

CLEAR(ST)

ST='¦ ¦ ¦ ¦ ¦ уставному капиталу ¦ страховым взносам¦'

ADD(YU)

CLEAR(ST)

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

¦'

ADD(YU)

CLEAR(ST)

ST='¦ ¦ 1994 ¦ 1995 ¦ 1994 ¦ 1995 ¦ 1994 ¦ 1995 ¦ 1994 ¦ 1995 ¦ 1992 ¦ 1993 ¦'

ADD(YU)

CLEAR(ST) ST='

'

ADD(YU)

CLEAR(ST)

ST='¦ 1 ¦ 2 ¦ 3 ¦ 4 ¦ 5 ¦ 6 ¦ 7 ¦ 8 ¦ 9 ¦ 10 ¦ 11 ¦'

ADD(YU)

CLEAR(ST) ST='

'

ADD(YU)

CLEAR(ST)

CREATE(YU1)

STT='АНАЛИЗ ПОКАЗАТЕЛЕЙ РАЗВИТИЯ СТРАХОВЫХ ОРГАНИЗАЦИЙ '

STT=CENTER(STT)

ADD(YU1)

CLEAR(STT)

STT=' (продолжение)'

ADD(YU1)

CLEAR(STT) STT='

'

ADD(YU1)

CLEAR(STT)

STT='¦ ¦ С т р а х о в ы е ¦ Доход от инвес- ¦ Доход от инвест-я страх-х рез-в в % к ¦'

ADD(YU1)

CLEAR(STT)

STT='¦ Наименование ¦ р е з е р в ы ¦ тирования стра- ¦'

ADD(YU1)

CLEAR(STT)

STT='¦ ¦ ¦ ховых резервов ¦ уставному капиталу ¦ страховым взносам ¦'

ADD(YU1)

CLEAR(STT)

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

¦'

ADD(YU1)

CLEAR(STT)

STT='¦ ¦ 1994 ¦ 1995 ¦ 1994 ¦ 1995 ¦ 1994 ¦ 1995 ¦ 1994 ¦ 1995 ¦'

ADD(YU1)

CLEAR(STT) STT=' ‘

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

F:NKUST=INS:NTER

GET(F,F:K1)

IF F:F5>0

ST3=F:F5.

IF F:F6>0

ST4=F:F6.

IF F:F1>0

ST5=F:F1.

IF F:F2>0

ST6=F:F2.

IF F:F11>0

ST7=F:F11.

IF F:F12>0

ST8=F:F12.

IF ST3>0 AND ST5>0

ST9=ST3/ST5*100.

IF ST4>0 AND ST6>0

ST10=ST4/ST6*100.

IF ST3>0 AND ST7>0

ST11=ST3/ST7*100.

IF ST4>0 AND ST8>0

ST12=ST4/ST8*100.

IF F:F3>0

ST13=F:F3.

IF F:F4>0

ST14=F:F4.

IF F:F9>0

ST15=F:F9.

IF F:F10>0

ST16=F:F10.

IF ST15>0 AND ST13>0

ST17=ST15/ST13*100.

IF ST16>0 AND ST14>0

ST18=ST16/ST14*100.

IF ST15>0 AND ST3>0

ST19=ST15/ST3*100.

IF ST16>0 AND ST4>0

ST20=ST16/ST4*100.

PN#=1

ADD(YU)

CLEAR(ST)

ADD(YU1)

CLEAR(STT)

ADD(YU1)

ADD(YU). ! 4

XRE:NREGION=TER:NREGION

SET(XRE:K1,XRE:K1)

LOOP UNTIL EOF(XREG) ! 5

NEXT(XREG)

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

IF INS:NTER>23

ST2=XRE:IREG.

ST02=ST2

F:NREGION=XRE:NREGION

GET(F,F:K2)

IF F:F5>0

ST3=F:F5.

IF F:F6>0

ST4=F:F6.

IF F:F1>0

ST5=F:F1.

IF F:F2>0

ST6=F:F2.

IF F:F11>0

ST7=F:F11.

IF F:F12>0

ST8=F:F12.

IF ST3>0 AND ST5>0

ST9=ST3/ST5*100.

IF ST4>0 AND ST6>0

ST10=ST4/ST6*100.

IF ST3>0 AND ST7>0

ST11=ST3/ST7*100.

IF ST4>0 AND ST8>0

ST12=ST4/ST8*100.

IF F:F3>0

ST13=F:F3.

IF F:F4>0

ST14=F:F4.

IF F:F9>0

ST15=F:F9.

IF F:F10>0

ST16=F:F10.

IF ST15>0 AND ST13>0 ST17=ST15/ST13*100.

IF ST16>0 AND ST14>0 ST18=ST16/ST14*100.

IF ST15>0 AND ST3>0

ST19=ST15/ST3*100.

IF ST16>0 AND ST4>0

ST20=ST16/ST4*100.

ADD(YU)

CLEAR(ST)

ADD(YU1)

CLEAR(STT)

ADD(YU)

ADD(YU1)

GOR:GOROD=' '

SET(GOR:CGOR,GOR:CGOR)

LOOP UNTIL EOF(GOR) ! 6

NEXT(GOR)

IF GOR:NREGION<>XRE:NREGION THEN CYCLE.

F:NGOR=GOR:KG

GET(F,F:K3)

IF F:F5>0

ST3=F:F5.

IF F:F6>0

ST4=F:F6.

IF F:F1>0

ST5=F:F1.

IF F:F2>0

ST6=F:F2.

IF F:F11>0

ST7=F:F11.

IF F:F12>0

ST8=F:F12.

IF ST3>0 AND ST5>0 ST9=ST3/ST5*100.

IF ST4>0 AND ST6>0 ST10=ST4/ST6*100.

IF ST3>0 AND ST7>0 ST11=ST3/ST7*100.

IF ST4>0 AND ST8>0 ST12=ST4/ST8*100.

IF F:F3>0

ST13=F:F3.

IF F:F4>0

ST14=F:F4.

IF F:F9>0

ST15=F:F9.

IF F:F10>0

ST16=F:F10.

IF ST15>0 AND ST13>0

ST17=ST15/ST13*100.

IF ST16>0 AND ST14>0

ST18=ST16/ST14*100.

IF ST15>0 AND ST3>0

ST19=ST15/ST3*100.

IF ST16>0 AND ST14>0

ST20=ST16/ST4*100.

IF ~ST AND ~STT THEN CYCLE.

ST2=GOR:GOROD

ST02=GOR:GOROD

ADD(YU)

CLEAR(ST)

ADD(YU1)

CLEAR(STT)

ADD(YU)

ADD(YU1)

LIC:NREGION=XRE:NREGION

LIC:KNAM=' '

SET(LIC:CNREG,LIC:CNREG)

LOOP UNTIL EOF(LIC) ! 7

NEXT(LIC)

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

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

(T67:RECORD)

T67:PNOMBER=LIC:PNOMBER

GET(T67,T67:C)

IF ~ERRORCODE()

IF T67:A400N>0

ST5=T67:A400N/1000.

IF T67:A400K>0

ST6=T67:A400K/1000.

IF T67:A495N>0

ST13=T67:A495N/1000.

IF T67:A495K>0

ST14=T67:A495K/1000..

CLEAR(T17:RECORD)

T17:PNOMBER=LIC:PNOMBER

GET(T17,T17:C)

IF ~ERRORCODE() ! 8

IF T17:F018>0 ! 9

THEN

ST4=T17:F018/1000

ELSE

IF T17:F020>0 ! 10

ST4=-T17:F020/1000.. ! 9, 10

IF T17:F001>0

ST8=T17:F001/1000.

IF T17:F004>0

ST16=T17:F004/1000.. ! 8

CLEAR(F92:RECORD)

F92:PNOMBER=LIC:PNOMBER

GET(F92,F92:FC)

IF ~ERRORCODE() ! 11

IF F92:F19>0

THEN

ST3=F92:F19/1000

ELSE

IF F92:F21>0

ST3=-F92:F21/1000..

IF F92:F1>0

ST7=F92:F1/1000.

IF F92:F7>0

ST15=F92:F7/1000.. ! 11

IF ST3<>0 AND ST5>0

ST9=ST3/ST5*100.

IF ST4>0 AND ST6>0

ST10=ST4/ST6*100.

IF ST3<>0 AND ST7>0

ST11=ST3/ST7*100.

IF ST4>0 AND ST8>0

ST12=ST4/ST8*100.

IF ST13>0 AND ST15>0

ST17=ST15/ST13*100.

IF ST14>0 AND ST16>0

ST18=ST16/ST14*100.

IF ST15>0 AND ST3<>0

ST19=ST15/ST3*100.

IF ST16>0 AND ST4>0

ST20=ST16/ST4*100.

IF ST OR STT ! 12

PN#+=1

ST2=' '&LIC:KNAM

ST02=' '&LIC:KNAM

ADD(YU)

CLEAR(ST)

ADD(YU1)

CLEAR(STT). ! 12

CLEAR(ST)

CLEAR(STT). ! 7

ADD(YU)

ADD(YU1)... ! 6, 5, 3

. ! 1

! -------- СВЕДЕНИЯ ОБ ИЗМЕНЕНИИ ПОКАЗАТЕЛЕЙ ДЕЯТЕЛЬНОСТИ --------

AT1 PROCEDURE

YU DOS,ASCII,NAME('YU.YU')

RECORD

ST STRING(210)..

GROUP,OVER(ST)

STRING(1)

ST2 STRING(32)

STRING(2)

ST3 STRING(@N_8.1)

STRING(1)

ST4 STRING(@N_9.1)

STRING(1)

ST5 STRING(@N-_9.1)

STRING(1)

ST6 STRING(@N_9.1)

STRING(1)

ST7 STRING(@N_8.1)

STRING(1)

ST8 STRING(@N_9.1)

STRING(1)

ST9 STRING(@N-_9.1)

STRING(1)

ST10 STRING(@N_9.1)

STRING(1)

ST11 STRING(@N_7.1)

STRING(1)

ST12 STRING(@N_9.1)

STRING(1)

ST13 STRING(@N-_10.1)

STRING(1)

ST14 STRING(@N_9.1)

STRING(1)

ST15 STRING(@N_8.1)

STRING(1)

ST16 STRING(@N_10.1)

STRING(1)

ST17 STRING(@N-_11.1)

STRING(1)

ST18 STRING(@N_10.1)

.

T REAL

CODE

PN#=0

CREATE(YU)

ST='СВЕДЕНИЯ ОБ ИЗМЕНЕНИИ ОТДЕЛЬНЫХ ПОКАЗАТЕЛЕЙ ДЕЯТЕЛЬНОСТИ СТРАХОВЫХ ОРГАНИЗАЦИЙ'

ST=CENTER(ST)

ADD(YU)

CLEAR(ST)

ST='


'

ADD(YU)

CLEAR(ST)

ST='¦ ¦Уставный капитал¦ Изменение размера ¦Страховые резервы ¦ Изменение размера¦ Страховые ¦Прирост (уменьшение)¦ Страховые выплаты ¦ Прирост( уменьшение)¦'

ADD(YU)

CLEAR(ST)

ST='¦ Наименование ¦(на конец года) ¦уставного капитала ¦ (на конец года) ¦ страховых резервов¦ взносы ¦ поступивших стра- ¦ (на конец года) ¦суммы страховых выплат¦'

ADD(YU)

CLEAR(ST)

ST='¦ ¦ ¦ (+/-) ¦ ¦ (+/-) ¦ ¦ ховых взносов ¦ ¦ ¦'

ADD(YU)

CLEAR(ST)

ST='¦ страховой oрганизации ________________________ ______________________________________________________________________________________________________________________________________________________________________________________ ‘

ADD(YU)

CLEAR(ST)

ST='¦ ¦ 1994 ¦ 1995 ¦ в сумме ¦ в % ¦ 1994 ¦ 1995 ¦ в сумме ¦ в % ¦ 1994 ¦ 1995 ¦ в сумме ¦ в % ¦ 1994 ¦ 1995 ¦ в сумме ¦ в % ¦'

ADD(YU)

CLEAR(ST)

ST='


¦'

ADD(YU)

CLEAR(ST)

ST='¦ 1 ¦ 2 ¦ 3 ¦ 4 ¦ 5 ¦ 6 ¦ 7 ¦ 8 ¦ 9 ¦ 10 ¦ 11 ¦ 12 ¦ 13 ¦ 14 ¦ 15 ¦ 16 ¦ 17 ¦'

ADD(YU)

CLEAR(ST)

ST='


¦'

ADD(YU)

CLEAR(ST)

INS:NTER=0

SET(INS:K1,INS:K1)

LOOP UNTIL EOF(INSP)

NEXT(INSP)

PN#=0

if ins:nter>23

THEN

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

ELSE

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

ADD(yu)=INS:NAME.

TER:KODT=INS:NTER

SET(TER:K1,TER:K1)

LOOP UNTIL EOF(TERR)

NEXT(TERR)

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

IF INS:NTER>23 AND PN#=0

F:NKUST=INS:NTER

GET(F,F:K1)

IF F:F1>0

ST3=F:F1.

IF F:F2>0

ST4=F:F2.

IF F:F3>0

ST7=F:F3.

IF F:F4>0

ST8=F:F4.

IF F:F11>0

ST11=F:F11.

IF F:F12>0

ST12=F:F12.

IF ST3 OR ST4

ST5=ST4-ST3.

IF ST3>0 AND ST4>0

ST6=ST4/ST3*100.

IF ST7 OR ST8

ST9=ST8-ST7.

IF ST7>0 AND ST8>0

ST10=ST8/ST7*100.

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.

PN#=1

ADD(YU)

CLEAR(ST)

ADD(YU). XRE:NREGION=TER:NREGION SET(XRE:K1,XRE:K1)

LOOP UNTIL EOF(XREG)

NEXT(XREG)

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

IF INS:NTER>23

ST2=XRE:IREG.

F:NREGION=XRE:NREGION

GET(F,F:K2)

IF F:F1>0

ST3=F:F1.

IF F:F2>0

ST4=F:F2.

IF F:F3>0

ST7=F:F3.

IF F:F4>0

ST8=F:F4.

IF F:F11>0

ST11=F:F11.

IF F:F12>0

ST12=F:F12.

IF ST3 OR ST4

ST5=ST4-ST3.

IF ST3>0 AND ST4>0

ST6=ST4/ST3*100.

IF ST7 OR ST8

ST9=ST8-ST7.

IF ST7>0 AND ST8>0

ST10=ST8/ST7*100.

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.

ADD(YU)

CLEAR(ST)

GOR:GOROD=' '

SET(GOR:CGOR,GOR:CGOR)

LOOP UNTIL EOF(GOR)

NEXT(GOR)

IF GOR:NREGION<>XRE:NREGION THEN CYCLE.

F:NGOR=GOR:KG

GET(F,F:K3)

IF F:F1>0

ST3=F:F1.

IF F:F2>0

ST4=F:F2.

IF F:F3>0

ST7=F:F3.

IF F:F4>0

ST8=F:F4.

IF F:F11>0

ST11=F:F11.

IF F:F12>0

ST12=F:F12.

IF ST3 OR ST4

ST5=ST4-ST3.

IF ST3>0 AND ST4>0

ST6=ST4/ST3*100.

IF ST7 OR ST8

ST9=ST8-ST7.

IF ST7>0 AND ST8>0

ST10=ST8/ST7*100.

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

IF T67:A400N>=100

ST3=T67:A400N/1000.

IF T67:A400K>=100

ST4=T67:A400K/1000.

T=T67:A400K-T67:A400N

IF T>=100 OR T<=-100 THEN ST5=T/1000.

T=0

IF ST4>0 AND ST3>0 THEN ST6=ST4/ST3*100.

IF T67:A495N>=100

ST7=T67:A495N/1000.

IF T67:A495K>=100

T=0

ST8=T67:A495K/1000.

T=T67:A495K-T67:A495N

IF T>=100 OR T<=-100 THEN ST9=T/1000.

T=0

IF ST8>0 AND ST7>0 THEN ST10=ST8/ST7*100.

CLEAR(T17:RECORD)

T17:PNOMBER=LIC:PNOMBER

GET(T17,T17:C)

IF T17:F001>=100

ST12=T17:F001/1000.

IF T17:F010>=100

ST16=T17:F010/1000.

CLEAR(F92:RECORD)

F92:PNOMBER=LIC:PNOMBER

GET(F92,F92:FC)

IF F92:F1>=100

ST11=F92:F1/1000.

IF F92:F10>=100

ST15=F92:F10/1000.

T=0

T=T17:F001-F92:F1

IF T>=100 OR T<=-100 THEN ST13=T/1000.

T=0

IF ST12>0 AND ST11>0 THEN ST14=ST12/ST11*100.

T=0

T=T17:F010-F92:F10

IF T<=-100 OR T>=100 THEN ST17=T/1000.

T=0

IF ST16>0 AND ST15>0 THEN ST18=ST16/ST15*100.

ST2=' '&LIC:KNAM

ADD(YU)

CLEAR(ST).

CLEAR(ST).

ADD(YU)...

ADD(YU).

! ------ ОБЪЕМ ПОСТУПЛЕНИЙ И ВЫПЛАТ НА 1 РАБОТНИКА -------

AT3 PROCEDURE

YU DOS,ASCII,NAME('YU.YU')

RECORD

ST STRING(150)..

GROUP,OVER(ST)

STRING(1)

ST2 STRING(33)

STRING(2)

ST3 STRING(@N_9.2)

STRING(1)

ST4 STRING(@N_10.2)

STRING(1)

ST5 STRING(@N_9.2)

STRING(2)

ST6 STRING(@N_10.2)

STRING(3)

ST7 STRING(@N_6)

STRING(5)

ST8 STRING(@N_9.2)

STRING(4)

ST9 STRING(@N_8.2)

STRING(4)

ST10 STRING(@N_8.2)

STRING(2)

ST11 STRING(@N_8.2)

STRING(1)

ST12 STRING(@N_8.2)

.

T REAL

CODE

PN#=0

CREATE(YU)

ST='ОБЪЕМ ПОСТУПЛЕНИЙ И ВЫПЛАТ НА 1 РАБОТНИКА СТРАХОВОЙ ОРГАНИЗАЦИИ'

ST=CENTER(ST)

ADD(YU)

CLEAR(ST)

ADD(YU)

CLEAR(ST)

ST='¦

млн.руб. '

¦ Страховые взносы ¦ Страховые выплаты ¦ Среднесписочная


¦ Поступление страховых ¦Страховые выплаты ¦'


ADD(YU)


CLEAR(ST)

ST='¦ Наименование ¦ ¦ ¦численность работников¦взносов на 1 работника ¦ на 1 работника ¦'

ADD(YU)

CLEAR(ST)

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

¦'

ADD(YU)

CLEAR(ST)

ST='¦ ¦ 1994 ¦ 1995 ¦ 1994 ¦ 1995 ¦ 1994 ¦ 1995 ¦ 1994 ¦ 1995 ¦ 1994 ¦ 1995 ¦'


ADD(YU)

CLEAR(ST)

ST='¦ 1 ¦ 2 ¦ 3 ¦ 4 ¦ 5 ¦ 6 ¦ 7 ¦ 8 ¦ 9 ¦ 10 ¦ 11 ¦'

ADD(YU)

CLEAR(ST) ST='

ADD(YU)

CLEAR(ST)

INS:NTER=0

SET(INS:K1,INS:K1)

LOOP UNTIL EOF(INSP)

NEXT(INSP)

PN#=0

if ins:nter>23

THEN

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

ELSE

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

ADD(yu)

ST2=INS:NAME.

TER:KODT=INS:NTER

SET(TER:K1,TER:K1)

LOOP UNTIL EOF(TERR)

NEXT(TERR)

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

IF INS:NTER>23 AND PN#=0

F:NKUST=INS:NTER

GET(F,F:K1)

IF F:F11>0

ST3=F:F11.

IF F:F12>0

ST4=F:F12.

IF F:F13>0

ST5=F:F13.

IF F:F14>0

ST6=F:F14.

IF F:F15>0

ST7=F:F15.

IF F:F16>0

ST8=F:F16.

IF ST3>0 AND ST7>0

ST9=ST3/ST7.

IF ST4>0 AND ST8>0

ST10=ST4/ST8.

IF ST5>0 AND ST7>0

ST11=ST5/ST7.

IF ST6>0 AND ST8>0

ST12=ST6/ST8.

PN#=1

ADD(YU)

CLEAR(ST)

ADD(YU).

XRE:NREGION=TER:NREGION

SET(XRE:K1,XRE:K1)

LOOP UNTIL EOF(XREG)

NEXT(XREG)

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

IF INS:NTER>23

ST2=' '&XRE:IREG.

F:NREGION=XRE:NREGION

GET(F,F:K2)

IF F:F11>0

ST3=F:F11.

IF F:F12>0

ST4=F:F12.

IF F:F13>0

ST5=F:F13.

IF F:F14>0

ST6=F:F14.

IF F:F15>0

ST7=F:F15.

IF F:F16>0

ST8=F:F16.

IF ST3>0 AND ST7>0

ST9=ST3/ST7.

IF ST4>0 AND ST8>0

ST10=ST4/ST8.

IF ST5>0 AND ST7>0

ST11=ST5/ST7.

IF ST6>0 AND ST8>0

ST12=ST6/ST8.

ADD(YU)

CLEAR(ST)

ADD(YU)

CLEAR(ST)

GOR:GOROD=' '

SET(GOR:CGOR,GOR:CGOR)

LOOP UNTIL EOF(GOR)

NEXT(GOR)

IF GOR:NREGION<>XRE:NREGION THEN CYCLE.

F:NGOR=GOR:KG

GET(F,F:K3)

IF F:F11>0

ST3=F:F11.

IF F:F12>0

ST4=F:F12.

IF F:F13>0

ST5=F:F13.

IF F:F14>0

ST6=F:F14.

IF F:F15>0

ST7=F:F15.

IF F:F16>0

ST8=F:F16.

IF ST3>0 AND ST7>0

ST9=ST3/ST7.

IF ST4>0 AND ST8>0

ST10=ST4/ST8.

IF ST5>0 AND ST7>0

ST11=ST5/ST7.

IF ST6>0 AND ST8>0

ST12=ST6/ST8.

IF ~ST THEN CYCLE.

ST2=' '&GOR:GOROD

ADD(YU)

CLEAR(ST)

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(F92:RECORD)

F92:PNOMBER=LIC:PNOMBER

GET(F92,F92:FC)

IF F92:F1>100

ST3=F92:F1/1000.

IF F92:F10>100

ST5=F92:F10/1000.

CLEAR(T17:RECORD)

T17:PNOMBER=LIC:PNOMBER

GET(T17,T17:C)

IF T17:F001>100

ST4=T17:F001/1000.

IF T17:F010>100

ST6=T17:F010/1000.

CLEAR(SVV:RECORD)

SVV:PNOM=LIC:PNOMBER

SVV:KZ=2

GET(SVV,SVV:K)

IF SVV:CR2>0

ST7=SVV:CR2.

CLEAR(DF:RECORD)

DF:PNOMBER=LIC:PNOMBER

GET(DF,DF:C)

IF DF:S750N<>0

ST8=DF:S750N.

IF F92:F1>100 AND SVV:CR2<>0

THEN ST9=F92:F1/SVV:CR2/1000.

IF T17:F001>100 AND DF:S750N<>0

THEN ST10=T17:F001/DF:S750N/1000.

IF F92:F10>100 AND SVV:CR2<>0

THEN ST11=F92:F10/SVV:CR2/1000.

IF T17:F010>100 AND DF:S750N<>0

THEN ST12=T17:F010/DF:S750N/1000.

IF ST

PN#+=1

ST2=' '&LIC:KNAM

ADD(YU)

CLEAR(ST).

CLEAR(ST).

ADD(YU)...

ADD(YU).

! ------ ВЫБОРКА ПО УСТАВНОМУ КАПИТАЛУ -------

UK PROCEDURE

YU DOS,ASCII,NAME('YU.YU')

RECORD

ST STRING(56)..

GROUP,OVER(ST)

STRING(1)

ST1 STRING(@N4)

STRING(1)

ST2 STRING(30)

STRING(5)

ST3 STRING(@N_8.2)

.

T REAL

CODE

PN#=0

CREATE(YU)

ST='СПИСОК СТРАХОВЫХ ОРГАНИЗАЦИЙ, ИМЕЮЩИХ УСТАВНЫЙ КАПИТАЛ'

ST=CENTER(ST)

ADD(YU)

CLEAR(ST)

ST='ОТ '&MEM:NG/1000&' ДО '&MEM:VG/1000&' МЛН.РУБ. ЗА '&MEM:GOD&' ГОД' ST=CENTER(ST)

ADD(YU)

CLEAR(ST)

IF MEM:PR=2

ST=XRE:IREG

ST=CENTER(ST)

ADD(YU)

CLEAR(ST).

ST=' '

ADD(YU)

CLEAR(ST)

ST='¦ ¦ Наименование ¦ Уставный капитал ¦'

ADD(YU)

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

THEN

IF MEM:GOD=1992

THEN

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

ELSE

IF T67:A400K<=MEM:NG OR T67:A400K>MEM: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)

! ------ ВЫБОРКА ПО СТРАХОВЫМ ВЗНОСАМ -------

SVZ PROCEDURE

YU DOS,ASCII,NAME('YU.YU')

RECORD

ST STRING(56)..

GROUP,OVER(ST)

STRING(1)

ST1 STRING(@N4)

STRING(1)

ST2 STRING(30)

STRING(5)

ST3 STRING(@N_8.2)

.

T REAL

CODE

PN#=0

CREATE(YU)

ST='СПИСОК СТРАХОВЫХ ОРГАНИЗАЦИЙ, СУММА ПОСТУПЛЕНИЯ '

ST=CENTER(ST)

ADD(YU)

CLEAR(ST)

ST='СТРАХОВЫХ ВЗНОСОВ КОТОРЫХ'

ST=CENTER(ST)

ADD(YU)

CLEAR(ST)

ST='ОТ '&MEM:NG/1000&' ДО '&MEM:VG/1000&' МЛН.РУБ. ЗА '&MEM:GOD&' ГОД' ST=CENTER(ST)

ADD(YU)

CLEAR(ST)

IF MEM:PR=2

ST=XRE:IREG

ST=CENTER(ST)

ADD(YU)

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

ADD(YU)

CLEAR(ST)

ST='¦ ¦ Наименование ¦ Поступление ¦'

ADD(YU)

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..

IF MEM:GOD=1993

T17:PNOMBER=LIC:PNOMBER

GET(T17,T17:C)

IF ~ERRORCODE()

THEN

IF T17:F001<=MEM:NG OR T17:F001>MEM:VG THEN CYCLE.

ELSE

CYCLE..

IF MEM:GOD=1992

F92:PNOMBER=LIC:PNOMBER

GET(F92,F92:FC)

IF ~ERRORCODE()

THEN

IF F92:F1<=MEM:NG OR F92:F1>MEM:VG THEN CYCLE.

ELSE

CYCLE..

PN#+=1

ST1=PN#

ST2=LIC:KNAM

IF MEM:GOD=1992 AND F92:F1>0 THEN ST3=F92:F1/1000.

IF MEM:GOD=1993 AND T17:F001>0 THEN ST3=T17:F001/1000.

ADD(YU)

CLEAR(ST).

CLOSE(YU)

! ------ ВЫБОРКА ПО СТРАХОВЫМ РЕЗЕРВАМ -------

SR PROCEDURE

YU DOS,ASCII,NAME('YU.YU')

RECORD

ST STRING(56)..

GROUP,OVER(ST)

STRING(1)

ST1 STRING(@N4)

STRING(1)

ST2 STRING(30)

STRING(5)

ST3 STRING(@N_8.2)

.

T REAL

CODE

PN#=0

CREATE(YU)

ST='СПИСОК СТРАХОВЫХ ОРГАНИЗАЦИЙ, ИМЕЮЩИХ СТРАХОВЫЕ РЕЗЕРВЫ' ST=CENTER(ST)

ADD(YU)

CLEAR(ST)

ST='ОТ '&MEM:NG/1000&' ДО '&MEM:VG/1000&' МЛН.РУБ. ЗА '&MEM:GOD&' ГОД' ST=CENTER(ST)

ADD(YU)

CLEAR(ST)

IF MEM:PR=2

ST=XRE:IREG

ST=CENTER(ST)

ADD(YU)

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

ADD(YU)

CLEAR(ST)

ST='¦ ¦ Наименование ¦ Страховые резервы¦' ADD(YU)

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..

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

CLOSE(YU)

! ------ ВЫБОРКА ПО СТРАХОВЫМ ВЫПЛАТАМ -------

SVP PROCEDURE

YU DOS,ASCII,NAME('YU.YU')

RECORD

ST STRING(56)..

GROUP,OVER(ST)

STRING(1)

ST1 STRING(@N4)

STRING(1)

ST2 STRING(30)

STRING(5)

ST3 STRING(@N_8.2)

.

T REAL

CODE

PN#=0

CREATE(YU)

ST='СПИСОК СТРАХОВЫХ ОРГАНИЗАЦИЙ, ИМЕЮЩИХ СТРАХОВЫЕ ВЫПЛАТЫ'

ST=CENTER(ST)

ADD(YU)

CLEAR(ST)

ST='ОТ '&MEM:NG/1000&' ДО '&MEM:VG/1000&' МЛН.РУБ. ЗА '&MEM:GOD&' ГОД' ST=CENTER(ST)

ADD(YU)

CLEAR(ST)

IF MEM:PR=2

ST=XRE:IREG

ST=CENTER(ST)

ADD(YU)

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

ADD(YU)

CLEAR(ST)

ST='¦ ¦ Наименование ¦ Страховые выплаты¦'

ADD(YU)

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..

IF MEM:GOD=1993

T17:PNOMBER=LIC:PNOMBER

GET(T17,T17:C)

IF ~ERRORCODE()

THEN

IF T17:F010<=MEM:NG OR T17:F010>MEM:VG THEN CYCLE.

ELSE

CYCLE..

IF MEM:GOD=1992

F92:PNOMBER=LIC:PNOMBER

GET(F92,F92:FC)

IF ~ERRORCODE()

THEN

IF F92:F10<=MEM:NG OR F92:F10>MEM:VG THEN CYCLE.

ELSE CYCLE..

PN#+=1

ST1=PN#

ST2=LIC:KNAM

IF MEM:GOD=1992 AND F92:F10>0 THEN ST3=F92:F10/1000.

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

CLEAR(ST).

CLOSE(YU)

CLEAR(ST)


ANT PROGRAM

INCLUDE('STD_KEYS.CLA')

INCLUDE('CTL_KEYS.CLA')

INCLUDE('ALT_KEYS.CLA')

INCLUDE('SHF_KEYS.CLA')


REJECT_KEY EQUATE(CTRL_ESC) ACCEPT_KEY EQUATE(CTRL_ENTER) TRUE EQUATE(1) FALSE EQUATE(0)


MAP

PROC(G_OPENFILES)

PROC(G_OPENFILES2)

MODULE('ANT1')

PROC(GBO1)

.

MODULE('ANT2')

PROC(R)

.

MODULE('ANT3')

PROC(REG)

.

MODULE('ANT4')

PROC(MEN2)

.

MODULE('ANT5')

PROC(MEN4)

.

MODULE('ANT6')

PROC(MEN5)

.

MODULE('ANT7')

PROC(MBO)

.

MODULE('ANT8')

PROC(GBO)

.

MODULE('ANTB')

PROC(AT1)

PROC(AT2)

PROC(AT3)

PROC(UK)

PROC(SVZ)

PROC(SR)

PROC(SVP)

PROC(S)

.

.

EJECT('FILE LAYOUTS') T17 FILE,PRE(T17),CREATE,RECLAIM

OWNER('NPRN.K01'),ENCRYPT C KEY(T17:PNOMBER),DUP,NOCASE,OPT RECORD RECORD PNOMBER LONG !”ˆ€‘Ž‚›… …‡“‹œ’€’› F001 REAL F002 REAL F003 REAL F004 REAL F005 REAL F006 REAL F007 REAL F008 REAL F009 REAL F010 REAL F011 REAL F012 REAL F013 REAL F014 REAL F015 REAL F016 REAL F017 REAL F018 REAL F019 REAL F020 REAL F021 REAL

. .


T67 FILE,PRE(T67),CREATE,RECLAIM

OWNER('NPRN.K01'),ENCRYPT C KEY(T67:PNOMBER),DUP,NOCASE,OPT RECORD RECORD PNOMBER LONG !€‘‘ˆ‚ €‹€‘€ A400N REAL !1гбв ў­л© д®­¤ A400K REAL A410N REAL !2१Ґаў­л© д®­¤ A410K REAL A420N REAL !3 A420K REAL A430N REAL !4 A430K REAL A440N REAL !5 A440K REAL A450N REAL !6 A450K REAL A460N REAL !7 A460K REAL A470N REAL !8 A470K REAL A471N REAL !9 A471K REAL A472N REAL !10 A472K REAL A480N REAL !11 A480K REAL A485N REAL !12 A485K REAL A490N REAL !13 A490K REAL A491N REAL !14 A491K REAL A492N REAL !15 A492K REAL A493N REAL !16 A493K REAL A494N REAL !17 A494K REAL A495N REAL !18 A495K REAL A500N REAL !19 A500K REAL A510N REAL !20 A510K REAL A520N REAL !21 A520K REAL A600N REAL !22 A600K REAL A620N REAL !23 A620K REAL A650N REAL !24 A650K REAL A660N REAL !25 A660K REAL A670N REAL !26 A670K REAL A680N REAL !27 A680K REAL A690N REAL !28 A690K REAL A700N REAL !29 A700K REAL A710N REAL !30 A710K REAL A712N REAL !31 A712K REAL A730N REAL !32 A730K REAL A740N REAL !33 A740K REAL A750N REAL !34 A750K REAL A760N REAL !35 A760K REAL A770N REAL !36 A770K REAL A780N REAL !37 A780K REAL

. .


DF FILE,PRE(DF),CREATE,RECLAIM

OWNER('NPRN.K01'),ENCRYPT C KEY(DF:PNOMBER),DUP,NOCASE,OPT RECORD RECORD PNOMBER SHORT S010N REAL !1 S010P REAL S010I REAL S010K REAL S020N REAL !2 S020P REAL S020I REAL S020K REAL S030N REAL !3 д®­¤ ­ Є®Ї«Ґ­Ёп S030P REAL S030I REAL S030K REAL S031N REAL !4 S031P REAL S031I REAL S031K REAL S032N REAL !5 S032P REAL S032I REAL S032K REAL S033N REAL !6 S033P REAL S033I REAL S033K REAL S034N REAL !7 S034P REAL S034I REAL S034K REAL S035N REAL !8 S035P REAL S035I REAL S035K REAL S036N REAL !9 S036P REAL S036I REAL S036K REAL S037N REAL !10 S037P REAL S037I REAL S037K REAL S038N REAL !11 S038P REAL S038I REAL S038K REAL S039N REAL !12 S039P REAL S039I REAL S039K REAL S040N REAL !13 д®­¤ Ї®вॡ«Ґ­Ёп S040P REAL S040I REAL S040K REAL S041N REAL !14 S041P REAL S041I REAL S041K REAL S042N REAL !15 S042P REAL S042I REAL S042K REAL S043N REAL !16 S043P REAL S043I REAL S043K REAL S044N REAL !17 S044P REAL S044I REAL S044K REAL S045N REAL !18 S045P REAL S045I REAL S045K REAL S046N REAL !19 S046P REAL S046I REAL S046K REAL S047N REAL !20 S047P REAL S047I REAL S047K REAL S050N REAL !21 S050P REAL S050I REAL S050K REAL S060N REAL !22 S060P REAL S060I REAL S060K REAL S070N REAL !23 S070P REAL S070I REAL S070K REAL S071N REAL !24 S071P REAL S071I REAL S071K REAL S072N REAL !25 S072P REAL S072I REAL S072K REAL S073N REAL !26 S073P REAL S073I REAL S073K REAL S074N REAL !27 S074P REAL S074I REAL S074K REAL S075N REAL !28 S075P REAL S075I REAL S075K REAL S080N REAL !29 S080P REAL S080I REAL S080K REAL S090N REAL !30 S090P REAL S090I REAL S090K REAL S210N REAL !31 S210P REAL S210I REAL S210K REAL S211N REAL !32 S211P REAL S211I REAL S211K REAL S220N REAL !33 S220P REAL S220I REAL S220K REAL S221N REAL !34 S221P REAL S221I REAL S221K REAL S230N REAL !35 S230P REAL S230I REAL S230K REAL S231N REAL !36 S231P REAL S231I REAL S231K REAL S240N REAL !37 S240P REAL S240I REAL S240K REAL S241N REAL !38 S241P REAL S241I REAL S241K REAL S250N REAL !39 S250P REAL S250I REAL S250K REAL S251N REAL !40 S251P REAL S251I REAL S251K REAL S310N REAL !41 Єа вЄ®ба®з­ п S310P REAL S310I REAL S310K REAL S320N REAL !42 ¤®«Ј®ба®з­ п S320P REAL S320I REAL S320K REAL S330N REAL !43 Єа вЄ®ба®з­ п S330P REAL S330I REAL S330K REAL S340N REAL !44 ¤®«Ј®ба®з­ п S340P REAL S340I REAL S340K REAL S350N REAL !45 Ї®«г祭­лҐ S350P REAL S350I REAL S350K REAL S360N REAL !46 ўл¤ ­­лҐ S360P REAL S360I REAL S360K REAL R410N REAL !47 ­Ґ¬ в  ЄвЁўл R410P REAL R410I REAL R410K REAL R420N REAL !48 R420P REAL R420I REAL R420K REAL R430N REAL !49 R430P REAL R430I REAL R430K REAL R440N REAL !50 R440P REAL R440I REAL R440K REAL S500N REAL !51 ‡¤ ­Ёп S500P REAL S500I REAL S500K REAL S501N REAL !52 ‘®®а㦥­Ёп S501P REAL S501I REAL S501K REAL S502N REAL !53 ҐаҐ¤ в®з­лҐ гбва®©бвў S502P REAL S502I REAL S502K REAL S503N REAL !54 Œ иЁ­л Ё ®Ў®а㤮ў ­ЁҐ S503P REAL S503I REAL S503K REAL S504N REAL !55 ’а ­бЇ®ав­лҐ б।бвў S504P REAL S504I REAL S504K REAL S505N REAL !56 Ё­ўҐ­в ам S505P REAL S505I REAL S505K REAL S506N REAL !57  Ў®зЁ© бЄ®в S506P REAL S506I REAL S506K REAL S507N REAL !58 தгЄвЁў­л© бЄ®в S507P REAL S507I REAL S507K REAL S508N REAL !59 Œ­®Ј®«­в­ЁҐ ­ б ¦¤Ґ­Ёп S508P REAL S508I REAL S508K REAL S509N REAL !60 S509P REAL S509I REAL S509K REAL S510N REAL !61 S510P REAL S510I REAL S510K REAL S511N REAL !62 Їа®Ё§ў®¤б⢥­­лҐ S511P REAL S511I REAL S511K REAL S512N REAL !63 ­ҐЇа®Ё§ў®¤б⢥­­лҐ S512P REAL S512I REAL S512K REAL S520N REAL !64 S520P REAL S520I REAL S520K REAL S530N REAL !65 S530P REAL S530I REAL S530K REAL S540N REAL !66 S540P REAL S540I REAL S540K REAL S610N REAL !67 S610P REAL S610I REAL S610K REAL S620N REAL !68 S620P REAL S620I REAL S620K REAL S630N REAL !69 S630P REAL S630I REAL S630K REAL S640N REAL !70 S640P REAL S640I REAL S640K REAL S650N REAL !71 S650P REAL S650I REAL S650K REAL S710N REAL !72 S710P REAL S710I REAL S710K REAL S720N REAL !73 S720P REAL S720I REAL S720K REAL S730N REAL !74 S730P REAL S730I REAL S730K REAL S740N REAL !75 S740P REAL S740I REAL S740K REAL S750N REAL !76 S750P REAL S750I REAL S750K REAL S760N REAL !77 S760P REAL S760I REAL S760K REAL S761N REAL !78 S761P REAL S761I REAL S761K REAL S762N REAL !79 S762P REAL S762I REAL S762K REAL S763N REAL !80 S763P REAL S763I REAL S763K REAL S810N REAL !81 S810P REAL S810I REAL S810K REAL S811N REAL !82 S811P REAL S811I REAL S811K REAL S812N REAL !83 S812P REAL S812I REAL S812K REAL S813N REAL !84 S813P REAL S813I REAL S813K REAL S814N REAL !85 S814P REAL S814I REAL S814K REAL S820N REAL !86 аЁў«ҐзҐ­­лҐ б।бвў -ўбҐЈ® S820P REAL S820I REAL S820K REAL S821N REAL !87 ЄаҐ¤Ёвл Ў ­Є®ў S821P REAL S821I REAL S821K REAL S822N REAL !88 S822P REAL S822I REAL S822K REAL S823N REAL !89 S823P REAL S823I REAL S823K REAL S824N REAL !90 Ё§ Ўо¤¦Ґв S824P REAL S824I REAL S824K REAL S825N REAL !91 Ё§ ў­ҐЎо¤¦Ґв­ле д®­¤®ў S825P REAL S825I REAL S825K REAL S826N REAL !92 S826P REAL S826I REAL S826K REAL S830N REAL !93 S830P REAL S830I REAL S830K REAL S910N REAL !94 S910P REAL S910I REAL S910K REAL S920N REAL !95 S920P REAL S920I REAL S920K REAL S930N REAL !96 S930P REAL S930I REAL S930K REAL S940N REAL !97 S940P REAL S940I REAL S940K REAL S950N REAL !98 S950P REAL S950I REAL S950K REAL S960N REAL !99 S960P REAL S960I REAL S960K REAL S970N REAL !100 S970P REAL S970I REAL S970K REAL S980N REAL !101 S980P REAL S980I REAL S980K REAL S990N REAL !102 S990P REAL S990I REAL S990K REAL R110N REAL !103 бЇа ўЄЁ д®а¬л 5 R110P REAL R110I REAL R110K REAL R120N REAL !104 R120P REAL R120I REAL R120K REAL R130N REAL !105 R130P REAL R130I REAL R130K REAL R140N REAL !106 R140P REAL R140I REAL R140K REAL R150N REAL !107 R150P REAL R150I REAL R150K REAL

. .


SVV FILE,NAME('D:\LICEN\SVV'),PRE(SVV) K KEY(SVV:PNOM,SVV:KZ),DUP,NOCASE,OPT RECORD RECORD PNOM SHORT LC SHORT MN STRING(1) VP STRING(1) PR REAL KZ REAL PSV1 REAL PSV2 REAL LS1 REAL LS2 REAL SG1 REAL SG2 REAL GBG1 REAL GBG2 REAL GMG1 REAL GMG2 REAL SNS1 REAL SNS2 REAL MS1 REAL MS2 REAL DLS1 REAL DLS2 REAL IS1 REAL IS2 REAL SIG1 REAL SIG2 REAL SGR1 REAL SGR2 REAL SRK1 REAL SRK2 REAL SIS1 REAL SIS2 REAL SO1 REAL SO2 REAL SST1 REAL SST2 REAL SNK1 REAL SNK2 REAL PSO1 REAL PSO2 REAL OS1 REAL OS2 REAL CR1 REAL CR2 REAL

. .


F92 FILE,NAME('D:\LICEN\F92'),PRE(F92),CREATE,RECLAIM FC KEY(F92:PNOMBER),DUP,NOCASE,OPT RECORD RECORD PNOMBER LONG F1 REAL F2 REAL F3 REAL F4 REAL F5 REAL F6 REAL F7 REAL F8 REAL F9 REAL F10 REAL F11 REAL F12 REAL F13 REAL F14 REAL F15 REAL F16 REAL F17 REAL F18 REAL F19 REAL F20 REAL F21 REAL F22 REAL

. .


LIC FILE,PRE(LIC),CREATE,RECLAIM CLIC KEY(LIC:KNAM),DUP,NOCASE,OPT CREG KEY(LIC:IREGION,LIC:KNAM),DUP,NOCASE,OPT CPN1 KEY(LIC:PNOMBER),DUP,NOCASE,OPT CNREG KEY(LIC:NREGION,LIC:KNAM),DUP,NOCASE,OPT CNLIC KEY(LIC:NOMLIC),DUP,NOCASE,OPT RECORD RECORD KNAM STRING(30) !Єа вЄ®Ґ Ё¬п Є®¬Ї ­ЁЁ PNOMBER LONG !Їа®Ја ¬¬­л© ­®¬Ґа NOMLIC LONG !­®¬Ґа «ЁжҐ­§ЁЁ KV STRING(1) !Š’Ž ўл¤лў « «ЁжҐ­§Ёо NREGION LONG !­®¬Ґа ॣЁ®­ IREGION STRING(30) !Ё¬п ॣЁ®­ NCITY LONG ICITY STRING(25) ADRESS STRING(40) ! ¤аҐб Є®¬Ї ­ЁЁ ADRESS1 STRING(40) ! ¤аҐб Є®¬Ї ­ЁЁ (2з) FADRESS STRING(40) !Ї®зв®ўл©  ¤аҐб FADRESS1 STRING(40) !Ї®зв®ўл©  ¤аҐб FNAME STRING(40) !Ї®«­®Ґ Ё¬п Є®¬Ї ­ЁЁ ISPOLNIT STRING(15) !ˆ‘Ž‹ˆ’…‹œ FNAME1 STRING(40) !Ї®«­®Ґ Ё¬п Є®¬Ї ­ЁЁ(2 з) TELEPHON STRING(40) !⥫Ґд®­л Є®¬Ї ­ЁЁ VIDORG STRING(50) !ўЁ¤ ®аЈ ­Ё§ жЁЁ VIDORG1 STRING(50) !ўЁ¤ ®аЈ ­Ё§ жЁЁ(2 з.) UFOND REAL !гбв ў­®© д®­¤ DATAR STRING(@d6) !¤ в  ॣЁбва жЁЁ VHODN LONG !ўе®¤пйЁ© ­®¬Ґа DPOST STRING(@d6) !¤ в  Ї®бвгЇ«Ґ­Ёп ¤®Єг¬Ґ­в®ў REZRAS STRING(22) !१г«мв в а бᬮв७Ёп DUZ STRING(10) PRINAD STRING(4) !Ј®«®ў­ п ®аЈ ­Ё§ жЁп NPRIN LONG !Їа. ­®¬Ґа Ј®«®ў­®© ®аЈ ­Ё§ жЁ NREISTR LONG KVMR STRING(60) DMR STRING(@d6) SANK STRING(30) DSANC STRING(10) INCAP STRING(3)

. .


XREG FILE,PRE(XRE),CREATE,RECLAIM K KEY(XRE:NREG),NOCASE,OPT K1 KEY(XRE:NREGION),NOCASE,OPT RECORD RECORD NREG SHORT IREG STRING(35) NREGION SHORT

. .


GOR FILE,NAME('D:\LICEN\GOR'),PRE(GOR) CGOR KEY(GOR:GOROD),DUP,NOCASE,OPT RECORD RECORD KG LONG NREGION LONG GOROD STRING(25)

. .


INSP FILE,NAME('D:\LICEN\INSP'),PRE(INS),CREATE,RECLAIM K KEY(INS:NAME),DUP,NOCASE,OPT K1 KEY(INS:NTER),DUP,NOCASE,OPT RECORD RECORD NAME STRING(30) NTER SHORT

. .


TERR FILE,NAME('D:\LICEN\TERR'),PRE(TER),CREATE,RECLAIM CREG KEY(TER:IREGION),DUP,NOCASE,OPT CNREG KEY(TER:NREGION),DUP,NOCASE,OPT K KEY(TER:KODT),DUP,NOCASE,OPT K1 KEY(TER:KODT,TER:IREGION),DUP,NOCASE,OPT RECORD RECORD NAMT STRING(30) KODT LONG NREGION LONG IREGION STRING(30)

. .


F FILE,PRE(F),CREATE,RECLAIM K1 KEY(F:NKUST),DUP,NOCASE,OPT K2 KEY(F:NREGION),DUP,NOCASE,OPT K3 KEY(F:NGOR),DUP,NOCASE,OPT RECORD RECORD NKUST SHORT NREGION SHORT NGOR SHORT F1 REAL !t67:a400n F2 REAL !t67:a400k F3 REAL !t67:a495n F4 REAL !t67:a495K F5 REAL !f92:f19 F6 REAL !t17:f018 F7 REAL !f92:f21 F8 REAL !t17:f020 F9 REAL !f92:f7 F10 REAL !t17:f004 F11 REAL !f92:f1 F12 REAL !t17:f001 F13 REAL !f92:f10 F14 REAL !t17:f010 F15 REAL !svv:cr2 F16 REAL !df:s750n

. .


EJECT('GLOBAL MEMORY VARIABLES') ACTION SHORT !0 = NO ACTION

!1 = ADD RECORD

!2 = CHANGE RECORD

!3 = DELETE RECORD

!4 = LOOKUP FIELD

GROUP,PRE(MEM) MESSAGE STRING(30) !Global Message Area PAGE SHORT !Report Page Number LINE SHORT !Report Line Number DEVICE STRING(30) !Report Device Name NR SHORT NG REAL VG REAL GOD SHORT PR SHORT

.


EJECT('CODE SECTION') CODE SETHUE(7,0) !SET WHITE ON BLACK BLANK ! AND BLANK G_OPENFILES !OPEN OR CREATE FILES SETHUE() ! THE SCREEN GBO RETURN !EXIT TO DOS


G_OPENFILES PROCEDURE !OPEN FILES & CHECK FOR ERROR CODE G_OPENFILES2(T17) !CALL OPEN FILE PROCEDURE G_OPENFILES2(T67) !CALL OPEN FILE PROCEDURE G_OPENFILES2(DF) !CALL OPEN FILE PROCEDURE G_OPENFILES2(SVV) !CALL OPEN FILE PROCEDURE G_OPENFILES2(F92) !CALL OPEN FILE PROCEDURE G_OPENFILES2(LIC) !CALL OPEN FILE PROCEDURE G_OPENFILES2(XREG) !CALL OPEN FILE PROCEDURE G_OPENFILES2(GOR) !CALL OPEN FILE PROCEDURE G_OPENFILES2(INSP) !CALL OPEN FILE PROCEDURE G_OPENFILES2(TERR) !CALL OPEN FILE PROCEDURE G_OPENFILES2(F) !CALL OPEN FILE PROCEDURE BLANK !BLANK THE SCREEN


G_OPENFILES2 PROCEDURE(G_FILE) !OPEN EACH FILE & CHECK ERROR G_FILE EXTERNAL,FILE FILE_NAME STRING(64)


CODE FILE_NAME = NAME(G_FILE) SHOW(25,1,CENTER('OPENING FILE: ' & CLIP(FILE_NAME),80)) !DISPLAY FILE NAME OPEN(G_FILE) !OPEN THE FILE IF ERROR() !OPEN RETURNED AN ERROR

CASE ERRORCODE() ! CHECK FOR SPECIFIC ERROR

OF 46 ! KEYS NEED TO BE REQUILT

SETHUE(0,7) ! BLACK ON WHITE

SHOW(25,1,CENTER('REBUILDING KEY FILES FOR ' & CLIP(FILE_NAME),80))

BUILD(G_FILE) ! CALL THE BUILD PROCEDURE

IF ERROR() ! ON UNNEXPECTED ERROR

LOOP ! STOP EXECUTION

STOP('Cannot Build ' & FILE_NAME & ' - Error: ' & ERROR())

.

.

SETHUE(7,0) ! WHITE ON BLACK

BLANK(25,1,1,80) ! BLANK THE MESSAGE

OF 2 !IF NOT FOUND,

CREATE(G_FILE) ! CREATE

IF ERROR() !STOP ON UNNEXPECTED ERROR

LOOP

STOP('Cannot Create ' & FILE_NAME & ' - Error: ' & ERROR())

. .

OF 73 ! MEMO FILE NOT FOUND

LOOP ! STOP EXECUTION

STOP('Cannot Open Memo File for ' & FILE_NAME & ERROR())

.

ELSE ! ANY OTHER ERROR

LOOP ! STOP EXECUTION

STOP('Cannot Open ' & FILE_NAME & ' - Error: ' & ERROR())

. . .


(ant1)


MEMBER('ANT') GBO1 PROCEDURE SCREEN SCREEN PRE(SCR),WINDOW(12,73),AT(6,6),HUE(15,5) ROW(2,24) PAINT(1,21),HUE(11,5) ROW(11,22) PAINT(1,31),HUE(30,1) ROW(1,1) STRING('+-{71}+') ROW(2,1) REPEAT(10);STRING('¦<0{71}>¦') . ROW(12,1) STRING('+-{71}+') ROW(2,24) STRING('<128>аналитические<0>таблицы') ROW(11,30) STRING('начальная<0>сортировка') COL(25) STRING('F2 -') ENTRY,USE(?FIRST_FIELD) ENTRY,USE(?PRE_MENU) MENU,USE(MENU_FIELD"),REQ ROW(4,5) STRING('1. <145>ведения об изменении отдельных ' |

& 'показателей деятельности <145,142>') ROW(5,5) STRING('2. <128>анализ показателей развития ' | & 'страховых организаций') ROW(6,5) STRING('3. <142>объем поступлений и выплат на 1 ' |

& 'работника страховой организации')

. .

EJECT

CODE

OPEN(SCREEN) !OPEN THE MENU SCREEN

SETCURSOR !TURN OFF ANY CURSOR

MENU_FIELD" = '' !START MENU WITH FIRST ITEM

LOOP !LOOP UNTIL USER EXITS

ALERT !TURN OFF ALL ALERTED KEYS

ALERT(REJECT_KEY) !ALERT SCREEN REJECT KEY

ALERT(ACCEPT_KEY) !ALERT SCREEN ACCEPT KEY

ALERT(F2_KEY) !ALERT HOT KEY

ACCEPT !READ A FIELD OR MENU CHOICE

IF KEYCODE() = F2_KEY !ON HOT KEY

UPDATE(?) ! RETRIEVE FIELD

SAVACTN# = ACTION ! SAVE ACTION

S ! CALL HOT KEY PROCEDURE

ACTION = SAVACTN# ! RESTORE ACTION

SELECT(?) ! DO SAME FIELD AGAIN

CYCLE ! AND LOOP AGAIN

.

IF KEYCODE() = REJECT_KEY THEN RETURN. !RETURN ON SCREEN REJECT

IF KEYCODE() = ACCEPT_KEY !ON SCREEN ACCEPT KEY

UPDATE ! MOVE ALL FIELDS FROM SCREEN

SELECT(?) ! START WITH CURRENT FIELD

SELECT ! EDIT ALL FIELDS

CYCLE ! GO TO TOP OF LOOP

. !

CASE FIELD() !JUMP TO FIELD EDIT ROUTINE

OF ?FIRST_FIELD !FROM THE FIRST FIELD

IF KEYCODE() = ESC_KEY THEN RETURN. ! RETURN ON ESC KEY

OF ?PRE_MENU !PRE MENU FIELD CONDITION

IF KEYCODE() = ESC_KEY ! BACKING UP?

SELECT(?-1) ! SELECT PREVIOUS FIELD

ELSE ! GOING FORWARD

SELECT(?+1) ! SELECT MENU FIELD

.

OF ?MENU_FIELD" !FROM THE MENU FIELD

EXECUTE CHOICE() ! CALL THE SELECTED PROCEDURE

AT1 !

AT2 !

AT3 !

. . .



(ant2)


MEMBER('ANT') R PROCEDURE


SCREEN SCREEN PRE(SCR),WINDOW(1,3),AT(9,77),HUE(0,2)

ENTRY,USE(?FIRST_FIELD) ROW(1,1) ENTRY,USE(MEM:NR) NR COL(1) STRING(@n3),HUE(7,7)

ENTRY,USE(?LAST_FIELD)

.


EJECT CODE OPEN(SCREEN) !OPEN THE SCREEN SETCURSOR !TURN OFF ANY CURSOR DISPLAY !DISPLAY THE FIELDS LOOP !LOOP THRU ALL THE FIELDS

SCR:NR = MEM:NR

ALERT !RESET ALERTED KEYS

ALERT(ACCEPT_KEY) !ALERT SCREEN ACCEPT KEY

ALERT(REJECT_KEY) !ALERT SCREEN REJECT KEY

ACCEPT !READ A FIELD

IF KEYCODE() = REJECT_KEY THEN RETURN. !RETURN ON SCREEN REJECT KEY


IF KEYCODE() = ACCEPT_KEY !ON SCREEN ACCEPT KEY

UPDATE ! MOVE ALL FIELDS FROM SCREEN

SELECT(?) ! START WITH CURRENT FIELD

SELECT ! EDIT ALL FIELDS

CYCLE ! GO TO TOP OF LOOP

. !


CASE FIELD() !JUMP TO FIELD EDIT ROUTINE

OF ?FIRST_FIELD !FROM THE FIRST FIELD

IF KEYCODE() = ESC_KEY THEN RETURN. ! RETURN ON ESC KEY


OF ?MEM:NR

XRE:NREGION = MEM:NR !MOVE RELATED FIELDS

GET(XREG,XRE:K1) !READ THE RECORD

ACTION# = ACTION !SAVE ACTION

ACTION = 4 !REQUEST TABLE LOOKUP

REG !CALL LOOKUP PROCEDURE

IF ACTION !NO SELECTION WAS MADE

SELECT(?MEM:NR-1) ! BACK UP ONE FIELD

ACTION = ACTION# ! RESTORE ACTION

CYCLE ! GO TO TOP OF LOOP

.

SCR:NR = XRE:NREGION !DISPLAY LOOKUP FIELD

MEM:NR = XRE:NREGION !MOVE LOOKUP FIELD

DISPLAY(?MEM:NR) !AND DISPLAY IT

ACTION = ACTION# !RESTORE ACTION

MEN2


OF ?LAST_FIELD !FROM THE LAST FIELD

ACTION = 0 ! SET ACTION TO COMPLETE

RETURN ! AND RETURN TO CALLER . .


(ant3)


MEMBER('ANT') REG PROCEDURE SCREEN SCREEN PRE(SCR),WINDOW(25,39),AT(1,42),HUE(8,7)

ROW(2,9) PAINT(1,19),HUE(0,7)

ROW(1,1) STRING('+-{37}+')

ROW(2,1) REPEAT(2);STRING('¦<0{37}>¦') .

ROW(4,1) STRING('¦')

ROW(5,1) REPEAT(20);STRING('¦<0{37}>¦') .

ROW(25,1) STRING('+-{37}+') ROW(2,12) STRING('<130>выберите<0>регион') ROW(4,39) STRING('¦') ENTRY,USE(?FIRST_FIELD) ENTRY,USE(?PRE_POINT) REPEAT(21),EVERY(1),INDEX(NDX) COL(2) POINT(1,37),USE(?POINT),ESC(?-1) IREG COL(3) STRING(35)

. . NDX BYTE !REPEAT INDEX FOR POINT AREA ROW BYTE !ACTUAL ROW OF SCROLL AREA COL BYTE !ACTUAL COLUMN OF SCROLL AREA COUNT BYTE(21) !NUMBER OF ITEMS TO SCROLL ROWS BYTE(21) !NUMBER OF ROWS TO SCROLL COLS BYTE(37) !NUMBER OF COLUMNS TO SCROLL FOUND BYTE !RECORD FOUND FLAG

NEWPTR LONG !POINTER TO NEW RECORD

TABLE TABLE,PRE(TBL) !TABLE OF RECORD DATA

PTR LONG ! POINTER TO FILE RECORD

IREG STRING(35)

NREG SHORT

.

EJECT

CODE

ACTION# = ACTION !SAVE ACTION

OPEN(SCREEN) !OPEN THE SCREEN

SETCURSOR !TURN OFF ANY CURSOR

TBL:PTR = 1 !START AT TABLE ENTRY

NDX = 1 !PUT SELECTOR BAR ON TOP ITEM

ROW = ROW(?POINT) !REMEMBER TOP ROW AND

COL = COL(?POINT) !LEFT COLUMN OF SCROLL AREA

RECORDS# = TRUE !INITIALIZE RECORDS FLAG

CACHE(XRE:K,.25) !CACHE KEY FILE

IF ACTION = 4 ! TABLE LOOKUP REQUEST

NEWPTR = POINTER(XREG) ! SET POINTER TO RECORD

IF NOT NEWPTR ! RECORD NOT PASSED TO TABLE

SET(XRE:K,XRE:K) ! POSITION TO CLOSEST RECORD

NEXT(XREG) ! READ RECORD

NEWPTR = POINTER(XREG) ! SET POINTER

.

DO FIND_RECORD ! POSITION FILE

ELSE

NDX = 1 ! PUT SELECTOR BAR ON TOP ITEM

DO FIRST_PAGE ! BUILD MEMORY TABLE OF KEYS

.

RECORDS# = TRUE ! ASSUME THERE ARE RECORDS

LOOP !LOOP UNTIL USER EXITS

ACTION = ACTION# !RESTORE ACTION

ALERT !RESET ALERTED KEYS

ALERT(REJECT_KEY) !ALERT SCREEN REJECT KEY

ALERT(ACCEPT_KEY) !ALERT SCREEN ACCEPT KEY

ACCEPT !READ A FIELD

IF KEYCODE() = REJECT_KEY THEN BREAK. !RETURN ON SCREEN REJECT KEY

IF KEYCODE() = ACCEPT_KEY | !ON SCREEN ACCEPT KEY

AND FIELD() <> ?POINT !BUT NOT ON THE POINT FIELD

UPDATE ! MOVE ALL FIELDS FROM SCREEN

SELECT(?) ! START WITH CURRENT FIELD

SELECT ! EDIT ALL FIELDS

CYCLE ! GO TO TOP OF LOOP

.

CASE FIELD() !JUMP TO FIELD EDIT ROUTINE

OF ?FIRST_FIELD !FROM THE FIRST FIELD

IF KEYCODE() = ESC_KEY | ! RETURN ON ESC KEY

OR RECORDS# = FALSEб ! OR NO RECORDS

BREAK !EXIT PROCEDURE

.

OF ?PRE_POINT!PRE POINT FIELD CONDITION

IF KEYCODE() = ESC_KEY! BACKING UP?

SELECT(?-1) !SELECT PREVIOUS FIELD

ELSE ! GOING FORWARD

SELECT(?POINT) !SELECT MENU FIELD

.

OF ?POINT !PROCESS THE POINT FIELD

IF RECORDS(TABLE) = 0 !IF THERE ARE NO RECORDS

CLEAR(XRE:RECORD) ! CLEAR RECORD AREA

ACTION = 1 ! SET ACTION TO ADD

GET(XREG,0) ! CLEAR PENDING RECORD

NEWPTR = POINTER(XREG) !SET POINTER TO NEW RECORD

DO FIRST_PAGE ! DISPLAY THE FIRST PAGE

IF RECORDS(TABLE) = 0 ! IF THERE AREN'T ANY RECORDS

RECORDS# = FALSE !INDICATE NO RECORDS

SELECT(?PRE_POINT-1) !SELECT THE PRIOR FIELD

.

CYCLE !AND LOOP AGAIN

.

CASE KEYCODE() !PROCESS THE KEYSTROKE

OF INS_KEY !INS KEY

CLEAR(XRE:RECORD) ! CLEAR RECORD AREA

ACTION = 1 ! SET ACTION TO ADD

GET(XREG,0) ! CLEAR PENDING RECORD

IF ~ACTION ! IF RECORD WAS ADDED

NEWPTR = POINTER(XREG) !SET POINTER TO NEW RECORD

DO FIND_RECORD !POSITION IN FILE

.

OF ENTER_KEY !ENTER KEY

OROF ACCEPT_KEY !CTRL-ENTER KEY

DO GET_RECORD ! GET THE SELECTED RECORD

IF ACTION = 4 AND KEYCODE() = ENTER_KEY !IF THIS IS A LOOKUP REQUEST

ACTION = 0 !SET ACTION TO COMPLETE

BREAK !AND RETURN TO CALLER

.

IF ~ERROR() ! IF RECORD IS STILL THERE

ACTION = 2 !SET ACTION TO CHANGE

IF ACTION THEN CYCLE. !IF SUCCESSFUL RE-DISPLAY

.

NEWPTR = POINTER(XREG) !SET POINTER TO NEW RECORD

DO FIND_RECORD !POSITION IN FILE

OF DEL_KEY !DEL KEY

DO GET_RECORD ! READ THE SELECTED RECORD

IF ~ERROR() ! IF RECORD IS STILL THERE

ACTION = 3 !SET ACTION TO DELETE

IF ~ACTION !IF SUCCESSFUL

N# = NDX ! SAVE POINT INDEX

DO SAME_PAGE ! RE-DISPLAY

NDX = N# ! RESTORE POINT INDEX

. .

OF DOWN_KEY !DOWN ARROW KEY

DO SET_NEXT ! POINT TO NEXT RECORD

DO FILL_NEXT ! FILL A TABLE ENTRY

IF FOUND ! FOUND A NEW RECORD

SCROLL(ROW,COL,ROWS,COLS,ROWS(?POINT)) ! SCROLL THE SCREEN UP

GET(TABLE,RECORDS(TABLE)) ! GET RECORD FROM TABLE

DO FILL_SCREEN ! DISPLAY ON SCREEN

.

OF PGDN_KEY !PAGE DOWN KEY

DO SET_NEXT ! POINT TO NEXT RECORD

DO NEXT_PAGE ! DISPLAY THE NEXT PAGE

OF CTRL_PGDN !CTRL-PAGE DOWN KEY

DO LAST_PAGE ! DISPLAY THE LAST PAGE

NDX = RECORDS(TABLE) ! POSITION POINT BAR

OF UP_KEY !UP ARROW KEY

DO SET_PREV ! POINT TO PREVIOUS RECORD

DO FILL_PREV ! FILL A TABLE ENTRY

IF FOUND ! FOUND A NEW RECORD

SCROLL(ROW,COL,ROWS,COLS,-(ROWS(?POINT))) ! SCROLL THE SCREEN DOWN

GET(TABLE,1) ! GET RECORD FROM TABLE

DO FILL_SCREEN ! DISPLAY ON SCREEN

.

OF PGUP_KEY !PAGE UP KEY

DO SET_PREV ! POINT TO PREVIOUS RECORD

DO PREV_PAGE ! DISPLAY THE PREVIOUS PAGE

OF CTRL_PGUP !CTRL-PAGE UP

DO FIRST_PAGE ! DISPLAY THE FIRST PAGE

NDX = 1 ! POSITION POINT BAR

. . .

FREE(TABLE) !FREE MEMORY TABLE

FREE(XRE:K) !FREE CACHE

RETURN !AND RETURN TO CALLER

SAME_PAGE ROUTINE !DISPLAY THE SAME PAGE

GET(TABLE,1) ! GET THE FIRST TABLE ENTRY

DO FILL_RECORD ! FILL IN THE RECORD

SET(XRE:K,XRE:K,TBL:PTR) ! POSITION FILE

FREE(TABLE) ! EMPTY THE TABLE

DO NEXT_PAGE ! DISPLAY A FULL PAGE

FIRST_PAGE ROUTINE !DISPLAY FIRST PAGE

FREE(TABLE) ! EMPTY THE TABLE

CLEAR(XRE:RECORD,-1) ! CLEAR RECORD TO LOW VALUES

CLEAR(TBL:PTR) ! ZERO RECORD POINTER

SET(XRE:K) ! POINT TO FIRST RECORD

LOOP NDX = 1 TO COUNT ! FILL UP THE TABLE

DO FILL_NEXT ! FILL A TABLE ENTRY

IF NOT FOUND THEN BREAK. ! GET OUT IF NO RECORD

.

NDX = 1 ! SET TO TOP OF TABLE

DO SHOW_PAGE ! DISPLAY THE PAGE

LAST_PAGE ROUTINE !DISPLAY LAST PAGE

NDX# = NDX ! SAVE SELECTOR POSITION

FREE(TABLE) ! EMPTY THE TABLE

CLEAR(XRE:RECORD,1) ! CLEAR RECORD TO HIGH VALUES

CLEAR(TBL:PTR,1) ! CLEAR PTR TO HIGH VALUE

SET(XRE:K) ! POINT TO FIRST RECORD

LOOP NDX = COUNT TO 1 BY -1 ! FILL UP THE TABLE

DO FILL_PREV ! FILL A TABLE ENTRY

IF NOT FOUND THEN BREAK. ! GET OUT IF NO RECORD

. ! END OF LOOP

NDX = NDX# ! RESTORE SELECTOR POSITION

DO SHOW_PAGE ! DISPLAY THE PAGE

FIND_RECORD ROUTINE !POSITION TO SPECIFIC RECORD

SET(XRE:K,XRE:K,NEWPTR) !POSITION FILE

IF NEWPTR = 0 !NEWPTR NOT SET

NEXT(XREG) ! READ NEXT RECORD

NEWPTR = POINTER(XREG) ! SET NEWPTR

SKIP(XREG,-1) ! BACK UP TO DISPLAY RECORD

.

FREE(TABLE) ! CLEAR THE RECORD

DO NEXT_PAGE ! DISPLAY A PAGE

NEXT_PAGE ROUTINE !DISPLAY NEXT PAGE

SAVECNT# = RECORDS(TABLE) ! SAVE RECORD COUNT

LOOP COUNT TIMES ! FILL UP THE TABLE

DO FILL_NEXT ! FILL A TABLE ENTRY

IF NOT FOUND ! IF NONE ARE LEFT

IF NOT SAVECNT# ! IF REBUILDING TABLE

DO LAST_PAGE ! FILL IN RECORDS

EXIT ! EXIT OUT OF ROUTINE

.

BREAK ! EXIT LOOP

. .

DO SHOW_PAGE ! DISPLAY THE PAGE

SET_NEXT ROUTINE !POINT TO THE NEXT PAGE

GET(TABLE,RECORDS(TABLE)) ! GET THE LAST TABLE ENTRY

DO FILL_RECORD ! FILL IN THE RECORD

SET(XRE:K,XRE:K,TBL:PTR) ! POSITION FILE

NEXT(XREG) ! READ THE CURRENT RECORD

FILL_NEXT ROUTINE !FILL NEXT TABLE ENTRY

FOUND = FALSE ! ASSUME RECORD NOT FOUND

LOOP UNTIL EOF(XREG) ! LOOP UNTIL END OF FILE

NEXT(XREG) ! READ THE NEXT RECORD

FOUND = TRUE ! SET RECORD FOUND

DO FILL_TABLE ! FILL IN THE TABLE ENTRY

ADD(TABLE) ! ADD LAST TABLE ENTRY

GET(TABLE,RECORDS(TABLE)-COUNT) ! GET ANY OVERFLOW RECORD

DELETE(TABLE) ! AND DELETE IT

EXIT ! RETURN TO CALLER

.

PREV_PAGE ROUTINE !DISPLAY PREVIOUS PAGE

LOOP COUNT TIMES ! FILL UP THE TABLE

DO FILL_PREV ! FILL A TABLE ENTRY

IF NOT FOUND THEN BREAK. ! GET OUT IF NO RECORD

.

DO SHOW_PAGE ! DISPLAY THE PAGE

SET_PREV ROUTINE !POINT TO PREVIOUS PAGE

GET(TABLE,1) ! GET THE FIRST TABLE ENTRY

DO FILL_RECORD ! FILL IN THE RECORD

SET(XRE:K,XRE:K,TBL:PTR) ! POSITION FILE

PREVIOUS(XREG) ! READ THE CURRENT RECORD

FILL_PREV ROUTINE !FILL PREVIOUS TABLE ENTRY

FOUND = FALSE ! ASSUME RECORD NOT FOUND

LOOP UNTIL BOF(XREG) ! LOOP UNTIL BEGINNING OF FILE

PREVIOUS(XREG) ! READ THE PREVIOUS RECORD

FOUND = TRUE SET RECORD FOUND

DO FILL_TABLE ! FILL IN THE TABLE ENTRY

ADD(TABLE,1) ! ADD FIRST TABLE ENTRY

GET(TABLE,COUNT+1) ! GET ANY OVERFLOW RECORD

DELETE(TABLE) ! AND DELETE IT

EXIT ! RETURN TO CALLER

.

SHOW_PAGE ROUTINE !DISPLAY THE PAGE

NDX# = NDX ! SAVE SCREEN INDEX

LOOP NDX = 1 TO RECORDS(TABLE) ! LOOP THRU THE TABLE

GET(TABLE,NDX) ! GET A TABLE ENTRY

DO FILL_SCREEN AND DISPLAY IT

IF TBL:PTR = NEWPTR ! SET INDEX FOR NEW RECORD

NDX# = NDX ! POINT TO CORRECT RECORD

. .

LOOP WHILE NDX <= COUNT ! FINISH BLANKING THE SCREEN

BLANK(ROW(?POINT),COL(?POINT),ROWS(?POINT),COLS(?POINT)) !BLANK A LINE

NDX += 1 ! INCREMENT NDX

.

NDX = NDX# ! RESTORE SCREEN INDEX

NEWPTR = 0 ! CLEAR NEW RECORD POINTER

CLEAR(XRE:RECORD) ! CLEAR RECORD AREA

FILL_TABLE ROUTINE !MOVE FILE TO TABLE

TBL:IREG = XRE:IREG

TBL:NREG = XRE:NREG

TBL:PTR = POINTER(XREG) ! SAVE RECORD POINTER

FILL_RECORD ROUTINE !MOVE TABLE TO FILE

XRE:NREG = TBL:NREG

FILL_SCREEN ROUTINE !MOVE TABLE TO SCREEN

SCR:IREG = TBL:IREG

GET_RECORD ROUTINE !GET SELECTED RECORD

GET(TABLE,NDX) ! GET TABLE ENTRY

GET(XREG,TBL:PTR) ! GET THE RECORD



(ant4)


MEMBER('ANT') MEN2 PROCEDURE SCREEN SCREEN PRE(SCR),WINDOW(6,25),AT(9,27),HUE(5,3)

ROW(1,1) STRING('+-{23}+')

ROW(2,1) REPEAT(4);STRING('¦<0{23}>¦') .

ROW(6,1) STRING('+-{23}+')

ROW(2,7) STRING('<130>выберите<0,0>год') ENTRY,USE(?FIRST_FIELD) ENTRY,USE(?PRE_MENU) MENU,USE(MENU_FIELD"),REQ

ROW(4,8) STRING('1. 1992 год')

ROW(5,8) STRING('2. 1993 год')

. .

EJECT

CODE

OPEN(SCREEN) !OPEN THE MENU SCREEN

SETCURSOR !TURN OFF ANY CURSOR

MENU_FIELD" = '' !START MENU WITH FIRST ITEM

IF CHOICE()=1 THEN MEM:PR=1 ELSE MEM:PR=2. !CALL SETUP PROCEDURE

LOOP !LOOP UNTIL USER EXITS

ALERT !TURN OFF ALL ALERTED KEYS

ALERT(REJECT_KEY) !ALERT SCREEN REJECT KEY

ALERT(ACCEPT_KEY) !ALERT SCREEN ACCEPT KEY

ACCEPT !READ A FIELD OR MENU CHOICE

IF KEYCODE() = REJECT_KEY THEN RETURN. !RETURN ON SCREEN REJECT

IF KEYCODE() = ACCEPT_KEY !ON SCREEN ACCEPT KEY

UPDATE ! MOVE ALL FIELDS FROM SCREEN

SELECT(?) ! START WITH CURRENT FIELD

SELECT ! EDIT ALL FIELDS

CYCLE ! GO TO TOP OF LOOP

. !

CASE FIELD() !JUMP TO FIELD EDIT ROUTINE

OF ?FIRST_FIELD !FROM THE FIRST FIELD

IF KEYCODE() = ESC_KEY THEN RETURN. ! RETURN ON ESC KEY

OF ?PRE_MENU !PRE MENU FIELD CONDITION

IF KEYCODE() = ESC_KEY ! BACKING UP?

SELECT(?-1) ! SELECT PREVIOUS FIELD

ELSE ! GOING FORWARD

SELECT(?+1) ! SELECT MENU FIELD

.

OF ?MENU_FIELD" !FROM THE MENU FIELD

EXECUTE CHOICE() ! CALL THE SELECTED PROCEDURE

MEN4 !

MEN4 !

. . .



(ant5)


MEMBER('ANT')

MEN4 PROCEDURE

SCREEN SCREEN PRE(SCR),WINDOW(10,36),AT(6,23),HUE(5,3)

ROW(1,1) STRING('+-{34}+')

ROW(2,1) REPEAT(3),EVERY(3);STRING('¦<0{34}>¦') .

ROW(3,1) STRING('¦<0{9},130>ведите<0>границы<0{10}>¦')

ROW(4,1) STRING('¦<0{12}>в<0>тыс<0>руб<0{13}>¦')

ROW(6,1) STRING('¦<0{4}>минимальную<0{19}>¦')

ROW(7,1) STRING('¦<0{4}>максимальную<0{18}>¦')

ROW(9,1) STRING('¦<0{34}>¦')

ROW(10,1) STRING('+-{34}+')

ROW(4,13) STRING('(')

COL(19) STRING('.')

COL(23) STRING('.)')

ENTRY,USE(?FIRST_FIELD)

ROW(6,19)ENTRY(@n_9),USE(MEM:NG),NUM,INS,HUE(0,3)rOW(7,19) ENTRY(@n_9),USE(MEM:VG),NUM,INS,HUE(0,3)

ENTRY,USE(?LAST_FIELD)

.

EJECT

CODE

OPEN(SCREEN) !OPEN THE SCREEN

SETCURSOR !TURN OFF ANY CURSOR

if choice()=1 then mem:god=1992 else mem:god=1993.!CALL SETUP PROCEDURE

DISPLAY !DISPLAY THE FIELDS

LOOP !LOOP THRU ALL THE FIELDS

ALERT !RESET ALERTED KEYS

ALERT(ACCEPT_KEY) !ALERT SCREEN ACCEPT KEY

ALERT(REJECT_KEY) !ALERT SCREEN REJECT KEY

ACCEPT !READ A FIELD

IF KEYCODE() = REJECT_KEY THEN RETURN. !RETURN ON SCREEN REJECT KEY

IF KEYCODE() = ACCEPT_KEY !ON SCREEN ACCEPT KEY

UPDATE ! MOVE ALL FIELDS FROM SCREEN

SELECT(?) ! START WITH CURRENT FIELD

SELECT ! EDIT ALL FIELDS

CYCLE ! GO TO TOP OF LOOP

. !

CASE FIELD() !JUMP TO FIELD EDIT ROUTINE

OF ?FIRST_FIELD !FROM THE FIRST FIELD

IF KEYCODE() = ESC_KEY THEN RETURN. ! RETURN ON ESC KEY

OF ?MEM:VG

MEN5

OF ?LAST_FIELD !FROM THE LAST FIELD

ACTION = 0 ! SET ACTION TO COMPLETE

RETURN ! AND RETURN TO CALLER

. .



(ant6)


MEMBER('ANT') MEN5 PROCEDURE SCREEN SCREEN PRE(SCR),WINDOW(8,31),AT(7,24),HUE(6,7)

ROW(1,1) STRING('+-{29}+')

ROW(2,1) REPEAT(6);STRING('¦<0{29}>¦') .

ROW(8,1) STRING('+-{29}+') ENTRY,USE(?FIRST_FIELD) ENTRY,USE(?PRE_MENU) MENU,USE(MENU_FIELD"),REQ

ROW(3,6) STRING('1. <147>уставный капитал'),HUE(6,7)

ROW(4,6) STRING('2. <145>страховые взносы'),HUE(6,7)

ROW(5,6) STRING('3. <145>страховые резервы'),HUE(6,7)

ROW(6,6) STRING('4. <145>страховые выплаты'),HUE(6,7)

. .

EJECT

CODE

OPEN(SCREEN) !OPEN THE MENU SCREEN

SETCURSOR !TURN OFF ANY CURSOR

MENU_FIELD" = '' !START MENU WITH FIRST ITEM

LOOP !LOOP UNTIL USER EXITS

ALERT !TURN OFF ALL ALERTED KEYS

ALERT(REJECT_KEY) !ALERT SCREEN REJECT KEY

ALERT(ACCEPT_KEY) !ALERT SCREEN ACCEPT KEY

ACCEPT !READ A FIELD OR MENU CHOICE

IF KEYCODE() = REJECT_KEY THEN RETURN. !RETURN ON SCREEN REJECT

IF KEYCODE() = ACCEPT_KEY !ON SCREEN ACCEPT KEY

UPDATE ! MOVE ALL FIELDS FROM SCREEN

SELECT(?) ! START WITH CURRENT FIELD

SELECT ! EDIT ALL FIELDS

CYCLE ! GO TO TOP OF LOOP

. !

CASE FIELD() !JUMP TO FIELD EDIT ROUTINE

OF ?FIRST_FIELD !FROM THE FIRST FIELD

IF KEYCODE() = ESC_KEY THEN RETURN. ! RETURN ON ESC KEY

OF ?PRE_MENU !PRE MENU FIELD CONDITION

IF KEYCODE() = ESC_KEY ! BACKING UP?

SELECT(?-1) ! SELECT PREVIOUS FIELD

ELSE ! GOING FORWARD

SELECT(?+1) ! SELECT MENU FIELD

.

OF ?MENU_FIELD" !FROM THE MENU FIELD

EXECUTE CHOICE() ! CALL THE SELECTED PROCEDURE

UK !

SVZ !

SR !

SVP !

. . .



MEMBER('ANT') MBO PROCEDURE SCREEN SCREEN PRE(SCR),WINDOW(6,32),AT(8,22),HUE(15,1) ROW(2,10) PAINT(1,17),HUE(14,1)

ROW(1,1) STRING('+-{30}+')

ROW(2,1) REPEAT(4);STRING('¦<0{30}>¦') . ROW(6,1) STRING('+-{30}+') ROW(2,10)STRING('<143>получение<0>данных')ENTRY,USE(?FIRST_FIELD) ENTRY,USE(?PRE_MENU) MENU,USE(MENU_FIELD"),REQ

ROW(4,5) STRING('1. <143>по <144>Российской <148>Федерации')

ROW(5,5) STRING('2. <143>по региону')

. .

EJECT

CODE

OPEN(SCREEN) !OPEN THE MENU SCREEN

SETCURSOR !TURN OFF ANY CURSOR

MENU_FIELD" = '' !START MENU WITH FIRST ITEM

LOOP !LOOP UNTIL USER EXITS

ALERT !TURN OFF ALL ALERTED KEYS

ALERT(REJECT_KEY) !ALERT SCREEN REJECT KEY

ALERT(ACCEPT_KEY) !ALERT SCREEN ACCEPT KEY

ACCEPT !READ A FIELD OR MENU CHOICE

IF KEYCODE() = REJECT_KEY THEN RETURN. !RETURN ON SCREEN REJECT

IF KEYCODE() = ACCEPT_KEY !ON SCREEN ACCEPT KEY

UPDATE ! MOVE ALL FIELDS FROM SCREEN

SELECT(?) ! START WITH CURRENT FIELD

SELECT ! EDIT ALL FIELDS

CYCLE ! GO TO TOP OF LOOP

. !

CASE FIELD() !JUMP TO FIELD EDIT ROUTINE

OF ?FIRST_FIELD !FROM THE FIRST FIELD

IF KEYCODE() = ESC_KEY THEN RETURN. ! RETURN ON ESC KEY

OF ?PRE_MENU !PRE MENU FIELD CONDITION

IF KEYCODE() = ESC_KEY ! BACKING UP?

SELECT(?-1) ! SELECT PREVIOUS FIELD

ELSE ! GOING FORWARD

SELECT(?+1) ! SELECT MENU FIELD

.

OF ?MENU_FIELD" !FROM THE MENU FIELD

EXECUTE CHOICE() ! CALL THE SELECTED PROCEDURE

MEN2 !

R !

. . .



(ant8)


MEMBER('ANT') GBO PROCEDURE SCREEN SCREEN PRE(SCR),WINDOW(6,38),AT(6,19),HUE(11,5)

ROW(1,1) STRING('+-{36}+')

ROW(2,1) REPEAT(4);STRING('¦<0{36}>¦') .

ROW(6,1) STRING('+-{36}+') ENTRY,USE(?FIRST_FIELD) ENTRY,USE(?PRE_MENU) MENU,USE(MENU_FIELD"),REQ

ROW(3,8) STRING('1. <128>аналитические таблицы')

ROW(4,8) STRING('2. <145>cписки по запросу')

. .

EJECT

CODE

OPEN(SCREEN) !OPEN THE MENU SCREEN

SETCURSOR !TURN OFF ANY CURSOR

MENU_FIELD" = '' !START MENU WITH FIRST ITEM

LOOP !LOOP UNTIL USER EXITS

ALERT !TURN OFF ALL ALERTED KEYS

ALERT(REJECT_KEY) !ALERT SCREEN REJECT KEY

ALERT(ACCEPT_KEY) !ALERT SCREEN ACCEPT KEY

ACCEPT !READ A FIELD OR MENU CHOICE

IF KEYCODE() = REJECT_KEY THEN RETURN. !RETURN ON SCREEN REJECT

IF KEYCODE() = ACCEPT_KEY !ON SCREEN ACCEPT KEY

UPDATE ! MOVE ALL FIELDS FROM SCREEN

SELECT(?) ! START WITH CURRENT FIELD

SELECT ! EDIT ALL FIELDS

CYCLE ! GO TO TOP OF LOOP

. !

CASE FIELD() !JUMP TO FIELD EDIT ROUTINE

OF ?FIRST_FIELD !FROM THE FIRST FIELD

IF KEYCODE() = ESC_KEY THEN RETURN. ! RETURN ON ESC KEY

OF ?PRE_MENU !PRE MENU FIELD CONDITION

IF KEYCODE() = ESC_KEY ! BACKING UP?

SELECT(?-1) ! SELECT PREVIOUS FIELD

ELSE ! GOING FORWARD

SELECT(?+1) ! SELECT MENU FIELD

.

OF ?MENU_FIELD" !FROM THE MENU FIELD

EXECUTE CHOICE() ! CALL THE SELECTED PROCEDURE

GBO1 !

MBO !

. . .



6. ОРГАНИЗАЦИЯ РАЗРАБОТКИ СИСТЕМЫ СБОРА ИНФОРМАЦИИ И АНАЛИЗА ДЕЯТЕЛЬНОСТИ И ОПРЕДЕЛЕНИЕ ЗАТРАТ НА РАЗРАБОТКУ ДАННОЙ СИСТЕМЫ.


6.1 Организационная часть.


Целью создания системы является автоматизация процесса обработки информации для деятельности страховой компании.

Система позволяет:

сократить время обработки необходимой информации по страховым организациям;

оперативно получать сведения о динамике экономических параметров страховых организаций;

эффективно работать непрограммирующему профессионалу в предметной области, получая всю необходимую информацию максимально оперативно.


Порядок выполнения разработки.


Шифр

события

Содержание

события

Шифр

работы

Содержание

работы

Трудоем-кость

Число

исполнит.

Продолжитель-

ность работы

1 Начало разработки 1-2

Разработка

ТЗ

6 2 3
2 ТЗ разработано 2-3

Разработка структуры программы

(для DESIGNER)

2 1 2
3

Структура

разработана

3-4


3-5


Разработка

алгоритма

программы

вывода аналитичес-кой таблицы

Написание программы на DESIGNER

6


6

2


2

3


3

4 Алгоритм разработан 4-6

Написание программы

вывода аналитичес-кой таблицы

6 2 3
5 Программа на DESIGNER написана 5-7 Сборка системы 2 1 2
6 Программа вывода таблицы написана 6-7 Сборка системы 2 1 2
7 Система собрана 7-8

Отладка

системы

4 2 2
8

Система

отлажена

8-9 Тестирова-ние 2 2 1
9 Система оттестиро-вана 9-10 Исправле-ние ошибок 4 2 2
10 Ошибки исправлены окончание работы




















ФИЛИАЛЫ ПО

РЕГИОНАМ



























GBO (Menu) GBO2 (Menu) GBO1 (Menu) S (Other) (ANTB.CLA) AT1 (Other) (ANTB.CLA) AT2 (Other) (ANTB.CLA) AT3 (Other) (ANTB.CLA) SVREG (Menu) SVREG1 (Other) (ATB.CLA) SVREG2 (Other) (ATB.CLA) SVREG3 (Other) (ATB.CLA) SVINS (Menu) SVINS1 (Other) (ATB.CLA) SVINS2 (Other) (ATB.CLA) SVINS3 (Other) (ATB.CLA) MBO (Menu) MEN2 (Menu)

MEN4 (Form)

MEN5 (Menu) UK (Other) (ANTB.CLA)

SV2 (Other) (ANTB.CLA)

SR (Other) (ANTB.CLA)

SVP (Other) (ANTB.CLA)

R (Form) MEN2 (Menu) MEN4 (Form) MEN5 (Menu)

UK (Other) (ANTB.CLA)

SV2 (Other) (ANTB.CLA)

SR (Other) (ANTB.CLA)

SVP (Other) (ANTB.CLA) REG (Table)





1. ВВЕДЕНИЕ.

Указом Президента Российской Федерации от 10 февраля 1992 года номер 133 был образован Государственный страховой надзор Российской Федерации (Госстрахнадзор России). Создание специализированного го­сударственного учреждения, контролирующего выполнение требований законодательства в сфере страхования, является фактом признания на­личия в России действующего рынка страховых услуг, реальным подтверждением наце­ленности государственной политики на формирование полноценных ры­ночных отношений.

В условиях рынка информационное обеспечение было и остается одним из важнейших критериев эффективности работы и вытекает из самой сущности страховых сделок. Страхование не является таким простым товаром, о котором каждый гражданин может составить пра­вильное понятие. Деятельность страховых организаций покоится на основах, многие из которых трудны для восприятия и для компетентных и опытных предпринимателей.

Дело осложняется тем, что страховой договор заключается на продолжительное время со всеми вытекающими отсюда последствиями (о них будет сказано ниже), а также тем, что злоупотребления в страхо­вом деле оказываются губительными не только для допускающего их предприятия, но они вообще колеблют доверие потребителя к страхова­нию. В силу этого в конце прошлого - начале нынешнего века во всех промышленно развитых странах были образованы органы страхового контроля, действующие в настоящее время как в виде самостоятельных го­сударственных учреждений, так и виде структурных подразделений страховых компаний. Государство вмешивается в управ­ление делами страхового предприятия настолько, насколько это требу­ется для интересов страхователей и общегосударственного благополу­чия. Для самих же страховых компаний, представляет интерес информация, связанная с состоянием страхового рынка. Кроме того защита от недобросовестного страхователя является одной из важнейших задач большинства страховых компаний.

На основании утвержденных 12 октября 1992 г. “Условий лицензирования страховой деятельности на территории Российской федерации” в настоящее время производится прием от стра­ховых организаций документов, необходимых для получения лицензии. Помимо выдачи лицензий, осуществлятся контроль за страховыми тарифами, устанавливаются правила форми­рования и размещения страховых фондов и резервов, определяются формы учета и показатели отчетности по страховым операциям.

Для выполне­ния своих функций Госстрахнадзор России наделен правом проведения проверок достоверности представляемой страховыми организациями информации и соблюдения страхового законодательства, давать указания страховым организациям по устранению выявленных нарушений и в слу­чае их невыполнения - принимать решение об отзыве лицензии. В от­дельных случаях, предусмотренных законодательством, Госстрахнадзор России вправе принимать меры к прекращению деятельности страховой организации. Страховые же компании лишены тех возможностей воздействия на недобросовестных конкурентов и страховой рынок, которые предоставлены государством Росстрахнадзору. Поэтому они вынуждены вести собственные базы данных для осуществления контроля за ситуацией на рынке, пользуясь доступными для них, законными и не совсем законными, источниками информации.

Решать задачи контроля ситуации на рынке страхования, а также контроля дочерних структур и филиалов компании необходи­мо в кратчайшие сроки по вполне понятным причинам (нестабильность экономической ситуации, периодическая смена учредителей, названия компаний и проч.). Но эти действия связаны с обработкой огромного (с точки зрения человека, выполняющего эту работу вручную) объема ин­формации : по одной компании насчитывается более десяти развернутых (от имени учредителя до аудита) показателей, которые необходимо проверить и учесть . А таких компаний на сегод­няшний день насчитывается более двух с половиной тысяч. И это толь­ко те компании, которые уже имеют лицензию, либо пока просто заре­гистрированы. Всего же компаний, занимающихся страховой деятель­ностью, порой без всякой лицензии неизмеримо больше. Естественно, не поддаются учету компании - “однодневки”, возникающие то здесь, то там. Но они не в состоянии оказать серьезного влияния на рынок в целом и поэтому отражения в контрольных цифрах они не нашли. Кроме того, количество таких компаний должно постепенно сойти на нет. Эта тенденция уже ясно просматривается в настоящее время. Несмотря на то, что часть организаций автоматически отсекается, объем данных остается крайне велик Таким образом работа оказалась немыслима без применения компьюте­рной техники.

Первым шагом на пути решения этой проблемы стала разработка базы данных в которую были занесены все компании, по которым существует возможность получения информации, а также данные по филиалам и контрагентам самой “организации” . По каждой компании в базе имеются все необхо­димые данные для работы с ней : название, организационно-правовая форма, юридический адрес, уставной фонд, экономические и другие данные. С помощью этой базы стало возможно очень быстро найти ка­кой-либо показатель интересующей компании, например : виды страхо­вания используемые в работе организации, правила страхования, пос­тупления, выплаты, отчеты о финансовых результатах и проч. , а так­же посредством прикладных программ сводить определенные данные (не­обходимые например для годовых и других отчетов) в таблицы. Нас­колько разнообразны интересующие показатели, настолько разнообразны и аналитические таблицы. Часть этой работы была возложена на нас. Нашей задачей стало создание программы выводящей на печать сведения об изменении отдельных показателей деятельности страховых организа­ций, а также анализ показателей развития страховых организаций. Раз­работка программы велась на языке Clarion на котором была создана сама база данных.

Постоянно возрастающие объемы деятельности, ужесточающиеся требования к оперативности предоставления необходимой для управле­ния информации и к ее достоверности настоятельно требуют объедине­ния информационных подсистем, функционирующих в отделах и службах, в единую систему, дополненную необходимыми компонентами. В работе над обработкой информации участвуют локальные компьютеры - не вхо­дящие в локальную вычислительную сеть ПЭВМ, содержащие полную или частичную копию базы и программы ее использующие; серверы в сети и станции в сети - входят компонентами в ЛВС, содержат полную копию базы и выполняют программы, использующие базу.Однако, при дальнейшем росте объемов деятельности приемлимые показатели работы информационной системы не могут быть достигнуты на аппаратной базе, включающей только персональные компьютеры (пусть даже и самые мощные). Есть несколько альтернативных вариан­тов построения вычислительной системы. В частности один из них ис­пользует страховая компания АСКО.

Для эффективной деятельности любой организации необходима четкая структуризация компании. На следующем листе представлена структура управления аппарата компании, а также структура ассоциации, в которую входит головная организация. Каждое подразделение занято решением своих задач, необходимых для слаженной работы организации.

Отдел разработки программных средств, информационного и техни­ческого обеспечения, который является структурным подразделением организации, способствует созданию и внедрению автома­тизированной системы управления, средств вычислительной техники, связи и оргтехники и обеспечивать координацию работ на всех уровнях управления.


2. СТРАХОВАНИЕ. РЕГУЛИРОВАНИЕ СТРАХОВОГО ДЕЛА.


Как уже говорилось, с середины 1992 года страхование в России получило глобальное значение. Начал складываться реальный рынок страховых услуг. Каждый сегмент рынка должен обладать соответствующим информационным обеспечением для нормального развития в особой степени это относится к сложной и специ­фической отрасли - страхованию.

Сложность этой отрасли заключается в том, что страховой дого­вор заключается обычно на продолжительное время. Между моментом уп­латы страховой премии, т.е. оплатой услуги страховщика, и моментом выплаты страхового возмещения, т.е. выполнением страховщиком своих обязательств по договору страхования, проходит обычно достаточно длительный срок. И в течении всего этого срока деятельность стра­ховщика скрыта от страхователя. Между тем необходима твердая, проч­ная уверенность в том, что страховая организация, получая премии от страхователей, будет в состоянии выполнить свои обязательства даже через десятки лет, как это, например, имеет место в страховании жизни и страховании ответственности.

Понятно, что неосведомленному в страховом деле страхователю очень трудно защитить свои интересы.

Большие проблемы возникают при злоупотреблении в страховом де­ле. Конкуренция недобросовестных страховщиков может повредить само­му солидному страховому предприятию. Отсюда ясно, что в точной и достоверной информации заинтересованы не только страхователи, но и сами страховщи­ки, поскольку эта информация будет защищать их от недобросовестной конкуренции нежизнеспособных предприятий. Последствия ошибок, неу­мелого или недобросовестного ведения дела сказываются в страховании только по прошествии ряда лет. Это затрудняет борьбу с недобросо­вестными конкурентами для солидных предприятий, а с другой сторо­ны, дает возможность вводить в обман страхователей в период этого скрытого разложения.


2.1 Контроль за состоянием страхового рынка.


В более чем столетней практике регулирования страхового дела принято различать три системы такого регулирования: систему публичности, нормативную систему и систему материального контроля.

Система публичности требует того, чтобы страховые предпри­ятия публиковали свои отчеты по установленной форме и представляли их государственным органам. Они обязаны также представлять свой бизнес-план и позднейшие изменения в нем. Недостатки этой системы в том, что даже при самых детальных требованиях в отношении отчетнос­ти невозможно составить достаточно ясное представление о положении дел в предприятии, даже для специалиста, не говоря уже об обычном страхователе. Для этого необходимо знание общих технических, юриди­ческих и экономических основ предприятия в такой подробности, в ка­кой невозможно включать их в публикуемый отчет. И кроме того, если при системе публичности и откроются злоупотребления, то этим будут защищены интересы только тех лиц, которые еще предполагали заклю­чить страхование, но не тех, которые уже заключили его.

При нормативной системе для открытия предприятия и ведения де­ла существуют установленные законом требования, имеющие целью не допустить появление несолидных, спекулятивных предприятий. При нормативной системе интересы страхователей охраняются в большей степени, чем при системе публичности. Однако если система публич­ности удобна тем, что она не сковывает свободного развития страхо­вания, нормативная система этого преимущества не имеет. Разнообра­зие и постоянно развивающиеся отношения в страховом мире не могут, без ущерба для их развития, быть регулируемыми и застывшими норма­ми. Нормативная система таит в себе ту опасность, что она может тормозить развитие и творческую деятельность в области страхования. Для того, чтобы избежать этого, можно ограничиваться при установле­нии законодательных норм несколькими общими принципами, но в таком случае не будет достигнута основная задача нормативной системы ­обеспечение интересов страхователей.

Лучше обеспечиваются интересы страхователей при третьей систе­ме - системе материального контроля. Здесь осуществляется контроль за страховыми предприятиями не только с фор­мальной, но и с материальной. Государственные органы имеют прежде всего целью предотвратить возможность возникновение нежизнеспособ­ных предприятий путем рассмотрения и исследования проектов биз­нес-планов по существу, а не только с точки зрения согласия с фор­мальными требованиями. В отношении действующих предприятий госу­дарственные органы должны наблюдать за ходом дел, следить за тем, чтобы не допускались злоупотребления, а также губительные ошибки в ведении дела. Государство вмешивается в управление делами страхового предп­риятия настолько, насколько это требуется для интересов страховате­лей и общегосударственного благополучия.

В тоже время негласный контроль со стороны других страховых организаций, позволяет последним совершенствовать свою работу, искать новые пути развития и прогнозировать ситуацию на рынке страховых услуг. Даже пользуясь общедоступными источникамими можно получать пригодные для анализа данные и успешно использовать их.

В целом законодательство не соответствует реально складывающимся отношениям людей в современной социально-экономичес­кой ситуации. Большинство ключевых вопросов в деятельности страхов­щиков в условиях рынка, вплоть до недавнего времени в силу объек­тивных причин не разрабатывались отечественной страховой наукой и выпадали из сферы интересов специалистов-практиков. При наличии в настоящее время многих сотен страховых компаний лишь немногие из них реально имеют специалистов, обладающих достаточной компетенцией для надлежащего осуществления собственно страховых операций.

На начальном этапе эти объективные причины, безусловно, будут накладывать заметный отпечаток на страховую деятельность в Рос­сии. Однако становление страховых компаний в нашей стране идет бур­ными темпами, и постоянно и постоянно изменяющаяся ситуация на страховом рынке требует соответствующего механизма отслеживания и регулирования происходящих процессов.


2.2 Особенности страхового рынка России.


До проведения рыночных реформ (конец 80-х - начало 90-х годов) в России, как известно, существовала монополия государства на стра­хование как систему отношений по защите имущественных интересов фи­зических и юридических лиц при наступлении страховых случаев. На практике управленческое вмешательство государства в сферу страхования оборачивалось в ряде случаев подрывом его основ, что выражалось в безвозмездном изъятии страховых резервов (это касалось резервных фондов по страхованию имущества сельскохозяйственных предприятий) либо зачислении страховых ресурсов в доходы государственного бюдже­та (это касалось резерва взносов по долгосрочному страхованию жиз­ни) с отнесением их на увеличение внутреннего государственного дол­га.

В последние годы произошли радикальные изменения в подходах государства к развитию страхового дела. Стали складываться новые условия деятельности страховых компаний.

Развитие рыночных отношений в экономике России вызвало, с од­ной стороны, появление многообразия форм собственности и видов предпринимательской деятельности, что предопределило более высокий уровень потенциальных потребностей в страховании, а с другой, соз­дало реальные предпосылки для демонополизации страхового дела, ор­ганизации новой системы страхования и формирования адекватного ей страхового рынка. Потребность в нормальном развитии страховой дея­тельности в условиях действия рыночных законов сделали неизбежным отмирание административных способов управления страховым делом. На смену ему стало утверждаться государственное регулирование страховой деятельности путем установления определен­ных правил, соблюдение которых обязательно для участников страхова­ния.

Так, в основе страхования в России лежат требования по :

- соблюдению всеми участниками страхования законодательства о страховании, обеспечению защиты прав и интересов страхователей, страховщиков и государства;

- выполнению участниками страхования, особо это касается стра­ховщиков, конкретных обязательств по договорам страхования;

- содействию появления на страховом рынке страховщиков, имею­щих прочную финансовую устойчивость, и пресечению деятельности не­добросовестных страховых компаний, которые могут нанести вред стра­ховому делу и ущерб интересам страхователей;

- созданию условий для здоровой конкуренции на страховом рын­ке, эффективного развития страховых услуг, повышения культуры стра­хования и его престижа.

И это - в интересах прежде всего самих страховщиков. Страховое дело больше, чем другие отрасли экономики, нуждается в доверии кли­ентов к своим страховщикам. Лучший агитатор за доверие к страхова­нию есть само страхование, его привлекательность.

Вместе с тем механизм и степень регулирования страховой деятельности не могут оставаться всякий раз в каком-то застывшем, неизменном состоянии. В зависимости от общей ситуации в экономике и состояния страхового рынка, этапов его развития регули­рующие инструменты могут быть разными как по времени применения в отдельно взятой стране, так и в сравнении с другими государствами. В той или иной степени методы регулирования могут разниться, как разнятся сами страховые рынки. В настоящее время страховым компаниям и контролирующим органам предоставлены все возможности гибкого взаимодействия для того, чтобы добиться соответствующей законодательной базы для дальнейшего успешного развития страхового рынка.

Если обратиться к истории страхования в России, то система регулирования страховой деятельности зародилась здесь еще в середине 1894 года. Затем в связи с введением монополии государс­тва на страхование, эта деятельность была на долгие годы прервана. Сегодня стра­ховое регулирование снова возрождается и приобретает новое качество.


2.3 Основные показатели состояния страхового рынка (текущая ситу­ация, тенденции).


По состоянию на 1 января 1994 года в Росстрахнадзоре в реестр включено более двух с половиной тысяч страховщиков (имеющих лицен­зии на право проведения страховой деятельности) с различными орга­низационно-правовыми формами, из которых около 50% приходится на долю акционерных обществ закрытого типа. Следует отметить, что по­давляющее большинство компаний действует на страховом рынке менее года (1240), а более двух лет - всего лишь около 5%.

Здесь следует обратить внимание на то обстоятельство, что око­ло 70% страховых компаний, обладая уставным капиталом до 100 млн.рублей, не имеют возможности принимать на страхование сколь­ко-нибудь серьезные страховые риски, и лишь 4% компаний, имея ус­тавный капитал, превышающий 1000 млн.руб. могут их брать на себя.

Однако за последнее время наблюдается тенденция к появлению на страховом рынке компаний уставный капитал которых составляет нес­кольких, а то и десятков миллиардов рублей, что свидетельствует о том, что российские предприниматели стали понимать, что такое стра­хование.

К другой из особенности развития нашего страхового рынка мож­но отнести то, что большинство страховых компаний сформировались и действуют как многоотраслевые организации. Наибольший интерес для страховщиков представляет страхование различного имущества (из 938 страховщиков, представивших статотчет за 1994 год, 669 компаний предлагают эти виды страхования), около 800 фирм занимаются прове­дением личного страхования и 660 - страхованием различных видов от­ветственности. В меньшей степени пока представлены страховщики в обязательном, особенно медицинском страховании (130) и перестрахо­вании.

Несмотря на инфляционные процессы, проходящие в стране, за последнее время наблюдается тенденция к увеличению числа страхова­телей и в связи с этим к росту поступлений страховой премии. Так, если совокупная страховая премия за 1994 год составила около 1 трлн. 109,1 млрд. рублей, то в первом квартале т.г. 924 млрд.руб­лей.

Структура поступающей страховой премии показывает, что в пос­леднее время наблюдается и некоторое повышение интереса населения и предпринимателей к проведению страхования жизни: Так, доля личного страхования в первом квартале т.г. повысилась с 44 процентов в 1994 году до 55 процентов. В тоже время, снизилось с 28% в 1994 году до 22% в первом квартале т.г. поступление премии по имущественным ви­дам страхования. В первую очередь, это связано с переоценкой основ­ных фондов предприятий, проведенной по состоянию на 1 января прошлого года, в результате которой стоимость фондов возросла в несколько десятков раз, что, естественно, повлекло за собой увеличение страховой суммы и страхового взноса, что не каждому предприятию по карману. Отрад­ным также является и снижение за этот период более чем на 10 пунк­тов доли страхования ответственности по кредитным операциям в общем объеме поступления страховой премии, что свидетельствует о более взвешенном подходе страховщиков к принятию рисков и накоплению оп­ределенного опыта в проведении страховых операций.

По-прежнему сохраняется чрезвычайно значительная дифференциа­ция компаний по объему собираемых платежей, Так, за 1994 год на до­лю 50 крупнейших компаний приходится 53% всего объема страховых поступлений, при этом страховые фирмы, входящие в группы Росгосс­траха, Ингосстраха и АСКО, обеспечили получение 42% совокупной пре­мии и осуществили 39,3% всех страховых выплат.

В то же время 64% общего числа действующих компаний имели го­довой сбор страховой премии до 5000 млн. рублей и лишь полпроцента страховщиков обеспечили за год поступление по 200 и более млрд. руб­лей страховых платежей. Эти же тенденции пока продолжают сохранять­ся и в этом году.

Характеризуя деятельность компаний по страховым выплатам, сле­дует отметить, что за последнее время здесь стали наблюдаться поло­жительные тенденции. Если ранее страховщик при наступлении страхо­вого случая принимал, если можно так выразиться, все меры для того, чтобы не произвести или затянуть (с учетом инфляции) выплату, то в последнее время, понимая, что страхователи от таких компаний начи­нают отворачиваться, большинство страховщиков стали удовлетворять претензии более оперативно. Так, если за 1994 год страховые выплаты составили 653 млрд.рублей или 50% к поступившей премии, то за пер­вый квартал т.г. выплаты превысили 60% (600 млрд.рублей), причем особенно эта тенденция прослеживается по личному страхованию (56,5% от всех выплат в первом квартале т.г. против 47% за 1994 г., а с учетом обязательного страхования, в котором преобладает личное страхование, этот показатель превысил 80% в т.г., против 58% в 1994 г.) Диаграмма соотношения выплат и премий по некоторым видам стра­хования показана на следующем листе.


2.4 Закон Российской Федерации "О страховании" и нормативные доку­менты. Союзы страховщиков.


Основополагающим актом, призванным регулировать страховые от­ношения, юридически обеспечивающего предпосылки функционирования рынка страховых услуг, упорядочивающего деятельность страховщиков, является Закон РФ "О страховании". Появление этого Закона было выз­вано переходом России на рыночные отношения, которые способствовали появлению множества хозяйствующих субъектов, заинтересованных в обеспечении защиты своей предпринимательской деятельности, своего имущества и своих доходов от рыночных непредвиденных ситуаций. За­кон стал тем нормативным документом, который позволил определить сферу страхования и механизм регулирования страховой деятельности на внутреннем страховом рынке. На законодательном уровне впервые были определены понятия форм страхования, видов страхования, те ме­ханизмы, которые проявляются в процессе страхования. Законом опре­делены объекты страхования, субъекты страхового рынка их полномо­чия. Был определен механизм обеспечения финансовой устойчивости страховых компаний. Законодательно утвержден статус государственно­го органа призванного осуществлять надзор за страховой деятель­ностью с тем, чтобы всеми участниками страхового рынка соблюдались требования страхового законодательства.

Но страховой рынок России развивается настолько динамично, что сразу после начала действия Закона "О страховании" возникли новые задачи которые необходимо было решать оперативно и которые не могли быть решены в рамках действующего законодательства. Частично эти задачи могли быть решены нормативными актами Федеральной службы России по надзору за страховой деятельностью, являющиеся также ис­точником страхового права. Нестабильное положение в экономике и трудности становления страхового рынка побудили страховщиков актив­но объединяться в союзы с целью защиты своих интересов и координа­ции деятельности. Для упорядочения этого процесса Федеральной служ­бой было создано "Положение о государственной регистрации объедине­ний страховщиков". Многие страховые компании входят в финансово-промышленные группы. Это помогает им справляться с текущими трудностями. К тому же Законодательство запрещает страховым компаниям ведение прочей хозяйственной деятельности, кроме непосредственно страхования. Таким образом подобный симбиоз позволяет выживать и получать прибыль.

Для страховых компаний в настоящее время введен довольно жесткий ценз уставного фонда и резервирования. Пробел в проработке законодателем системы стра­ховых резервов требовал принятия от специалистов определен­ных мер. В соответствии с этой задачей созданы "Правила формирова­ния страховых резервов по видам страхования иным, чем страхование жизни". Для регулирования страхового рынка необходим четко налажен­ный контроль за деятельностью страховых организаций. В контексте этого направления разработаны “Условия лицензирования страховой деятельности”, “План счетов бухгалтерского учета финансово-хозяйс­твенной деятельности страховых организаций”, “Формы статистической отчетности”, “Положение о порядке дачи предписания, ограничения, при­остановления и отзыва лицензии на осуществление страховой деятельности”. Не менее важной задачей, чем вышеперечисленные, на современ­ном этапе развития страхового рынка является защита прав потребите­лей страховых услуг. Данная проблема может решаться в нескольких направлениях и, в частности, с помощью укрепления финансовой устой­чивости самого страховщика. Эту задачу призваны решать такие документы как “Методика расчета нормативного размера соотношения ак­тивов и обязательств страховщиков”, “Правила размещения страховых ре­зервов”, “Методика расчета тарифных ставок по массовым рисковым видам страхования”. Конечно, обозначенные выше пунктирно проблемы правово­го характера, существующие на современном этапе, не носят исчерпы­вающего характера и требую дальнейшего практического разрешения.


2.5 Росстрахнадзор. Положение о Росстрахнадзоре. Структура, права, обязанности, функции.


Для осуществления Государственного надзора за страховой дея­тельностью на территории Российской Федерации Указом Президента Российской Федерации была создана Федеральная служба России по над­зору за страховой деятельностью (Росстрахнадзор), которая является центральным органом федеральной исполнительной власти, и подчиняет­ся Правительству Российской Федерации, действуя на основании ут­вержденного им Положения.

Положение о Федеральной службе России по надзору за страховой деятельностью принятое в апреле 1993 года дополненное и частично измененное в октябре 1994 года устанавливает права и обязанности Росстрахнадзора, а также его функции и задачи.

Росстрахнадзор в пределах установленной Положением компетенции осуществляет регулирование единого страхового рынка в Российской Федерации на основе установления общих требований по лицензированию и ведению государственного реестра страховых организаций, контролю за обеспечением финансовой устойчивости страховщиков, учету и от­четности , методологии страхования, межотраслевой и межрегиональной координации по вопросам страхования. Росстрахнадзор в своей дея­тельности руководствуется Конституцией Российской Федерации, поста­новлениями и распоряжениями Президента Российской Федерации, поста­новлениями и распоряжениями Правительства Российской Федерации, а также существующим положением.

Главной задачей Росстрахнадзора является обеспечение соблюде­ния всеми участниками страховых отношений требований законодатель­ства Российской Федерации о страховании в целях эффективного разви­тия страховых услуг, защиты прав и интересов страхователей, стра­ховщиков и государства.

В пределах установленной компетенции Росстрахнадзором осущест­вляется государственное регулирование страховой деятельности на ос­нове установления общих требований по лицензированию и ведению го­сударственного реестра страховых организаций, инвестиционной дея­тельности, обеспечению финансовой устойчивости, организации бухгал­терского и статистического учета и отчетности страховых организа­ций, стандартизации условий и тарифов по массовым видам страхова­ния, другим направлениям страховой деятельности. К числу основных функций Росстрахнадзора относятся выдача лицензий на осуществление страховой деятельности и ведение единого государственного реестра страховщиков и объединений страховщиков, а также реестра страховых брокеров. Росстрахнадзор должен также осуществлять контроль за обоснованностью страховых тарифов и обеспечение платежеспособности страховщиков, устанавливает правила формирования и размещения стра­ховых резервов, показатели и формы учета страховых операций и от­четности страховой деятельности, разрабатывает и утверждает норма­тивные и методические документы по вопросам страхования, отнесенным к его компетенции.

Как контролирующий орган Страховой надзор России имеет право проводить проверки соблюдения страховщиками законодательства о страховании и проверки достоверности представляемой отчетности и информации. При выявлении нарушений страховщиками требований зако­нодательства, а также неисполнения ими обязательных рекомендаций, указаний и нормативных документов Страховой надзор имеет право да­вать страховщикам предписания по устранению таких недостатков, а в случае невыполнения этих предписаний приостанавливать либо ограни­чивать действие лицензии таких страховщиков впредь до устранения выявленных нарушений либо принимать решение об отзыве лицензии.

При необходимости Росстрахнадзор имеет право обращаться в ар-

битражный суд с исками о ликвидации недобросовестных страховщиков при неоднократном нарушении последними законодательства Российской Федерации, а также организаций и предприятий, осуществляющих стра­хование без лицензии.

В условиях недостатка специалистов и отсутствия единой системы подготовки кадров для страховых организаций важным является право Страхового надзора участвовать в экспертизе учебных программ по страхованию в высших и средних специальных учебных заведениях, а также в специализированных организациях по подготовке и повышению квалификации кадров для страховых организаций.

В целях усиления надзора за деятельностью страховщиков на тер­ритории России Правительством было принято решение о создании 30 территориальных органов страхового надзора, которые обладают прак­тически всеми правами и обязанностями Росстрахнадзора, за исключе­нием функций по выдаче лицензий и даче предписаний о приостановле­нии или отзыве лицензий, и обращению в суд о ликвидации страховщика в случае нарушения ими действующего законодательства.

Вероятно, со временем, по мере накопления опыта и развития страхового законодательства функции и права территориальных органов страхового надзора могут быть расширены, в частности, в вопросах выдачи лицензий компаниям с крайне ограниченной сферой и объемом деятельности.


3. РАБОТА С ИНФОРМАЦИЕЙ. НЕОБХОДИМОСТЬ БАЗЫ ДАННЫХ. СТРУКТУРА БАЗЫ ДАННЫХ.


“Организация” работает с большим количеством различной инфор­мации, относящейся к деятельности страховых компаний. Очевидно, что эту информацию невозможно оперативно обрабатывать вручную, поэтому в своей работе используются персональные компьютеры и приклад­ные программы, существенно улучшающие работу организации.

В основе большинства современных деловых и прикладных программ лежит обработка данных. Поэтому любая такая программа должна уметь выполнять, в том или ином виде, три основные функции : 1.Ввод новых данных;

2. Доступ к уже существующим данным;

3. Поиск и анализ данных (составление отчетов ).

Данные, которые накапливает и обрабатывает программа, должны быть четко структурированы. Совокупность всей на­копленной информации составляет базу данных. Ввод данных предс­тавляет собой заполнение информацией структур базы данных. Доступ к данным необходим для просмотра информации и внесения изменений. Последнее нужно для исправления ранее допущенных ошибок и поддержа­ния актуальности данных.

Функция запроса по данным должна определять основные преиму­щества организации данных на компьютере от традиционно ручных мето­дов. Программа, выполняя запрос по данным, просматривает и отыски­вает отдельные части существующей информации, значительно повышая не только скороcть, но и качество этой операции, так как компьютер, в отличие от человека, не может отвлечься, расслабиться и т.д. Эта функция используется практически при каждом обращении к базе дан­ных. Время от времени обычно появляется необходимость обобщить на­копленную в базе данных информацию, например, составить отчет. Сос­тавление отчета отличается от запроса по данным в двух отношениях. Во-первых, отчет охватывает не часть, информации, а всю ее целиком. Во-вторых, при получении отчета данные, как правило, обрабатывают­ся. Обработка представляет собой анализ информации, который может быть и очень простым, и очень сложным.

Используемая в настоящее время база данных включает в себя сведения о страховых компаниях получивших, как правило, лицензию на право страховой деятельности и о которых собрана какая-либо информация. Таких компаний на сегодняшний день насчитывается около двух с половиной тысяч. Для выполнения своих функции полного информационного обеспечения необходимо контролировать многие показатели страховых организаций, что является очень трудоемкой операцией. С помощью базы данных этот процесс можно существенно облегчить, так как поиск необходимых показателей происходит почти мгновенно.

Программа обработки и сортировки данных способна обеспечить поиск по следующим атрибутам:

- по названию компании

- по адресу компании

- по всем номерам лицензий

- по руководителям

- по учредителям

- по адресам учредителей

- по регистрационным номерам.

По каждой компании выдается следующая информация: краткое и полное название, организационно-правовая форма, юридический ад­рес, телефоны, уставной фонд, поступление документов и наличие иностранного капитала. А также в виде меню:

- виды страхования:

правила страхования

виды деятельности

- учредители

- руководители

- причина отказа

- номера предыдущих лицензий

- предыдущие входные номера

- поступления, выплаты

- отчет за предыдущий год

баланс страховой организации ( актив, пассив )

отчет о финансовых результатах и их использование (фи­нансовые результаты, использование прибыли, платежи в бюджет, затраты и расходы).

приложение к балансу страховщика ( движение фондов, движение заемных средств, дебиторская и кредиторская

задолженность , наличие и движение основных средств, финансовые вложения )

отчет о платежеспособности

отчет о размещении страховых резервов

аудит.

Оценивать достоинства и недостатки данной базы рано, так как она еще не закончена и находится в процессе доработки. Периодически появляется необходимость дополнить базу. Однако, сказать о важней­ших показателях качества можно уже сейчас.

Надежность работы базы довольно высока, однако если при за­просе машины вводится неверное описание требуемого предмета (назва­ние города, номер лицензии и проч.), то на поиск несуществующего объекта тратится очень много времени, и если при этом нажимать на клавиши клавиатуры, машина может зависнуть.

Эффективность работы базы оставляет желать лучшего. И это не ошибки программиста, а технические возможности языка Clarion. Быс­тродействие работы существующих баз данных напрямую зависит от быстродействия работы вычислительной машины, и увеличить его хотя бы на порядок программным путем практически невозможно.

Так как основная база данных выполнена на языке Clarion, то программа анализа отдельных показателей развития страховых организаций, также выполнена на Clarion. Кроме того, Clarion является результатом развития программного обеспечения, предназначенного для автоматизации создания прикладных программ. В том или ином виде подобные инструментальные средства бесспорно присутствуют во многих известных пакетах, но, бесспорно, в пакете Clarion они представлены наиболее логично и полно. Использование утилиты Designer соответствует технологии WYSIWYG (What You See Is What You Get - что увидишь, то и получишь), что несомненно очень удобно. Посколько пакет Clarion нет необходимости приобретать для данной разработки, то стоимость ее не увеличивается дополнительно.


Программное обеспечение.


В работе широко используются различные программные продукты, начиная от простейших текстовых редакторов, и заканчивая сложными издательскими системами и системами управления базами данных.

Машбюро, секретари и практически все работники используют в своей работе текстовый редактор Word for Windows 6.0

Имеются средства печати документа в форматках, это необходи-

мо при подготовке документов в соответствии с ЕСКД и ЕСПД.

Иногда возникают ситуации, когда необходимо воспользоваться издательской системой Aldus Page Maker . Возмож­ности этого пакета очень широкие. Перечис­лим некоторые основные возможности Page Maker:

- уменьшение изображения

- изменение расположения страниц

- независимые линейки X и Y

- поворот текста и другое более сложное полиграфическое оформление

- контроль орфографии

- импорт текста

- импорт графических файлов

- многосторонняя обработка графики

- универсальное обеспечение вывода

- возможность работы в сетях Net Were.

И это только основные возможности данного программного продукта, всего же их неизмеримо больше.

Для работы с базами данных используется пакет Clarion, а также пакет Clipper которые уже были упомянуты ранее.

Практически на все машинах установлена 6.2 версия MS-Dos и четвертая версия Norton Commander.

Перечисление всех остальных программных продуктов не имеет смысла, так как в основном - это стандартный набор программ, ис­пользуемый на каждом рабочем месте оператора ЭВМ.


Hardware.


Отдел разработки программных средств, информационного и технического обеспечения использует в своей ра­боте различные вычислительные машины и оргтехнику.

Вычислительные машины в основном изготовлены фирмой IBM, а также есть машины изготовленные фирмой ACER.

Часть вычислительных машин перечислена ниже:

IBM PC/AT - 386/387 DX

тактовая частота 40 MHz видеокарта VGA - 1 Мb SIMM - 4 x 1 Mb

Винчестер - 420 Mb;

В качестве серверов и рабочей станции работают машины:

станция:

IBM VALUE POINT - 486 DX2

тактовая частота 66 MHz

видеокарта SVGA - 1 Mb

ОЗУ - 4 Mb

Винчестер - 1 G;

сервер:

IBM VALUE POINT - 486 DX2

тактовая частота 66 MHz

видеокарта SVGA - 1 Mb

ОЗУ - 16 Mb

Винчестер - 1G;

VIST NET SERVER

PENTIUM-90;

NoteBook:

IBM PC/AT 486 SX

тактовая частота 33 MHz видеокарта SVGA - 1Мb

ОЗУ - 4 Mb

Винчестер - 240Mb

Печатающие устройства отдела представлены матричными принтерами:

EPSON FX-1000

EPSON LX-100

лазерными принтерами:

HEWLETT PACKCARD Laser Jet 4

HEWLETT PACKCARD Laser Jet 4 L

HEWLETT PACKCARD Laser Jet 5 P.

Из внешних устройств также можно перечислить следующие:

стриммер Conner Tape * Stor for IBM 250 Mb

модем Zyxel 1496 E+.

Часть машин объединена в локальную сеть вклю­чающую в себя 8 машин из которых два сервера и шесть станций. Про­пускная способность сети 10 Mb/с. Глобальная сеть строится на осно­ве городской телефонной сети.

Серверы оборудованы источниками бесперебойного питания амери­канской фирмы APC - American Pover Conversion, которые могут под­держивать работу машины при исчезновении сетевого напряжения в те­чении 57 минут.

В своей работе широко используются различные программные продукты, начиная от простейших текстовых редакторов, и заканчивая сложными издательскими системами и системами управления базами данных.

Для работы с базами данных используется пакет Clarion, а также пакет Clipper. Clarion является основным программным продуктом, на котором создана база данных .


4. СLARION И ЕГО УТИЛИТЫ.

CLARION - это система управления базами данных, которая ориен­тирована как на конечных пользователей ПЭВМ, так и на опытных прог­раммистов. Разработчики пакета CLARION, не отказываясь от традици­онных методов и средств программирования, ориентировались на плано­мерное и целенаправленное повышение эффективности и возможностей этих методов и средств. Новый пакет вобрал в себя все самое лучшее из современных языков программирования и систем управления базами данных.

Создатели пакета, отдавая себе отчет в том, что и без того большое количество средств уже давно используется при создании программ обработки данных, предложили новый, гибкий и мощный инс­трумент, сохраняющий старые возможности, но дополненные современной технологией.

Разработчиками Clarion был создан только минимальный набор команд и функций, необходимый для программирования. Т.е. традицион­ный способ написания программы, путем последовательного описания алгоритма с помощью команд и функций сохранился, но реализован не в таком объеме как в языке Clipper или в каком либо другом языке программирования. Основные же усилия разработчиков были направлены на создание очень удобных и с большими возможностями утилит ­встроенных программных средств, позволяющих программисту проектиро­вать программу и описывать данные непосредственно на экране компь­ютера, используя развитую систему меню и подсказок.

Clarion Professional Developer - это совокупность интерактивных программ ( утилит ), работающих в единой среде и используемых на различных этапах разработки приложения. Утилиты могут запускаться из главного меню системы или вызываться друг из друга по мере необ­ходимости.

Основу инструментальной среды составляет язык программирования - CLARION. Классическая схема разработки программ на языке высокого уровня предполагает подготовку исходного текста, трансляцию, отлад­ку и сборку готовой программы. В среде Professional Developer эта последовательность реализуется утилитами Editor, Compiler, Processor, Crossrefer, Translator.

Утилита Editor используется для подготовки исходного текста программы на языке Clarion. Прежде всего Editor - это хороший двуо­конный экранный редактор, предоставляющий разработчику современные средства для создания и модификации исходного кода.

Отличительной особенностью Editor является возможность преобразования языковых описаний экранных форм и структур отчетов в визуальную форму предс­тавления. В данном режиме разработчик может выполнять модификацию соответствующих объектов программы с последующим получением исправ­ленного кода. Переход из одной формы редактирования в другую может выполняться многократно.

Утилита Compiler считывает исходный код программы, проверяя на корректность и преобразует его в компактный псевдокод (файлы с рас­ширением .PRO), используемый для последующей отладки. Для устране­ния ошибок, выявленных при компиляции, из утилиты Compiler вызыва­ется Editor, который устанавливается на ошибочную строку в соот­ветствующем модуле приложения, последовательно предлагая все оши­бочные конструкции для редактирования. Повторная компиляция требу­ется только для ошибочных модулей.

Интерактивная отладка приложения обеспечивается утилитой Processor. Также для целей отладки может использоваться таблица пе­рекрестных ссылок, формируемая утилитой Crossrefer.

Утилита Translator завершает процесс сборки готовой программы. Tpanslator преобразует .PRO-файлы в объектный формат и запускает сборку с библиотекой Clarion. Сборщик (Linker) может выбираться разработчиком по его усмотрению.

Группа утилит Filer, Converter, Sorter и Scaner обеспечивают разработчика средствами реорганизации структуры базы данных, экс­порта/импорта, ввода и корректировки данных. Эти утилиты могут ис­пользоваться не только на этапе разработки приложения, но и в про­цессе его сопровождения для ведения информационных фондов. Для завершенности системы в состав Professional Developer включены утилиты Director и Tailor, первая из которых представляет собой командную оболочку для выполнения команд DOS и работы с фай­ловой системой, а вторая позволяет установить параметры среды.

Designer позволяет разработчику описать схему будущего приложения и на ее основании получить исходный код программы на языке Clarion. Для описания схемы приложения используется язык типа меню. Схема приложения включает описание информационной базы данных и описание процедур для работы с ней. Генерацию исходного кода Designer выполняет на основании модельного файла.

Таким образом, Designer позволяет выполнить разработку прило­жения, не прибегая к традиционному программированию, обеспечивая высокую скорость разработки и снижая требования к квалификации раз­работчика. Для профессиональных программистов Designer оставляет возможность проявить свое искусство.

Designer можно использовать и для более глубокого изучения языка Clarion, т.к. создаваемый им исходный код не всегда очевиден, но всегда подробно прокомментирован.


4.1 Утилита Designer пакета CLARION .


Одним из наиболее заметных элементов новой технологии обработ­ки данных является утилита Designer (Дизайнер), входящая в состав пакета. Эта уникальная в своем роде утилита позволила изменить тра­диционный ход процесса разработки программ. Благодаря Designer, за этапом проектирования задачи не следует рутинный этап кодирования и отладки.


В зависимости от опыта работы с компьютером и утилитой Designer пользователь пакета может создавать самый широкий спектр программного обеспечения для ПЭВМ: от простейшего телефонного спра­вочника до сложнейших систем обработки данных. При этом, независимо от и знаний, в программах будут присутствовать элементы, типичные для программ современного уровня : быстрой сортировки, упорядочения по составным ключевым признакам, использование оперативной памяти для ускорения доступа к данным, возможность вывода данных на печа­тающие устройства, возможность работы программы в локальных сетях и многие другие.


Типы процедур, создаваемых утилитой Designer.


При создании программ с помощью Designer совокупность опера­ций, выполняемых в определенном порядке, разделены на пять типов, в соответствии с выполняемыми функциями и видом экранной печати. каж­дый тип операций оформляется в виде отдельной процедуры, которые получили следующие названия :


- Menu (Меню)


- Table (Таблица)


- Form (Форма)


- Report (Отчет)


- Othet (Внешняя процедура)


Экранная форма процедуры типа Menu представляет собой экранную форму, которая содержит несколько фиксированных позиций, одну из которых необходимо выбрать. С каждой позицией связано определенное действие, которое выполняется после осуществления выбора. Работа большинства прикладных программ обычно начинается с выполнения именно с этой процедуры.

После выбора базы данных для дальнейшей обработки, в которой уже имеется некоторое количество записей,их нужно предварительно посмотреть. Удобнее всего это сделать, разместив записи на экране в виде некоторой таблицы. Имено этот принцип отображения информации используется в экранной форме процедуры Table. Записи в таблице мо­гут быть упорядочены по значениям различных полей. Эти поля должны быть ключевыми.

В таблице, как правило, размещают лишь те поля, которые отоб­ражают информацию, идентифицирующую запись, и эти поля можно лишь просматривать, но не изменять. Все же поля записи можно увидеть и внести в них необходимые корректировки на экранной форме процедуры Form. Размещенные на экране поля записи можно обрабатывать: вводить новые значения, исправлять и удалять существующие.

Процедура Report предназначена для вывода данных на печать. По своей сути процедура Report выполняет те же функции, что и процеду­ра Table, но данные выводятся не на экран, а на принтер.

Процедуры, созданные вне утилиты Designer, можно включать в состав разрабатываемой программы, определив тип этих процедур как Other.

Если программа должна выполнять несколько логически разных операций то работу разумно начать с выдачи на экран монитора меню, где пользователь сможет выбрать необходимую в данный момент опера­цию. После выбора одной из позиций меню следует выполнение соот­ветствующих действий. В том числе это может быть вызов другого ме­ню.

Необходимо помнить, что Designer не сможет сразу осуществить взаимосвязь между процедурами Menu и Form, поскольку процедура Form обрабатывает конкретную запись, и Designer не может определить ка­кую запись имеет в виду пользователь. Поэтому между этими процеду­рами должна быть процедура, идентифицирующая запись, например, про­цедура Table, или перед вызовом процедуры Form необходимо будет вы­полнить действия, которые позволят понять, какую запись обрабаты­вать.


4.2 Проектирование прикладных задач при помощи утилиты Designer.


Базовое окно утилиты Designer.


После вызова утилиты Designer появляется базовое окно The Clarion Designer. В первой строке окна - Application (Прикладная задача) - определяется имя файла, в котором будет храниться описа­ние проекта. Далее следует строка Model File (Модельный файл). Именно здесь определяется тип разрабатываемой программы : стандарт­ная однопользовательская или для работы в сети. Обычно (по умолча­нию) в этой строке находится имя модельного файла STANDARD.MDL. В этом файле содержится программный код, на основе которого будет создана программа, работающая в однопользовательском режиме. Для создания программы работающей в многопользовательском режиме необхо­димо выбрать модельный файл с именем NETWORK.MDL.

Если планируется создание файла подсказок то в строке Help File необходимо указать имя этого файла.

Последняя строка в окне служит для определения имени процеду­ры, которая будет выполняться сразу же после начала работы програм­

мы. Эта процедура носит название Base Procedure (Базовая процеду­ра).

Далее на экране появляется окно Application Summery Window ­Сводное окно разрабатываемой программы.


Главное окно разработки.


Окно Application предназначено для отображения структурной

схемы программы, имен файлов и процедур, которые уже созданы или которые еще только названы, но не наполнены содержательно.

Имя разрабатываемой программы размещается в верхней части окна. Под ним расположены две колонки : узкая - Files и широкая ­Procedures. В колонке Files расположены имена файлов, которые могут обрабатываться проектируемой задачей. В колонке Procedures располо­жены описания процедур : имена, типы и краткое описание. При пра­вильном проектировании задачи все процедуры должны быть связаны между собой и образовывать аналог структурной схемы.


Определение полей базы данных, ключей и индексов.


В окне File (Файл) определяются поля, ключи и индексы этого файла.

В колонке Fields перечисляются имена полей, а в колонке Keys (Ключи) - имена ключей.


Определение полей файла базы данных .


Первые три строки окна Field всегда одинаковы : Field name (Имя поля), Description (Описание) и Type (Тип).


Типы полей базы данных, используемые в CLARION .


В CLARION используется 8 типов полей : String (строковые),

Decimal (десятичные), Byte (байт), Short (короткие), Long (длин­ные), Real (действительные) , Group (групповые), Memo (примечания).

Тип String описывает поля, состоящие из любых символов фиксированной длины. Максимальная длина поля составляет 255 символов.

Типы Decimal, Byte , Short, Long и Real служат для описания числовых полей : Decimal - для упакованных десятичных чисел (макси-мальная длина 15 десятичных цифр); Byte - для целых чисел без знака в диапазоне от 0 до 255; Short - для целых чисел в пределах от -32,768 до 32,767; Long - для значений от -2,147,483,647; Real ­для выражения значений с плавающей запятой (двойной точности) .

Тип Group позволяет описать совокупность полей, даже если они различны по типам.

Тип Memo определяет символьное поле (поле примечаний), длина которого может достигать 65 536 знаков (байт).

В зависимости от выбранного типа поля определяются и разные

параметры. Параметр Length (Длина) определяет длину полей типа String, Decimal и Memo в символах. Строка Picture (Шаблон) исполь­зуется с полями следующих типов: String, Decimal, Byte, Short, Long и Real.

Параметр Choices (Выбор) используется со строковыми полями для организации ввода определенных ранее значений.

Параметр Dimensioned (Размерность) используется с полями типов String, Decimal, Byte, Short, Long, Real и Group служит для опреде­ления массивов.

Параметр Type Mode (Режим ввода) используется со строковыми, десятичными, короткими, длинными, действительными и групповыми полями типов байт и примечаний

Выбирается Asls - если меняется текущий режим ввода для этого поля, Ovr -если включается режим перезаписи при заполне­нии этого поля , и Ins - для включения режима вставки .

Параметр Required (Обязательность ввода) используется с полями следующих типов: String, Decimal, Byte, Short, Long, Real, Group. Значение Yes необходимо выбрать в том случае, если требуется от пользователя ввод данных в это поле , когда оно появляется на экране для заполнения.

Параметр Immediate (Подтверждение ввода) используется с полями следующих типов : строковые, байт, короткие, длинные, действитель­ные и групповые. Выбирается Yes, если надо, чтобы поле автоматичес­ки принималось после его заполнения пользователем (без нажатия Enter).

Параметр Num Lock (Режим ввода цифр) используется с полями следующих типов: строковые, десятичные, байт, короткие, длинные, действительные и групповые. Используется для включения режима ввода цифр служебными клавишами в правой стороне клавиатуры, если выбран­но Yes. В строке Left Just (Выравнивание слева) выбирается Yes,что­бы данные, вводимые в поля типа String и Group, выравнивались слева, No - чтобы данные вводились справа.

Параметр Help ID (Идентификация помощи) используется со всеми типами полей и организует связь этого поля с окном помощи именно для этого окна.

Параметр Places (Значность) используется только с десятичными полями. Здесь определяется количество десятичных знаков дробной час­ти этого поля .

Параметры Lower Range (Нижняя граница) и Upper Range (Верхняя граница) используются с десятичными, байт, короткими, длинными и действительными типами этих полей и применяются для ограничения диа­пазона числовых значений, которые будут вводится в эти поля.

В строках Rows (Строки) и Colums (Колонки) определяется общее количество строк и колонок экрана , которое отводится полю примеча­ний.

Параметр Word Wrap (Перенос слова) используется с полями при­мечаний. Выбирается Yes, если нужно, чтобы слова переносились на новую строку в поле примечаний, когда слово уже не помещается в строке.


Определение ключей и индексов (Окно Key).


В большинстве случаев хранимые данные необходимо упорядочи­вать. В соответствие с установленным порядком всем записям присваи­ваются индексы, которые могут храниться в отдельном ключевом файле или создаваться по необходимости. Помимо упорядочения, созданные индексы могут использоваться для организации быстрого доступа к данным .

Область определения ключевых или индексных признаков нахо­дится в правой колонке окна File. Здесь располагается список ключей или индексов, которые Designer отображает в виде маленькой структу­ры : имя ключа и последовательность ключевых полей, из которых он состоит. Основное отличие ключевого файла от индекса состоит в том, что ключевые файлы обновляются каждый раз, когда запись добавляется в базу данных, удаляется или изменяется, а индексы строятся только тогда, когда они нужны. В строку Key/Index Name (Имя ключа / индек­са) вводится имя, которое присваивается ключу или индексу. В строке Key/Index type (Тип Ключ / Индекс) выбирается позиция Key для создания ключевого файла или Index для определения индек­са. Строка Unique Key активизируется только тогда, когда выбрана позиция Key. Теперь можно исключить возможность добавлять новые записи к файлу, при условии, что уже есть запись с таким же значением в том же поле. Для этого выбирается Yes. Если планируется иметь в файле два или более ключевых поля с одинаковыми данными, то выбира­ется No. Если ключевой признак будет уникальным, то в следующей строке Auto-Number (Автоматическая нумерация) можно определить, что ключ будет содержать поле , используемое как счетчик записей, вновь записываемых в базу данных .

В следующей строке Case Sensitive (Различимость регистров) указывается что данные, введенные в ключевые поля файла на разных регистрах, различаются , либо не различаются.

В файле данных могут содержаться ключевые или индексные поля, не содержащие информации (пробелы или нули). Для того чтобы исклю­чить возможность включения записей с такими полями в ключевой файл или индекс, в строке Exclude Nulls (Исключение нулей) надо выбрать Yes. Проблемы с пустыми полями можно избежать выбрав Yes в строке Required (Обязательность ввода) при описании полей в окне Field.


4.3 Проектирование файлов данных .


В Designer используется два типа файлов: обычные файлы, разме­щаемые на диске, и один псевдо-файл, находящийся в памяти.

Файл, размещенный в памяти, имеет несколько отличий от обычно­го файла. Файл в памяти, во-первых, имеет всего одну запись, кото­рая всегда находится в памяти компьютера. Данные, которые хранятся в этом файле никогда не сохраняются на диске и, соответственно, не считываются с него.


Проектирование файла в памяти.


Файл в памяти создается утилитой Designer, он имеет имя MEMORY. Designer автоматически создает один файл в памяти для каждой прог­раммы, а также четыре поля: поле для сообщений MEM:MESSAGE, поле для подсчета страниц отчета MEM:PAGE, поле для подсчета строк отче­та MEM:LINE, и поле для определения устройства вывода информации MEM:DEVICE.

Поле MEM:MESSAGE содержит ошибки и информационные сообщения , которые могут во время выполнения программы. MEM:PAGE содержит текущий номер строки отчета, и его включают в заголовки отчетов или выводятся в конце каждой страницы. MEM:LINE содержит текущий номер строки отчета . В поле MEM: DEVICE можно определить имя устройства, на которое будет производиться вывод информации.


Определение имени и параметров файла .


В самой первой строке окна File Options (Filename) определяет­ся имя файла. В строке Prefix (Префикс) указываются три уникальные буквы, которые в дальнейшем будут идентифицировать поля этого файла.

В двух следующих строках определяется место, где будет хра­ниться файл .В строке Drive (Дисковод) указывается имя дисковода, на котором будет размещен файл, а в строке Path - полный путь поис­ка файла на этом устройстве.

После этого необходимо определить данные которые являются спе-цифическими для файлов баз данных Clarion.

В строке Create file (Создать файл) выбрать Yes (да), если на­до чтобы файл создался автоматически при первом выполнении програм-мы или в том случае, когда программа не может найти уже существую-щего файла. Если выбрать No (нет), то придется создать файл перед тем как выполнить программу , используя утилиту Filer.

В строке Reclaim Space (Перераспределение пространства) выби­рается ответ Yes, для того, чтобы новые записи занимали место ранее удаленных. No выбирается в том случае, если хотите чтобы новые дан­-ные добавлялись в конец файла. Yes в строке Protect file (Защита файла) означает, что файл будет защищен от внесения изменений, ко-торые можно произвести при помощи таких утилит пакета CLARION как Converter, Filer,Scanner,Sorter.

В строку Owner ID (Идентификатор владельца) вводится пароль или код владельца информации.

При проектировании файла утилита Designer самостоятельно уста­навливает параметры для файла,которые наиболее широко используемы. Это отсутствие названия устройства и директория, Create File - Yes, Reclame Space - Yes и Protect File - No.

Как только заполняется последнюю строку окна File Options, это окно сменится окном File.


4.4 Проектирование процедур.


Разработка каждой процедуры состоит из трех этапов : определе­ния опций (общих данных) процедуры, описания экрана и определения полей, которые будут обрабатываться в этой процедуре. Описание каж­дой процедуры начинается с определения ее типа. Необходимо выбрать один из типов процедур : Menu, Table, Form, Report или Other в окне Select Type.


Проектирование процедуры Menu.


В строке Procedure name (Имя процедуры) определяется имя про­цедуры.

В строке Procedure title (Заголовок процедуры) можно более полно описать назначение этой процедуры.

В строке Setup Procedure (Установочная процедура) определяетсяимя процедуры, которая будет вызываться всякий раз перед тем, как начнет работать проектируемая процедура. Во время работы процедуры можно организовать вызов окна помощи.

В строке Help ID (Идентификатор помощи) определяется имя экрана подсказки, общей для этой процедуры.

Для организации вызова другой процедуры в строке Hot Procedure ("Горячая" процедура)необходимо определить имя процедуры, а в стро­ке Hot Key ("Горячий" ключ) определить клавишу или комбинацию кла­виш, при помощи которых можно выполнить эту процедуру, временно прервав работу основной.

Если окно разрабатываемой процедуры меньше чем экран, то в строке Position определяется как будет расположено это окно. Обычно Designer размещает исходный текст каждой процедуры в отдельный исходный модуль (файл). Это происходит, если оставить стро­ку CombineWith (Связать с) пустой.

Каждая из проектируемой процедур может быть создана не только в

соответствии с модельным файлом STANDARD.MDL или NETWORK.MDL, но и в соответствии с индивидуальной моделью. В строке Model Procedure (Имя модели) в этом случае необходимо определить имя модели.

Далее производится инициализация окна экрана, которая начинает-

ся с заполнения полей в окне Initialization (Инициализация).

В процедуре типа Menu можно определить 6 типов полей: Field for Entry (поле для ввода), Field for Display (поле для вывода), Lookup (связанные поля), Computed (вычисляемые поля), Menu item (позиции меню) и Conditional (поле условия или логическое поле).

Поля для ввода требуют от пользователя введения данных. Исполь­зуя поля вывода и связанные поля можно вывести информацию на экран.

Для отображения информации связанной по некоторому, ранее определенному признаку, используется поле Lookup.

Вычисляемые поля позволяют производить вычисления над данными из одного из файлов или переменными.

Поля позиций меню позволяют организовать выбор дальнейших дейс­твий пользователя, в зависимости от необходимости.

Поля условий служат для логической оценки некоторого условия, в зависимости от результата выполнения которой ("истина" или "ложь"), производится одно из двух присвоений этому полю.


Проектирование процедуры Table.


Проектирование процедуры Table начинается с выбора позиции Table в окне Select Type и заполнения окна опций процедуры. В стро­ке Procedure name определяется имя процедуры, в строке Procedure title - название или заголовок процедуры. Процедура или функция, которая в случае необходимости должна быть выполнена перед началом работы разрабатываемой процедуры, определяется в строке Setup Procedure (Процедура настройки). Далее следует строка Update Procedure (Процедура корректировки). Имя ключевого признака опреде­ляется в строке Access Key (Ключ доступа). Строка Help ID (Иденти­фикация помощи) служит для связи проектируемой процедуры с окном подсказки, которое будет считаться общим. Строка Record Selector позволяет определить условие для выделения части данных,которые должны быть обработаны при выполнения процедуры. Далее следует строка Record Filter (Фильтр записей), в которой определяются пара­метры отбора данных для вывода в таблицу. Имена "горячих" процедур и клавиши для их вызова определяются в строках Hot Procedure ("Го­рячая" процедура) и Hot Key ("Горячий" ключ). Строки Combine With (С чем объединить) и Model Procedure (Имя модельного файла) опреде­ляются по тем же правилам, что и в процедуре Menu.

Типы полей процедуры Table разделены на две группы. В первую

группу Fixed Portion (Фиксированная часть) входят поля Field for Entry (Поле ввода), Field for Display (Поле вывода), Lookup Field (Связанное поле), Computed Field (Вычисляемое поле), Conditional Field (Поле условия), Total Field (Поле итогов) и Locator Field (Поле поиска). Во вторую группу Scrolling Portion (Скролинговая часть) - Scrolling Field for Display (Поле вывода для скролинга), Scrolling Computed Field (Вычисляемое скролинговое поле), Scrolling Conditional Field (Поле условия для скролинга) и Scrolling Lookup Field (Связанное скролинговое поле).

Field for Enrty (Поле для ввода) требует от пользователя ввода данных. Locator Field (Поле поиска) позволяет пользователю автома­тически установить курсор на определенную запись в области скролинга таблицы.

Field for Display (Поле вывода) дает возможность вы­вести на экран данные из файла, для которого определен ключевой признак в окне Table, или из другого файла, если его данные нахо­дятся в памяти.

Computed Field (Вычисляемое поле) позволяет произ­водить вычисления над данными из файла, ключевой признак которого определен в окне Table или находится в памяти компьютера.

Lookup Field (Связанное поле) позволяет поданным активного файла получить данные из других файлов, т.е связать данные из двух или более фай­лов.

Conditional Field (Логическое поле) служит для организации про­верки некоторого логического условия, в зависимости от которого бу­дет выполнено одно из двух присвоений этому полю.

Total Field (Поле итогов) формирует и выводит на экран итог по сформированной табли­це. Далее следуют поля для скролинга, которые будут представлять собой таблицу.

Scrolling Field for Display (Поле для вывода для скролинга) дает возможность вывести в окно процедуры Table все за­писи из файла, для которого в окне Table определен ключевой приз­нак.

Scrolling Computed Field (Вычисляемое скролинговое поле), поз-воляет производить вычисления над данными для всех записей, которые выведены в таблицу и над данными файлов находящихся в памяти компь­ютера.

Scrolling Lookup Field (Связанное скролинговое поле) дает возможность вывести данные из неактивных файлов, связав их по дан­ным файла, ключевой признак которого определен в окне Table. Scrolling Conditional Field (Логическое скролинговое поле) позволит принять решение о присвоении одного из значений этому полю в зави­симости от выполнения некоторого логического условия.


Проектирование процедуры Form.


Для создания процедуры Form необходимо выбрать в окне Select Type строку Form (Форма).

В сроке Procedure name (Имя процедуры) следует определить имя разрабатываемой процедуры, если это новая процедура .

В следующей строке Procedure Title (Заголовок процедуры) можно определить заголовок для этой процедуры .

В строке Filename (Имя файла) нужно ввести имя файла, который будет обновляться, используя разрабатываемую процедуру Form.

Далее в строке Secondary File можно определить имена файлов с данными, которые могут также обновляться во время работы процедуры

Form. Строки Help ID (Идентификация помощи), Hot Procedure ("Горя­чая" процедура), Hot Key ("Горячий" ключ), Combine With (С чем объ­единить) и Model Procedure (Имя модельного файла) заполняются по тем же правилам, что и для других типов процедур.

В процедуре Form можно определить поля шести типов: Field For

Entry (Поле для ввода), Pause (Пауза), Field For Display (Поле вы-

вода), Computed (Вычисляемое поле), Lookup (Связанное поле) и Conditional (Логическое поле).

Field For Entry (Поле для ввода) - требует от пользователя ввода данных.

Pause (Поле для ввода) - это поле используется для выдачи на экран сообщения-паузы, когда пользователь завершает заполнение фор­мы.

Field For Display (Поле для вывода) дает возможность вывести на экран данные из файла, который был определен в окне Form в стро­ке Filename, или из другого файла, данные из которого находятся в памяти.

Computed (Вычисляемое поле) позволяет производить вычисления над данными из активного файла или любого другого, текущего в памя­ти, и выводить эти вычисления на экран.

Lookup (Связанное поле) позволяет вывести на экран данные из файла, отличного от того, который был определен в строке Filename окна Form.

Conditional (Логическое поле) дает возможность присвоить этому

полю, в зависимости от выполнения некоторого логического условия, одно из двух значений, которое может быть или переменной, или конс­тантой, или значением другого поля.


Проектирование процедуры Report .


Процесс проектирования процедуры Report начинается с выбора ее типа. Далее в строке Procedure Name (Имя процедуры) определяется имя процедуры. Краткий комментарий (заголовок) к этой процедуре можно дать в строке Procedure Title (Заголовок процедуры).

Перед выполнением процедуры типа Report, можно определить вы­полнение любой другой процедуры. Имя этой процедуры задается в строке Setup Procedure (Процедура настройки) .

Принципы проектирования процедуры типа Report похожи на прин­ципы проектирования процедуры Table. Только данные здесь будут вы­водится не на экран, а на печатающее устройство. Для получения дос­тупа к данным, которые будут упорядочены в определенном порядке, необходимо выбрать в строке Access Key (Ключ доступа) имя ключевого файла. Подобно опциям процедуры Table, далее следуют две строки, в которых задается ограничение обрабатываемых процедурой записей. В первой из них (Record Selector) определяется условие для выделения части данных, которые должны быть обработаны при выполнении проце­дуры. Во второй Record Filter (Фильтр записей) - определяется логи­ческое условие для выбора данных.

В строке Page Length (Длина страницы) определяется общее коли­чество строк, которое необходимо разместить на одной странице от­чета.

В строке Report Device представляется возможность определить устройство, на которое будет выводится отчет.

Значения в строках Combine With (С чем объединить) и Model Procedure (Имя модели) определяются обычным образом.

При проектировании процедуры Report можно определить семь типов полей:

Field (Поле) служит для вывода на печать данных из файла, те­кущего в памяти;

Computed (Вычисляемое поле) предназначено для печати результа­тов вычислений или выполнения некоторых функций языка CLARION; Lookup (Связанное поле) позволяет распечатать данные из других файлов, отличного от файла, текущего в памяти;

Break (Поле прерывания) служит для печати данных активного файла, но оно выступают уже в качестве признаков, разделяющих дан­ные на группы;

Control (Поле управляющих последовательностей) позволяет посы­лать на принтер управляющие последовательности;

Total (Поле итогов) предназначено для печати одного из трех типов итогов: суммы по столбцу, числа записей группы и среднего значения;

Conditional (Логическое поле) принимает одно из двух значений в зависимости от выполнения некоторого логического условия.


Проектирование процедуры Other .


Если выбран тип процедуры Other (Другая) в окне Selekt Type, то на экране появляется окно Other.

В строке Procedure name (Имя процедуры) необходимо определить имя, если это новая процедура, если процедура объявлена как ToDo в ок­не Application, то в строку выводится имя этой процедуры.

Процедура, имя которой было определено выше, содержится в некото­ром файле, носящем название модуль. В одном модуле может содержаться несколько процедур. Имя модуля (файла), которое должно соответствовать требованиям DOS, необходимо определить в строке Module Name (Имя моду­ля).

В следующей строке определяется тип модуля. Если Other процедура является модулем, написанным на языке CLARION, то в строке Binary (Двоичный) следует выбрать No. Внешние процедуры могут быть написаны и на другом языке программирования. Но к прикладной программе подсоеди­няется не исходный текст на другом языке, а откомпилированный объект­ный код с этого языка. Такой модуль уже является двоичным и в строке Binary необходимо выбрать Yes.

Если процедура Other возвращает некоторые значения в программу, то надо выбрать Yes в строке Return Values (Возвращаемые значения). При этом следующая строка будет пропущена. Если же выбрано Yes в стро­ке Return Values, то необходимо определить в строке Data Type тип дан­ных возвращаемых значений. Тип данных выбирается среди трех значений : Long, Real и String.

На этом завершается описание процедуры Other и вообще, всех воз­можных типов процедур. Описав все процедуры, входящие в состав струк­турной схемы программы, и спроектировав обрабатываемые даннные, завер­шается работа по созданию программы. Все остальное берет на себя De­signer.


4.5 Копирование описаний файлов.


Прежде всего необходимо определить, откуда будет копироваться описание файла. Файл данных может быть скопирован как из текущего опи­сания прикладной задачи, так и из любого другого или непосредственно из одного из уже существующих файлов данных. В первом случае необходи­мо в строке Get From выбрать Application, а во втором - Data File.

В строку Application (Прикладная задача) нужно ввести имя проекта прикладной задачи (файл с расширением .APP). После этого в строке Filename (Имя файла) нужно определить имя файла данных, описание которого надо скопировать. Если неоходимо прис­воить копируемому файлу новое имя, то оно должно быть определено в строке New filename (Новое имя файла).


4.6 Создание исходного кода программы и компиляция программы.


После проектирования прикладной программы, описания файлов баз данных, структуры программы и составляющих ее процедур необходимо соз­дать исходной код прикладной программы.

Чтобы откомпилировать исходный текст программы , сгенерированный утилитой Designer, необходимо вызвать утилиту Compiler.

Если компиляция прошла без ошибок, то можно выполнить программу , для чего следует вызвать утилиту Processor.


Экранные формы утилиты Designer представлены на следующем листе.


5. ОПИСАНИЕ ПРОГРАММНОГО ПРОДУКТА. АЛГОРИТМ.


Способ разработки. Листинг.

Программа, написанная нами на языке Clarion состоит из несколь­ких взаимосвязанных частей. В первую очередь необходимо выделить часть, написанную с помощью утилиты Designer, входящей в состав па­кета Clarion и часть программы созданную вне утилиты Designer, про­цедуры которой определены как Other. О способе разработки этих прог­рамм будет сказано ниже.

Утилита Designer описана выше и с помощью нее была создана программа, отвечающая за вывод на экран монитора следующих меню:

I

1. Аналитические таблицы.

2. Списки по запросу.

II

1. Общие.

2. Сводные таблицы по регионам.

3. Сводные таблицы по инспекциям.

III Аналитические таблицы.

1. Сведения об изменении отдельных показателей деятельностиСО.

2. Анализ показателей развития страховых организаций.

3. Объем поступлений и выплат на одного работника СО.

Эта процедура не выполняла никакой обработки информации, хотя Desig­ner позволяет не только определенным образом выводить данные на эк­ран или принтер, но и обрабатывать их. Однако довольно часто возникает необходимость разработать прог­рамму, которая бы обрабатывала данные определенным образом, но это оказывается невозможно сделать с помощью утилиты Designer. В таком случае прибегают к процедуре Other. Это сходный с работой на многих языках программирования процесс в котором используются операторы языка Clarion. Основные части программы отражены в алгоритме и их можно выде­лить следующим образом:

- начало

- объявление и описание группы массивов

- начальная обработка и сортировка данных из базы

- заполнение массивов

- сохранение в специально созданном файле значений

из массивов

- формирование необходимых таблиц

- заполнение таблиц из определенных файлов

- печать таблицы

- конец.

Текст алгоритма разработанной программы приведен в приложении. На первый взгляд программа должна быть простой, однако это впечатление обманчиво, так как программе приходится работать с несколь­кими десятками полей и это нужно должным образом отразить в програм­ме.

Далее кратко будет рассмотрен процесс проектирования пограммы с помощью утилиты Designer. Программа, написанная в Designer не слишком сложная, однако она является хорошим примером работы Clarion-Desig­ner.

Процесс создания любой программы начинается с идеи автоматиза­ции некоторых действий. Нашей задачей являлась автоматизация поиска, обработки и вывода информации по некоторым показателям деятельности страховых организаций.

Начинать следует с проектирования данных. Файлы данных, исполь­зуемые в нашей программе следующие:

- MEMORY файл памяти

- T17 финансовые результаты

- T67 пассив баланса

- DF движение финансовых средств

- SVV статистический отчет

- F92 финансовые результаты

- LIC атрибуты компаний

- XREG регионы

- INSP инспекции

- TERR соотвествие регионов территории

- F рабочий файл

- GOR города

Структуру этих файлов и структуру программы смотри на следующих листах.

Все описания файлов, кроме файла F были скопированы из предыду­щих разработок, в частности из программы LIC. Таким образом было сэ­кономлено много времени на процессе описания необходимых полей.

Для примера укажем поля файла F спроектированного специально для этой задачи:

NKUST (Short)

NREGION (Short)

NGOR (Short)

F1 (Real)

.........

F16 (Real).

Следующим шагом при проектировании данных является определение ключевых признаков. Ключевые признаки предназначены для упорядочива­ния записей, а также для осуществления быстрого доступа к данным. В нашей программе (в файле F) в качестве ключевых выступают поля NKUST, NREGION, NGOR для поиска данных по инспекциям, регионам, городам соответственно. Ключевые признаки, соответственно: K1,K2,K3. Ключи созданы для упорядочивания определенных записей: по инспекци­ям, по регионам, по городам.

Проектирование данных можно считать законченным, однако в про­цессе обработки данных могут понадобиться дополнительные информаци­онные массивы и поля памяти в файле MEMORY. Эти решения, как прави­ло, принимаются во время проектирования процедур обработки данных, хотя возможно и предусмотреть эти проблемы заранее.

Следующий этап - этап проектирования прoцедур. В начале необхо­димо решить, какие операции будут выполняться с данными. В начале организуются меню, описанные выше, а затем производится обработка и выдача данных запрограммированная с помощью процедуры Editor. Струк­турная схема программы представлена на плакате.

После завершения процесса проектирования данных и процедур их обработки необходимо в Designer заполнить окно The CLARION Designer. После этого на экране появится главное окно разработки - Applicati­on. Затем необходимо определить файлы баз данных, а также поля и ключевые признаки. Большинство позиций в окнах диалога будут прини­мать те значения, которые автоматически подставляет Designer.

Следующий шаг - проектирование экранных форм (внешний вид меню,отчета и проч.) В этом нам помогут соответствующие диалоговые окна. Если необходимо, можно перейти к проектированию следующей процедуры и т.д. После окончания оформления экранной формы, описания поля и проч. необходимо сохранить эти описания, нажав клавиши Ctrl и Enter.


Завершив процесс разработки, оформления, сохранив описание процедур, вернемся в главное окно разработки, которое теперь будет иметь следующий вид (см. рис.). На экране не осталось ни одной проце­дуры без определенного типа. Поэтому проектирование программы можно считать полностью завершенным. Теперь необходимо сохранить описание разработки и нажать клавиши Shift и F7. После запроса о создании ис­ходного текста, Designer приступит к генерации исходного текста программ, их компиляции и, в случае отсутствия ошибок, к ее выполне­нию под управлением программы crun. Если результат работы удовлетво­ряет, то можно переходить к процессу создания выполнимого кода, для чего необходимо вызвать программу ctrn, выбрав позицию Translator в главном меню пакета Clarion.

Приведеные в приложении листинги представляют собой программы созданные с помощью утилиты Designer (приложение 1 ) и Editor (приложение 2 ). Результат выполнения этих программ ­таблица "Сведения об изменении отдельных показателей деяельности страховых организаций" приведена ниже.


Работа с программой.

Работа с программой представляет собой работу с системой меню, которые появляются по мере необходимости. Систему меню обеспечивает программа написанная в Designer. Обработку данных обеспечивает программа, написанная на Clarion.

Для начала работы с программой вызывается файл antbst.ехе, который начинает работу. При этом выдается на экран начальное основное меню для выбора

необходимого вида работы

(см.рис.1). Далее выбрав

“Аналитические таблицы” или

“Списки по запросу” про-

изводится выбор необходимого

вида таблиц или списков. Выбор

таблиц производится по обобща-

ющим признакам: полный список рис.1


рис.2


компаний, принадлежность к определенному региону, принадлежность к определенному городу или инспекции (см.рис.2). В зависимости от выбранного типа будет происходить обращение к соответствующим файлам данных. Выбрав необходимый параметр поиска, выбирается тип результата, который необходимо получить. Это будут следующие сведения: “Анализ показателей

развития страховых обществ”, “Сведения об изменении отдельных показателей деятельности страховых обществ”, “Объем поступлений и выплат на одного работника компании”.Как только будет выбран параметр поиска, последует обращение к файлу F для получения необходимых данных для последующей обработки и заполнения таблицы. Как уже говорилось ранее, основной целью разработки являлась не только выборка данных по определенным признакам, но и их обработка. На примере таблицы “Сведения об изменении отдельных показателей деятельности страховых обществ” рассмотрим заполнение таблицы.

Данные добавляются в специально созданный текстовой файл YU, которым и является таблица. Строками таблицы являются:

- название выбранного региона, в этой строке суммируются все показатели по данному региону в соответствии со столбцами;

- следующими строками следуют названия городов, соответствующих этому региону, по которым суммируются все показатели страховых обществ, расположенных в данных городах в соответствии со столбцами;

- далее идут названия страховых компаний, по которым выдается информация, по каждой компании отдельно, в соответствии со столбцами.

Столбцами (показателями) являются:

- наименование страховой организации;

- размер уставного капитала по годам (1994,1995)

- изменение размера уставного капитала (в сумме и в %% по отношению к 1994 г. в “+” или “-”);

- размер страховых резервов по годам (1994, 1995)

- изменение размера страховых резервов ( в сумме и в %% по отношению к 1994 г. в “+” или “-”);

- объем страховых взносов по годам (1994, 1995);

- изменение объема страховых взносов (в сумме и в %% по отношению к 1994 г. в “+” или “-”);

- объем страховых выплат по годам (1994, 1995);

- изменение объема страховых выплат (в сумме и в %% по отношению к 1994 г. в “+” или “-”);

Таким же образом заполняются и остальные таблицы, но с другими столбцами - показателями.

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Olya02:44:48 27 августа 2019
.
.02:44:47 27 августа 2019
.
.02:44:47 27 августа 2019
.
.02:44:46 27 августа 2019
.
.02:44:45 27 августа 2019

Смотреть все комментарии (12)
Работы, похожие на Реферат: База данных страховой компании

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

Да, в любом случае.
Да, но только в случае крайней необходимости.
Возможно, в зависимости от цены.
Нет, напишу его сам.
Нет, забью.



Результаты(258326)
Комментарии (3467)
Copyright © 2005-2020 BestReferat.ru support@bestreferat.ru реклама на сайте

Рейтинг@Mail.ru