ANT PROGRAM
INCLUDE('STDKEYS.CLA')
INCLUDE('CTLKEYS.CLA')
INCLUDE('ALTKEYS.CLA')
INCLUDE('SHFKEYS.CLA')
REJECTKEY EQUATE(CTRLESC)
ACCEPTKEY EQUATE(CTRLENTER)
TRUE EQUATE(1)
FALSE EQUATE(0)
MAP
PROC(GOPENFILES)
PROC(GOPENFILES2)
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:LICENSVV'),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:LICENF92'),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:LICENGOR'),PRE(GOR)
CGOR KEY(GOR:GOROD),DUP,NOCASE,OPT
RECORD RECORD
KG LONG
NREGION LONG
GOROD STRING(25)
. .
INSP FILE,NAME('D:LICENINSP'),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:LICENTERR'),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
GOPENFILES !OPEN OR CREATE FILES
SETHUE() ! THE SCREEN
GBO
RETURN !EXIT TO DOS
GOPENFILES PROCEDURE !OPEN FILES & CHECK FOR ERROR
CODE
GOPENFILES2(T17) !CALL OPEN FILE PROCEDURE
GOPENFILES2(T67) !CALL OPEN FILE PROCEDURE
GOPENFILES2(DF) !CALL OPEN FILE PROCEDURE
GOPENFILES2(SVV) !CALL OPEN FILE PROCEDURE
GOPENFILES2(F92) !CALL OPEN FILE PROCEDURE
GOPENFILES2(LIC) !CALL OPEN FILE PROCEDURE
GOPENFILES2(XREG) !CALL OPEN FILE PROCEDURE
GOPENFILES2(GOR) !CALL OPEN FILE PROCEDURE
GOPENFILES2(INSP) !CALL OPEN FILE PROCEDURE
GOPENFILES2(TERR) !CALL OPEN FILE PROCEDURE
GOPENFILES2(F) !CALL OPEN FILE PROCEDURE
BLANK !BLANK THE SCREEN
GOPENFILES2 PROCEDURE(GFILE) !OPEN EACH FILE & CHECK ERROR
GFILE EXTERNAL,FILE
FILENAME STRING(64)
CODE
FILENAME = NAME(GFILE)
SHOW(25,1,CENTER('OPENING FILE: ' & CLIP(FILENAME),80)) !DISPLAY FILE NAME
OPEN(GFILE) !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(FILENAME),80))
BUILD(GFILE) ! CALL THE BUILD PROCEDURE
IF ERROR() ! ON UNNEXPECTED ERROR
LOOP ! STOP EXECUTION
STOP('Cannot Build ' & FILENAME & ' - Error: ' & ERROR())
.
.
SETHUE(7,0) ! WHITE ON BLACK
BLANK(25,1,1,80) ! BLANK THE MESSAGE
OF 2 !IF NOT FOUND,
CREATE(GFILE) ! CREATE
IF ERROR() !STOP ON UNNEXPECTED ERROR
LOOP
STOP('Cannot Create ' & FILENAME & ' - Error: ' & ERROR())
. .
OF 73 ! MEMO FILE NOT FOUND
LOOP ! STOP EXECUTION
STOP('Cannot Open Memo File for ' & FILENAME & ERROR())
.
ELSE ! ANY OTHER ERROR
LOOP ! STOP EXECUTION
STOP('Cannot Open ' & FILENAME & ' - 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('') .
ROW(12,1) STRING('+-71+')
ROW(2,24) STRING('аналитическиетаблицы') ROW(11,30)
STRING('начальнаясортировка')
COL(25) STRING('F2 -')
ENTRY,USE(FIRSTFIELD)
ENTRY,USE(PREMENU)
MENU,USE(MENUFIELD"),REQ
ROW(4,5) STRING('1. ведения об изменении отдельных ' |
& 'показателей деятельности ')
ROW(5,5) STRING('2. анализ показателей развития ' |
& 'страховых организаций')
ROW(6,5) STRING('3. объем поступлений
и выплат на 1 ' |
& 'работника страховой организации')
. .
EJECT
CODE
OPEN(SCREEN) !OPEN THE MENU SCREEN
SETCURSOR !TURN OFF ANY CURSOR
MENUFIELD" = '' !START MENU WITH FIRST ITEM
LOOP !LOOP UNTIL USER EXITS
ALERT !TURN OFF ALL ALERTED KEYS
ALERT(REJECTKEY) !ALERT SCREEN REJECT KEY
ALERT(ACCEPTKEY) !ALERT SCREEN ACCEPT KEY
ALERT(F2KEY) !ALERT HOT KEY
ACCEPT !READ A FIELD OR MENU CHOICE
IF KEYCODE() = F2KEY !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() = REJECTKEY THEN RETURN. !RETURN ON SCREEN REJECT
IF KEYCODE() = ACCEPTKEY !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 FIRSTFIELD !FROM THE FIRST FIELD
IF KEYCODE() = ESCKEY THEN RETURN. ! RETURN ON ESC KEY
OF PREMENU !PRE MENU FIELD CONDITION
IF KEYCODE() = ESCKEY ! BACKING UPSELECT(-1) ! SELECT PREVIOUS FIELD
ELSE ! GOING FORWARD
SELECT(+1) ! SELECT MENU FIELD
.
OF MENUFIELD" !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(FIRSTFIELD)
ROW(1,1) ENTRY,USE(MEM:NR)
NR COL(1) STRING(@n3),HUE(7,7)
ENTRY,USE(LASTFIELD)
.
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(ACCEPTKEY) !ALERT SCREEN ACCEPT KEY
ALERT(REJECTKEY) !ALERT SCREEN REJECT KEY
ACCEPT !READ A FIELD
IF KEYCODE() = REJECTKEY THEN RETURN. !RETURN ON SCREEN REJECT KEY
IF KEYCODE() = ACCEPTKEY !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 FIRSTFIELD !FROM THE FIRST FIELD
IF KEYCODE() = ESCKEY 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 LASTFIELD !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('') .
ROW(4,1) STRING('')
ROW(5,1) REPEAT(20);STRING('') .
ROW(25,1) STRING('+-37+')
ROW(2,12) STRING('выберитерегион') ROW(4,39) STRING('')
ENTRY,USE(FIRSTFIELD)
ENTRY,USE(PREPOINT) 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 FINDRECORD ! POSITION FILE
ELSE
NDX = 1 ! PUT SELECTOR BAR ON TOP ITEM
DO FIRSTPAGE ! 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(REJECTKEY) !ALERT SCREEN REJECT KEY
ALERT(ACCEPTKEY) !ALERT SCREEN ACCEPT KEY
ACCEPT !READ A FIELD
IF KEYCODE() = REJECTKEY THEN BREAK. !RETURN ON SCREEN REJECT KEY
IF KEYCODE() = ACCEPTKEY | !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 FIRSTFIELD !FROM THE FIRST FIELD
IF KEYCODE() = ESCKEY | ! RETURN ON ESC KEY
OR RECORDS# = FALSEб ! OR NO RECORDS
BREAK !EXIT PROCEDURE
.
OF PREPOINT!PRE POINT FIELD CONDITION
IF KEYCODE() = ESCKEY! BACKING UPSELECT(-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 FIRSTPAGE ! DISPLAY THE FIRST PAGE
IF RECORDS(TABLE) = 0 ! IF THERE AREN'T ANY RECORDS
RECORDS# = FALSE !INDICATE NO RECORDS
SELECT(PREPOINT-1) !SELECT THE PRIOR FIELD
.
CYCLE !AND LOOP AGAIN
.
CASE KEYCODE() !PROCESS THE KEYSTROKE
OF INSKEY !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 FINDRECORD !POSITION IN FILE
.
OF ENTERKEY !ENTER KEY
OROF ACCEPTKEY !CTRL-ENTER KEY
DO GETRECORD ! GET THE SELECTED RECORD
IF ACTION = 4 AND KEYCODE() = ENTERKEY !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 FINDRECORD !POSITION IN FILE
OF DELKEY !DEL KEY
DO GETRECORD ! 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 SAMEPAGE ! RE-DISPLAY
NDX = N# ! RESTORE POINT INDEX
. .
OF DOWNKEY !DOWN ARROW KEY
DO SETNEXT ! POINT TO NEXT RECORD
DO FILLNEXT ! FILL A TABLE ENTRY
IF FOUND ! FOUND A NEW RECORD
SCROLL(ROW,COL,ROW
S,COLS,ROWS(POINT)) ! SCROLL THE SCREEN UP
GET(TABLE,RECORDS(TABLE)) ! GET RECORD FROM TABLE
DO FILLSCREEN ! DISPLAY ON SCREEN
.
OF PGDNKEY !PAGE DOWN KEY
DO SETNEXT ! POINT TO NEXT RECORD
DO NEXTPAGE ! DISPLAY THE NEXT PAGE
OF CTRLPGDN !CTRL-PAGE DOWN KEY
DO LASTPAGE ! DISPLAY THE LAST PAGE
NDX = RECORDS(TABLE) ! POSITION POINT BAR
OF UPKEY !UP ARROW KEY
DO SETPREV ! POINT TO PREVIOUS RECORD
DO FILLPREV ! 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 FILLSCREEN ! DISPLAY ON SCREEN
.
OF PGUPKEY !PAGE UP KEY
DO SETPREV ! POINT TO PREVIOUS RECORD
DO PREVPAGE ! DISPLAY THE PREVIOUS PAGE
OF CTRLPGUP !CTRL-PAGE UP
DO FIRSTPAGE ! DISPLAY THE FIRST PAGE
NDX = 1 ! POSITION POINT BAR
. . .
FREE(TABLE) !FREE MEMORY TABLE
FREE(XRE:K) !FREE CACHE
RETURN !AND RETURN TO CALLER
SAMEPAGE ROUTINE !DISPLAY THE SAME PAGE
GET(TABLE,1) ! GET THE FIRST TABLE ENTRY
DO FILLRECORD ! FILL IN THE RECORD
SET(XRE:K,XRE:K,TBL:PTR) ! POSITION FILE
FREE(TABLE) ! EMPTY THE TABLE
DO NEXTPAGE ! DISPLAY A FULL PAGE
FIRSTPAGE 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 FILLNEXT ! FILL A TABLE ENTRY
IF NOT FOUND THEN BREAK. ! GET OUT IF NO RECORD
.
NDX = 1 ! SET TO TOP OF TABLE
DO SHOWPAGE ! DISPLAY THE PAGE
LASTPAGE 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 FILLPREV ! FILL A TABLE ENTRY
IF NOT FOUND THEN BREAK. ! GET OUT IF NO RECORD
. ! END OF LOOP
NDX = NDX# ! RESTORE SELECTOR POSITION
DO SHOWPAGE ! DISPLAY THE PAGE
FINDRECORD 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 NEXTPAGE ! DISPLAY A PAGE
NEXTPAGE ROUTINE !DISPLAY NEXT PAGE
SAVECNT# = RECORDS(TABLE) ! SAVE RECORD COUNT
LOOP COUNT TIMES ! FILL UP THE TABLE
DO FILLNEXT ! FILL A TABLE ENTRY
IF NOT FOUND ! IF NONE ARE LEFT
IF NOT SAVECNT# ! IF REBUILDING TABLE
DO LASTPAGE ! FILL IN RECORDS
EXIT ! EXIT OUT OF ROUTINE
.
BREAK ! EXIT LOOP
. .
DO SHOWPAGE ! DISPLAY THE PAGE
SETNEXT ROUTINE !POINT TO THE NEXT PAGE
GET(TABLE,RECORDS(TABLE)) ! GET THE LAST TABLE ENTRY
DO FILLRECORD ! FILL IN THE RECORD
SET(XRE:K,XRE:K,TBL:PTR) ! POSITION FILE
NEXT(XREG) ! READ THE CURRENT RECORD
FILLNEXT 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 FILLTABLE ! 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
.
PREVPAGE ROUTINE !DISPLAY PREVIOUS PAGE
LOOP COUNT TIMES ! FILL UP THE TABLE
DO FILLPREV ! FILL A TABLE ENTRY
IF NOT FOUND THEN BREAK. ! GET OUT IF NO RECORD
.
DO SHOWPAGE ! DISPLAY THE PAGE
SETPREV ROUTINE !POINT TO PREVIOUS PAGE
GET(TABLE,1) ! GET THE FIRST TABLE ENTRY
DO FILLRECORD ! FILL IN THE RECORD
SET(XRE:K,XRE:K,TBL:PTR) ! POSITION FILE
PREVIOUS(XREG) ! READ THE CURRENT RECORD
FILLPREV 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 FILLTABLE ! 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
.
SHOWPAGE 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 FILLSCREEN 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
FILLTABLE ROUTINE !MOVE FILE TO TABLE
TBL:IREG = XRE:IREG
TBL:NREG = XRE:NREG
TBL:PTR = POINTER(XREG) ! SAVE RECORD POINTER
FILLRECORD ROUTINE !MOVE TABLE TO FILE
XRE:NREG = TBL:NREG
FILLSCREEN ROUTINE !MOVE TABLE TO SCREEN
SCR:IREG = TBL:IREG
GETRECORD 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('') .
ROW(6,1) STRING('+-23+')
ROW(2,7) STRING('выберитегод')
ENTRY,USE(FIRSTFIELD) ENTRY,USE(PREMENU) MENU,USE(MENUFIELD"),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
MENUFIELD" = '' !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(REJECTKEY) !ALERT SCREEN REJECT KEY
ALERT(ACCEPTKEY) !ALERT SCREEN ACCEPT KEY
ACCEPT !READ A FIELD OR MENU CHOICE
IF KEYCODE() = REJECTKEY THEN RETURN. !RETURN ON SCREEN REJECT
IF KEYCODE() = ACCEPTKEY !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 FIRSTFIELD !FROM THE FIRST FIELD
IF KEYCODE() = ESCKEY THEN RETURN. ! RETURN ON ESC KEY
OF PREMENU !PRE MENU FIELD CONDITION
IF KEYCODE() = ESCKEY ! BACKING UPSELECT(-1) ! SELECT PREVIOUS FIELD
ELSE ! GOING FORWARD
SELECT(+1) ! SELECT MENU FIELD
.
OF MENUFIELD" !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('') .
ROW(3,1) STRING('ведитеграницы')
ROW(4,1) STRING('втысруб')
ROW(6,1) STRING('минимальную')
ROW(7,1) STRING('максимальную')
ROW(9,1) STRING('')
ROW(10,1) STRING('+-34+')
ROW(4,13) STRING('(')
COL(19) STRING('.')
COL(23) STRING('.)')
ENTRY,USE(FIRSTFIELD)
ROW(6,19)ENTRY(@n9),USE(MEM:
NG),NUM,INS,HUE(0,3)rOW(7,19) ENTRY(@n9),USE(MEM:VG),NUM,INS,HUE(0,3)
ENTRY,USE(LASTFIELD)
.
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(ACCEPTKEY) !ALERT SCREEN ACCEPT KEY
ALERT(REJECTKEY) !ALERT SCREEN REJECT KEY
ACCEPT !READ A FIELD
IF KEYCODE() = REJECTKEY THEN RETURN. !RETURN ON SCREEN REJECT KEY
IF KEYCODE() = ACCEPTKEY !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 FIRSTFIELD !FROM THE FIRST FIELD
IF KEYCODE() = ESCKEY THEN RETURN. ! RETURN ON ESC KEY
OF MEM:VG
MEN5
OF LASTFIELD !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('') .
ROW(8,1) STRING('+-29+')
ENTRY,USE(FIRSTFIELD) ENTRY,USE(PREMENU) MENU,USE(MENUFIELD"),REQ
ROW(3,6) STRING('1. уставный капитал'),HUE(6,7)
ROW(4,6) STRING('2. страховые взносы'),HUE(6,7)
ROW(5,6) STRING('3. страховые резервы'),HUE(6,7)
ROW(6,6) STRING('4. страховые выплаты'),HUE(6,7)
. .
EJECT
CODE
OPEN(SCREEN) !OPEN THE MENU SCREEN
SETCURSOR !TURN OFF ANY CURSOR
MENUFIELD" = '' !START MENU WITH FIRST ITEM
LOOP !LOOP UNTIL USER EXITS
ALERT !TURN OFF ALL ALERTED KEYS
ALERT(REJECTKEY) !ALERT SCREEN REJECT KEY
ALERT(ACCEPTKEY) !ALERT SCREEN ACCEPT KEY
ACCEPT !READ A FIELD OR MENU CHOICE
IF KEYCODE() = REJECTKEY THEN RETURN. !RETURN ON SCREEN REJECT
IF KEYCODE() = ACCEPTKEY !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 FIRSTFIELD !FROM THE FIRST FIELD
IF KEYCODE() = ESCKEY THEN RETURN. ! RETURN ON ESC KEY
OF PREMENU !PRE MENU FIELD CONDITION
IF KEYCODE() = ESCKEY ! BACKING UPSELECT(-1) ! SELECT PREVIOUS FIELD
ELSE ! GOING FORWARD
SELECT(+1) ! SELECT MENU FIELD
.
OF MENUFIELD" !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('') .
ROW(6,1) STRING('+-30+')
ROW(2,10)STRING('получениеданных')ENTRY,USE(FIRSTFIELD)
ENTRY,USE(PREMENU) MENU,USE(MENUFIELD"),REQ
ROW(4,5) STRING('1. по Российской Федерации')
ROW(5,5) STRING('2. по региону')
. .
EJECT
CODE
OPEN(SCREEN) !OPEN THE MENU SCREEN
SETCURSOR !TURN OFF ANY CURSOR
MENUFIELD" = '' !START MENU WITH FIRST ITEM
LOOP !LOOP UNTIL USER EXITS
ALERT !TURN OFF ALL ALERTED KEYS
ALERT(REJECTKEY) !ALERT SCREEN REJECT KEY
ALERT(ACCEPTKEY) !ALERT SCREEN ACCEPT KEY
ACCEPT !READ A FIELD OR MENU CHOICE
IF KEYCODE() = REJECTKEY THEN RETURN. !RETURN ON SCREEN REJECT
IF KEYCODE() = ACCEPTKEY !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 FIRSTFIELD !FROM THE FIRST FIELD
IF KEYCODE() = ESCKEY THEN RETURN. ! RETURN ON ESC KEY
OF PREMENU !PRE MENU FIELD CONDITION
IF KEYCODE() = ESCKEY ! BACKING UPSELECT(-1) ! SELECT PREVIOUS FIELD
ELSE ! GOING FORWARD
SELECT(+1) ! SELECT MENU FIELD
.
OF MENUFIELD" !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('') .
ROW(6,1) STRING('+-36+')
ENTRY,USE(FIRSTFIELD) ENTRY,USE(PREMENU) MENU,USE(MENUFIELD"),REQ
ROW(3,8) STRING('1. аналитические таблицы')
ROW(4,8) STRING('2. cписки по запросу')
. .
EJECT
CODE
OPEN(SCREEN) !OPEN THE MENU SCREEN
SETCURSOR !TURN OFF ANY CURSOR
MENUFIELD" = '' !START MENU WITH FIRST ITEM
LOOP !LOOP UNTIL USER EXITS
ALERT !TURN OFF ALL ALERTED KEYS
ALERT(REJECTKEY) !ALERT SCREEN REJECT KEY
ALERT(ACCEPTKEY) !ALERT SCREEN ACCEPT KEY
ACCEPT !READ A FIELD OR MENU CHOICE
IF KEYCODE() = REJECTKEY THEN RETURN. !RETURN ON SCREEN REJECT
IF KEYCODE() = ACCEPTKEY !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 FIRSTFIELD !FROM THE FIRST FIELD
IF KEYCODE() = ESCKEY THEN RETURN. ! RETURN ON ESC KEY
OF PREMENU !PRE MENU FIELD CONDITION
IF KEYCODE() = ESCKEY ! BACKING UPSELECT(-1) ! SELECT PREVIOUS FIELD
ELSE ! GOING FORWARD
SELECT(+1) ! SELECT MENU FIELD
.
OF MENUFIELD" !FROM THE MENU FIELD
EXECUTE CHOICE() ! CALL THE SELECTED PROCEDURE
GBO1 !
MBO !
. . .
6. ОРГАНИЗАЦИЯ РАЗРАБОТКИ СИСТЕМЫ СБОРА ИНФОРМАЦИИ И АНАЛИЗА ДЕЯТЕЛЬНОСТИ И ОПРЕДЕЛЕНИЕ ЗАТРАТ НА РАЗРАБОТКУ ДАННОЙ СИСТЕМЫ.
6.1 Организационная часть.
Целью создания системы является автоматизация процесса обработки информации для деятельности страховой компании.
Система позволяет:
сократить время обработки необходимой информации по страховым организациям;
оперативно получать сведения о динамике экономических параметров страховых организаций;
эффективно работать непрограммирующему профессионалу в предметной области, получая всю необходимую информацию максимально оперативно.
Порядок выполнения разработки.
Шифр
событияСодержание
событияШифр
работыСодержание
работыТрудоем-костьЧисло
исполнит.Продолжитель-
ность работы1Начало разработки1-2Разработка
ТЗ6232ТЗ разработано2-3Разработка структуры программы
(для DESIGNER)2123Структура
разработана3-4
3-5
Разработка
алгоритма
программы
вывода аналитичес-кой таблицы
Написание программы на DESIGNER6
62
23
34Алгоритм разработан4-6Написание программы
вывода аналитичес-кой таблицы6235Программа на DESIGNER написана5-7Сборка системы2126Программа вывода таблицы написана6-7Сборка системы2127Система собрана7-8Отладка
системы4228Система
отлажена8-9Тестирова-ние 2219Система оттестиро-вана9-10Исправле-ние ошибок42210Ошибки исправлены окончание работы
ФИЛИАЛЫ ПО
РЕГИОНАМ
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 года устанавливает права и обязанности Росстрахнадзора, а также его функции и задачи.
Росстрахнадзор в пределах установленной Положением компетенции осуществляет регулирование единого страхового рынка в Российской Федерации на основе установления общих требований по лицензированию и ведению государственного реестра страховых организаций, контролю за обеспечением финансовой устойчивости страховщиков, учету и отчетности , методологии страхования, межотраслевой и межрегиональной координации по вопросам страхования. Росстрахнадзор в своей деятельности руководствуется Конституцией Российской Федерации, постановлениями и распоряжениями Президента Российской Федерации, постановлениями и распоряжениями Правительства Российской Федерации, а также существующим положением.
Главной задачей Росстрахнадзора является обеспечение соблюдения всеми участниками страховых отношений требований законодательства Российской Федерации о страховании в целях эффективного развития страховых услуг, защиты прав и интересов страхователей, страховщиков и государства.
В пределах установленной компетенции Росстрахнадзором осуществляется государственное
регулирование страховой деятельности на основе установления общих требований по лицензированию и ведению государственного реестра страховых организаций, инвестиционной деятельности, обеспечению финансовой устойчивости, организации бухгалтерского и статистического учета и отчетности страховых организаций, стандартизации условий и тарифов по массовым видам страхования, другим направлениям страховой деятельности. К числу основных функций Росстрахнадзора относятся выдача лицензий на осуществление страховой деятельности и ведение единого государственного реестра страховщиков и объединений страховщиков, а также реестра страховых брокеров. Росстрахнадзор должен также осуществлять контроль за обоснованностью страховых тарифов и обеспечение платежеспособности страховщиков, устанавливает правила формирования и размещения страховых резервов, показатели и формы учета страховых операций и отчетности страховой деятельности, разрабатывает и утверждает нормативные и методические документы по вопросам страхования, отнесенным к его компетенции.
Как контролирующий орган Страховой надзор России имеет право проводить проверки соблюдения страховщиками законодательства о страховании и проверки достоверности представляемой отчетности и информации. При выявлении нарушений страховщиками требований законодательства, а также неисполнения ими обязательных рекомендаций, указаний и нормативных документов Страховой надзор имеет право давать страховщикам предписания по устранению таких недостатков, а в случае невыполнения этих предписаний приостанавливать либо ограничивать действие лицензии таких страховщиков впредь до устранения выявленных нарушений либо принимать решение об отзыве лицензии.
При необходимости Росстрахнадзор имеет право обращаться в ар-
битражный суд с исками о ликвидации недобросовестных страховщиков при неоднократном нарушении последними законодательства Российской Федерации, а также организаций и предприятий, осуществляющих страхование без лицензии.
В условиях недостатка специалистов и отсутствия единой системы подготовки кадров для страховых организаций важным является право Страхового надзора участвовать в экспертизе учебных программ по страхованию в высших и средних специальных учебных заведениях, а также в специализированных организациях по подготовке и повышению квалификации кадров для страховых организаций