$PBExportHeader$f_rpt_sdw.srf
$PBExportComments$由Column属性表产生dw语法--函数
global type f_rpt_sdw from function_object
end type

forward prototypes
global function string f_rpt_sdw (datawindow fdw)
end prototypes

global function string f_rpt_sdw (datawindow fdw);int li,li_cols,li_len,lx
string ls_dw,ls_col1,ls_col2,ls_type,ls_name,ls_init,ls_alig
li_cols=fdw.rowcount()
if li_cols=0 then return ls_dw
for li=1 to li_cols
	ls_type=fdw.object.ctype[li]
	ls_name=fdw.object.cname[li]
	li_len=f_clen(ls_type)
	if pos('number,decimal,long,ulong',left(ls_type,7))>0 then
		ls_alig='1'
	else
		ls_alig='0'
	end if
	ls_col1=ls_col1+char(13)+"column=(type="+ls_type
	ls_col1=ls_col1+" name="+ls_name
	ls_col1=ls_col1+' dbname="'+ls_name+'"'
	ls_init=fdw.object.cinitial[li]
	if ls_init>'' then ls_col1=ls_col1+' initial="'+ls_init+'"'
	ls_col1=ls_col1+')'
	ls_col2=ls_col2+"text(band=header alignment='2' text='"+ls_name+"' x='"+string(lx)+"' y='2' height='12' width='"+string(6*li_len)+"' name="+ls_name+"_t font.face='宋体' font.height='12' font.weight='400' font.family='0' font.pitch='2' font.charset='-122' background.color='16777215')"
	ls_col2=ls_col2+"column(band=detail id="+string(li)+" tabsequence="+string(li*10)+" alignment='"+ls_alig+"' x='"+string(lx)+"' y='2' height='14' width='"+string(6*li_len)+"' name="+ls_name+" edit.limit=0 edit.focusrectangle=yes edit.autoselect=yes font.face='宋体' font.height='12' font.weight='400' font.family='0' font.pitch='2' font.charset='-122' background.mode='1' background.color='16777215')"
	lx=lx+6*li_len+2
next
ls_dw="release 6;datawindow(units=1 timer_interval=0 color=16777215 processing=1 grid.lines=0) header(height=18 color='536870912') detail(height=20 color='536870912') table("+ls_col1+")"+ls_col2
return ls_dw

end function