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

$PBExportHeader$w_add_mxnewprice.srw
$PBExportComments$手动添加明细价格
forward
global type w_add_mxnewprice from w_publ_base
end type
type st_2 from statictext within w_add_mxnewprice
end type
type sle_outwarecode from singlelineedit within w_add_mxnewprice
end type
type st_4 from statictext within w_add_mxnewprice
end type
type st_6 from statictext within w_add_mxnewprice
end type
type sle_dscrp from singlelineedit within w_add_mxnewprice
end type
type gb_1 from groupbox within w_add_mxnewprice
end type
type st_7 from statictext within w_add_mxnewprice
end type
type st_8 from statictext within w_add_mxnewprice
end type
type st_9 from statictext within w_add_mxnewprice
end type
type st_10 from statictext within w_add_mxnewprice
end type
type em_price from editmask within w_add_mxnewprice
end type
type st_id from statictext within w_add_mxnewprice
end type
type st_12 from statictext within w_add_mxnewprice
end type
type em_zqrate from editmask within w_add_mxnewprice
end type
type st_price from statictext within w_add_mxnewprice
end type
type sle_2 from singlelineedit within w_add_mxnewprice
end type
type sle_1 from singlelineedit within w_add_mxnewprice
end type
type cb_select from uo_imflatbutton within w_add_mxnewprice
end type
type em_opdate from editmask within w_add_mxnewprice
end type
type sle_opemp from singlelineedit within w_add_mxnewprice
end type
type cb_add from uo_imflatbutton within w_add_mxnewprice
end type
type st_1 from statictext within w_add_mxnewprice
end type
type sle_status from dropdownlistbox within w_add_mxnewprice
end type
type st_13 from statictext within w_add_mxnewprice
end type
type ddlb_woodcode from dropdownlistbox within w_add_mxnewprice
end type
type st_14 from statictext within w_add_mxnewprice
end type
type ddlb_pcode from dropdownlistbox within w_add_mxnewprice
end type
type ddlb_money from dropdownlistbox within w_add_mxnewprice
end type
type st_3 from statictext within w_add_mxnewprice
end type
type st_5 from statictext within w_add_mxnewprice
end type
type ddlb_unit from dropdownlistbox within w_add_mxnewprice
end type
type em_rate from editmask within w_add_mxnewprice
end type
type st_11 from statictext within w_add_mxnewprice
end type
end forward

global type w_add_mxnewprice from w_publ_base
integer width = 1778
integer height = 1120
string title = "产品价格修改"
boolean minbox = false
windowtype windowtype = response!
st_2 st_2
sle_outwarecode sle_outwarecode
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
em_price em_price
st_id st_id
st_12 st_12
em_zqrate em_zqrate
st_price st_price
sle_2 sle_2
sle_1 sle_1
cb_select cb_select
em_opdate em_opdate
sle_opemp sle_opemp
cb_add cb_add
st_1 st_1
sle_status sle_status
st_13 st_13
ddlb_woodcode ddlb_woodcode
st_14 st_14
ddlb_pcode ddlb_pcode
ddlb_money ddlb_money
st_3 st_3
st_5 st_5
ddlb_unit ddlb_unit
em_rate em_rate
st_11 st_11
end type
global w_add_mxnewprice w_add_mxnewprice

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

end variables

on w_add_mxnewprice.create
int iCurrent
call super::create
this.st_2=create st_2
this.sle_outwarecode=create sle_outwarecode
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.em_price=create em_price
this.st_id=create st_id
this.st_12=create st_12
this.em_zqrate=create em_zqrate
this.st_price=create st_price
this.sle_2=create sle_2
this.sle_1=create sle_1
this.cb_select=create cb_select
this.em_opdate=create em_opdate
this.sle_opemp=create sle_opemp
this.cb_add=create cb_add
this.st_1=create st_1
this.sle_status=create sle_status
this.st_13=create st_13
this.ddlb_woodcode=create ddlb_woodcode
this.st_14=create st_14
this.ddlb_pcode=create ddlb_pcode
this.ddlb_money=create ddlb_money
this.st_3=create st_3
this.st_5=create st_5
this.ddlb_unit=create ddlb_unit
this.em_rate=create em_rate
this.st_11=create st_11
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.st_2
this.Control[iCurrent+2]=this.sle_outwarecode
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.em_price
this.Control[iCurrent+12]=this.st_id
this.Control[iCurrent+13]=this.st_12
this.Control[iCurrent+14]=this.em_zqrate
this.Control[iCurrent+15]=this.st_price
this.Control[iCurrent+16]=this.sle_2
this.Control[iCurrent+17]=this.sle_1
this.Control[iCurrent+18]=this.cb_select
this.Control[iCurrent+19]=this.em_opdate
this.Control[iCurrent+20]=this.sle_opemp
this.Control[iCurrent+21]=this.cb_add
this.Control[iCurrent+22]=this.st_1
this.Control[iCurrent+23]=this.sle_status
this.Control[iCurrent+24]=this.st_13
this.Control[iCurrent+25]=this.ddlb_woodcode
this.Control[iCurrent+26]=this.st_14
this.Control[iCurrent+27]=this.ddlb_pcode
this.Control[iCurrent+28]=this.ddlb_money
this.Control[iCurrent+29]=this.st_3
this.Control[iCurrent+30]=this.st_5
this.Control[iCurrent+31]=this.ddlb_unit
this.Control[iCurrent+32]=this.em_rate
this.Control[iCurrent+33]=this.st_11
end on

