Q5/ws_objects/Ew_mainface.pbl.src/w_inputbox_stop.srw

$PBExportHeader$w_inputbox_stop.srw
forward
global type w_inputbox_stop from w_publ_base
end type
type cb_que from uo_imflatbutton within w_inputbox_stop
end type
type sle_nr from u_sleedit within w_inputbox_stop
end type
type em_1 from editmask within w_inputbox_stop
end type
type st_1 from statictext within w_inputbox_stop
end type
type st_2 from statictext within w_inputbox_stop
end type
end forward

global type w_inputbox_stop from w_publ_base
integer x = 23
integer y = 24
integer width = 2825
integer height = 480
string title = "请填入内容"
boolean controlmenu = false
boolean minbox = false
windowtype windowtype = response!
cb_que cb_que
sle_nr sle_nr
em_1 em_1
st_1 st_1
st_2 st_2
end type
global w_inputbox_stop w_inputbox_stop

type variables
S_INPUTBOX S_OBJSTRU
s_stopmx rst_stop
end variables

on w_inputbox_stop.create
int iCurrent
call super::create
this.cb_que=create cb_que
this.sle_nr=create sle_nr
this.em_1=create em_1
this.st_1=create st_1
this.st_2=create st_2
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_que
this.Control[iCurrent+2]=this.sle_nr
this.Control[iCurrent+3]=this.em_1
this.Control[iCurrent+4]=this.st_1
this.Control[iCurrent+5]=this.st_2
end on

on w_inputbox_stop.destroy
call super::destroy
destroy(this.cb_que)
destroy(this.sle_nr)
destroy(this.em_1)
destroy(this.st_1)
destroy(this.st_2)
end on

event open;call super::open;S_OBJSTRU = Message.PowerObjectParm

THIS.Title = S_OBJSTRU.Title
sle_nr.Text = S_OBJSTRU.OLD_TEXT
sle_nr.SetFocus()
sle_nr.SelectText(1,Len(sle_nr.Text))



end event

event close;CloseWithReturn(this,rst_stop)
end event

type cb_func from w_publ_base`cb_func within w_inputbox_stop
boolean visible = false
integer x = 859
integer y = 124
boolean enabled = false
end type

type cb_exit from w_publ_base`cb_exit within w_inputbox_stop
integer x = 526
integer y = 260
integer width = 325
string text = "取消"
end type

type cb_que from uo_imflatbutton within w_inputbox_stop
integer x = 18
integer y = 260
integer width = 325
integer height = 96
integer taborder = 30
boolean enabled = false
boolean default = true
end type

event clicked;call super::clicked;rst_stop.stopqty=dec(em_1.text)
rst_stop.stopreason=sle_nr.text

if rst_stop.stopqty <= 0 then
	messagebox('提示','中止数量不合理')
	em_1.SetFocus()
	return
end if

Close(parent)
end event

type sle_nr from u_sleedit within w_inputbox_stop
integer x = 293
integer y = 132
integer width = 2505
integer height = 84
boolean bringtotop = true
end type

event inputchanged;if trim(this.text)<>'' then 
	cb_que.enabled=true
else
	cb_que.enabled=false
end if
end event

type em_1 from editmask within w_inputbox_stop
integer x = 293
integer y = 28
integer width = 581
integer height = 84
integer taborder = 10
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "0"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "#,###,###,##0.#####"
end type

type st_1 from statictext within w_inputbox_stop
integer x = 18
integer y = 40
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 = 33554432
long backcolor = 134217739
string text = "中止数量:"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_2 from statictext within w_inputbox_stop
integer x = 18
integer y = 144
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 = 33554432
long backcolor = 134217739
string text = "中止原因:"
alignment alignment = right!
boolean focusrectangle = false
end type