Q5/ws_objects/Ew_mainface.pbl.src/uo_email_power_ew.sru

$PBExportHeader$uo_email_power_ew.sru
forward
global type uo_email_power_ew from uo_email_power
end type
end forward

global type uo_email_power_ew from uo_email_power
end type
global uo_email_power_ew uo_email_power_ew

forward prototypes
public function boolean can_see_mailset (ref string arg_msg)
public function boolean can_delete (ref string arg_msg)
public function boolean can_edit (ref string arg_msg)
public function boolean can_see_other (ref string arg_msg)
public function boolean can_deleteemail (ref string arg_msg)
public function boolean can_deleteemail_forever (ref string arg_msg)
end prototypes

public function boolean can_see_mailset (ref string arg_msg);IF f_power_ind(1412) THEN
	RETURN True
ELSE
	arg_msg = '你没有使用权限'
	RETURN False
END IF
end function

public function boolean can_delete (ref string arg_msg);IF f_power_ind(1444) THEN
	RETURN True
ELSE
	arg_msg = '你没有使用权限'
	RETURN False
END IF
end function

public function boolean can_edit (ref string arg_msg);IF f_power_ind(1412) THEN
	RETURN True
ELSE
	arg_msg = '你没有使用权限'
	RETURN False
END IF
end function

public function boolean can_see_other (ref string arg_msg);IF f_power_ind(1411) THEN
	RETURN True
ELSE
	arg_msg = '你没有使用权限'
	RETURN False
END IF
end function

public function boolean can_deleteemail (ref string arg_msg);IF f_power_ind(1663) THEN
	RETURN True
ELSE
	arg_msg = '你没有使用权限'
	RETURN False
END IF
end function

public function boolean can_deleteemail_forever (ref string arg_msg);IF f_power_ind(1664) THEN
	RETURN True
ELSE
	arg_msg = '你没有使用权限'
	RETURN False
END IF
end function

on uo_email_power_ew.create
call super::create
end on

on uo_email_power_ew.destroy
call super::destroy
end on