Q5/ws_objects/Ew_price.pbl.src/w_add_mxnewprice_spt.srw

$PBExportHeader$w_add_mxnewprice_spt.srw
forward
global type w_add_mxnewprice_spt from w_publ_base
end type
type st_2 from statictext within w_add_mxnewprice_spt
end type
type sle_inwarecode from singlelineedit within w_add_mxnewprice_spt
end type
type st_4 from statictext within w_add_mxnewprice_spt
end type
type st_6 from statictext within w_add_mxnewprice_spt
end type
type sle_dscrp from singlelineedit within w_add_mxnewprice_spt
end type
type gb_1 from groupbox within w_add_mxnewprice_spt
end type
type st_7 from statictext within w_add_mxnewprice_spt
end type
type st_8 from statictext within w_add_mxnewprice_spt
end type
type st_9 from statictext within w_add_mxnewprice_spt
end type
type st_10 from statictext within w_add_mxnewprice_spt
end type
type st_id from statictext within w_add_mxnewprice_spt
end type
type st_12 from statictext within w_add_mxnewprice_spt
end type
type em_zqrate from editmask within w_add_mxnewprice_spt
end type
type em_price from editmask within w_add_mxnewprice_spt
end type
type st_price from statictext within w_add_mxnewprice_spt
end type
type cb_add from uo_imflatbutton within w_add_mxnewprice_spt
end type
type cb_select from uo_imflatbutton within w_add_mxnewprice_spt
end type
type sle_2 from singlelineedit within w_add_mxnewprice_spt
end type
type sle_1 from singlelineedit within w_add_mxnewprice_spt
end type
type em_opdate from editmask within w_add_mxnewprice_spt
end type
type sle_opemp from singlelineedit within w_add_mxnewprice_spt
end type
type st_1 from statictext within w_add_mxnewprice_spt
end type
type ddlb_unit from dropdownlistbox within w_add_mxnewprice_spt
end type
type st_3 from statictext within w_add_mxnewprice_spt
end type
type sle_status from dropdownlistbox within w_add_mxnewprice_spt
end type
type em_rate from editmask within w_add_mxnewprice_spt
end type
type st_5 from statictext within w_add_mxnewprice_spt
end type
type sle_sptmtrlname from singlelineedit within w_add_mxnewprice_spt
end type
type st_11 from statictext within w_add_mxnewprice_spt
end type
type st_13 from statictext within w_add_mxnewprice_spt
end type
type ddlb_woodcode from dropdownlistbox within w_add_mxnewprice_spt
end type
type st_14 from statictext within w_add_mxnewprice_spt
end type
type ddlb_pcode from dropdownlistbox within w_add_mxnewprice_spt
end type
end forward

global type w_add_mxnewprice_spt from w_publ_base
integer width = 1920
integer height = 1160
string title = "物料价格修改"
boolean minbox = false
windowtype windowtype = response!
st_2 st_2
sle_inwarecode sle_inwarecode
st_4 st_4
st_6 st_6
sle_dscrp sle_dscrp
gb_1 gb_1
st_7 st_7
st_8 st_8
st_9 st_9
st_10 st_10
st_id st_id
st_12 st_12
em_zqrate em_zqrate
em_price em_price
st_price st_price
cb_add cb_add
cb_select cb_select
sle_2 sle_2
sle_1 sle_1
em_opdate em_opdate
sle_opemp sle_opemp
st_1 st_1
ddlb_unit ddlb_unit
st_3 st_3
sle_status sle_status
em_rate em_rate
st_5 st_5
sle_sptmtrlname sle_sptmtrlname
st_11 st_11
st_13 st_13
ddlb_woodcode ddlb_woodcode
st_14 st_14
ddlb_pcode ddlb_pcode
end type
global w_add_mxnewprice_spt w_add_mxnewprice_spt

type variables
s_insert_cusprice s_get//接受结构参数

end variables

