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

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)