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

$PBExportHeader$w_mtrlprp_ch.srw
forward
global type w_mtrlprp_ch from window
end type
type ddlb_mtrlprp from uo_ddlb_mtrlprp within w_mtrlprp_ch
end type
type st_3 from statictext within w_mtrlprp_ch
end type
type cb_cancel from uo_imflatbutton within w_mtrlprp_ch
end type
type cb_ok from uo_imflatbutton within w_mtrlprp_ch
end type
end forward

global type w_mtrlprp_ch from window
integer width = 997
integer height = 660
boolean titlebar = true
string title = "物料来源选择"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 134217739
string icon = "AppIcon!"
boolean center = true
ddlb_mtrlprp ddlb_mtrlprp
st_3 st_3
cb_cancel cb_cancel
cb_ok cb_ok
end type
global w_mtrlprp_ch w_mtrlprp_ch

type variables
s_mtrlprp rls_mtrlprp
end variables

on w_mtrlprp_ch.create
this.ddlb_mtrlprp=create ddlb_mtrlprp
this.st_3=create st_3
this.cb_cancel=create cb_cancel
this.cb_ok=create cb_ok
this.Control[]={this.ddlb_mtrlprp,&
this.st_3,&
this.cb_cancel,&
this.cb_ok}
end on

on w_mtrlprp_ch.destroy
destroy(this.ddlb_mtrlprp)
destroy(this.st_3)
destroy(this.cb_cancel)
destroy(this.cb_ok)
end on

event close;closewithreturn(this,rls_mtrlprp)
end event

event open;rls_mtrlprp.mtrlprpid = -1
end event

type ddlb_mtrlprp from uo_ddlb_mtrlprp within w_mtrlprp_ch
integer x = 425
integer y = 152
integer width = 352
integer height = 480
integer taborder = 10
boolean bringtotop = true
string text = ""
string item[] = {"成品[0]","半成品[1]","原料[2]","其它[8]"}
end type

event selectionchanged;CHOOSE CASE Index
	CASE 1
		uo_mtrlprp = 0
	CASE 2
		uo_mtrlprp =1
	CASE 3
		uo_mtrlprp = 2
	CASE 4
		uo_mtrlprp = 8
//	CASE 5
//		uo_mtrlprp = 8
END CHOOSE
end event

type st_3 from statictext within w_mtrlprp_ch
integer x = 247
integer y = 168
integer width = 151
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "属性"
boolean focusrectangle = false
end type

type cb_cancel from uo_imflatbutton within w_mtrlprp_ch
integer x = 549
integer y = 356
integer width = 265
integer taborder = 40
string text = "取消"
boolean cancel = true
end type

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

type cb_ok from uo_imflatbutton within w_mtrlprp_ch
integer x = 165
integer y = 356
integer width = 265
integer taborder = 30
end type

event clicked;call super::clicked;rls_mtrlprp.mtrlprpid = ddlb_mtrlprp.uo_mtrlprp
close(parent)
end event