Q5/ws_objects/Ew_bsnobj.pbl.src/w_cmpl_qty_ch.srw

$PBExportHeader$w_cmpl_qty_ch.srw
forward
global type w_cmpl_qty_ch from w_publ_base
end type
type cb_1 from uo_imflatbutton within w_cmpl_qty_ch
end type
type st_3 from statictext within w_cmpl_qty_ch
end type
type em_1 from editmask within w_cmpl_qty_ch
end type
type cb_2 from commandbutton within w_cmpl_qty_ch
end type
type cb_3 from commandbutton within w_cmpl_qty_ch
end type
type cb_4 from commandbutton within w_cmpl_qty_ch
end type
type cb_5 from commandbutton within w_cmpl_qty_ch
end type
type cb_6 from commandbutton within w_cmpl_qty_ch
end type
type cb_7 from commandbutton within w_cmpl_qty_ch
end type
type cb_8 from commandbutton within w_cmpl_qty_ch
end type
type cb_9 from commandbutton within w_cmpl_qty_ch
end type
type cb_10 from commandbutton within w_cmpl_qty_ch
end type
type cb_11 from commandbutton within w_cmpl_qty_ch
end type
type cb_13 from commandbutton within w_cmpl_qty_ch
end type
type cb_14 from commandbutton within w_cmpl_qty_ch
end type
type cb_15 from commandbutton within w_cmpl_qty_ch
end type
type cb_16 from commandbutton within w_cmpl_qty_ch
end type
type cb_17 from commandbutton within w_cmpl_qty_ch
end type
type cb_12 from commandbutton within w_cmpl_qty_ch
end type
type st_1 from statictext within w_cmpl_qty_ch
end type
type cb_18 from commandbutton within w_cmpl_qty_ch
end type
type cb_19 from commandbutton within w_cmpl_qty_ch
end type
type cb_20 from commandbutton within w_cmpl_qty_ch
end type
type cb_21 from commandbutton within w_cmpl_qty_ch
end type
type sle_2 from editmask within w_cmpl_qty_ch
end type
type rb_1 from radiobutton within w_cmpl_qty_ch
end type
type rb_2 from radiobutton within w_cmpl_qty_ch
end type
type em_2 from editmask within w_cmpl_qty_ch
end type
type st_2 from statictext within w_cmpl_qty_ch
end type
type cb_22 from commandbutton within w_cmpl_qty_ch
end type
type cb_23 from commandbutton within w_cmpl_qty_ch
end type
type cb_24 from commandbutton within w_cmpl_qty_ch
end type
type sle_1 from u_sleedit within w_cmpl_qty_ch
end type
type cb_status from commandbutton within w_cmpl_qty_ch
end type
type cb_woodcode from commandbutton within w_cmpl_qty_ch
end type
type cb_pcode from commandbutton within w_cmpl_qty_ch
end type
type cb_mtrlsectype from commandbutton within w_cmpl_qty_ch
end type
type cb_zxmtrlmode from commandbutton within w_cmpl_qty_ch
end type
type cb_25 from commandbutton within w_cmpl_qty_ch
end type
type cb_26 from commandbutton within w_cmpl_qty_ch
end type
type cb_27 from commandbutton within w_cmpl_qty_ch
end type
type cb_28 from commandbutton within w_cmpl_qty_ch
end type
type cb_29 from commandbutton within w_cmpl_qty_ch
end type
type cb_mxdscrp from commandbutton within w_cmpl_qty_ch
end type
type cb_mxdscrp4 from commandbutton within w_cmpl_qty_ch
end type
type cb_mxdscrp3 from commandbutton within w_cmpl_qty_ch
end type
type cb_mxdscrp2 from commandbutton within w_cmpl_qty_ch
end type
end forward

