`*[foxpro]
*row
Local rts
Local ng_sst,sst_image,pp_short_
Local rules,news

rts=Select()

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"





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




ng_sst=ng_sst+sst_image

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

	If &rules__sl
		ng_sst=ng_sst+'<A HREF="'+www_+"i_news_page_"+padl(&news_id_,15,"0")+".html"+'" target=_blank>'+pp_short_+'</A>'+'<BR>'
	Else
		ng_sst=ng_sst+pp_short_+"<BR>"
	Endif
Endif





If &rules__f
	ng_sst=ng_sst+Alltr(&news_full_)+""
Endif



Select (rts)
a__v_nselect=a__v_nselect-1
Return ng_sst


`