Q5/ws_objects/Ew_machining.pbl.src/w_mtrl_unit_ch.srw

$PBExportHeader$w_mtrl_unit_ch.srw
forward
global type w_mtrl_unit_ch from w_publ_base
end type
type rb_unit from radiobutton within w_mtrl_unit_ch
end type
type rb_unit_buy from radiobutton within w_mtrl_unit_ch
end type
type rb_unit_scll from radiobutton within w_mtrl_unit_ch
end type
type cb_1 from uo_imflatbutton within w_mtrl_unit_ch
end type
type rb_unit_sale from radiobutton within w_mtrl_unit_ch
end type
type gb_1 from groupbox within w_mtrl_unit_ch
end type
end forward

global type w_mtrl_unit_ch from w_publ_base
integer width = 1001
integer height = 828
string title = "外协盘点单位选择"
boolean minbox = false
windowtype windowtype = response!
rb_unit rb_unit
rb_unit_buy rb_unit_buy
rb_unit_scll rb_unit_scll
cb_1 cb_1
rb_unit_sale rb_unit_sale
gb_1 gb_1
end type
global w_mtrl_unit_ch w_mtrl_unit_ch

type variables
long ins_unit = 0
end variables

on w_mtrl_unit_ch.create
int iCurrent
call super::create
this.rb_unit=create rb_unit
this.rb_unit_buy=create rb_unit_buy
this.rb_unit_scll=create rb_unit_scll
this.cb_1=create cb_1
this.rb_unit_sale=create rb_unit_sale
this.gb_1=create gb_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.rb_unit
this.Control[iCurrent+2]=this.rb_unit_buy
this.Control[iCurrent+3]=this.rb_unit_scll
this.Control[iCurrent+4]=this.cb_1
this.Control[iCurrent+5]=this.rb_unit_sale
this.Control[iCurrent+6]=this.gb_1
end on

on w_mtrl_unit_ch.destroy
call super::destroy
destroy(this.rb_unit)
destroy(this.rb_unit_buy)
destroy(this.rb_unit_scll)
destroy(this.cb_1)
destroy(this.rb_unit_sale)
destroy(this.gb_1)
end on

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

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

type cb_exit from w_publ_base`cb_exit within w_mtrl_unit_ch
integer x = 640
integer y = 620
integer picsize = 16
end type

event cb_exit::clicked;ins_unit = -1

close(parent)
end event

type rb_unit from radiobutton within w_mtrl_unit_ch
integer x = 183
integer y = 140
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 = 134217739
string text = "按库存单位"
boolean checked = true
end type

type rb_unit_buy from radiobutton within w_mtrl_unit_ch
integer x = 183
integer y = 248
integer width = 347
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 = 134217739
string text = "按辅单位1"
end type

type rb_unit_scll from radiobutton within w_mtrl_unit_ch
integer x = 183
integer y = 356
integer width = 329
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 = 134217739
string text = "按辅单位2"
end type

type cb_1 from uo_imflatbutton within w_mtrl_unit_ch
integer x = 293
integer y = 620
integer width = 311
integer height = 96
integer taborder = 20
boolean bringtotop = true
string normalpicname = "ok.bmp"
integer picsize = 16
end type

event clicked;call super::clicked;IF rb_unit.Checked = TRUE THEN
	ins_unit = 0
ELSEIF rb_unit_buy.Checked = TRUE THEN
	ins_unit = 1
ELSEIF rb_unit_scll.Checked = TRUE THEN
	ins_unit = 2
ELSEIF rb_unit_sale.Checked = TRUE THEN
	ins_unit = 3
END IF

Close(PARENT)

end event

type rb_unit_sale from radiobutton within w_mtrl_unit_ch
integer x = 183
integer y = 464
integer width = 329
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 = 134217739
string text = "按辅单位3"
end type

type gb_1 from groupbox within w_mtrl_unit_ch
integer x = 128
integer y = 60
integer width = 763
integer height = 528
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "外协盘点计量单位选择"
end type