FXApp/ws_objects/app_cust_fx.pbl.src/w_quote_his_fx.srw

$PBExportHeader$w_quote_his_fx.srw
$PBExportComments$销售报价单历史报价查看(产品最新报价统计表)
forward
global type w_quote_his_fx from w_publ_base_style
end type
type st_1 from statictext within w_quote_his_fx
end type
type ln_1 from line within w_quote_his_fx
end type
type ln_2 from line within w_quote_his_fx
end type
type ddlb_cus from dropdownlistbox within w_quote_his_fx
end type
type tv_1 from uo_tv_fx_mtrltype within w_quote_his_fx
end type
type st_split from u_lbs_stsplitbar within w_quote_his_fx
end type
type dw_mtrl from u_dw_rbtnfilter within w_quote_his_fx
end type
type dw_quote_his from u_dw_rbtnfilter within w_quote_his_fx
end type
type st_2 from statictext within w_quote_his_fx
end type
type sle_lisestr from singlelineedit within w_quote_his_fx
end type
type st_3 from statictext within w_quote_his_fx
end type
type em_pagesize from editmask within w_quote_his_fx
end type
type st_4 from statictext within w_quote_his_fx
end type
type em_cur_page from editmask within w_quote_his_fx
end type
type pb_page_top from picturebutton within w_quote_his_fx
end type
type pb_uppage from picturebutton within w_quote_his_fx
end type
type pb_dnpage from picturebutton within w_quote_his_fx
end type
type pb_page_end from picturebutton within w_quote_his_fx
end type
type st_allpages from statictext within w_quote_his_fx
end type
type pb_search from picturebutton within w_quote_his_fx
end type
end forward

global type w_quote_his_fx from w_publ_base_style
integer width = 4713
integer height = 2796
string title = "最新报价统计表"
boolean maxbox = true
boolean resizable = true
long backcolor = 16777215
st_1 st_1
ln_1 ln_1
ln_2 ln_2
ddlb_cus ddlb_cus
tv_1 tv_1
st_split st_split
dw_mtrl dw_mtrl
dw_quote_his dw_quote_his
st_2 st_2
sle_lisestr sle_lisestr
st_3 st_3
em_pagesize em_pagesize
st_4 st_4
em_cur_page em_cur_page
pb_page_top pb_page_top
pb_uppage pb_uppage
pb_dnpage pb_dnpage
pb_page_end pb_page_end
st_allpages st_allpages
pb_search pb_search
end type
global w_quote_his_fx w_quote_his_fx

type variables
datastore ins_ds_cus // 存放客户列表
datastore ins_mtrltypes

long ins_pagenum = 1
long ins_allpages = 1
long ins_cuscomid
end variables

forward prototypes
public subroutine wf_retrieve_mtrltype (readonly long a_comid)
public subroutine wf_retrieve_mtrl (readonly long arg_mtrltypeid, readonly long arg_sonflag)
public function integer wf_retrieve_quote_his (readonly long a_row)
public subroutine wf_init_split ()
end prototypes

public subroutine wf_retrieve_mtrltype (readonly long a_comid);string arg_msg
oleobject obj, parm, list, item
parm = FXAppCom.CreatePbDictionary()
parm.SetString('token', app_token_fx)
parm.SetInt('comid', a_comid)
obj = FXAppCom.GetMtrltypeByComid(parm, ref arg_msg)
IF (arg_msg <> '') THEN
	MessageBox('提示', '获取物料类别失败:' + arg_msg)
	RETURN
END IF

list = obj.GetPBArray('list')
dw_mtrl.Reset( )
dw_quote_his.Reset()

ins_mtrltypes.Reset()
long i, row
for i = 1 to list.Count
	item = list.GetPBDictionary(i - 1)
	row = ins_mtrltypes.InsertRow(0)
	
	ins_mtrltypes.Object.comid[row] = item.GetInt('comid')
	ins_mtrltypes.Object.mtrltypeid[row] = item.GetInt('mtrltypeid')
	ins_mtrltypes.Object.mtrltype[row] = item.GetString('mtrltype')
	ins_mtrltypes.Object.handtype[row] = item.GetString('handtype')
	ins_mtrltypes.Object.sonflag[row] = item.GetInt('sonflag')
	ins_mtrltypes.Object.parentid[row] = item.GetInt('parentid')
	ins_mtrltypes.Object.mtrltypeid_erp[row] = item.GetInt('mtrltypeid_erp')