on w_add_mxnewprice.destroy
call super::destroy
destroy(this.st_2)
destroy(this.sle_outwarecode)
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.em_price)
destroy(this.st_id)
destroy(this.st_12)
destroy(this.em_zqrate)
destroy(this.st_price)
destroy(this.sle_2)
destroy(this.sle_1)
destroy(this.cb_select)
destroy(this.em_opdate)
destroy(this.sle_opemp)
destroy(this.cb_add)
destroy(this.st_1)
destroy(this.sle_status)
destroy(this.st_13)
destroy(this.ddlb_woodcode)
destroy(this.st_14)
destroy(this.ddlb_pcode)
destroy(this.ddlb_money)
destroy(this.st_3)
destroy(this.st_5)
destroy(this.ddlb_unit)
destroy(this.em_rate)
destroy(this.st_11)
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
st_price.text=string(dec(em_zqrate.text) * dec(em_price.text),'#0.0000')
end event

type cb_func from w_publ_base`cb_func within w_add_mxnewprice
boolean visible = false
integer x = 101
integer y = 756
integer taborder = 110
end type

type cb_exit from w_publ_base`cb_exit within w_add_mxnewprice
integer x = 1440
integer y = 916
integer width = 274
integer taborder = 130
end type

type st_2 from statictext within w_add_mxnewprice
integer x = 46
integer y = 268
integer width = 270
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_outwarecode from singlelineedit within w_add_mxnewprice
integer x = 329
integer y = 248
integer width = 521
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
integer x = 155
integer y = 548
integer width = 160
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 st_6 from statictext within w_add_mxnewprice
integer x = 46
integer y = 656
integer width = 270
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_dscrp from singlelineedit within w_add_mxnewprice
integer x = 329
integer y = 640
integer width = 1344
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
string text = "手动添加"
boolean autohscroll = false
borderstyle borderstyle = stylelowered!
end type

type gb_1 from groupbox within w_add_mxnewprice
integer x = 14
integer y = 196
integer width = 1710
integer height = 708
integer taborder = 20
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
integer x = 46
integer y = 788
integer width = 270
integer height = 56
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
integer x = 942
integer y = 788
integer width = 201
integer height = 56
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
integer x = 46
integer y = 20
integer width = 270
integer height = 56
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
integer x = 46
integer y = 112
integer width = 270
integer height = 56
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 em_price from editmask within w_add_mxnewprice
integer x = 329
integer y = 532
integer width = 521
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 modified;st_price.text=string(dec(em_zqrate.text) * dec(em_price.text),'#0.0000')
end event

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

type st_id from statictext within w_add_mxnewprice
boolean visible = false
integer x = 453
integer y = 764
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
integer x = 987
integer y = 548
integer width = 155
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 em_zqrate from editmask within w_add_mxnewprice
integer x = 1147
integer y = 532
integer width = 521
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.0000"
end type

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

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

type st_price from statictext within w_add_mxnewprice
integer x = 937
integer y = 268
integer width = 494
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 sle_2 from singlelineedit within w_add_mxnewprice
integer x = 329
integer y = 100
integer width = 1033
integer height = 92
integer taborder = 160
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!
end type

type sle_1 from singlelineedit within w_add_mxnewprice
integer x = 329
integer y = 4
integer width = 1298
integer height = 92
integer taborder = 100
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!
end type

type cb_select from uo_imflatbutton within w_add_mxnewprice
integer x = 1367
integer y = 96
integer width = 274
integer height = 96
integer taborder = 180
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.lmsaleprice[1])
	cb_add.enabled=true
end if

end event

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

type sle_opemp from singlelineedit within w_add_mxnewprice
integer x = 1152
integer y = 772
integer width = 521
integer height = 92
integer taborder = 170
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
string text = "系统管理员"
boolean displayonly = true
end type

type cb_add from uo_imflatbutton within w_add_mxnewprice
integer x = 1093
integer y = 916
integer width = 274
integer height = 96
integer taborder = 150
boolean bringtotop = true
end type

