`*[foxpro]
*page

local ad_rts
ad_rts=select()


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
scan
ng_sst=''



sst_image=""

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


if &rules__d
ng_sst=ng_sst+alltr(ttoc(&news_datetime_))+"<BR>"
endif 

if &rules__s
	if &rules__fmax and &rules__fmaxs>0
		pp_short_=alltr(left(&news_short_,&rules__fmaxs))+"..."
	else 
		pp_short_=alltr(&news_short_)	
	endif 

	ng_sst=ng_sst+pp_short_+"<BR>"

endif 



If &rules__f
	ng_sst=sst_image+ng_sst+alltr(&news_full_)+"<BR>"
else
	ng_sst=sst_image+ng_sst+"<BR>"
endif 





select &news
replace page_text with ng_sst


kk=a_funcfox(aa_el_style_func_news_gen_page)
select &news
endscan 



select (ad_rts)



a__v_nselect=a__v_nselect-1

return ""


`