Q5/ws_objects/Ew_publ903.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 arg_powerno)
end prototypes

global function boolean f_power_ind (long arg_powerno);//====================================================================
// Function: f_power_ind()
//--------------------------------------------------------------------
// Description: 判断是否有权限
//--------------------------------------------------------------------
// Arguments: 
//		value	long	arg_powerno	权限ID	
//--------------------------------------------------------------------
// Returns:  boolean
//--------------------------------------------------------------------
// Author:	谢莫锋		Date: 2003.06.13
//--------------------------------------------------------------------
// Modify History: 
//	
//====================================================================

Int i

IF sys_power_issuper THEN RETURN TRUE
i = Integer(Mid(sys_right,arg_powerno,1))
IF i = 1 THEN	RETURN TRUE
RETURN FALSE


end function