Q5/ws_objects/Ew_mainfunc.pbl.src/w_mftree_billfunc.srw

$PBExportHeader$w_mftree_billfunc.srw
forward
global type w_mftree_billfunc from w_publ_base
end type
type cb_1 from uo_imflatbutton within w_mftree_billfunc
end type
type cbx_1 from checkbox within w_mftree_billfunc
end type
type cbx_2 from checkbox within w_mftree_billfunc
end type
type cbx_3 from checkbox within w_mftree_billfunc
end type
type cbx_4 from checkbox within w_mftree_billfunc
end type
type cbx_5 from checkbox within w_mftree_billfunc
end type
type cbx_6 from checkbox within w_mftree_billfunc
end type
type cbx_7 from checkbox within w_mftree_billfunc
end type
type cbx_8 from checkbox within w_mftree_billfunc
end type
type cbx_9 from checkbox within w_mftree_billfunc
end type
type cbx_10 from checkbox within w_mftree_billfunc
end type
type mle_1 from multilineedit within w_mftree_billfunc
end type
type cbx_12 from checkbox within w_mftree_billfunc
end type
end forward

global type w_mftree_billfunc from w_publ_base
integer width = 1783
integer height = 1192
string title = "单据权限树结点"
boolean minbox = false
windowtype windowtype = response!
long backcolor = 134217750
cb_1 cb_1
cbx_1 cbx_1
cbx_2 cbx_2
cbx_3 cbx_3
cbx_4 cbx_4
cbx_5 cbx_5
cbx_6 cbx_6
cbx_7 cbx_7
cbx_8 cbx_8
cbx_9 cbx_9
cbx_10 cbx_10
mle_1 mle_1
cbx_12 cbx_12
end type
global w_mftree_billfunc w_mftree_billfunc

type variables
string is_billfuncstr
end variables

on w_mftree_billfunc.create
int iCurrent
call super::create
this.cb_1=create cb_1
this.cbx_1=create cbx_1
this.cbx_2=create cbx_2
this.cbx_3=create cbx_3
this.cbx_4=create cbx_4
this.cbx_5=create cbx_5
this.cbx_6=create cbx_6
this.cbx_7=create cbx_7
this.cbx_8=create cbx_8
this.cbx_9=create cbx_9
this.cbx_10=create cbx_10
this.mle_1=create mle_1
this.cbx_12=create cbx_12
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_1
this.Control[iCurrent+2]=this.cbx_1
this.Control[iCurrent+3]=this.cbx_2
this.Control[iCurrent+4]=this.cbx_3
this.Control[iCurrent+5]=this.cbx_4
this.Control[iCurrent+6]=this.cbx_5
this.Control[iCurrent+7]=this.cbx_6
this.Control[iCurrent+8]=this.cbx_7
this.Control[iCurrent+9]=this.cbx_8
this.Control[iCurrent+10]=this.cbx_9
this.Control[iCurrent+11]=this.cbx_10
this.Control[iCurrent+12]=this.mle_1
this.Control[iCurrent+13]=this.cbx_12
end on

on w_mftree_billfunc.destroy
call super::destroy
destroy(this.cb_1)
destroy(this.cbx_1)
destroy(this.cbx_2)
destroy(this.cbx_3)
destroy(this.cbx_4)
destroy(this.cbx_5)
destroy(this.cbx_6)
destroy(this.cbx_7)
destroy(this.cbx_8)
destroy(this.cbx_9)
destroy(this.cbx_10)
destroy(this.mle_1)
destroy(this.cbx_12)
end on

event close;call super::close;closewithreturn(this,is_billfuncstr)
end event

type cb_func from w_publ_base`cb_func within w_mftree_billfunc
boolean visible = false
end type

type cb_exit from w_publ_base`cb_exit within w_mftree_billfunc
integer x = 1042
integer y = 984
end type

type cb_1 from uo_imflatbutton within w_mftree_billfunc
integer x = 425
integer y = 984
integer taborder = 20
boolean bringtotop = true
end type

event clicked;call super::clicked;String sl
is_billfuncstr = ""