next
ins_mtrltypes.AcceptText()
tv_1.uof_init(ins_mtrltypes)
end subroutine

public subroutine wf_retrieve_mtrl (readonly long arg_mtrltypeid, readonly long arg_sonflag);string arg_msg
oleobject mtrls, mtrl, parm, obj
parm = FXAppCom.CreatePbDictionary()
parm.SetString('token', app_token_fx)
parm.SetInt('mtrltypeid', arg_mtrltypeid)
parm.SetInt('sonflag', arg_sonflag)
parm.SetInt('pagesize', long(em_pagesize.Text))
parm.SetInt('pagenum', long(em_cur_page.Text))
parm.SetString('likeStr', Trim(sle_lisestr.Text))

parm.SetInt('cusComid', ins_cuscomid)
parm.SetInt('sptComid', 0)

parm.SetInt('ifWithQuote', 1)

obj = FXAppCom.GetMtrlWithRelationFilter(parm, ref arg_msg)
if (arg_msg <> '') then
	MessageBox('提示', arg_msg)
	return
end if

ins_allpages = obj.GetInt('allpages')
st_allpages.Text = '/' + string(ins_allpages)

dw_mtrl.Reset()
dw_quote_his.Reset()

long i, row
mtrls = obj.GetPBArray('list')
dw_mtrl.SetRedraw(false)
for i = 1 to mtrls.Count
	mtrl = mtrls.GetPBDictionary(i - 1)
	row = dw_mtrl.InsertRow(0)
	
	dw_mtrl.Object.fxmtrlid[row] = mtrl.GetInt('fxmtrlid')
	dw_mtrl.Object.comid[row] = mtrl.GetInt('comid')
	dw_mtrl.Object.mtrlid[row] = mtrl.GetInt('mtrlid')
	dw_mtrl.Object.mtrlcode[row] = mtrl.GetString('mtrlcode')
	dw_mtrl.Object.mtrlname[row] = mtrl.GetString('mtrlname')
	dw_mtrl.Object.mtrlmode[row] = mtrl.GetString('mtrlmode')
	dw_mtrl.Object.mtrlsectype[row] = mtrl.GetString('mtrlsectype')
	dw_mtrl.Object.zxmtrlmode[row] = mtrl.GetString('zxmtrlmode')
	dw_mtrl.Object.usermtrlmode[row] = mtrl.GetString('usermtrlmode')
//	dw_mtrl.Object.statusflag[row] = mtrl.GetInt('statusflag')
//	dw_mtrl.Object.statustype[row] = mtrl.GetInt('statustype')
//	dw_mtrl.Object.woodcodeflag[row] = mtrl.GetInt('woodcodeflag')
//	dw_mtrl.Object.woodcodetype[row] = mtrl.GetInt('woodcodetype')
//	dw_mtrl.Object.pcodeflag[row] = mtrl.GetInt('pcodeflag')
//	dw_mtrl.Object.pcodetype[row] = mtrl.GetInt('pcodetype')
//	dw_mtrl.Object.configcodetype[row] = mtrl.GetInt('configcodetype')
	dw_mtrl.Object.unit[row] = mtrl.GetString('unit')
	
	dw_mtrl.Object.latestQuotePrice[row] = mtrl.GetDouble('latestQuotePrice')
	dw_mtrl.Object.latestQuoteRebate[row] = mtrl.GetDouble('latestQuoteRebate')
	dw_mtrl.Object.latestAcceptPrice[row] = mtrl.GetDouble('latestAcceptPrice')
	dw_mtrl.Object.latestAcceptRebate[row] = mtrl.GetDouble('latestAcceptRebate')
next
dw_mtrl.AcceptText()
dw_mtrl.SetRedraw(true)

if (dw_mtrl.RowCount() > 0) then
	dw_mtrl.SelectRow(0, false)
	dw_mtrl.SelectRow(1, true)
	dw_mtrl.SetRow(1)
	dw_mtrl.post event RowFocusChanged(1)
end if



end subroutine

public function integer wf_retrieve_quote_his (readonly long a_row);int rslt = 1

if (IsNull(a_row)) then return 0
if (a_row <= 0) then return 0