global type w_cmpl_qty_ch from w_publ_base
integer width = 1824
integer height = 1264
string title = "公式设定"
boolean minbox = false
windowtype windowtype = response!
cb_1 cb_1
st_3 st_3
em_1 em_1
cb_2 cb_2
cb_3 cb_3
cb_4 cb_4
cb_5 cb_5
cb_6 cb_6
cb_7 cb_7
cb_8 cb_8
cb_9 cb_9
cb_10 cb_10
cb_11 cb_11
cb_13 cb_13
cb_14 cb_14
cb_15 cb_15
cb_16 cb_16
cb_17 cb_17
cb_12 cb_12
st_1 st_1
cb_18 cb_18
cb_19 cb_19
cb_20 cb_20
cb_21 cb_21
sle_2 sle_2
rb_1 rb_1
rb_2 rb_2
em_2 em_2
st_2 st_2
cb_22 cb_22
cb_23 cb_23
cb_24 cb_24
sle_1 sle_1
cb_status cb_status
cb_woodcode cb_woodcode
cb_pcode cb_pcode
cb_mtrlsectype cb_mtrlsectype
cb_zxmtrlmode cb_zxmtrlmode
cb_25 cb_25
cb_26 cb_26
cb_27 cb_27
cb_28 cb_28
cb_29 cb_29
cb_mxdscrp cb_mxdscrp
cb_mxdscrp4 cb_mxdscrp4
cb_mxdscrp3 cb_mxdscrp3
cb_mxdscrp2 cb_mxdscrp2
end type
global w_cmpl_qty_ch w_cmpl_qty_ch

type variables
s_cmpl_qty s_cmpl
string ls_value
decimal addqty
decimal price
decimal rebate
string status
string woodcode 
string pcode
string zxmtrlmode
string mtrlsectype
end variables

forward prototypes
public subroutine wf_cmp ()
end prototypes

public subroutine wf_cmp ();
String ls_msg
s_cmpl_qty arg_cmpl
decimal ld_qty
arg_cmpl = s_cmpl
arg_cmpl.formula = sle_1.Text 
arg_cmpl.num = dec(em_1.Text)
arg_cmpl.flag = rb_1.Checked  
arg_cmpl.addvalue = Dec(em_2.Text)
ld_qty = 0 
if f_cmpl_qty(arg_cmpl,ld_qty,ls_msg) = 0 then
	sle_1.Text = '' 
	MessageBox('提示',ls_msg, Information!, OK! )
	RETURN
END IF
	
sle_2.Text = String(ld_qty,'###,####,###0.######')


end subroutine

on w_cmpl_qty_ch.create
int iCurrent
call super::create
this.cb_1=create cb_1
this.st_3=create st_3
this.em_1=create em_1
this.cb_2=create cb_2
this.cb_3=create cb_3
this.cb_4=create cb_4
this.cb_5=create cb_5
this.cb_6=create cb_6
this.cb_7=create cb_7
this.cb_8=create cb_8
this.cb_9=create cb_9
this.cb_10=create cb_10
this.cb_11=create cb_11
this.cb_13=create cb_13
this.cb_14=create cb_14
this.cb_15=create cb_15
this.cb_16=create cb_16
this.cb_17=create cb_17
this.cb_12=create cb_12
this.st_1=create st_1
this.cb_18=create cb_18
this.cb_19=create cb_19
this.cb_20=create cb_20
this.cb_21=create cb_21
this.sle_2=create sle_2
this.rb_1=create rb_1
this.rb_2=create rb_2
this.em_2=create em_2
this.st_2=create st_2
this.cb_22=create cb_22
this.cb_23=create cb_23
this.cb_24=create cb_24
this.sle_1=create sle_1
this.cb_status=create cb_status
this.cb_woodcode=create cb_woodcode
this.cb_pcode=create cb_pcode
this.cb_mtrlsectype=create cb_mtrlsectype
this.cb_zxmtrlmode=create cb_zxmtrlmode
this.cb_25=create cb_25
this.cb_26=create cb_26
this.cb_27=create cb_27
this.cb_28=create cb_28
this.cb_29=create cb_29
this.cb_mxdscrp=create cb_mxdscrp
this.cb_mxdscrp4=create cb_mxdscrp4
this.cb_mxdscrp3=create cb_mxdscrp3
this.cb_mxdscrp2=create cb_mxdscrp2
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_1
this.Control[iCurrent+2]=this.st_3
this.Control[iCurrent+3]=this.em_1
this.Control[iCurrent+4]=this.cb_2
this.Control[iCurrent+5]=this.cb_3
this.Control[iCurrent+6]=this.cb_4
this.Control[iCurrent+7]=this.cb_5
this.Control[iCurrent+8]=this.cb_6
this.Control[iCurrent+9]=this.cb_7
this.Control[iCurrent+10]=this.cb_8
this.Control[iCurrent+11]=this.cb_9
this.Control[iCurrent+12]=this.cb_10
this.Control[iCurrent+13]=this.cb_11
this.Control[iCurrent+14]=this.cb_13
this.Control[iCurrent+15]=this.cb_14
this.Control[iCurrent+16]=this.cb_15
this.Control[iCurrent+17]=this.cb_16
this.Control[iCurrent+18]=this.cb_17
this.Control[iCurrent+19]=this.cb_12
this.Control[iCurrent+20]=this.st_1
this.Control[iCurrent+21]=this.cb_18
this.Control[iCurrent+22]=this.cb_19
this.Control[iCurrent+23]=this.cb_20
this.Control[iCurrent+24]=this.cb_21
this.Control[iCurrent+25]=this.sle_2
this.Control[iCurrent+26]=this.rb_1
this.Control[iCurrent+27]=this.rb_2
this.Control[iCurrent+28]=this.em_2
this.Control[iCurrent+29]=this.st_2
this.Control[iCurrent+30]=this.cb_22
this.Control[iCurrent+31]=this.cb_23
this.Control[iCurrent+32]=this.cb_24
this.Control[iCurrent+33]=this.sle_1
this.Control[iCurrent+34]=this.cb_status
this.Control[iCurrent+35]=this.cb_woodcode
this.Control[iCurrent+36]=this.cb_pcode
this.Control[iCurrent+37]=this.cb_mtrlsectype
this.Control[iCurrent+38]=this.cb_zxmtrlmode
this.Control[iCurrent+39]=this.cb_25
this.Control[iCurrent+40]=this.cb_26
this.Control[iCurrent+41]=this.cb_27
this.Control[iCurrent+42]=this.cb_28
this.Control[iCurrent+43]=this.cb_29
this.Control[iCurrent+44]=this.cb_mxdscrp
this.Control[iCurrent+45]=this.cb_mxdscrp4
this.Control[iCurrent+46]=this.cb_mxdscrp3
this.Control[iCurrent+47]=this.cb_mxdscrp2
end on

