FXApp/ws_objects/l1_uo.pbl.src/f_power_ind.srf

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

forward prototypes
global function boolean f_power_ind (long argno, ref string arg_msg)
end prototypes

global function boolean f_power_ind (long argno, ref string arg_msg);//f_power_ind
Int i
Boolean lb_ifpower
Int li_grade
String ls_grade_user,ls_grade_pow
String ls_treename

lb_ifpower = FALSE

i = Integer(Mid(sys_right,argno,1))

IF i = 1 OR sys_power_issuper THEN
	lb_ifpower = TRUE
END IF

SELECT grade,treename INTO :li_grade,:ls_treename
	FROM sys_func_pwr
	Where funcid = :argno;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询权限信息失败,'+sqlca.SQLErrText
	RETURN FALSE
END IF

IF lb_ifpower THEN
	IF sys_ifreg = 1 and sys_ifnewserver = 1 THEN
		IF sys_user_grade < li_grade THEN
			IF sys_user_grade = 0 THEN
				ls_grade_user = '公共[0]'
			ELSEIF sys_user_grade = 1 THEN
				ls_grade_user = '执行[1]'
			ELSEIF sys_user_grade = 2 THEN
				ls_grade_user = '计划[2]'
			ELSEIF sys_user_grade = 3 THEN
				ls_grade_user = '策略[3]'
			END IF
			
			IF li_grade = 0 THEN
				ls_grade_pow = '公共[0]'
			ELSEIF li_grade = 1 THEN
				ls_grade_pow = '执行[1]'
			ELSEIF li_grade = 2 THEN
				ls_grade_pow = '计划[2]'
			ELSEIF li_grade = 3 THEN
				ls_grade_pow = '策略[3]'
			END IF
			
			arg_msg = '你当前用户的等级为:'+ls_grade_user+',不能执行权限等级为:'+ls_grade_pow+'的操作'
			RETURN FALSE
		END IF
	END IF
ELSE
	arg_msg = '你没有'+ls_treename+'的使用权限!'
	RETURN FALSE
END IF

RETURN TRUE







end function