База данных страховой компании (работа 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
Sheet1Sheet2
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 è âîîáùå, âñåõ âîçìîæíûõ òèïîâ ïðîöåäóð. Îïèñàâ âñå ïðîöåäóðû, âõîäÿùèå â ñîñòàâ ñòðóêòóðíîé ñõåìû ïðîãðàììû, è ñïðîåêòèðîâàâ îáðàáàòûâàåìûå äàíííûå, çàâåðøàåòñÿ ðàáîòà ïî ñîçäàíèþ ïðîãðàììû. Âñå îñòàëüíîå áåðåò íà ñåáÿ Designer.
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. Îáúåì ïîñòóïëåíèé è âûïëàò íà îäíîãî ðàáîòíèêà ÑÎ.
Ýòà ïðîöåäóðà íå âûïîëíÿëà íèêàêîé îáðàáîòêè èíôîðìàöèè, õîòÿ Designer ïîçâîëÿåò íå òîëüêî îïðåäåëåííûì îáðàçîì âûâîäèòü äàííûå íà ýêðàí èëè ïðèíòåð, íî è îáðàáàòûâàòü èõ. Îäíàêî äîâîëüíî ÷àñòî âîçíèêàåò íåîáõîäèìîñòü ðàçðàáîòàòü ïðîãðàììó, êîòîðàÿ áû îáðàáàòûâàëà äàííûå îïðåäåëåííûì îáðàçîì, íî ýòî îêàçûâàåòñÿ íåâîçìîæíî ñäåëàòü ñ ïîìîùüþ óòèëèòû Designer.  òàêîì ñëó÷àå ïðèáåãàþò ê ïðîöåäóðå Other. Ýòî ñõîäíûé ñ ðàáîòîé íà ìíîãèõ ÿçûêàõ ïðîãðàììèðîâàíèÿ ïðîöåññ â êîòîðîì èñïîëüçóþòñÿ îïåðàòîðû ÿçûêà Clarion. Îñíîâíûå ÷àñòè ïðîãðàììû îòðàæåíû â àëãîðèòìå è èõ ìîæíî âûäåëèòü ñëåäóþùèì îáðàçîì:
- íà÷àëî
- îáúÿâëåíèå è îïèñàíèå ãðóïïû ìàññèâîâ
- íà÷àëüíàÿ îáðàáîòêà è ñîðòèðîâêà äàííûõ èç áàçû
- çàïîëíåíèå ìàññèâîâ
- ñîõðàíåíèå â ñïåöèàëüíî ñîçäàííîì ôàéëå çíà÷åíèé
èç ìàññèâîâ
- ôîðìèðîâàíèå íåîáõîäèìûõ òàáëèö
- çàïîëíåíèå òàáëèö èç îïðåäåëåííûõ ôàéëîâ
- ïå÷àòü òàáëèöû
- êîíåö.
Òåêñò àëãîðèòìà ðàçðàáîòàííîé ïðîãðàììû ïðèâåäåí â ïðèëîæåíèè. Íà ïåðâûé âçãëÿä ïðîãðàììà äîëæíà áûòü ïðîñòîé, îäíàêî ýòî âïå÷àòëåíèå îáìàí÷èâî, òàê êàê ïðîãðàììå ïðèõîäèòñÿ ðàáîòàòü ñ íåñêîëüêèìè äåñÿòêàìè ïîëåé è ýòî íóæíî äîëæíûì îáðàçîì îòðàçèòü â ïðîãðàììå.
Äàëåå êðàòêî áóäåò ðàññìîòðåí ïðîöåññ ïðîåêòèðîâàíèÿ ïîãðàììû ñ ïîìîùüþ óòèëèòû Designer. Ïðîãðàììà, íàïèñàííàÿ â Designer íå ñëèøêîì ñëîæíàÿ, îäíàêî îíà ÿâëÿåòñÿ õîðîøèì ïðèìåðîì ðàáîòû Clarion-Designer.
Ïðîöåññ ñîçäàíèÿ ëþáîé ïðîãðàììû íà÷èíàåòñÿ ñ èäåè àâòîìàòèçàöèè íåêîòîðûõ äåéñòâèé. Íàøåé çàäà÷åé ÿâëÿëàñü àâòîìàòèçàöèÿ ïîèñêà, îáðàáîòêè è âûâîäà èíôîðìàöèè ïî íåêîòîðûì ïîêàçàòåëÿì äåÿòåëüíîñòè ñòðàõîâûõ îðãàíèçàöèé.
Íà÷èíàòü ñëåäóåò ñ ïðîåêòèðîâàíèÿ äàííûõ. Ôàéëû äàííûõ, èñïîëüçóåìûå â íàøåé ïðîãðàììå ñëåäóþùèå:
- 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. Ïîñëå ýòîãî íà ýêðàíå ïîÿâèòñÿ ãëàâíîå îêíî ðàçðàáîòêè - Application. Çàòåì íåîáõîäèìî îïðåäåëèòü ôàéëû áàç äàííûõ, à òàêæå ïîëÿ è êëþ÷åâûå ïðèçíàêè. Áîëüøèíñòâî ïîçèöèé â îêíàõ äèàëîãà áóäóò ïðèíèìàòü òå çíà÷åíèÿ, êîòîðûå àâòîìàòè÷åñêè ïîäñòàâëÿåò 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 ã. â “+” èëè “-”);
Òàêèì æå îáðàçîì çàïîëíÿþòñÿ è îñòàëüíûå òàáëèöû, íî ñ äðóãèìè ñòîëáöàìè - ïîêàçàòåëÿìè.