event clicked;call super::clicked;Long l_cusid
Long l_mtrlid
DateTime d_outdate
String ls_mtrlcode,ls_status,ls_woodcode,ls_pcode,ls_unit
String err_msg
String arg_outwarecode
Dec arg_price,arg_zqrate,arg_rate
Long flag = 0
long moneyid

uo_cusprice uo_insertcusprice
uo_insertcusprice = CREATE uo_cusprice

d_outdate = DateTime(Today(),Time(0))
l_cusid = s_get.cusid
IF Trim(st_id.Text) <> '' THEN
	l_mtrlid = Long(st_id.Text)
ELSE
	l_mtrlid = s_get.mtrlid
END IF

ls_mtrlcode = Trim(sle_2.Text)
ls_status = Trim(sle_status.Text)
ls_woodcode = Trim(ddlb_woodcode.Text)
ls_pcode = Trim(ddlb_pcode.Text)
ls_unit = Trim(ddlb_unit.text)

arg_outwarecode = Trim(sle_outwarecode.Text)
arg_price = Dec(em_price.Text)
arg_zqrate = Dec(em_zqrate.Text)
arg_rate = Dec(em_rate.Text)

long spos,epos
spos=pos(ddlb_money.text,'[')
epos=pos(ddlb_money.text,']')
moneyid=long(mid(ddlb_money.text,spos+1,epos - spos - 1 ))
 
if moneyid = 0 or isnull(moneyid) then 
	messagebox('提示','请选择币种',information!,ok!)
	return 
end if 

if trim(ls_unit) = '' or isnull(ls_unit) then 
	messagebox('提示','请选择单位',information!,ok!)
	return 
end if 

//调用插入函数
IF uo_insertcusprice.uf_update_custprice(0,0,l_cusid,l_mtrlid,ls_mtrlcode,ls_woodcode,ls_status,ls_pcode,0,arg_outwarecode,d_outdate,arg_price,arg_zqrate,0,1,sle_dscrp.Text,0,moneyid,TRUE,err_msg,arg_rate,Round(arg_price/arg_rate,10),ls_unit) = 0 THEN
	MessageBox('错误',err_msg,stopsign!,ok!)
	RETURN
ELSE
	MessageBox('提示','添加成功',information!,ok!)
	Close(PARENT)
END IF






end event

type st_1 from statictext within w_add_mxnewprice
integer x = 942
integer y = 268
integer width = 201
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 sle_status from dropdownlistbox within w_add_mxnewprice
integer x = 1147
integer y = 248
integer width = 521
integer height = 592
integer taborder = 120
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 st_13 from statictext within w_add_mxnewprice
integer x = 59
integer y = 360
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
integer x = 329
integer y = 340
integer width = 526
integer height = 712
integer taborder = 40
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
integer x = 887
integer y = 360
integer width = 256
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
integer x = 1147
integer y = 340
integer width = 521
integer height = 700
integer taborder = 60
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

type ddlb_money from dropdownlistbox within w_add_mxnewprice
integer x = 329
integer y = 432
integer width = 526
integer height = 580
integer taborder = 70
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
boolean sorted = false
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type

event constructor;String ls_name
long ll_id
DECLARE cur_name CURSOR FOR
	SELECT cw_currency.name,moneyid
	FROM cw_currency
	Order By cw_currency.moneyid  ;
OPEN cur_name;
FETCH cur_name INTO :ls_name,:ll_id;
DO WHILE sqlca.SQLCode = 0
	THIS.AddItem(ls_name+fill(' ',50)+'['+string(ll_id)+']')
	FETCH cur_name INTO :ls_name,:ll_id;
LOOP

CLOSE cur_name;
end event

type st_3 from statictext within w_add_mxnewprice
integer x = 155
integer y = 448
integer width = 160
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 st_5 from statictext within w_add_mxnewprice
integer x = 878
integer y = 448
integer width = 160
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 ddlb_unit from dropdownlistbox within w_add_mxnewprice
integer x = 1042
integer y = 432
integer width = 233
integer height = 580
integer taborder = 80
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
boolean sorted = false
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type

event constructor;String ls_name
long ll_id
DECLARE cur_name CURSOR FOR
	SELECT unit FROM u_unit_def
	union
	SELECT unit FROM u_mtrldef;
OPEN cur_name;
FETCH cur_name INTO :ls_name;
DO WHILE sqlca.SQLCode = 0
	THIS.AddItem(ls_name)
	FETCH cur_name INTO :ls_name;
LOOP

CLOSE cur_name;


   
end event

type em_rate from editmask within w_add_mxnewprice
integer x = 1431
integer y = 428
integer width = 238
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

type st_11 from statictext within w_add_mxnewprice
integer x = 1285
integer y = 448
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