Q5/ws_objects/Ew_define.pbl.src/w_storage_ch.srw

$PBExportHeader$w_storage_ch.srw
forward
global type w_storage_ch from window
end type
type st_2 from statictext within w_storage_ch
end type
type ddlb_storageid from uo_ddlb_storageid within w_storage_ch
end type
type cb_cancel from uo_imflatbutton within w_storage_ch
end type
type cb_ok from uo_imflatbutton within w_storage_ch
end type
end forward

global type w_storage_ch from window
integer width = 997
integer height = 480
boolean titlebar = true
string title = "仓库选择"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 134217739
string icon = "AppIcon!"
boolean center = true
st_2 st_2
ddlb_storageid ddlb_storageid
cb_cancel cb_cancel
cb_ok cb_ok
end type
global w_storage_ch w_storage_ch

type variables
long cur_storageid_arr[]
long cur_storageid = 0 
end variables

on w_storage_ch.create
this.st_2=create st_2
this.ddlb_storageid=create ddlb_storageid
this.cb_cancel=create cb_cancel
this.cb_ok=create cb_ok
this.Control[]={this.st_2,&
this.ddlb_storageid,&
this.cb_cancel,&
this.cb_ok}
end on

on w_storage_ch.destroy
destroy(this.st_2)
destroy(this.ddlb_storageid)
destroy(this.cb_cancel)
destroy(this.cb_ok)
end on

event close;closewithreturn(this,cur_storageid)
end event

type st_2 from statictext within w_storage_ch
integer x = 59
integer y = 92
integer width = 187
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 ddlb_storageid from uo_ddlb_storageid within w_storage_ch
integer x = 265
integer y = 80
integer width = 635
integer height = 1232
boolean bringtotop = true
end type

event constructor;Long ls_storageid
String ls_storagename
Long cnt = 0
Long ll_i
String ls_space
Int li_spacenum


FOR ll_i = 1 TO UpperBound(sys_user_storageid)
	ls_storageid = sys_user_storageid[ll_i]
	SELECT storagename
		INTO :ls_storagename
		FROM u_storage
		Where storageid = :ls_storageid;
	IF sqlca.SQLCode <> 0 OR IsNull(ls_storagename) THEN ls_storagename = ''
	
	li_spacenum = 50 - Len(Trim(ls_storagename)) - 2 - Len(String(ls_storageid))
	ls_space = Fill(' ',li_spacenum)
	
	THIS.AddItem (ls_storagename+ls_space+'['+String(ls_storageid)+']')
	
NEXT

THIS.uo_storageid = ls_storageid
uo_storageid_arr[1] = ls_storageid
THIS.Text = ls_storagename+ls_space+'['+String(ls_storageid)+']'

uf_get_storageid_arr(ls_storageid)


cur_storageid_arr = this.uo_storageid_arr
end event

type cb_cancel from uo_imflatbutton within w_storage_ch
integer x = 535
integer y = 244
integer width = 311
integer taborder = 40
string text = "取消"
boolean cancel = true
string normalpicname = "exit.bmp"
end type

event clicked;call super::clicked;
close(parent)
end event

type cb_ok from uo_imflatbutton within w_storage_ch
integer x = 151
integer y = 244
integer width = 311
integer taborder = 30
string normalpicname = "ok.bmp"
end type

event clicked;call super::clicked;cur_storageid = ddlb_storageid.uo_storageid
Close(PARENT)

end event