自定义工作流控制附件权限

mengxb001

关于附件权限问题：

前几天在回答一个问题是后错误回答了那个问题，发这个帖子让
大家来看看如何通过自定义工作流来控制附件添加，修改和删除权限
我以缺陷删除管理这个地方为例子：

Function Defects_Attachment_CanDelete(Attachment)
  On Error Resume Next

  Defects_Attachment_CanDelete = Project_DefaultRes

‘添加只有在project角色里面才可以删除附件

   IF User.IsInGroup("project") THEN   
       Defects_Attachment_CanDelete = TRUE
  ELSE
      Defects_Attachment_CanDelete =FALSE
     MsgBox "The user " & User.UserName  & " doesn't  has permissions."
  END IF

  On Error GoTo 0
End Function

[ 本帖最后由 mengxb001 于 2006-7-6 15:24 编辑 ]