on w_cmpl_qty_ch.destroy
call super::destroy
destroy(this.cb_1)
destroy(this.st_3)
destroy(this.em_1)
destroy(this.cb_2)
destroy(this.cb_3)
destroy(this.cb_4)
destroy(this.cb_5)
destroy(this.cb_6)
destroy(this.cb_7)
destroy(this.cb_8)
destroy(this.cb_9)
destroy(this.cb_10)
destroy(this.cb_11)
destroy(this.cb_13)
destroy(this.cb_14)
destroy(this.cb_15)
destroy(this.cb_16)
destroy(this.cb_17)
destroy(this.cb_12)
destroy(this.st_1)
destroy(this.cb_18)
destroy(this.cb_19)
destroy(this.cb_20)
destroy(this.cb_21)
destroy(this.sle_2)
destroy(this.rb_1)
destroy(this.rb_2)
destroy(this.em_2)
destroy(this.st_2)
destroy(this.cb_22)
destroy(this.cb_23)
destroy(this.cb_24)
destroy(this.sle_1)
destroy(this.cb_status)
destroy(this.cb_woodcode)
destroy(this.cb_pcode)
destroy(this.cb_mtrlsectype)
destroy(this.cb_zxmtrlmode)
destroy(this.cb_25)
destroy(this.cb_26)
destroy(this.cb_27)
destroy(this.cb_28)
destroy(this.cb_29)
destroy(this.cb_mxdscrp)
destroy(this.cb_mxdscrp4)
destroy(this.cb_mxdscrp3)
destroy(this.cb_mxdscrp2)
end on

event close;call super::close;closewithreturn(this,s_cmpl)
end event

event open;call super::open;String ls_num

cb_status.Text = '配置' //sys_option_change_status
cb_woodcode.Text = '配置1' //sys_option_change_woodcode
cb_pcode.Text ='配置2'    //sys_option_change_pcode

cb_mtrlsectype.Text =  '自定义1'  //sys_option_change_mtrlsectype
cb_zxmtrlmode.Text = '自定义2' // sys_option_change_zxmtrlmode

//IF Len(sys_option_change_status) > 5 THEN
//	cb_status.Width = 33 * Len(sys_option_change_status)
//END IF
//
//IF Len(sys_option_change_woodcode) > 5 THEN
//	cb_woodcode.Width = 33 * Len(sys_option_change_woodcode)
//END IF
//
//IF Len(sys_option_change_pcode) > 5 THEN
//	cb_pcode.Width = 33 * Len(sys_option_change_pcode)
//END IF
//
//IF Len(sys_option_change_mtrlsectype) > 5 THEN
//	cb_mtrlsectype.Width = 33 * Len(sys_option_change_mtrlsectype)
//END IF
//
//IF Len(sys_option_change_zxmtrlmode) > 5 THEN
//	cb_zxmtrlmode.Width = 33 * Len(sys_option_change_zxmtrlmode)
//END IF
//
cb_woodcode.x = cb_status.x + cb_status.width + 57
cb_pcode.x = cb_woodcode.x + cb_woodcode.width + 57
cb_mtrlsectype.x = cb_pcode.x + cb_pcode.width + 57
cb_zxmtrlmode.x = cb_mtrlsectype.x + cb_mtrlsectype.width + 57

