`*[foxpro]
*multicolumn


*RETURN ""


Local rts
Local ng_sst,sst_image,sst_page,ksst,sst_page1,pp_short_

rts=Select()

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


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
Local rules__ncolumn

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"
rules__ncolumn=rules+ ".__ncolumn"






*****************************
ng_sst='<table border=1 width=100% ><TBODY class=text>'
sst_page=''
kkk=1



Select &news
Scan



	If kkk=1
		ng_sst=ng_sst+'<TR>'
	Endif
	ng_sst=ng_sst+'<TD align=center valign=top width='+alltr(str(100/&rules__ncolumn,15,2))+'% height=10>'

	ng_sst=ng_sst+'<table border=0 width=100% ><TR><TD><table border=0 width=100% ><TBODY class=text><TR>'
****************************



	sst_page=''
	If &rules__vp

		sst_image=a_funcfox(aa_el_style_func_news_pic_gen,&rules_pict_rul,&news_id_pict_,&news_id_,.t.,.f.)
*a_picture_gen(&rules_pict_rul,&news_id_pict_,&news_id_,.t.)
		Select &news
	Else
		sst_image=""
	Endif
	ng_sst=ng_sst+'<TD align=center valign=top>'+sst_image+'</TD></TR><TR><TD>'



	sst_page1=""

	If &rules__d
		sst_page1=sst_page1+'<FONT Class=smalltext>'+Alltr(Ttoc(&news_datetime_))+'</FONT>'+'<BR>'
	Endif



	If &rules__s
		If &rules__fmax And &rules__fmaxs>0
			pp_short_=Alltr(Left(&news_short_,&rules__fmaxs))+'<BR>...'
		Else
			pp_short_=Alltr(&news_short_)+'<BR>'
		Endif
	else 

		pp_short_=""
	Endif




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




	ng_sst=ng_sst+'<P Align=center valign=top>'+sst_page1





	If &rules__f
		ng_sst=ng_sst+'<BR>'+Alltr(&news_full_)
	Endif


	ng_sst=ng_sst+'</P>' 

***********************************
	ng_sst=ng_sst+'</TD></TR></TBODY></TABLE></TD></TR></TABLE>'
***********************************


***************************
	ng_sst=ng_sst+'</TD>'
	If kkk=&rules__ncolumn
		ng_sst=ng_sst+'</TR>'
		kkk=1
	Else
		kkk=kkk+1
	Endif
*****************************


Endscan



*****************************
If kkk<>&rules__ncolumn
	ng_sst=ng_sst+Replicate('<TD></TD>',&rules__ncolumn-kkk)+'</TR>'
Endif

ng_sst=ng_sst+'</TBODY></TABLE>'


****************************



Select (rts)
a__v_nselect=a__v_nselect-1



Return ng_sst

`