Q5/ws_objects/Ew_mrp.pbl.src/w_workgroup_edit_ch.srw

$PBExportHeader$w_workgroup_edit_ch.srw
forward
global type w_workgroup_edit_ch from w_workgroup
end type
end forward

global type w_workgroup_edit_ch from w_workgroup
boolean minbox = false
windowtype windowtype = response!
end type
global w_workgroup_edit_ch w_workgroup_edit_ch

type variables
long ins_workgroupid
end variables

on w_workgroup_edit_ch.create
call super::create
end on

on w_workgroup_edit_ch.destroy
call super::destroy
end on

event open;call super::open;ins_workgroupid = 0
end event

event close;call super::close;closewithreturn(this, ins_workgroupid)
end event

type cb_func from w_workgroup`cb_func within w_workgroup_edit_ch
end type

type cb_exit from w_workgroup`cb_exit within w_workgroup_edit_ch
integer x = 1330
end type

type cb_add from w_workgroup`cb_add within w_workgroup_edit_ch
end type

type cb_edit from w_workgroup`cb_edit within w_workgroup_edit_ch
end type

type cb_delet from w_workgroup`cb_delet within w_workgroup_edit_ch
end type

type cb_choice from w_workgroup`cb_choice within w_workgroup_edit_ch
boolean visible = true
integer x = 850
boolean enabled = true
end type

event cb_choice::clicked;call super::clicked;if dw_edit_mode then return

long ll_row
ll_row = dw_uc.GetRow()
if ll_row <= 0  then
	MessageBox('提示', '请选择工作中心')
	return
end if

ins_workgroupid = dw_uc.Object.workgroupid[ll_row]

close(parent)
end event

type dw_uc from w_workgroup`dw_uc within w_workgroup_edit_ch
end type

type cb_rtr from w_workgroup`cb_rtr within w_workgroup_edit_ch
end type

type cb_help from w_workgroup`cb_help within w_workgroup_edit_ch
integer x = 1179
end type

type ln_bar from w_workgroup`ln_bar within w_workgroup_edit_ch
end type

type ln_bar2 from w_workgroup`ln_bar2 within w_workgroup_edit_ch
end type

type r_bar from w_workgroup`r_bar within w_workgroup_edit_ch
end type

type cb_print from w_workgroup`cb_print within w_workgroup_edit_ch
integer x = 1015
end type