|
Function Defects_Bug_CanPost
On Error Resume Next
If (Bug_Fields("BG_STATUS").IsModified and _
Bug_Fields("BG_STATUS").Value = "待改" and _
(User.IsInGroup("项目经理") or _
User.IsInGroup( "开发人员"))) then
Bug_Fields("BG_PRIORITY").IsRequired=Req
Else
Defects_Bug_CanPost = True
End If
On Error GoTo 0
If (Bug_Fields("BG_STATUS").IsModified and _
Bug_Fields("BG_STATUS").Value = "非错" and _
not Bug_Fields("BG_DEV_COMMENTS").IsModified) and _
(User.IsInGroup("项目经理") or _
User.IsInGroup( "开发人员")) then
Defects_Bug_CanPost = False
msgbox "请在注释中加上非错说明"
Else
Defects_Bug_CanPost = True
End If
On Error GoTo 0
End Function
[ 本帖最后由 shhuangfy 于 2008-6-17 15:06 编辑 ] |
|