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

$PBExportHeader$w_sc_wkp_ch.srw
forward
global type w_sc_wkp_ch from w_publ_choice
end type
end forward

global type w_sc_wkp_ch from w_publ_choice
integer width = 2263
integer height = 1844
string title = "车间选择"
end type
global w_sc_wkp_ch w_sc_wkp_ch

type variables
s_workgroup s_wkp
Long i_scid

end variables

on w_sc_wkp_ch.create
call super::create
end on

on w_sc_wkp_ch.destroy
call super::destroy
end on

event ue_before_open;call super::ue_before_open;i_scid = Message.DoubleParm

end event

event dw_filter;call super::dw_filter;String obj_expr = ''
IF Trim(sle_ch.Text) <> '' THEN
	IF Pos(Trim(sle_ch.Text),'%') = 0 THEN
		obj_expr = obj_expr+'( wrkgrpname LIKE "%'+Trim(sle_ch.Text)+'%" )'
	ELSE
		obj_expr = obj_expr+'( wrkgrpname LIKE "'+Trim(sle_ch.Text)+'" )'
	END IF
END IF

dw_ch.SetFilter(obj_expr)
dw_ch.SetRedraw(FALSE)
dw_ch.Filter()
IF dw_ch.RowCount() >= 1 THEN
	dw_ch.SelectRow(0,FALSE)
	dw_ch.SelectRow(1,TRUE)
END IF
dw_ch.SetRedraw(TRUE)

end event

event close;call super::close;CLOSEWITHRETURN(THIS,s_wkp)
end event

type cb_func from w_publ_choice`cb_func within w_sc_wkp_ch
end type

type cb_exit from w_publ_choice`cb_exit within w_sc_wkp_ch
end type

event cb_exit::clicked;s_wkp.wrkgrpid = 0
Close(PARENT)

end event

type sle_ch from w_publ_choice`sle_ch within w_sc_wkp_ch
integer x = 279
end type

type dw_ch from w_publ_choice`dw_ch within w_sc_wkp_ch
integer width = 2194
string dataobject = "dw_sc_wkp_ch"
end type

type st_1 from w_publ_choice`st_1 within w_sc_wkp_ch
integer width = 233
string text = "名称含："
boolean righttoleft = false
end type

type cb_retrieve from w_publ_choice`cb_retrieve within w_sc_wkp_ch
end type

event cb_retrieve::clicked;dw_ch.retrieve(i_scid)
end event

type cb_choice from w_publ_choice`cb_choice within w_sc_wkp_ch
end type

event cb_choice::clicked;call super::clicked;Long LS_ROW
LS_ROW = dw_CH.GetRow()
IF LS_ROW <= 0 THEN
	MessageBox('系统提示','请先选择目标行!',StopSign!)
	RETURN
END IF

s_wkp.wrkgrpid = dw_CH.Object.wrkgrpid[LS_ROW]
s_wkp.wrkgrpname = dw_CH.Object.wrkgrpname[LS_ROW]
s_wkp.storageid = dw_CH.Object.storageid[LS_ROW]

Close(PARENT)

end event

type ln_bar from w_publ_choice`ln_bar within w_sc_wkp_ch
end type

type ln_bar2 from w_publ_choice`ln_bar2 within w_sc_wkp_ch
end type

type r_bar from w_publ_choice`r_bar within w_sc_wkp_ch
integer x = 1504
end type

type ln_1 from w_publ_choice`ln_1 within w_sc_wkp_ch
end type

type ln_2 from w_publ_choice`ln_2 within w_sc_wkp_ch
end type