on w_add_mxnewprice_spt.create
int iCurrent
call super::create
this.st_2=create st_2
this.sle_inwarecode=create sle_inwarecode
this.st_4=create st_4
this.st_6=create st_6
this.sle_dscrp=create sle_dscrp
this.gb_1=create gb_1
this.st_7=create st_7
this.st_8=create st_8
this.st_9=create st_9
this.st_10=create st_10
this.st_id=create st_id
this.st_12=create st_12
this.em_zqrate=create em_zqrate
this.em_price=create em_price
this.st_price=create st_price
this.cb_add=create cb_add
this.cb_select=create cb_select
this.sle_2=create sle_2
this.sle_1=create sle_1
this.em_opdate=create em_opdate
this.sle_opemp=create sle_opemp
this.st_1=create st_1
this.ddlb_unit=create ddlb_unit
this.st_3=create st_3
this.sle_status=create sle_status
this.em_rate=create em_rate
this.st_5=create st_5
this.sle_sptmtrlname=create sle_sptmtrlname
this.st_11=create st_11
this.st_13=create st_13
this.ddlb_woodcode=create ddlb_woodcode
this.st_14=create st_14
this.ddlb_pcode=create ddlb_pcode
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.st_2
this.Control[iCurrent+2]=this.sle_inwarecode
this.Control[iCurrent+3]=this.st_4
this.Control[iCurrent+4]=this.st_6
this.Control[iCurrent+5]=this.sle_dscrp
this.Control[iCurrent+6]=this.gb_1
this.Control[iCurrent+7]=this.st_7
this.Control[iCurrent+8]=this.st_8
this.Control[iCurrent+9]=this.st_9
this.Control[iCurrent+10]=this.st_10
this.Control[iCurrent+11]=this.st_id
this.Control[iCurrent+12]=this.st_12
this.Control[iCurrent+13]=this.em_zqrate
this.Control[iCurrent+14]=this.em_price
this.Control[iCurrent+15]=this.st_price
this.Control[iCurrent+16]=this.cb_add
this.Control[iCurrent+17]=this.cb_select
this.Control[iCurrent+18]=this.sle_2
this.Control[iCurrent+19]=this.sle_1
this.Control[iCurrent+20]=this.em_opdate
this.Control[iCurrent+21]=this.sle_opemp
this.Control[iCurrent+22]=this.st_1
this.Control[iCurrent+23]=this.ddlb_unit
this.Control[iCurrent+24]=this.st_3
this.Control[iCurrent+25]=this.sle_status
this.Control[iCurrent+26]=this.em_rate
this.Control[iCurrent+27]=this.st_5
this.Control[iCurrent+28]=this.sle_sptmtrlname
this.Control[iCurrent+29]=this.st_11
this.Control[iCurrent+30]=this.st_13
this.Control[iCurrent+31]=this.ddlb_woodcode
this.Control[iCurrent+32]=this.st_14
this.Control[iCurrent+33]=this.ddlb_pcode
end on

on w_add_mxnewprice_spt.destroy
call super::destroy
destroy(this.st_2)
destroy(this.sle_inwarecode)
destroy(this.st_4)
destroy(this.st_6)
destroy(this.sle_dscrp)
destroy(this.gb_1)
destroy(this.st_7)
destroy(this.st_8)
destroy(this.st_9)
destroy(this.st_10)
destroy(this.st_id)
destroy(this.st_12)
destroy(this.em_zqrate)
destroy(this.em_price)
destroy(this.st_price)
destroy(this.cb_add)
destroy(this.cb_select)
destroy(this.sle_2)
destroy(this.sle_1)
destroy(this.em_opdate)
destroy(this.sle_opemp)
destroy(this.st_1)
destroy(this.ddlb_unit)
destroy(this.st_3)
destroy(this.sle_status)
destroy(this.em_rate)
destroy(this.st_5)
destroy(this.sle_sptmtrlname)
destroy(this.st_11)
destroy(this.st_13)
destroy(this.ddlb_woodcode)
destroy(this.st_14)
destroy(this.ddlb_pcode)
end on

event open;call super::open;em_opdate.text=string(now(),'yyyy-mm-dd hh:mm:ss')
//em_outdate.text=string(today(),'yyyy-mm-dd')
s_get=message.powerobjectparm
sle_1.text=s_get.cusname
sle_2.text=s_get.mtrlname
if trim(sle_2.text)='' then
	cb_add.enabled=false
end if
end event

