Q5/ws_objects/Ew_define.pbl.src/w_prdpf_change_rate_edit.srw

$PBExportHeader$w_prdpf_change_rate_edit.srw
forward
global type w_prdpf_change_rate_edit from window
end type
type rb_6 from radiobutton within w_prdpf_change_rate_edit
end type
type rb_5 from radiobutton within w_prdpf_change_rate_edit
end type
type rb_4 from radiobutton within w_prdpf_change_rate_edit
end type
type rb_3 from radiobutton within w_prdpf_change_rate_edit
end type
type st_3 from statictext within w_prdpf_change_rate_edit
end type
type em_2 from editmask within w_prdpf_change_rate_edit
end type
type st_2 from statictext within w_prdpf_change_rate_edit
end type
type em_1 from editmask within w_prdpf_change_rate_edit
end type
type rb_2 from radiobutton within w_prdpf_change_rate_edit
end type
type rb_1 from radiobutton within w_prdpf_change_rate_edit
end type
type st_1 from statictext within w_prdpf_change_rate_edit
end type
type cb_2 from uo_imflatbutton within w_prdpf_change_rate_edit
end type
type cb_1 from uo_imflatbutton within w_prdpf_change_rate_edit
end type
type gb_1 from groupbox within w_prdpf_change_rate_edit
end type
type gb_2 from groupbox within w_prdpf_change_rate_edit
end type
end forward

global type w_prdpf_change_rate_edit from window
integer width = 1262
integer height = 748
boolean titlebar = true
string title = "物料清单变更单批设置新用料量"
windowtype windowtype = response!
long backcolor = 134217739
string icon = "AppIcon!"
boolean center = true
rb_6 rb_6
rb_5 rb_5
rb_4 rb_4
rb_3 rb_3
st_3 st_3
em_2 em_2
st_2 st_2
em_1 em_1
rb_2 rb_2
rb_1 rb_1
st_1 st_1
cb_2 cb_2
cb_1 cb_1
gb_1 gb_1
gb_2 gb_2
end type
global w_prdpf_change_rate_edit w_prdpf_change_rate_edit

type variables
String rst_datetime
s_edit_index_tran s_tran

end variables

on w_prdpf_change_rate_edit.create
this.rb_6=create rb_6
this.rb_5=create rb_5
this.rb_4=create rb_4
this.rb_3=create rb_3
this.st_3=create st_3
this.em_2=create em_2
this.st_2=create st_2
this.em_1=create em_1
this.rb_2=create rb_2
this.rb_1=create rb_1
this.st_1=create st_1
this.cb_2=create cb_2
this.cb_1=create cb_1
this.gb_1=create gb_1
this.gb_2=create gb_2
this.Control[]={this.rb_6,&
this.rb_5,&
this.rb_4,&
this.rb_3,&
this.st_3,&
this.em_2,&
this.st_2,&
this.em_1,&
this.rb_2,&
this.rb_1,&
this.st_1,&
this.cb_2,&
this.cb_1,&
this.gb_1,&
this.gb_2}
end on

on w_prdpf_change_rate_edit.destroy
destroy(this.rb_6)
destroy(this.rb_5)
destroy(this.rb_4)
destroy(this.rb_3)
destroy(this.st_3)
destroy(this.em_2)
destroy(this.st_2)
destroy(this.em_1)
destroy(this.rb_2)
destroy(this.rb_1)
destroy(this.st_1)
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.gb_1)
destroy(this.gb_2)
end on

event close;CloseWithReturn(THIS,s_tran)


end event

type rb_6 from radiobutton within w_prdpf_change_rate_edit
integer x = 914
integer y = 128
integer width = 160
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "除"
end type

type rb_5 from radiobutton within w_prdpf_change_rate_edit
integer x = 663
integer y = 128
integer width = 160
integer height = 60
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_4 from radiobutton within w_prdpf_change_rate_edit
integer x = 411
integer y = 128
integer width = 160
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "减"
end type

type rb_3 from radiobutton within w_prdpf_change_rate_edit
integer x = 155
integer y = 128
integer width = 160
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "加"
end type

type st_3 from statictext within w_prdpf_change_rate_edit
integer x = 151
integer y = 352
integer width = 343
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "保留小数位数"
alignment alignment = right!
boolean focusrectangle = false
end type

type em_2 from editmask within w_prdpf_change_rate_edit
integer x = 512
integer y = 336
integer width = 110
integer height = 84
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "5"
borderstyle borderstyle = stylelowered!
string mask = "#"
end type

type st_2 from statictext within w_prdpf_change_rate_edit
integer x = 37
integer y = 44
integer width = 1193
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 255
long backcolor = 134217739
string text = "说明:新用料量 = 原用料量 (加/减/乘/除) 参数"
boolean focusrectangle = false
end type

type em_1 from editmask within w_prdpf_change_rate_edit
integer x = 512
integer y = 228
integer width = 402
integer height = 84
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "1"
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = decimalmask!
string mask = "###,##0.00###"
end type

type rb_2 from radiobutton within w_prdpf_change_rate_edit
integer x = 681
integer y = 444
integer width = 334
integer height = 60
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_1 from radiobutton within w_prdpf_change_rate_edit
integer x = 261
integer y = 444
integer width = 334
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "单行修改"
end type

type st_1 from statictext within w_prdpf_change_rate_edit
integer x = 283
integer y = 240
integer width = 210
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "参数:"
alignment alignment = right!
boolean focusrectangle = false
end type

type cb_2 from uo_imflatbutton within w_prdpf_change_rate_edit
integer x = 229
integer y = 536
integer taborder = 20
end type

event clicked;call super::clicked;IF Dec(em_1.Text) < 0 THEN
	MessageBox('提示','请输入正确的参数')
	RETURN
END IF

IF Long(em_2.Text) < 0 THEN
	MessageBox('提示','请输入正确的小数位数')
	RETURN
END IF

IF rb_6.Checked AND Dec(em_1.Text) = 0 THEN
	MessageBox('提示','请输入正确的参数,否则出现除零错误')
	RETURN
END IF

s_tran.b_decimal = Dec(em_1.Text)
s_tran.c_long = Long(em_2.Text)

IF rb_1.Checked THEN
	s_tran.b_long = 0 //单行
ELSE
	s_tran.b_long = 1 //全部
END IF

// s_tran.d_long  0 + , 1 - , 2 * , 3 /

IF rb_3.Checked THEN
	s_tran.d_long = 0
END IF

IF rb_4.Checked THEN
	s_tran.d_long = 1
END IF

IF rb_5.Checked THEN
	s_tran.d_long = 2
END IF

IF rb_6.Checked THEN
	s_tran.d_long = 3
END IF

Close(PARENT)

end event

type cb_1 from uo_imflatbutton within w_prdpf_change_rate_edit
integer x = 736
integer y = 536
integer taborder = 10
string text = "退出"
end type

event clicked;call super::clicked;
s_tran.b_decimal = -1

s_tran.b_long = -1

Close(PARENT)



end event

type gb_1 from groupbox within w_prdpf_change_rate_edit
boolean visible = false
integer x = 55
integer y = 24
integer width = 1097
integer height = 192
integer taborder = 10
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "none"
end type

type gb_2 from groupbox within w_prdpf_change_rate_edit
boolean visible = false
integer x = 114
integer y = 396
integer width = 974
integer height = 136
integer taborder = 30
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "none"
end type