Q5/ws_objects/Ew_money.pbl.src/w_rp_cmpl_mtrlcost_update_planprice.srw

$PBExportHeader$w_rp_cmpl_mtrlcost_update_planprice.srw
forward
global type w_rp_cmpl_mtrlcost_update_planprice from w_publ_base
end type
type cbx_price from checkbox within w_rp_cmpl_mtrlcost_update_planprice
end type
type cbx_jgprice from checkbox within w_rp_cmpl_mtrlcost_update_planprice
end type
type cbx_wfjgprice from checkbox within w_rp_cmpl_mtrlcost_update_planprice
end type
type cbx_outcost from checkbox within w_rp_cmpl_mtrlcost_update_planprice
end type
type cbx_otherprice from checkbox within w_rp_cmpl_mtrlcost_update_planprice
end type
type cb_1 from uo_imflatbutton within w_rp_cmpl_mtrlcost_update_planprice
end type
type mle_1 from multilineedit within w_rp_cmpl_mtrlcost_update_planprice
end type
type cbx_eqprice from checkbox within w_rp_cmpl_mtrlcost_update_planprice
end type
type gb_1 from groupbox within w_rp_cmpl_mtrlcost_update_planprice
end type
end forward

global type w_rp_cmpl_mtrlcost_update_planprice from w_publ_base
integer width = 1115
integer height = 884
string title = "更新计划选项"
boolean controlmenu = false
boolean minbox = false
windowtype windowtype = response!
cbx_price cbx_price
cbx_jgprice cbx_jgprice
cbx_wfjgprice cbx_wfjgprice
cbx_outcost cbx_outcost
cbx_otherprice cbx_otherprice
cb_1 cb_1
mle_1 mle_1
cbx_eqprice cbx_eqprice
gb_1 gb_1
end type
global w_rp_cmpl_mtrlcost_update_planprice w_rp_cmpl_mtrlcost_update_planprice

type variables
s_rp_cmpl_mtrlcost_update_planprice s_rst
end variables

on w_rp_cmpl_mtrlcost_update_planprice.create
int iCurrent
call super::create
this.cbx_price=create cbx_price
this.cbx_jgprice=create cbx_jgprice
this.cbx_wfjgprice=create cbx_wfjgprice
this.cbx_outcost=create cbx_outcost
this.cbx_otherprice=create cbx_otherprice
this.cb_1=create cb_1
this.mle_1=create mle_1
this.cbx_eqprice=create cbx_eqprice
this.gb_1=create gb_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cbx_price
this.Control[iCurrent+2]=this.cbx_jgprice
this.Control[iCurrent+3]=this.cbx_wfjgprice
this.Control[iCurrent+4]=this.cbx_outcost
this.Control[iCurrent+5]=this.cbx_otherprice
this.Control[iCurrent+6]=this.cb_1
this.Control[iCurrent+7]=this.mle_1
this.Control[iCurrent+8]=this.cbx_eqprice
this.Control[iCurrent+9]=this.gb_1
end on

on w_rp_cmpl_mtrlcost_update_planprice.destroy
call super::destroy
destroy(this.cbx_price)
destroy(this.cbx_jgprice)
destroy(this.cbx_wfjgprice)
destroy(this.cbx_outcost)
destroy(this.cbx_otherprice)
destroy(this.cb_1)
destroy(this.mle_1)
destroy(this.cbx_eqprice)
destroy(this.gb_1)
end on

event close;call super::close;CloseWithReturn(This,s_rst)


end event

event open;call super::open;s_rst.ifupdate = 0

end event

type cb_func from w_publ_base`cb_func within w_rp_cmpl_mtrlcost_update_planprice
integer x = 389
integer y = 1212
end type

type cb_exit from w_publ_base`cb_exit within w_rp_cmpl_mtrlcost_update_planprice
integer x = 562
integer y = 600
string text = "取消"
end type

event cb_exit::clicked;s_rst.ifupdate = 0
Close(Parent)
end event

type cbx_price from checkbox within w_rp_cmpl_mtrlcost_update_planprice
integer x = 91
integer y = 300
integer width = 343
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 cbx_jgprice from checkbox within w_rp_cmpl_mtrlcost_update_planprice
integer x = 617
integer y = 304
integer width = 343
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 cbx_wfjgprice from checkbox within w_rp_cmpl_mtrlcost_update_planprice
integer x = 91
integer y = 392
integer width = 343
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 = "外协成本"
end type

type cbx_outcost from checkbox within w_rp_cmpl_mtrlcost_update_planprice
integer x = 617
integer y = 392
integer width = 343
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 = "费用成本"
end type

type cbx_otherprice from checkbox within w_rp_cmpl_mtrlcost_update_planprice
integer x = 91
integer y = 484
integer width = 343
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 = "附加成本"
end type

type cb_1 from uo_imflatbutton within w_rp_cmpl_mtrlcost_update_planprice
integer x = 96
integer y = 600
integer taborder = 10
boolean bringtotop = true
string normalpicname = "ok.bmp"
end type

event clicked;call super::clicked;s_rst.ifupdate = 1
IF cbx_price.Checked THEN
	s_rst.ifprice = 1
ELSE
	s_rst.ifprice = 0
END IF

IF cbx_jgprice.Checked THEN
	s_rst.ifjgprice = 1
ELSE
	s_rst.ifjgprice = 0
END IF

IF cbx_wfjgprice.Checked THEN
	s_rst.ifwfjgprice = 1
ELSE
	s_rst.ifwfjgprice = 0
END IF

IF cbx_outcost.Checked THEN
	s_rst.ifoutcost = 1
ELSE
	s_rst.ifoutcost = 0
END IF

IF cbx_otherprice.Checked THEN
	s_rst.ifotherprice = 1
ELSE
	s_rst.ifotherprice = 0
END IF

IF cbx_eqprice.Checked THEN
	s_rst.ifeqprice = 1
ELSE
	s_rst.ifeqprice = 0
END IF

Close(Parent)


end event

type mle_1 from multilineedit within w_rp_cmpl_mtrlcost_update_planprice
integer x = 73
integer y = 44
integer width = 937
integer height = 152
integer taborder = 10
boolean bringtotop = true
integer textsize = -9
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 255
long backcolor = 134217739
string text = "    是否确定要将当前统计的成本价更新到物料的计划价?"
boolean border = false
end type

type cbx_eqprice from checkbox within w_rp_cmpl_mtrlcost_update_planprice
integer x = 617
integer y = 484
integer width = 343
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 = "设备成本"
end type

type gb_1 from groupbox within w_rp_cmpl_mtrlcost_update_planprice
integer x = 73
integer y = 240
integer width = 955
integer height = 328
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "勾选要检查成本"
end type