type cb_func from w_publ_base`cb_func within w_add_mxnewprice_spt
boolean visible = false
integer x = 389
integer y = 716
integer taborder = 100
end type

type cb_exit from w_publ_base`cb_exit within w_add_mxnewprice_spt
integer x = 1595
integer y = 956
integer width = 274
integer taborder = 160
end type

type st_2 from statictext within w_add_mxnewprice_spt
integer x = 50
integer y = 280
integer width = 274
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
boolean enabled = false
string text = "凭证号码:"
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_inwarecode from singlelineedit within w_add_mxnewprice_spt
integer x = 329
integer y = 260
integer width = 517
integer height = 92
integer taborder = 10
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
boolean autohscroll = false
borderstyle borderstyle = stylelowered!
end type

type st_4 from statictext within w_add_mxnewprice_spt
integer x = 50
integer y = 492
integer width = 274
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
boolean enabled = false
string text = "单    价:"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_6 from statictext within w_add_mxnewprice_spt
integer x = 50
integer y = 692
integer width = 274
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
boolean enabled = false
string text = "备    注:"
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_dscrp from singlelineedit within w_add_mxnewprice_spt
integer x = 329
integer y = 672
integer width = 1522
integer height = 92
integer taborder = 90
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
string text = "手动添加"
boolean autohscroll = false
borderstyle borderstyle = stylelowered!
end type

type gb_1 from groupbox within w_add_mxnewprice_spt
integer x = 27
integer y = 204
integer width = 1856
integer height = 700
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
string text = "参数输入"
end type

type st_7 from statictext within w_add_mxnewprice_spt
integer x = 50
integer y = 792
integer width = 274
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 134217739
boolean enabled = false
string text = "登记时间:"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_8 from statictext within w_add_mxnewprice_spt
integer x = 1097
integer y = 792
integer width = 215
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 134217739
boolean enabled = false
string text = "登记人:"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_9 from statictext within w_add_mxnewprice_spt
integer x = 32
integer y = 20
integer width = 293
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
boolean enabled = false
string text = "供应商:"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_10 from statictext within w_add_mxnewprice_spt
integer x = 32
integer y = 120
integer width = 293
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
boolean enabled = false
string text = "当前物料:"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_id from statictext within w_add_mxnewprice_spt
boolean visible = false
integer x = 105
integer y = 728
integer width = 247
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
boolean focusrectangle = false
end type

type st_12 from statictext within w_add_mxnewprice_spt
integer x = 1467
integer y = 492
integer width = 197
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
boolean enabled = false
string text = "折扣:"
alignment alignment = right!
boolean focusrectangle = false
end type

type em_zqrate from editmask within w_add_mxnewprice_spt
integer x = 1664
integer y = 472
integer width = 178
integer height = 92
integer taborder = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
string text = "1"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "#,###0.00##"
end type

event losefocus;st_price.text=string(dec(em_zqrate.text) * dec(em_price.text),'#0.0000')
end event

event modified;st_price.text=string(dec(em_zqrate.text) * dec(em_price.text),'#0.0000')
end event

type em_price from editmask within w_add_mxnewprice_spt
integer x = 329
integer y = 472
integer width = 375
integer height = 92
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "#,###0.00########"
end type

event losefocus;st_price.text=string(dec(em_zqrate.text) * dec(em_price.text),'#0.00########')
end event

event modified;st_price.text=string(dec(em_zqrate.text) * dec(em_price.text),'#0.00########')
end event

type st_price from statictext within w_add_mxnewprice_spt
integer x = 101
integer y = 964
integer width = 887
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
boolean enabled = false
alignment alignment = right!
boolean focusrectangle = false
end type

type cb_add from uo_imflatbutton within w_add_mxnewprice_spt
integer x = 1275
integer y = 956
integer width = 274
integer height = 96
integer taborder = 110
boolean bringtotop = true
end type

event clicked;call super::clicked;Long l_sptid,rslt=1
Long l_mtrlid
String err_msg,ls_unit
DateTime d_indate
Dec arg_price,arg_zqrate,arg_rate
String arg_inwarecode,ls_status,ls_sptmtrlname,ls_woodcode,ls_pcode

uo_spt_price uo_price
uo_price = CREATE uo_spt_price

