Q5/ws_objects/Ew_mrp.pbl.src/w_dsr_finish_procode_qty.srw

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

global type w_dsr_finish_procode_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_3 st_3
st_2 st_2
st_1 st_1
sle_1 sle_1
end type
global w_dsr_finish_procode_qty w_dsr_finish_procode_qty

type variables
s_dsr_finish_procode_qty ss_dsr_finish_procode_qty
end variables

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

on w_dsr_finish_procode_qty.destroy
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.st_3)
destroy(this.st_2)
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
st_2.text='计划数：' + string(ss_dsr_finish_procode_qty.proqty,'#,##0.####')
st_3.text='已完成数：' + string(ss_dsr_finish_procode_qty.finishqty,'#,##0.####')


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_finish_procode_qty
integer x = 654
integer y = 444
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_finish_procode_qty
integer x = 101
integer y = 444
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

IF Dec(sle_1.Text) >  ss_dsr_finish_procode_qty.proqty -  ss_dsr_finish_procode_qty.finishqty 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_3 from statictext within w_dsr_finish_procode_qty
integer x = 18
integer y = 164
integer width = 832
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 st_2 from statictext within w_dsr_finish_procode_qty
integer x = 18
integer y = 36
integer width = 814
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 st_1 from statictext within w_dsr_finish_procode_qty
integer x = 18
integer y = 304
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_finish_procode_qty
integer x = 453
integer y = 292
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