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