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

$PBExportHeader$w_mrp_unit_ch.srw
forward
global type w_mrp_unit_ch from window
end type
type ddlb_1 from dropdownlistbox within w_mrp_unit_ch
end type
type cb_cancel from uo_imflatbutton within w_mrp_unit_ch
end type
type cb_ok from uo_imflatbutton within w_mrp_unit_ch
end type
end forward

global type w_mrp_unit_ch from window
integer width = 997
integer height = 660
boolean titlebar = true
string title = "MRP运算按辅助单位补足选择"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 134217739
string icon = "AppIcon!"
boolean center = true
ddlb_1 ddlb_1
cb_cancel cb_cancel
cb_ok cb_ok
end type
global w_mrp_unit_ch w_mrp_unit_ch

type variables
s_mtrlorigin rls_mtrlorigin
end variables

on w_mrp_unit_ch.create
this.ddlb_1=create ddlb_1
this.cb_cancel=create cb_cancel
this.cb_ok=create cb_ok
this.Control[]={this.ddlb_1,&
this.cb_cancel,&
this.cb_ok}
end on

on w_mrp_unit_ch.destroy
destroy(this.ddlb_1)
destroy(this.cb_cancel)
destroy(this.cb_ok)
end on

event close;closewithreturn(this,rls_mtrlorigin)
end event

event open;rls_mtrlorigin.mtrloriginid = -1
end event

type ddlb_1 from dropdownlistbox within w_mrp_unit_ch
integer x = 261
integer y = 140
integer width = 480
integer height = 300
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "无[0]"
boolean sorted = false
string item[] = {"无[0]","辅单位1[1]","辅单位2[2]","辅单位3[3]"}
borderstyle borderstyle = stylelowered!
end type

type cb_cancel from uo_imflatbutton within w_mrp_unit_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_mrp_unit_ch
integer x = 165
integer y = 356
integer width = 265
integer taborder = 30
end type

event clicked;call super::clicked;CHOOSE CASE ddlb_1.Text
	CASE '无[0]'
		rls_mtrlorigin.mtrloriginid = 0
	CASE '辅单位1[1]'
		rls_mtrlorigin.mtrloriginid = 1
	CASE '辅单位2[2]'
		rls_mtrlorigin.mtrloriginid = 2
	CASE '辅单位3[3]'
		rls_mtrlorigin.mtrloriginid = 3
		
END CHOOSE 

Close(PARENT)

end event