d_indate = DateTime(Today(),Time(0))

l_sptid = s_get.cusid
IF Trim(st_id.Text) <> '' THEN
	l_mtrlid = Long(st_id.Text)
ELSE
	l_mtrlid = s_get.mtrlid
END IF
arg_price = Dec(em_price.Text)
arg_inwarecode = Trim(sle_inwarecode.Text)
arg_zqrate = Dec(em_zqrate.Text)
ls_status = Trim(sle_status.Text)
ls_unit = Trim(ddlb_unit.Text)
ls_sptmtrlname = Trim(sle_sptmtrlname.Text)
arg_rate = Dec(em_rate.Text)
ls_woodcode=trim(ddlb_woodcode.text)
ls_pcode=trim(ddlb_pcode.text)

//币种, 默认本位币
long moneyid
SELECT moneyid INTO :moneyid 
FROM  cw_currency 
Where native = 1
	using sqlca;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	err_msg = '查询本位币失败! '+sqlca.SQLErrText
	GOTO ext
END IF

//调用插入函数
IF uo_price.uf_update_sptprice(0,l_sptid,l_mtrlid,ls_unit,ls_status,ls_woodcode,ls_pcode,0,moneyid,arg_price,arg_zqrate,arg_rate,Round(arg_price/arg_rate,10),&
	d_indate,arg_inwarecode,1,sle_dscrp.Text,0,1,false,err_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

IF uo_price.uf_update_sptmtrlname(l_sptid,l_mtrlid,ls_unit,ls_sptmtrlname,false,err_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

ext:

IF rslt = 0 THEN
	ROLLBACK;
	MessageBox('错误',err_msg,stopsign!,ok!)
	RETURN
ELSE
	commit;
	MessageBox('提示','添加成功',information!,ok!)
	Close(PARENT)
END IF



end event

type cb_select from uo_imflatbutton within w_add_mxnewprice_spt
integer x = 1367
integer y = 100
integer width = 274
integer height = 96
integer taborder = 120
boolean bringtotop = true
string text = "物料选择"
end type

event clicked;call super::clicked;s_edit_index_tran s_ch_tran  //传递参数使用
s_ch_tran.if_retrieve_all=false  //是否一次RETRIEVE所有行
s_ch_tran.work_mode=1            //0-单纯编辑模式 1-选择\编辑模式
s_ch_tran.arg_pkid=0             //目标定位PKID (备用)
//查询列(物料编码)部分内容,用于初步筛选
OPENwithparm(w_mtrldef_edit,s_ch_tran)  //调用

s_mtrldef_array S_INSCUST
S_INSCUST=Message.PowerObjectParm  //接受返回结构
iF S_INSCUST.mtrlid[1]>0 THEN 
	sle_2.text=S_INSCUST.mtrlname[1]
	st_id.text=string(S_INSCUST.mtrlid[1])
	em_price.text=string(S_INSCUST.lmbuyprice[1])
   cb_add.enabled=true
end if



end event

type sle_2 from singlelineedit within w_add_mxnewprice_spt
integer x = 329
integer y = 100
integer width = 1033
integer height = 92
integer taborder = 140
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 16777215
boolean displayonly = true
borderstyle borderstyle = stylelowered!
end type

type sle_1 from singlelineedit within w_add_mxnewprice_spt
integer x = 329
integer width = 1312
integer height = 92
integer taborder = 70
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 8388736
long backcolor = 16777215
boolean displayonly = true
borderstyle borderstyle = stylelowered!
end type

type em_opdate from editmask within w_add_mxnewprice_spt
integer x = 329
integer y = 776
integer width = 489
integer height = 92
integer taborder = 130
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean displayonly = true
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datetimemask!
string mask = "yyyy-mm-dd hh:mm"
end type

type sle_opemp from singlelineedit within w_add_mxnewprice_spt
integer x = 1330
integer y = 776
integer width = 521
integer height = 92
integer taborder = 150
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 134217737
string text = "系统管理员"
boolean displayonly = true
borderstyle borderstyle = stylelowered!
end type

type st_1 from statictext within w_add_mxnewprice_spt
integer x = 969
integer y = 280
integer width = 343
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
string text = "属性:"
alignment alignment = right!
boolean focusrectangle = false
end type

event constructor;if sys_option_change_status<>'' then this.text=sys_option_change_status
end event

type ddlb_unit from dropdownlistbox within w_add_mxnewprice_spt
integer x = 864
integer y = 476
integer width = 288
integer height = 460
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
boolean allowedit = true
boolean sorted = false
borderstyle borderstyle = stylelowered!
end type

type st_3 from statictext within w_add_mxnewprice_spt
integer x = 713
integer y = 492
integer width = 151
integer height = 56
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
boolean enabled = false
string text = "单位:"
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_status from dropdownlistbox within w_add_mxnewprice_spt
integer x = 1330
integer y = 260
integer width = 521
integer height = 592
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean allowedit = true
boolean sorted = false
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type

event constructor;String ls_colorname

DECLARE cur_color CURSOR FOR
	SELECT u_color.colorname
	FROM u_color
	Order By u_color.colorname  ;
OPEN cur_color;
FETCH cur_color INTO :ls_colorname;
DO WHILE sqlca.SQLCode = 0
	THIS.AddItem(ls_colorname)
	FETCH cur_color INTO :ls_colorname;
LOOP

CLOSE cur_color;


end event

type em_rate from editmask within w_add_mxnewprice_spt
integer x = 1330
integer y = 472
integer width = 178
integer height = 92
integer taborder = 50
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
string text = "1"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "#,###0.00##"
end type

type st_5 from statictext within w_add_mxnewprice_spt
integer x = 1166
integer y = 492
integer width = 142
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
boolean enabled = false
string text = "比率:"
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_sptmtrlname from singlelineedit within w_add_mxnewprice_spt
integer x = 329
integer y = 572
integer width = 1522
integer height = 92
integer taborder = 80
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
boolean autohscroll = false
borderstyle borderstyle = stylelowered!
end type

type st_11 from statictext within w_add_mxnewprice_spt
integer x = 50
integer y = 592
integer width = 274
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
boolean enabled = false
string text = "物料别名:"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_13 from statictext within w_add_mxnewprice_spt
integer x = 55
integer y = 392
integer width = 270
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
string text = "属性1:"
alignment alignment = right!
boolean focusrectangle = false
end type

event constructor;if sys_option_change_woodcode<>'' then this.text=sys_option_change_woodcode
end event

type ddlb_woodcode from dropdownlistbox within w_add_mxnewprice_spt
integer x = 325
integer y = 372
integer width = 526
integer height = 712
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean allowedit = true
boolean sorted = false
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type

event constructor;String ls_colorname_woodcode

DECLARE cur_color_woodcode CURSOR FOR
	SELECT u_color_wood.woodcode
	FROM u_color_wood
	Order By u_color_wood.woodcode  ;
OPEN cur_color_woodcode;
FETCH cur_color_woodcode INTO :ls_colorname_woodcode;
DO WHILE sqlca.SQLCode = 0
	THIS.AddItem(ls_colorname_woodcode)
	FETCH cur_color_woodcode INTO :ls_colorname_woodcode;
LOOP
CLOSE cur_color_woodcode;


end event

type st_14 from statictext within w_add_mxnewprice_spt
integer x = 946
integer y = 392
integer width = 366
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
string text = "属性2:"
alignment alignment = right!
boolean focusrectangle = false
end type

event constructor;if sys_option_change_pcode<>'' then this.text=sys_option_change_pcode
end event

type ddlb_pcode from dropdownlistbox within w_add_mxnewprice_spt
integer x = 1330
integer y = 372
integer width = 521
integer height = 700
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean allowedit = true
boolean sorted = false
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type

event constructor;String ls_colorname_pcode

DECLARE cur_color_pcode CURSOR FOR
	SELECT u_color_pcode.pcode
	FROM u_color_pcode
	Order By u_color_pcode.pcode  ;
OPEN cur_color_pcode;
FETCH cur_color_pcode INTO :ls_colorname_pcode;
DO WHILE sqlca.SQLCode = 0
	THIS.AddItem(ls_colorname_pcode)
	FETCH cur_color_pcode INTO :ls_colorname_pcode;
LOOP
CLOSE cur_color_pcode;


end event