Q5/ws_objects/cw_bsnobj.pbl.src/w_accset_ch.srw

$PBExportHeader$w_accset_ch.srw
forward
global type w_accset_ch from w_publ_choice
end type
end forward

global type w_accset_ch from w_publ_choice
integer width = 2080
integer height = 2200
string title = "帐套选择"
long backcolor = 82700779
end type
global w_accset_ch w_accset_ch

type variables
long rtn_accsetid = 0,acc_accsetid = 0
int ins_cropid
end variables

on w_accset_ch.create
call super::create
end on

on w_accset_ch.destroy
call super::destroy
end on

event close;call super::close;CloseWithReturn(THIS,rtn_accsetid)

end event

event open;call super::open;acc_accsetid = message.doubleparm

select cropid into :ins_cropid from cw_accset
where accsetid = :acc_accsetid;
if sqlca.sqlcode <> 0 then
	messagebox('提示','查询帐套行业类型失败')
	close(this)
end if




dw_CH.SetTransObject (sqlca)
cb_retrieve.TRIGGEREVENT(CLICKED!)


end event

event dw_filter;if trim(sle_ch.text)='' then
	dw_ch.setfilter('') 
else
	string obj_expr=''  
	obj_expr=obj_expr+' ( pos(accsetname ,"'+trim(sle_ch.text)+'")<>0 ) '
	obj_expr=obj_expr+' or ( pos(cropname ,"'+trim(sle_ch.text)+'")<>0 ) '
	
	dw_ch.setfilter(obj_expr) 		
end if
dw_ch.filter() 

   
end event

type cb_func from w_publ_choice`cb_func within w_accset_ch
end type

type cb_exit from w_publ_choice`cb_exit within w_accset_ch
end type

type sle_ch from w_publ_choice`sle_ch within w_accset_ch
integer x = 581
integer width = 690
end type

type dw_ch from w_publ_choice`dw_ch within w_accset_ch
integer width = 1957
integer height = 1672
string dataobject = "dw_accset_ch"
end type

type st_1 from w_publ_choice`st_1 within w_accset_ch
integer width = 535
string text = "帐套代号/企业名称含"
end type

type cb_retrieve from w_publ_choice`cb_retrieve within w_accset_ch
end type

event cb_retrieve::clicked;dw_ch.retrieve(acc_accsetid,ins_cropid)
end event

type cb_choice from w_publ_choice`cb_choice within w_accset_ch
end type

event cb_choice::clicked;call super::clicked;long li_row

li_row = dw_ch.getrow()
if li_row = 0 then
	messagebox('系统提示','请选择帐套')
	return
end if
rtn_accsetid = dw_ch.object.accsetid[li_row]

close(parent)


end event

type ln_bar from w_publ_choice`ln_bar within w_accset_ch
end type

type ln_bar2 from w_publ_choice`ln_bar2 within w_accset_ch
end type

type r_bar from w_publ_choice`r_bar within w_accset_ch
end type

type ln_1 from w_publ_choice`ln_1 within w_accset_ch
end type

type ln_2 from w_publ_choice`ln_2 within w_accset_ch
end type