Q5/ws_objects/Ew_mrp.pbl.src/f_view_mtrl_mx.srf

$PBExportHeader$f_view_mtrl_mx.srf
global type f_view_mtrl_mx from function_object
end type

forward prototypes
global function integer f_view_mtrl_mx (long arg_mtrlid, integer arg_seclettab)
end prototypes

global function integer f_view_mtrl_mx (long arg_mtrlid, integer arg_seclettab);
Long ll_row
Long ll_mtrlid
String ls_mtrlcode



IF arg_mtrlid = 0 THEN
	MessageBox('提示','请选择物料')
	RETURN 0
END IF

SELECT mtrlcode
	INTO :ls_mtrlcode
	FROM u_mtrldef
	Where mtrlid = :arg_mtrlid;
IF sqlca.SQLCode <> 0 THEN
	MessageBox('提示','查询物料编码失败')
	RETURN 0
END IF


//IF IsValid(w_rp_all_mtrl_mx_mx) THEN
//	w_rp_all_mtrl_mx_mx.WindowState = Normal!
//	//		w_rp_all_mtrl_mx_mx.cur_mtrlid = arg_mtrlid
//	w_rp_all_mtrl_mx_mx.cur_mtrlcode = ls_mtrlcode
//	w_rp_all_mtrl_mx_mx.wf_selectindex(arg_seclettab)
//	
//ELSE
//	
//	s_rq_mtrl_mx s_RqMtrlMx
//	//f_cmpl_outwareid
//	s_RqMtrlMx.mtrlid = arg_mtrlid
//	s_RqMtrlMx.mtrlcode = ls_mtrlcode
//	s_RqMtrlMx.SelectTab = arg_seclettab
//	
//	OpenWithParm(w_rp_all_mtrl_mx_mx,s_RqMtrlMx)
//END IF
RETURN 1

end function