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


Полнотекстовый поиск по базе:

Главная >> Реферат >> Страхование


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




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


Overview

Sheet1
Sheet2


Sheet 1: Sheet1

6.2 Ôèíàíñîâûå äàííûå áàëàíñà


1993 1994 1995 1996 1997
Äîõîä (òûñ.ðóá)
Îò ýìèòåíòîâ
50000 102000 195000 487500 878906

Îò àêöèîíåðîâ 2500 3198 3656 3656 2637

Îò äðóãèõ 0 0 0 0 0

Âñåãî 52500 105188 491156 491156 881543






Ðàñõîä (òûñ.ðóá) Çàðàáîòíàÿ ïëàòà 30000 39000 51000 89100

Ïîìåùåíèÿ 10000 30000 40000 60000 127875

Îáîðóäîâàíèå 5000 3909 7727 12273 90000

Íàëîãè 3000 3900 5100 8910 14091

Äðóãîå 2000 4007 7568 18711 12788

Âñåãî 50000 82816 111395 188993 33583






Ïðèáûëü (òûñ.ðóá) 2500 22371 87261 302163 603207

Sheet 2: Sheet2

6.3 Êðèòåðèè ýôôåêòèâíîñòè ôóíêöèîíèðîâàíèÿ








1993 1994 1995 1996 1997
Ôèíàíñîâûå Äîõîä íà 1 5250000 6187500 7640625 9445313 10753906
ïîêàçàòåëè ýìèòåíòà




ýôôåêòèâíîñòè





Äîõîä íà 1 5833 7563 9551 11514 14940

îïåðàöèþ





Äîõîä íà 1 955 1238 1528 1802 2290

àêöèîíåðà





Ðàñõîä íà 1 5000000 4871543 4284428 3634489 3711147

ýìèòåíòà





Ðàñõîä íà 1 5556 5954 5356 4430 4717

îïåðàöèþ





Äîëÿ ïðèáûëè 5% 21% 44% 62% 68%






Ðàáî÷èå Ýìèòåíòîâ íà 1 0,91 1,31 1,53 1,93 2,42
(îïåðàöèîííûå) ñëóæàùåãî




ïîêàçàòåëè





Àêöèîíåðîâ íà 1 5000 6538 7647 10093 12419

ñëóæàùåãî

Îïåðàöèé íà 1 12 11 12 13 16

îïåðàòîðà íà 1





äåíü





Îïåðàöèé íà 1 0,34 0,16 0,16 0,16 0,15

àêöèîíåðà

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 ã. â “+” èëè “-”);

Òàêèì æå îáðàçîì çàïîëíÿþòñÿ è îñòàëüíûå òàáëèöû, íî ñ äðóãèìè ñòîëáöàìè - ïîêàçàòåëÿìè.

Похожие работы: