Q5/ws_objects/Ew_bsnobj.pbl.src/uo_ddlb_scid_notall.sru

$PBExportHeader$uo_ddlb_scid_notall.sru
forward
global type uo_ddlb_scid_notall from dropdownlistbox
end type
end forward

global type uo_ddlb_scid_notall from dropdownlistbox
integer width = 247
integer height = 228
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean sorted = false
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type
global uo_ddlb_scid_notall uo_ddlb_scid_notall

type variables
long uo_scid

end variables

event constructor;Long ls_scid
Long cnt,cnt_user
String ls_scname
long ll_i
string ls_space
int li_spacenum

for ll_i =1 to upperbound(sys_user_scid)	
	ls_scid = sys_user_scid[ll_i]
	SELECT scname
	INTO :ls_scname
	FROM u_scdef
	Where scid = :ls_scid;
	if sqlca.sqlcode <> 0 or isnull(ls_scname) then ls_scname = ''
	
	li_spacenum = 50 - len(trim(ls_scname)) - 2 - len(string(ls_scid))
	ls_space = fill(' ',li_spacenum)
	
	THIS.AddItem (ls_scname+ls_space+'['+String(ls_scid)+']')
next

THIS.uo_scid = ls_scid
THIS.Text = ls_scname+ls_space+'['+String(ls_scid)+']'
end event

event selectionchanged;uo_scid = Long(Mid ( THIS.Text,Pos(THIS.Text,'[') + 1,Len(THIS.Text) - Pos(THIS.Text,'[') - 1 ))

end event

on uo_ddlb_scid_notall.create
end on

on uo_ddlb_scid_notall.destroy
end on