IF cbx_1.Checked THEN
	is_billfuncstr += "1"
ELSE
	is_billfuncstr += "0"
END IF

IF cbx_2.Checked THEN
	is_billfuncstr += "1"
ELSE
	is_billfuncstr += "0"
END IF

IF cbx_3.Checked THEN
	is_billfuncstr += "1"
ELSE
	is_billfuncstr += "0"
END IF

IF cbx_4.Checked THEN
	is_billfuncstr += "1"
ELSE
	is_billfuncstr += "0"
END IF

IF cbx_5.Checked THEN
	is_billfuncstr += "1"
ELSE
	is_billfuncstr += "0"
END IF

IF cbx_6.Checked THEN
	is_billfuncstr += "1"
ELSE
	is_billfuncstr += "0"
END IF

IF cbx_7.Checked THEN
	is_billfuncstr += "1"
ELSE
	is_billfuncstr += "0"
END IF

IF cbx_8.Checked THEN
	is_billfuncstr += "1"
ELSE
	is_billfuncstr += "0"
END IF

IF cbx_9.Checked THEN
	is_billfuncstr += "1"
ELSE
	is_billfuncstr += "0"
END IF

IF cbx_10.Checked THEN
	is_billfuncstr += "1"
ELSE
	is_billfuncstr += "0"
END IF

IF mle_1.Text <> "" THEN
	is_billfuncstr += Trim(mle_1.Text)
END IF

Close(Parent)


end event

type cbx_1 from checkbox within w_mftree_billfunc
integer x = 123
integer y = 116
integer width = 402
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "新建"
boolean checked = true
end type

type cbx_2 from checkbox within w_mftree_billfunc
integer x = 123
integer y = 208
integer width = 402
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "删除"
boolean checked = true
end type

type cbx_3 from checkbox within w_mftree_billfunc
integer x = 123
integer y = 300
integer width = 402
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "确认"
boolean checked = true
end type

type cbx_4 from checkbox within w_mftree_billfunc
integer x = 123
integer y = 392
integer width = 402
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "反确认"
boolean checked = true
end type

type cbx_5 from checkbox within w_mftree_billfunc
integer x = 677
integer y = 116
integer width = 402
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "审核"
boolean checked = true
end type

type cbx_6 from checkbox within w_mftree_billfunc
integer x = 677
integer y = 208
integer width = 402
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "撤审"
boolean checked = true
end type

type cbx_7 from checkbox within w_mftree_billfunc
integer x = 677
integer y = 300
integer width = 402
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "终审"
boolean checked = true
end type

type cbx_8 from checkbox within w_mftree_billfunc
integer x = 677
integer y = 392
integer width = 402
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "终撤"
boolean checked = true
end type

type cbx_9 from checkbox within w_mftree_billfunc
integer x = 1230
integer y = 116
integer width = 402
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "添加备注"
boolean checked = true
end type

type cbx_10 from checkbox within w_mftree_billfunc
integer x = 1230
integer y = 208
integer width = 402
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "打印"
boolean checked = true
end type

type mle_1 from multilineedit within w_mftree_billfunc
integer y = 476
integer width = 1746
integer height = 484
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean hscrollbar = true
boolean vscrollbar = true
boolean autohscroll = true
boolean autovscroll = true
borderstyle borderstyle = stylelowered!
end type

type cbx_12 from checkbox within w_mftree_billfunc
integer x = 123
integer y = 28
integer width = 402
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "反选"
boolean checked = true
end type

event clicked;cbx_1.Checked = not cbx_1.Checked
cbx_2.Checked = not cbx_2.Checked
cbx_3.Checked = not cbx_3.Checked
cbx_4.Checked = not cbx_4.Checked
cbx_5.Checked = not cbx_5.Checked
cbx_6.Checked = not cbx_6.Checked
cbx_7.Checked = not cbx_7.Checked
cbx_8.Checked = not cbx_8.Checked
cbx_9.Checked = not cbx_9.Checked
cbx_10.Checked = not cbx_10.Checked

end event