Q5/ws_objects/longjoe_report_uo.pbl.src/f_pow_rpt.srf

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

forward prototypes
global function boolean f_pow_rpt (long arg_rpid)
end prototypes

global function boolean f_pow_rpt (long arg_rpid);//==============================================================================
// 函数: f_pow_rpt()
//------------------------------------------------------------------------------
// 描述: 自定义报表权限检查
//------------------------------------------------------------------------------
// 参数: 
//		value	long	arg_rpid		
//------------------------------------------------------------------------------
// 返回值:  boolean
//------------------------------------------------------------------------------
// 作者:	ZQH		日期: 2008-09-27
//------------------------------------------------------------------------------
// 修改历史: 
//	
//==============================================================================

Long len_rgt,len_id
Long i
String ls_rptid

ls_rptid = ',' + String(arg_rpid) + ','
len_rgt = Len(sys_right_rpt)
len_id = Len(ls_rptid)

FOR i = 1 TO len_rgt
	IF  Mid(sys_right_rpt,i,1) = '0' OR Mid(sys_right_rpt,i,len_id) =  ls_rptid THEN
		GOTO ext
	END IF
NEXT

RETURN FALSE

ext:
RETURN TRUE


end function