¦ 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)
Страницы: 1, 2