string arg_msg
long fxmtrlid, cuscomid
fxmtrlid = dw_mtrl.Object.fxmtrlid[a_row]
cuscomid = dw_mtrl.Object.comid[a_row]
if (IsNull(fxmtrlid)) then return 0
if (IsNull(cuscomid)) then return 0

oleobject parm, obj, list, item
parm = FXAppCom.CreatePbDictionary()
parm.SetString('token', app_token_fx)
parm.SetInt('fxmtrlid', fxmtrlid)
parm.SetInt('cuscomid', cuscomid)
obj = FXAppCom.GetMtrlQuoteHistory(parm, ref arg_msg)
if (arg_msg <> '') then
	rslt = 0
	goto ext
end if

dw_quote_his.Reset()
long i, row
dw_quote_his.SetRedraw(false)
list = obj.GetPBArray('list')
for i = 1 to list.Count
	item = list.GetPBDictionary(i - 1)
	row = dw_quote_his.InsertRow(0)
	
	dw_quote_his.Object.quoteid[row] = item.GetInt('quoteid')
	dw_quote_his.Object.quotecode[row] = item.GetString('quotecode')
	dw_quote_his.Object.assign_emp[row] = item.GetString('assign_emp')
	dw_quote_his.Object.opemp[row] = item.GetString('opemp')
	if (not IsNull(item.GetDateTime('opdate'))) then
		dw_quote_his.Object.opdate[row] = item.GetDateTime('opdate')
	end if
	dw_quote_his.Object.modemp[row] = item.GetString('modemp')
	if (not IsNull(item.GetDateTime('moddate'))) then
		dw_quote_his.Object.moddate[row] = item.GetDateTime('moddate')
	end if
	dw_quote_his.Object.auditemp[row] = item.GetString('auditemp')
	if (not IsNull(item.GetDateTime('auditdate'))) then
		dw_quote_his.Object.auditdate[row] = item.GetDateTime('auditdate')
	end if
	dw_quote_his.Object.flag[row] = item.GetInt('flag')
	dw_quote_his.Object.sendemp[row] = item.GetString('sendemp')
	if (not IsNull(item.GetDateTime('senddate'))) then
		dw_quote_his.Object.senddate[row] = item.GetDateTime('senddate')
	end if
	dw_quote_his.Object.fiebrelcode[row] = item.GetString('fiebrelcode')
	dw_quote_his.Object.billtype[row] = item.GetInt('billtype')
	dw_quote_his.Object.printid[row] = item.GetInt('printid')
	dw_quote_his.Object.sumprice[row] = item.GetDouble('sumprice')
	dw_quote_his.Object.sumprice_1[row] = item.GetDouble('sumprice_1')
	dw_quote_his.Object.status[row] = item.GetString('status')
	dw_quote_his.Object.woodcode[row] = item.GetString('woodcode')
	dw_quote_his.Object.pcode[row] = item.GetString('pcode')
	dw_quote_his.Object.rebate[row] = item.GetDouble('rebate')
	dw_quote_his.Object.qty[row] = item.GetDouble('qty')
	dw_quote_his.Object.qty1[row] = item.GetDouble('qty1')
	dw_quote_his.Object.unit[row] = item.GetString('unit')
	dw_quote_his.Object.mxdscrp[row] = item.GetString('mxdscrp')
	dw_quote_his.Object.mxdscrp2[row] = item.GetString('mxdscrp2')
next
dw_quote_his.AcceptText()
dw_quote_his.SetRedraw(true)

ext:
if (rslt <> 1) then
	MessageBox('提示', arg_msg)
end if
return rslt
end function

public subroutine wf_init_split ();//将所有该分割条的上下的object都进行注册
st_split.of_Reset() 
st_split.of_Register(tv_1, st_split.ABOVE)
st_split.of_Register(dw_mtrl, st_split.ABOVE)
st_split.of_Register(dw_quote_his, st_split.BELOW)
//定位拖动条--以tv_1为位移基准
st_split.uf_possplitbar(tv_1)
end subroutine

