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

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

global type uo_ddlb_mtrlorigin from dropdownlistbox
integer width = 480
integer height = 808
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "产品包装件[1]"
boolean sorted = false
boolean vscrollbar = true
string item[] = {"全部[-1]","自制产品[0]","产品包装件[1]","采购[2]","外协部件[3]","自制部件[4]"}
borderstyle borderstyle = stylelowered!
end type
global uo_ddlb_mtrlorigin uo_ddlb_mtrlorigin

type variables
int uo_mtrlorigin = 0
end variables

forward prototypes
public function integer uf_setitem (integer arg_mtrlorigin)
end prototypes

public function integer uf_setitem (integer arg_mtrlorigin);Int rslt = 1
IF arg_mtrlorigin = 0 THEN
	This.Text = '自制产品[0]'
ELSEIF arg_mtrlorigin = 1 THEN
	This.Text = '产品包装件[1]'
ELSEIF arg_mtrlorigin = 2 THEN
	This.Text = '采购[2]'
ELSEIF arg_mtrlorigin = 3 THEN
	This.Text = '外协部件[3]'
ELSEIF arg_mtrlorigin = 4 THEN
	This.Text = '自制部件[4]'
ELSEIF arg_mtrlorigin = -1 THEN
	This.Text = '全部[-1]'
ELSE
	rslt = 0
END IF
IF rslt = 1 THEN
	uo_mtrlorigin = arg_mtrlorigin
END IF
RETURN rslt


end function

on uo_ddlb_mtrlorigin.create
end on

on uo_ddlb_mtrlorigin.destroy
end on

event selectionchanged;CHOOSE CASE Index
	CASE 1
		uo_mtrlorigin = -1
	CASE 2
		uo_mtrlorigin = 0
	CASE 3
		uo_mtrlorigin = 1
	CASE 4
		uo_mtrlorigin = 2
	CASE 5
		uo_mtrlorigin = 3
	CASE 6
		uo_mtrlorigin = 4
	CASE ELSE
		uo_mtrlorigin = -1
END CHOOSE


end event

event constructor;IF uo_mtrlorigin = 0 THEN
	This.Text = '自制产品[0]'
ELSEIF uo_mtrlorigin = 1 THEN
	This.Text = '产品包装件[1]'
ELSEIF uo_mtrlorigin = 2 THEN
	This.Text = '采购[2]'
ELSEIF uo_mtrlorigin = 3 THEN
	This.Text = '外协部件[3]'
ELSEIF uo_mtrlorigin = 4 THEN
	This.Text = '自制部件[4]'
ELSEIF uo_mtrlorigin = -1 THEN
	This.Text = '全部[-1]'
END IF



end event