s_cmpl = Message.PowerObjectParm



ls_value = f_ProfileString (sys_empid,'w_cmpl_qty_ch', "value",'1')
ls_num  =  f_ProfileString (sys_empid,'w_cmpl_qty_ch', "num",'5')
IF ls_num > '5' THEN
	ls_num = '5'
END IF

addqty = s_cmpl.addqty
price = s_cmpl.price
IF s_cmpl.ifnorebate = 0 THEN
	rebate = s_cmpl.rebate
ELSE
	cb_24.Visible = FALSE
END IF

em_1.Text = ls_num
sle_1.Text = s_cmpl.formula
sle_2.Text = String(s_cmpl.qty,'####,###,###0.#######')
em_2.Text = ls_value

sle_1.SetFocus()




end event

event key;call super::key;IF Key = KeyEnter! THEN
	cb_1.triggerevent(clicked!)
END IF
end event

type cb_func from w_publ_base`cb_func within w_cmpl_qty_ch
boolean visible = false
end type

type cb_exit from w_publ_base`cb_exit within w_cmpl_qty_ch
integer x = 1403
integer y = 1060
integer width = 343
integer taborder = 50
end type

type cb_1 from uo_imflatbutton within w_cmpl_qty_ch
integer x = 1403
integer y = 948
integer width = 343
integer height = 96
integer taborder = 40
boolean bringtotop = true
string normalpicname = "ok.bmp"
end type

event clicked;call super::clicked;string ls_num
wf_cmp()

ls_num =  em_1.text
ls_value = em_2.text

f_SetProfileString (sys_empid,"w_cmpl_qty_ch", "num", ls_num)
f_SetProfileString (sys_empid,"w_cmpl_qty_ch", "value", ls_value)

s_cmpl.formula = sle_1.text
s_cmpl.qty = dec(sle_2.text)

close(parent)
end event

type st_3 from statictext within w_cmpl_qty_ch
integer x = 1403
integer y = 372
integer width = 201
integer height = 64
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217738
string text = "小数位:"
alignment alignment = right!
boolean focusrectangle = false
end type

type em_1 from editmask within w_cmpl_qty_ch
integer x = 1609
integer y = 356
integer width = 165
integer height = 84
integer taborder = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "###0"
boolean spin = true
double increment = 1
string minmax = "0~~5"
end type

event modified;cb_12.SetFocus()
end event

type cb_2 from commandbutton within w_cmpl_qty_ch
integer x = 41
integer y = 628
integer width = 165
integer height = 104
integer taborder = 70
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "7"
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_3 from commandbutton within w_cmpl_qty_ch
integer x = 261
integer y = 628
integer width = 165
integer height = 104
integer taborder = 80
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "8"
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_4 from commandbutton within w_cmpl_qty_ch
integer x = 261
integer y = 768
integer width = 165
integer height = 104
integer taborder = 130
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "5"
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_5 from commandbutton within w_cmpl_qty_ch
integer x = 41
integer y = 768
integer width = 165
integer height = 104
integer taborder = 90
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "4"
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_6 from commandbutton within w_cmpl_qty_ch
integer x = 480
integer y = 628
integer width = 165
integer height = 104
integer taborder = 100
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "9"
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_7 from commandbutton within w_cmpl_qty_ch
integer x = 704
integer y = 628
integer width = 165
integer height = 104
integer taborder = 140
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "/"
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_8 from commandbutton within w_cmpl_qty_ch
integer x = 704
integer y = 768
integer width = 165
integer height = 104
integer taborder = 200
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "*"
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_9 from commandbutton within w_cmpl_qty_ch
integer x = 480
integer y = 768
integer width = 165
integer height = 104
integer taborder = 150
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "6"
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_10 from commandbutton within w_cmpl_qty_ch
integer x = 41
integer y = 904
integer width = 165
integer height = 104
integer taborder = 110
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "1"
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_11 from commandbutton within w_cmpl_qty_ch
integer x = 261
integer y = 904
integer width = 165
integer height = 104
integer taborder = 160
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "2"
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_13 from commandbutton within w_cmpl_qty_ch
integer x = 41
integer y = 1044
integer width = 165
integer height = 104
integer taborder = 170
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "0"
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_14 from commandbutton within w_cmpl_qty_ch
integer x = 480
integer y = 904
integer width = 165
integer height = 104
integer taborder = 180
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "3"
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_15 from commandbutton within w_cmpl_qty_ch
integer x = 704
integer y = 904
integer width = 165
integer height = 104
integer taborder = 210
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "-"
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_16 from commandbutton within w_cmpl_qty_ch
integer x = 704
integer y = 1044
integer width = 165
integer height = 104
integer taborder = 250
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "+"
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_17 from commandbutton within w_cmpl_qty_ch
integer x = 261
integer y = 1044
integer width = 165
integer height = 104
integer taborder = 220
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "."
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_12 from commandbutton within w_cmpl_qty_ch
integer x = 933
integer y = 1044
integer width = 165
integer height = 104
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "="
end type

