Q5/ws_objects/Ew_tmp.pbl.src/w_temp_storage_inout.srw

$PBExportHeader$w_temp_storage_inout.srw
forward
global type w_temp_storage_inout from window
end type
type cb_1 from commandbutton within w_temp_storage_inout
end type
type ddlb_storageid from uo_ddlb_storageid within w_temp_storage_inout
end type
type st_2 from statictext within w_temp_storage_inout
end type
end forward

global type w_temp_storage_inout from window
integer width = 1883
integer height = 1244
boolean titlebar = true
string title = "先进先出 初始哈库存"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_1 cb_1
ddlb_storageid ddlb_storageid
st_2 st_2
end type
global w_temp_storage_inout w_temp_storage_inout

type variables
Long cur_storageid = -1
Long cur_storageid_arr[]
end variables

on w_temp_storage_inout.create
this.cb_1=create cb_1
this.ddlb_storageid=create ddlb_storageid
this.st_2=create st_2
this.Control[]={this.cb_1,&
this.ddlb_storageid,&
this.st_2}
end on

on w_temp_storage_inout.destroy
destroy(this.cb_1)
destroy(this.ddlb_storageid)
destroy(this.st_2)
end on

type cb_1 from commandbutton within w_temp_storage_inout
integer x = 1371
integer y = 48
integer width = 457
integer height = 140
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "初始化"
end type

event clicked;IF cur_storageid = -1 THEN
	MessageBox('错误','请选择仓库！！')
	RETURN
END IF

IF MessageBox ("询问","初始化会清除u_mtrlware_inmx表，是否确定要继续操作吗?",Question!,YesNo! ) = 2 THEN RETURN
end event

type ddlb_storageid from uo_ddlb_storageid within w_temp_storage_inout
integer x = 201
integer y = 52
integer width = 1088
integer height = 1232
boolean bringtotop = true
end type

event constructor;call super::constructor;cur_storageid = this.uo_storageid
cur_storageid_arr = this.uo_storageid_arr

end event

event selectionchanged;call super::selectionchanged;cur_storageid = this.uo_storageid
cur_storageid_arr = this.uo_storageid_arr


end event

type st_2 from statictext within w_temp_storage_inout
integer y = 68
integer width = 192
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