$PBExportHeader$w_fjtype_ch_fx.srw
$PBExportComments$附件类型选择
forward
global type w_fjtype_ch_fx from w_publ_base
end type
type rb_2 from radiobutton within w_fjtype_ch_fx
end type
type rb_0 from radiobutton within w_fjtype_ch_fx
end type
end forward

global type w_fjtype_ch_fx from w_publ_base
integer width = 750
integer height = 676
string title = "附件类型选择"
boolean minbox = false
windowtype windowtype = response!
boolean center = true
rb_2 rb_2
rb_0 rb_0
end type
global w_fjtype_ch_fx w_fjtype_ch_fx

type variables
long ins_fjtype = - 1
end variables

on w_fjtype_ch_fx.create
int iCurrent
call super::create
this.rb_2=create rb_2
this.rb_0=create rb_0
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.rb_2
this.Control[iCurrent+2]=this.rb_0
end on

on w_fjtype_ch_fx.destroy
call super::destroy
destroy(this.rb_2)
destroy(this.rb_0)
end on

event open;call super::open;long ll_fjtype
ll_fjtype = Message.DoubleParm

if (ll_fjtype = 0) then
	rb_0.post event clicked() // 付款凭证
else
	rb_2.post event clicked() // 下单附件
end if
end event

event close;CloseWithReturn(this, ins_fjtype)
end event

type cb_func from w_publ_base`cb_func within w_fjtype_ch_fx
integer x = 50
integer y = 424
integer taborder = 30
string text = "确定"
boolean default = true
end type

event cb_func::clicked;if (rb_2.Checked) then
	ins_fjtype = 2
else
	ins_fjtype = 0
end if
Close(parent)
end event

type cb_exit from w_publ_base`cb_exit within w_fjtype_ch_fx
integer x = 366
integer y = 424
integer taborder = 40
end type

event cb_exit::clicked;ins_fjtype = - 1
Close(parent)
end event

type rb_2 from radiobutton within w_fjtype_ch_fx
integer x = 178
integer y = 100
integer width = 402
integer height = 60
integer taborder = 10
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "下单附件"
end type

event clicked;this.Checked = true
rb_0.Checked = false
end event

type rb_0 from radiobutton within w_fjtype_ch_fx
integer x = 178
integer y = 252
integer width = 402
integer height = 60
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "付款凭证"
end type

event clicked;this.Checked = true
rb_2.Checked = false
end event