event clicked;wf_cmp()
cb_1.SetFocus()


end event

type st_1 from statictext within w_cmpl_qty_ch
integer x = 1134
integer y = 856
integer width = 206
integer height = 64
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217738
string text = "结  果:"
alignment alignment = right!
boolean focusrectangle = false
end type

type cb_18 from commandbutton within w_cmpl_qty_ch
integer x = 933
integer y = 768
integer width = 165
integer height = 104
integer taborder = 260
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "("
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_19 from commandbutton within w_cmpl_qty_ch
integer x = 933
integer y = 904
integer width = 165
integer height = 104
integer taborder = 290
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = ")"
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_20 from commandbutton within w_cmpl_qty_ch
integer x = 933
integer y = 628
integer width = 165
integer height = 104
integer taborder = 230
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "C"
end type

event clicked;sle_1.text = ''
end event

type cb_21 from commandbutton within w_cmpl_qty_ch
integer x = 480
integer y = 1044
integer width = 165
integer height = 104
integer taborder = 270
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "BS"
end type

event clicked;sle_1.text = mid(sle_1.text,1,len(sle_1.text) - 1)

end event

type sle_2 from editmask within w_cmpl_qty_ch
integer x = 1358
integer y = 840
integer width = 421
integer height = 84
integer taborder = 280
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
alignment alignment = right!
boolean displayonly = true
borderstyle borderstyle = stylelowered!
string mask = "#########0.##########"
end type

type rb_1 from radiobutton within w_cmpl_qty_ch
integer x = 1175
integer y = 676
integer width = 155
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 = 134217738
string text = "*"
boolean checked = true
end type

type rb_2 from radiobutton within w_cmpl_qty_ch
integer x = 1175
integer y = 756
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 = 33554432
long backcolor = 134217738
string text = "/"
end type

type em_2 from editmask within w_cmpl_qty_ch
integer x = 1358
integer y = 704
integer width = 421
integer height = 84
integer taborder = 300
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "#########0.##########"
end type

event modified;cb_12.SetFocus()
end event

type st_2 from statictext within w_cmpl_qty_ch
integer x = 1175
integer y = 612
integer width = 535
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 255
long backcolor = 134217739
string text = "说明:C-清除,BS-退格"
boolean focusrectangle = false
end type

type cb_22 from commandbutton within w_cmpl_qty_ch
integer x = 41
integer y = 352
integer width = 165
integer height = 104
integer taborder = 120
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "辅数"
end type

event clicked;string ls_temp
ls_temp = "[" + this.text + "]"
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_23 from commandbutton within w_cmpl_qty_ch
integer x = 261
integer y = 352
integer width = 165
integer height = 104
integer taborder = 190
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "单价"
end type

event clicked;string ls_temp
ls_temp = "[" + this.text + "]"
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_24 from commandbutton within w_cmpl_qty_ch
integer x = 480
integer y = 352
integer width = 165
integer height = 104
integer taborder = 240
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "折扣"
end type

event clicked;string ls_temp
ls_temp = "[" + this.text + "]"
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type sle_1 from u_sleedit within w_cmpl_qty_ch
integer x = 41
integer y = 100
integer width = 1755
integer taborder = 20
boolean bringtotop = true
end type

type cb_status from commandbutton within w_cmpl_qty_ch
integer x = 41
integer y = 216
integer width = 165
integer height = 104
integer taborder = 130
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "配置"
end type

