Q5/ws_objects/Ew_mrp.pbl.src/w_workprice_change_rate_edit.srw

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

global type w_workprice_change_rate_edit from window
integer width = 1152
integer height = 760
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
end type
global w_workprice_change_rate_edit w_workprice_change_rate_edit

type variables
String rst_datetime
s_edit_index_tran s_tran

end variables

on w_workprice_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.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}
end on

on w_workprice_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)
end on

event close;CloseWithReturn(THIS,s_tran)


end event

type rb_6 from radiobutton within w_workprice_change_rate_edit
integer x = 850
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_workprice_change_rate_edit
integer x = 599
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_workprice_change_rate_edit
integer x = 347
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_workprice_change_rate_edit
integer x = 91
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_workprice_change_rate_edit
integer x = 87
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_workprice_change_rate_edit
integer x = 448
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_workprice_change_rate_edit
integer x = 46
integer y = 44
integer width = 1083
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_workprice_change_rate_edit
integer x = 448
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_workprice_change_rate_edit
integer x = 617
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_workprice_change_rate_edit
integer x = 197
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_workprice_change_rate_edit
integer x = 219
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_workprice_change_rate_edit
integer x = 165
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_workprice_change_rate_edit
integer x = 672
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