`*[foxpro]
*text

local rts
rts=select()
sst=''



local rules,news
rules=cur_a_rules_main_news()
news=cur_a_ppn_table_news()

*local nnrec
*select &rules
*nnrec=recno()


Local rules__vp,news_pict_rules,news_id_pict_,rules__s,rules__fmax,rules__fmaxs,news_short_,rules__sl,news_id_,rules__d,news_datetime_,rules__f,news_full_,rules_pict_rul
rules__vp=rules+".__vp"
*news_pict_rules=news+".pict_rul"
news_id_pict_=news+".id_pict_"
rules__s=rules+".__s"
rules__fmax=rules+ ".__fmax"
rules__fmaxs=rules+ ".__fmaxs"
news_short_=news+ ".short_"
rules__sl=rules+ ".__sl"
news_id_=news+".id_"
rules__d=rules+ ".__d"
news_datetime_=news+ ".datetime_"
rules__f=rules+ ".__f"
news_full_=news+ ".full_"
rules_pict_rul=rules+".pict_rul"



select &news




if &rules__vp
sst_image=a_funcfox(aa_el_style_func_news_pic_gen,&rules_pict_rul,&news_id_pict_,&news_id_,.t.)
*a_picture_gen(&rules_pict_rul,&news_id_pict_,&news_id_)
select &news
else
sst_image=""
endif 

*select &rules
*if nnrec<>0
*go nnrec
*endif 
*Select &news




sst=sst_image+alltr(&news_short_)+"<BR>"+alltr(&news_full_)
select (rts)
return sst
`