on w_quote_his_fx.create
int iCurrent
call super::create
this.st_1=create st_1
this.ln_1=create ln_1
this.ln_2=create ln_2
this.ddlb_cus=create ddlb_cus
this.tv_1=create tv_1
this.st_split=create st_split
this.dw_mtrl=create dw_mtrl
this.dw_quote_his=create dw_quote_his
this.st_2=create st_2
this.sle_lisestr=create sle_lisestr
this.st_3=create st_3
this.em_pagesize=create em_pagesize
this.st_4=create st_4
this.em_cur_page=create em_cur_page
this.pb_page_top=create pb_page_top
this.pb_uppage=create pb_uppage
this.pb_dnpage=create pb_dnpage
this.pb_page_end=create pb_page_end
this.st_allpages=create st_allpages
this.pb_search=create pb_search
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.st_1
this.Control[iCurrent+2]=this.ln_1
this.Control[iCurrent+3]=this.ln_2
this.Control[iCurrent+4]=this.ddlb_cus
this.Control[iCurrent+5]=this.tv_1
this.Control[iCurrent+6]=this.st_split
this.Control[iCurrent+7]=this.dw_mtrl
this.Control[iCurrent+8]=this.dw_quote_his
this.Control[iCurrent+9]=this.st_2
this.Control[iCurrent+10]=this.sle_lisestr
this.Control[iCurrent+11]=this.st_3
this.Control[iCurrent+12]=this.em_pagesize
this.Control[iCurrent+13]=this.st_4
this.Control[iCurrent+14]=this.em_cur_page
this.Control[iCurrent+15]=this.pb_page_top
this.Control[iCurrent+16]=this.pb_uppage
this.Control[iCurrent+17]=this.pb_dnpage
this.Control[iCurrent+18]=this.pb_page_end
this.Control[iCurrent+19]=this.st_allpages
this.Control[iCurrent+20]=this.pb_search
end on

on w_quote_his_fx.destroy
call super::destroy
destroy(this.st_1)
destroy(this.ln_1)
destroy(this.ln_2)
destroy(this.ddlb_cus)
destroy(this.tv_1)
destroy(this.st_split)
destroy(this.dw_mtrl)
destroy(this.dw_quote_his)
destroy(this.st_2)
destroy(this.sle_lisestr)
destroy(this.st_3)
destroy(this.em_pagesize)
destroy(this.st_4)
destroy(this.em_cur_page)
destroy(this.pb_page_top)
destroy(this.pb_uppage)
destroy(this.pb_dnpage)
destroy(this.pb_page_end)
destroy(this.st_allpages)
destroy(this.pb_search)
end on

event resize;call super::resize;ln_1.endx = this.width
ln_2.endx = this.width

if (this.Width < 4100) then this.Width = 4100
if (this.Height < 2500) then this.Height = 2500

dw_mtrl.Height = tv_1.Height
dw_mtrl.Width = this.workspacewidth( ) - dw_mtrl.X

dw_quote_his.Width = this.workspacewidth( )
dw_quote_his.Height = this.workspaceheight( ) - dw_quote_his.Y

st_split.Width = this.workspacewidth( )
st_split.Y = tv_1.Y + tv_1.Height

cb_exit.X = this.workspacewidth( ) - cb_exit.Width
end event

event open;call super::open;ins_ds_cus = create datastore
ins_ds_cus.DataObject = 'dw_fx_cust_ch'
ins_ds_cus.Reset()

ins_mtrltypes = create datastore
ins_mtrltypes.DataObject = 'ds_fx_mtrltype'
ins_mtrltypes.Reset()

string arg_msg
if (f_find_fx_user_power(19, ref arg_msg) <> 1) then // 19-最新报价统计表
	MessageBox('权限提示', arg_msg)
	Close(this)
	return
end if

oleobject list, item, parm, obj
parm = FXAppCom.CreatePbDictionary()
parm.SetString('token', app_token_fx)
obj = FXAppCom.GetMyCustList(parm, ref arg_msg)
if (arg_msg <> '') then
	MessageBox('提示', '获取客户列表失败:' + arg_msg)
	Close(this)
	return
end if

list = obj.GetPBArray('list')
long i, row, index
string temp_comname //ddlb_cus
if (list.Count > 0) then
	for i = 1 to list.Count
		item = list.GetPBDictionary(i - 1)
		row = ins_ds_cus.InsertRow(0)
		
		temp_comname = Trim(item.GetString('comname'))
		index = ddlb_cus.AddItem(Trim(temp_comname))
		
		ins_ds_cus.Object.ch[i] = index // 使用ch字段记录当前客户在下拉菜单的index
		ins_ds_cus.Object.comid[row] = item.GetInt('comid')
		ins_ds_cus.Object.comname[row] = temp_comname
		ins_ds_cus.Object.simplename[row] = item.GetString('simplename')