event clicked;string ls_temp
ls_temp = "[" + this.text + "]"
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_woodcode from commandbutton within w_cmpl_qty_ch
integer x = 261
integer y = 216
integer width = 165
integer height = 104
integer taborder = 130
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "配置1"
end type

event clicked;string ls_temp
ls_temp = "[" + this.text + "]"
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_pcode from commandbutton within w_cmpl_qty_ch
integer x = 480
integer y = 216
integer width = 165
integer height = 104
integer taborder = 200
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "配置2"
end type

event clicked;string ls_temp
ls_temp = "[" + this.text + "]"
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_mtrlsectype from commandbutton within w_cmpl_qty_ch
integer x = 690
integer y = 216
integer width = 302
integer height = 104
integer taborder = 130
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "自定义一"
end type

event clicked;string ls_temp
ls_temp = "[" + this.text + "]"
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_zxmtrlmode from commandbutton within w_cmpl_qty_ch
integer x = 1029
integer y = 216
integer width = 302
integer height = 104
integer taborder = 130
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "自定义二"
end type

event clicked;string ls_temp
ls_temp = "[" + this.text + "]"
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_25 from commandbutton within w_cmpl_qty_ch
integer x = 41
integer width = 165
integer height = 88
integer taborder = 140
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "选择"
end type

event clicked;Open(w_formula_edit)

String ls_temp
ls_temp = Message.StringParm
IF ls_temp <> '' THEN
	sle_1.Text = ls_temp
END IF


end event

type cb_26 from commandbutton within w_cmpl_qty_ch
integer x = 206
integer width = 165
integer height = 88
integer taborder = 150
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "保存"
end type

event clicked;Long ll_newid
String ls_formula,errmsg
Long rslt = 1
ls_formula = Trim(sle_1.Text)
ll_newid = f_sys_scidentity(0,"u_formula_def","formulaid",errmsg,FALSE,sqlca)
IF ll_newid <= 0 THEN
	rslt = 0
	GOTO ext
ELSE
	INSERT INTO u_formula_def
		( formulaid,
		content )
		VALUES ( :ll_newid,
		:ls_formula )  ;
	IF sqlca.SQLCode <> 0 THEN
		errmsg = '插入公式失败'
		rslt = 0
		GOTO ext
	END IF
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK;
	MessageBox('错误',errmsg,stopsign!,OK!)
ELSE
	COMMIT;
	MessageBox('提示',"保存成功!", Information!, OK! )
END IF

end event

type cb_27 from commandbutton within w_cmpl_qty_ch
integer x = 1440
integer y = 216
integer width = 329
integer height = 104
integer taborder = 140
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "价格表单价"
end type

event clicked;string ls_temp
ls_temp = "[" + this.text + "]"
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_28 from commandbutton within w_cmpl_qty_ch
integer x = 690
integer y = 352
integer width = 302
integer height = 104
integer taborder = 70
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "包装数"
end type

event clicked;string ls_temp
ls_temp = "[" + this.text + "]"
sle_1.replacetext(ls_temp)
sle_1.setfocus()


 
end event

type cb_29 from commandbutton within w_cmpl_qty_ch
integer x = 1029
integer y = 352
integer width = 302
integer height = 104
integer taborder = 250
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "规格"
end type

event clicked;string ls_temp
ls_temp = "[" + this.text + "]"
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_mxdscrp from commandbutton within w_cmpl_qty_ch
integer x = 41
integer y = 484
integer width = 274
integer height = 104
integer taborder = 210
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "明细备注"
end type

event clicked;string ls_temp
ls_temp = "[" + this.text + "]"
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_mxdscrp4 from commandbutton within w_cmpl_qty_ch
integer x = 1029
integer y = 484
integer width = 302
integer height = 104
integer taborder = 220
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "明细备注4"
end type

event clicked;string ls_temp
ls_temp = "[" + this.text + "]"
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_mxdscrp3 from commandbutton within w_cmpl_qty_ch
integer x = 686
integer y = 484
integer width = 302
integer height = 104
integer taborder = 220
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "明细备注3"
end type

event clicked;string ls_temp
ls_temp = "[" + this.text + "]"
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_mxdscrp2 from commandbutton within w_cmpl_qty_ch
integer x = 343
integer y = 484
integer width = 302
integer height = 104
integer taborder = 220
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "明细备注2"
end type

event clicked;string ls_temp
ls_temp = "[" + this.text + "]"
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event