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

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)