//		ins_ds_cus.Object.custype[row] = item.GetString('custype')
//		ins_ds_cus.Object.tele[row] = item.GetString('tele')
		ins_ds_cus.Object.address[row] = item.GetString('address')
		ins_ds_cus.Object.freight[row] = item.GetString('freight')
		ins_ds_cus.Object.freight_tele[row] = item.GetString('freight_tele')
	next
	
	ins_ds_cus.AcceptText()
	ddlb_cus.SelectItem(1)
	ddlb_cus.post event selectionchanged(1)
else
	ddlb_cus.InsertItem('-=没有客户=-', 0)
end if

wf_init_split()
end event

event close;call super::close;destroy ins_ds_cus
destroy ins_mtrltypes
end event

type cb_func from w_publ_base_style`cb_func within w_quote_his_fx
string normalpicname = "setting.BMP"
integer picsize = 16
end type

type cb_exit from w_publ_base_style`cb_exit within w_quote_his_fx
integer x = 2533
end type

type ln_bar from w_publ_base_style`ln_bar within w_quote_his_fx
end type

type ln_bar2 from w_publ_base_style`ln_bar2 within w_quote_his_fx
end type

type r_bar from w_publ_base_style`r_bar within w_quote_his_fx
end type

type st_1 from statictext within w_quote_his_fx
integer x = 23
integer y = 196
integer width = 265
integer height = 56
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "客户列表:"
boolean focusrectangle = false
end type

type ln_1 from line within w_quote_his_fx
long linecolor = 268435456
integer linethickness = 4
integer beginy = 280
integer endx = 667
integer endy = 280
end type

type ln_2 from line within w_quote_his_fx
long linecolor = 16777215
integer linethickness = 4
integer beginy = 284
integer endx = 946
integer endy = 284
end type

type ddlb_cus from dropdownlistbox within w_quote_his_fx
integer x = 270
integer y = 184
integer width = 645
integer height = 600
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;if (this.Text = '-=没有客户=-') then return

long comid, findRow
if (index > 0) then
	findRow = ins_ds_cus.Find('ch = ' + string(index), 1, ins_ds_cus.RowCount())
	if (findRow > 0) then
		comid = ins_ds_cus.Object.comid[findRow]
		ins_cuscomid = comid
		wf_retrieve_mtrltype(comid)
	end if
end if
end event

type tv_1 from uo_tv_fx_mtrltype within w_quote_his_fx
integer y = 288
integer width = 914
integer height = 1408
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
fontcharset fontcharset = gb2312charset!
fontfamily fontfamily = anyfont!
string facename = "宋体"
string picturename[] = {"StaticText!","Structure5!"}
end type

event selectionchanged;call super::selectionchanged;wf_retrieve_mtrl(this.ins_cur_info.mtrltypeid[1], this.ins_cur_info.sonflag[1])
end event

type st_split from u_lbs_stsplitbar within w_quote_his_fx
integer y = 1696
integer height = 16
boolean bringtotop = true
end type

event clicked;call super::clicked;parent.postevent('resize')
end event

type dw_mtrl from u_dw_rbtnfilter within w_quote_his_fx
integer x = 910
integer y = 288
integer width = 3529
integer height = 1408
integer taborder = 20
string dataobject = "dw_fx_mtrldef_with_quote"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;if (row > 0) then
	this.SelectRow(0, false)
	this.SelectRow(row, true)
	this.SetRow(row)
end if
end event

event rowfocuschanged;call super::rowfocuschanged;if (currentrow > 0) then
	this.SelectRow(0, false)
	this.SelectRow(currentrow, true)
	this.SetRow(currentrow)
	
	wf_retrieve_quote_his(currentrow)
end if
end event

type dw_quote_his from u_dw_rbtnfilter within w_quote_his_fx
integer y = 1712
integer width = 4439
integer height = 732
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_fx_quote_his"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;if (row > 0) then
	this.SelectRow(0, false)
	this.SelectRow(row, true)
	this.SetRow(row)
end if
end event

event rowfocuschanged;call super::rowfocuschanged;if (currentrow > 0) then
	this.SelectRow(0, false)
	this.SelectRow(currentrow, true)
	this.SetRow(currentrow)
end if
end event

type st_2 from statictext within w_quote_his_fx
integer x = 942
integer y = 200
integer width = 453
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
string text = "物料编码/名称含:"
boolean focusrectangle = false
end type

type sle_lisestr from singlelineedit within w_quote_his_fx
integer x = 1381
integer y = 184
integer width = 640
integer height = 84
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

event modified;em_cur_page.Text = '1'

pb_search.post event clicked()
end event

type st_3 from statictext within w_quote_his_fx
integer x = 2176
integer y = 200
integer width = 261
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
string text = "显示行数:"
boolean focusrectangle = false
end type

type em_pagesize from editmask within w_quote_his_fx
integer x = 2423
integer y = 184
integer width = 293
integer height = 84
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "100"
alignment alignment = center!
borderstyle borderstyle = stylelowered!
string mask = "#####"
boolean spin = true
double increment = 1
string minmax = "1~~"
end type

event modified;long temp
temp = long(this.Text)
if (temp <= 0) then
	this.Text = '1'
end if
end event

type st_4 from statictext within w_quote_his_fx
integer x = 2752
integer y = 200
integer width = 206
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
string text = "当前页:"
boolean focusrectangle = false
end type

type em_cur_page from editmask within w_quote_his_fx
integer x = 2944
integer y = 188
integer width = 151
integer height = 76
integer taborder = 50
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "1"
alignment alignment = center!
borderstyle borderstyle = stylelowered!
string mask = "#####"
string minmax = "1~~"
end type

event modified;long temp
temp = long(this.Text)
if (temp <= 0) then
	this.Text = '1'
end if
end event

type pb_page_top from picturebutton within w_quote_his_fx
integer x = 3264
integer y = 176
integer width = 110
integer height = 96
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string picturename = "graphics\page_top.BMP"
string disabledname = "graphics\page_top.BMP"
alignment htextalign = left!
string powertiptext = "首页"
end type

event clicked;long temp
temp = long(em_cur_page.Text)
if (temp <= 1) then return

em_cur_page.Text = '1'

pb_search.post event clicked()
end event

type pb_uppage from picturebutton within w_quote_his_fx
integer x = 3406
integer y = 176
integer width = 110
integer height = 96
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string picturename = "graphics\page_up.BMP"
string disabledname = "graphics\page_up.BMP"
alignment htextalign = left!
string powertiptext = "上一页"
end type

event clicked;long temp
temp = long(em_cur_page.Text)
if (temp <= 1) then return

em_cur_page.Text = string(temp - 1)

pb_search.post event clicked()
end event

type pb_dnpage from picturebutton within w_quote_his_fx
integer x = 3547
integer y = 176
integer width = 110
integer height = 96
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string picturename = "graphics\page_dn.BMP"
string disabledname = "graphics\page_dn.BMP"
alignment htextalign = left!
string powertiptext = "下一页"
end type

event clicked;long temp
temp = long(em_cur_page.Text)
if (temp >= ins_allpages) then return

em_cur_page.Text = string(temp + 1)

pb_search.post event clicked()
end event

type pb_page_end from picturebutton within w_quote_his_fx
integer x = 3689
integer y = 176
integer width = 110
integer height = 96
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string picturename = "graphics\page_end.BMP"
string disabledname = "graphics\page_end.BMP"
alignment htextalign = left!
string powertiptext = "末页"
end type

event clicked;long temp
temp = long(em_cur_page.Text)
if (temp >= ins_allpages) then return

em_cur_page.Text = string(ins_allpages)

pb_search.post event clicked()
end event

type st_allpages from statictext within w_quote_his_fx
integer x = 3104
integer y = 200
integer width = 160
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
string text = "/1"
boolean focusrectangle = false
end type

type pb_search from picturebutton within w_quote_his_fx
integer x = 2030
integer y = 176
integer width = 110
integer height = 96
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string picturename = "PREVIEW.BMP"
string disabledname = "PREVIEW.BMP"
alignment htextalign = left!
string powertiptext = "查询"
end type

event clicked;long handle
handle = tv_1.FindItem(CurrentTreeItem!, 0)
if (handle > - 1) then
	tv_1.post event selectionchanged(0, handle)
end if
end event