2020-09-23

报表
一、

二、

Long ll_rowcnt,ll_start,ll_row,ll_rowcnt_log,ll_rowcnt_hj
String ls_old_djlsh,ls_djlsh,ls_jbqd,ls_dw,ls_bm,ls_tjbh,ls_xm,ls_xb
DateTime ldt_csnyr
String ls_query_value,ls_sort_value,ls_ys_remark_value
String ls_dwmc[] ,ls_bmmc
Long ll_djcnt,ll_zjcnt,ll_jbcnt,ll_zccnt, ll_wjcnt
Int li_arrycnt,li_nl
string ls_sql, ls_sql_new
int	ll_i


//鼠标成漏斗形状
SetPointer (HourGlass!)
openwithparm(w_message,"正在检索数据，请等待。。。")

dw_main.SetRedraw(FALSE)
dw_main.Reset()
dw_main.settransobject(sqlca)


string ls_sql1

	ls_sql1 += "  TJ_TJDJB.DJRQ>='" + string(invo_qc.idt_tjrqf[1],'yyyy-mm-dd') + "'"
	ls_sql1 += " and TJ_TJDJB.DJRQ<'" + string(invo_qc.idt_tjrqt[1],'yyyy-mm-dd') + "'"
if len(invo_qc.is_dwbh[1]) > 0 and invo_qc.is_dwbh[1] <> '%' then
	ls_sql1 += " and TJ_TJDJB.DWBH like '" + invo_qc.is_dwbh[1] + "%'"
	ls_sql1 +=" and TJ_TJDJB.DWTJCS=" + string(invo_qc.ii_dwtjcs[1]) + " "

end if

if invo_qc.is_tjjl = '1' then
	ls_sql1 += " and TJ_TJDJB.DYCS > 0"
elseif invo_qc.is_tjjl = '0' then
	ls_sql1 += " and TJ_TJDJB.DYCS = 0"
end if

if invo_qc.is_SUMOVER = '0' then
	ls_sql1 += " and TJ_TJDJB.SUMOVER = 0 "
elseif invo_qc.is_SUMOVER = '1' then
	ls_sql1 += " and TJ_TJDJB.SUMOVER = 1 "
elseif invo_qc.is_SUMOVER = '2' then
	ls_sql1 += " and TJ_TJDJB.SUMOVER = 2 "
elseif invo_qc.is_SUMOVER = '3' then
	ls_sql1 += " and TJ_TJDJB.SUMOVER = 3 "
elseif invo_qc.is_SUMOVER = '4' then
	ls_sql1 += " and TJ_TJDJB.SUMOVER = 4 "
elseif invo_qc.is_SUMOVER = '5' then
	ls_sql1 += " and TJ_TJDJB.SUMOVER = 5 "
end if

string ls_oldsql,ls_newsql
long ll_pos
ls_oldsql = dw_main.getsqlselect()
ls_newsql = ls_oldsql
ls_newsql = gf_replace_string_new(ls_newsql,"1=1",ls_sql1)

dw_main.SetSQLSelect(ls_newsql)

ll_djcnt = dw_main.retrieve()

dw_main.setsqlselect(ls_oldsql)

//表头表尾
ll_jbcnt = dw_main.RowCount()
if ll_jbcnt > 0 then
	if len(ls_dwmc[1])> 0 then
		dw_main.Object.t_head.Text = ls_dwmc[1] +'单位体检信息'
	else
		dw_main.Object.t_head.Text = '单位体检信息'
	end if
end if

dw_main.Object.t_bw_query_value.Text = '从'+string(invo_qc.idt_tjrqf[1] ,'yyyy-mm-dd')&
   +'到'+string(invo_qc.idt_tjrqt[1],'yyyy-mm-dd')   

close(w_message)
if ll_djcnt = 0 then
	ll_i = messagebox('提示','没有检索到数据，是否重新检索？',information!, yesno!, 2)
	if ll_i = 1 then 
		this.postevent("ue_query")
	else
		return
	end if
end if
SetPointer (Arrow!)


dw_main.SetRedraw(true)

自动换行
position—autosize height

横向打印
print specifications—paper orientation