Q5/ws_objects/Ew_ware.pbl.src/w_dsr_p_inwarecp_qty.srw

$PBExportHeader$w_dsr_p_inwarecp_qty.srw
forward
global type w_dsr_p_inwarecp_qty from window
end type
type cb_2 from commandbutton within w_dsr_p_inwarecp_qty
end type
type cb_1 from commandbutton within w_dsr_p_inwarecp_qty
end type
type st_1 from statictext within w_dsr_p_inwarecp_qty
end type
type sle_1 from singlelineedit within w_dsr_p_inwarecp_qty
end type
end forward

global type w_dsr_p_inwarecp_qty from window
integer width = 1120
integer height = 664
boolean titlebar = true
string title = "批设数量"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_2 cb_2
cb_1 cb_1
st_1 st_1
sle_1 sle_1
end type
global w_dsr_p_inwarecp_qty w_dsr_p_inwarecp_qty

type variables
s_dsr_finish_procode_qty ss_dsr_finish_procode_qty
end variables

on w_dsr_p_inwarecp_qty.create
this.cb_2=create cb_2
this.cb_1=create cb_1
this.st_1=create st_1
this.sle_1=create sle_1
this.Control[]={this.cb_2,&
this.cb_1,&
this.st_1,&
this.sle_1}
end on

on w_dsr_p_inwarecp_qty.destroy
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.st_1)
destroy(this.sle_1)
end on

event close;CloseWithReturn(THIS,ss_dsr_finish_procode_qty)
end event

event open;ss_dsr_finish_procode_qty = Message.PowerObjectParm 

this.title=ss_dsr_finish_procode_qty.name



sle_1.text=string(ss_dsr_finish_procode_qty.proqty -  ss_dsr_finish_procode_qty.finishqty,'#,##0.####')



end event

type cb_2 from commandbutton within w_dsr_p_inwarecp_qty
integer x = 654
integer y = 420
integer width = 361
integer height = 112
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "取消"
end type

event clicked;ss_dsr_finish_procode_qty.if_ok=0

close(parent)
end event

type cb_1 from commandbutton within w_dsr_p_inwarecp_qty
integer x = 101
integer y = 420
integer width = 361
integer height = 112
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "确定"
end type

event clicked;

IF Dec(sle_1.Text) <= 0 THEN
	MessageBox('NO','数量输入有误！')
	sle_1.text=string(ss_dsr_finish_procode_qty.proqty -  ss_dsr_finish_procode_qty.finishqty,'#,##0.####')
	RETURN
END IF


ss_dsr_finish_procode_qty.rtn_qty=dec(sle_1.text)  
ss_dsr_finish_procode_qty.if_ok = 1

//MessageBox('',String(Dec(sle_1.Text)))

close(parent)


end event

type st_1 from statictext within w_dsr_p_inwarecp_qty
integer x = 32
integer y = 156
integer width = 389
integer height = 80
integer textsize = -9
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "批设数量："
boolean focusrectangle = false
end type

type sle_1 from singlelineedit within w_dsr_p_inwarecp_qty
integer x = 466
integer y = 144
integer width = 576
integer height = 96
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type