QC中一段缺陷模块脚本
上一篇 / 下一篇 2013-02-15 16:34:28 / 个人分类:工具
Sub SetFieldApp( FieldName, Vis, Req, PNo, VOrder )
'设置字段的外观
With Bug_Fields(FieldName)
.IsVisible = Vis
.IsRequired = Req
.PageNo = PNo
.ViewOrder = VOrder
End With
End Sub
Sub WizardFieldCust_Add
' 该子例程已由“脚本生成器 - 添加缺陷 字段自定义”自动生成。
' 您所做的任何修改将在您下一次使用生成器时被覆盖。
If User.IsInGroup("Developer") Then
SetFieldApp "BG_ACTUAL_FIX_TIME", True, False, 0, 0
SetFieldApp "BG_BUG_ID", True, False, 0, 1
SetFieldApp "BG_CLOSING_DATE", True, False, 0, 2
SetFieldApp "BG_CLOSING_VERSION", True, False, 0, 3
SetFieldApp "BG_DESCRIPTION", True, False, 0, 4
SetFieldApp "BG_DETECTED_BY", True, True, 0, 5
SetFieldApp "BG_DETECTION_DATE", True, True, 0, 6
SetFieldApp "BG_DETECTION_VERSION", True, False, 0, 7
SetFieldApp "BG_DEV_COMMENTS", True, False, 0, 8
SetFieldApp "BG_ESTIMATED_FIX_TIME", True, False, 0, 9
SetFieldApp "BG_PLANNED_CLOSING_VER", True, False, 0, 10
SetFieldApp "BG_PRIORITY", True, True, 0, 11
SetFieldApp "BG_PROJECT", True, True, 0, 12
SetFieldApp "BG_REPRODUCIBLE", True, False, 0, 13
SetFieldApp "BG_RESPONSIBLE", True, True, 0, 14
SetFieldApp "BG_SEVERITY", True, True, 0, 15
SetFieldApp "BG_STATUS", True, False, 0, 16
SetFieldApp "BG_SUBJECT", True, False, 0, 17
SetFieldApp "BG_SUMMARY", True, True, 0, 18
SetFieldApp "BG_USER_01", True, True, 0, 19
SetFieldApp "BG_VTS", True, False, 0, 20
SetFieldApp "BG_USER_02", False, True, 0, 21
ElseIf User.IsInGroup("Developer1") Then
SetFieldApp "BG_ACTUAL_FIX_TIME", True, False, 0, 0
SetFieldApp "BG_BUG_ID", True, False, 0, 1
SetFieldApp "BG_CLOSING_DATE", True, False, 0, 2
SetFieldApp "BG_CLOSING_VERSION", True, False, 0, 3
SetFieldApp "BG_DESCRIPTION", True, False, 0, 4
SetFieldApp "BG_DETECTED_BY", True, True, 0, 5
SetFieldApp "BG_DETECTION_DATE", True, True, 0, 6
SetFieldApp "BG_DETECTION_VERSION", True, False, 0, 7
SetFieldApp "BG_DEV_COMMENTS", True, False, 0, 8
SetFieldApp "BG_ESTIMATED_FIX_TIME", True, False, 0, 9
SetFieldApp "BG_PLANNED_CLOSING_VER", True, False, 0, 10
SetFieldApp "BG_PRIORITY", True, True, 0, 11
SetFieldApp "BG_PROJECT", True, True, 0, 12
SetFieldApp "BG_REPRODUCIBLE", True, False, 0, 13
SetFieldApp "BG_RESPONSIBLE", True, True, 0, 14
SetFieldApp "BG_SEVERITY", True, True, 0, 15
SetFieldApp "BG_STATUS", True, False, 0, 16
SetFieldApp "BG_SUBJECT", True, False, 0, 17
SetFieldApp "BG_SUMMARY", True, True, 0, 18
SetFieldApp "BG_USER_01", True, True, 0, 19
SetFieldApp "BG_USER_02", True, True, 0, 20
SetFieldApp "BG_VTS", True, False, 0, 21
ElseIf User.IsInGroup("Project Manager") Then
SetFieldApp "BG_ACTUAL_FIX_TIME", True, False, 0, 0
SetFieldApp "BG_BUG_ID", True, False, 0, 1
SetFieldApp "BG_CLOSING_DATE", True, False, 0, 2
SetFieldApp "BG_CLOSING_VERSION", True, False, 0, 3
SetFieldApp "BG_DESCRIPTION", True, False, 0, 4
SetFieldApp "BG_DETECTED_BY", True, True, 0, 5
SetFieldApp "BG_DETECTION_DATE", True, True, 0, 6
SetFieldApp "BG_DETECTION_VERSION", True, False, 0, 7
SetFieldApp "BG_DEV_COMMENTS", True, False, 0, 8
SetFieldApp "BG_ESTIMATED_FIX_TIME", True, False, 0, 9
SetFieldApp "BG_PLANNED_CLOSING_VER", True, False, 0, 10
SetFieldApp "BG_PRIORITY", True, True, 0, 11
SetFieldApp "BG_PROJECT", True, True, 0, 12
SetFieldApp "BG_REPRODUCIBLE", True, False, 0, 13
SetFieldApp "BG_RESPONSIBLE", True, True, 0, 14
SetFieldApp "BG_SEVERITY", True, True, 0, 15
SetFieldApp "BG_STATUS", True, False, 0, 16
SetFieldApp "BG_SUBJECT", True, False, 0, 17
SetFieldApp "BG_SUMMARY", True, True, 0, 18
SetFieldApp "BG_USER_01", True, True, 0, 19
SetFieldApp "BG_USER_02", True, True, 0, 20
SetFieldApp "BG_VTS", True, False, 0, 21
ElseIf User.IsInGroup("QATester") Then
SetFieldApp "BG_ACTUAL_FIX_TIME", True, False, 0, 0
SetFieldApp "BG_BUG_ID", True, False, 0, 1
SetFieldApp "BG_CLOSING_DATE", True, False, 0, 2
SetFieldApp "BG_CLOSING_VERSION", True, False, 0, 3
SetFieldApp "BG_DESCRIPTION", True, False, 0, 4
SetFieldApp "BG_DETECTED_BY", True, True, 0, 5
SetFieldApp "BG_DETECTION_DATE", True, True, 0, 6
SetFieldApp "BG_DETECTION_VERSION", True, False, 0, 7
SetFieldApp "BG_DEV_COMMENTS", True, False, 0, 8
SetFieldApp "BG_ESTIMATED_FIX_TIME", True, False, 0, 9
SetFieldApp "BG_PLANNED_CLOSING_VER", True, False, 0, 10
SetFieldApp "BG_PRIORITY", True, True, 0, 11
SetFieldApp "BG_PROJECT", True, True, 0, 12
SetFieldApp "BG_REPRODUCIBLE", True, False, 0, 13
SetFieldApp "BG_RESPONSIBLE", True, True, 0, 14
SetFieldApp "BG_SEVERITY", True, True, 0, 15
SetFieldApp "BG_STATUS", True, False, 0, 16
SetFieldApp "BG_SUBJECT", True, False, 0, 17
SetFieldApp "BG_SUMMARY", True, True, 0, 18
SetFieldApp "BG_USER_01", True, True, 0, 19
SetFieldApp "BG_USER_02", True, True, 0, 20
SetFieldApp "BG_VTS", True, False, 0, 21
ElseIf User.IsInGroup("QATester1") Then
SetFieldApp "BG_ACTUAL_FIX_TIME", True, False, 0, 0
SetFieldApp "BG_BUG_ID", True, False, 0, 1
SetFieldApp "BG_CLOSING_DATE", True, False, 0, 2
SetFieldApp "BG_CLOSING_VERSION", True, False, 0, 3
SetFieldApp "BG_DESCRIPTION", True, False, 0, 4
SetFieldApp "BG_DETECTED_BY", True, True, 0, 5
SetFieldApp "BG_DETECTION_DATE", True, True, 0, 6
SetFieldApp "BG_DETECTION_VERSION", True, False, 0, 7
SetFieldApp "BG_DEV_COMMENTS", True, False, 0, 8
SetFieldApp "BG_ESTIMATED_FIX_TIME", True, False, 0, 9
SetFieldApp "BG_PLANNED_CLOSING_VER", True, False, 0, 10
SetFieldApp "BG_PRIORITY", True, True, 0, 11
SetFieldApp "BG_PROJECT", True, True, 0, 12
SetFieldApp "BG_REPRODUCIBLE", True, False, 0, 13
SetFieldApp "BG_RESPONSIBLE", True, True, 0, 14
SetFieldApp "BG_SEVERITY", True, True, 0, 15
SetFieldApp "BG_STATUS", True, False, 0, 16
SetFieldApp "BG_SUBJECT", True, False, 0, 17
SetFieldApp "BG_SUMMARY", True, True, 0, 18
SetFieldApp "BG_USER_01", True, True, 0, 19
SetFieldApp "BG_USER_02", True, True, 0, 20
SetFieldApp "BG_VTS", True, False, 0, 21
ElseIf User.IsInGroup("TDAdmin") Then
SetFieldApp "BG_ACTUAL_FIX_TIME", True, False, 0, 0
SetFieldApp "BG_BUG_ID", True, False, 0, 1
SetFieldApp "BG_CLOSING_DATE", True, False, 0, 2
SetFieldApp "BG_CLOSING_VERSION", True, False, 0, 3
SetFieldApp "BG_DESCRIPTION", True, False, 0, 4
SetFieldApp "BG_DETECTED_BY", True, True, 0, 5
SetFieldApp "BG_DETECTION_DATE", True, True, 0, 6
SetFieldApp "BG_DETECTION_VERSION", True, False, 0, 7
SetFieldApp "BG_DEV_COMMENTS", True, False, 0, 8
SetFieldApp "BG_ESTIMATED_FIX_TIME", True, False, 0, 9
SetFieldApp "BG_PLANNED_CLOSING_VER", True, False, 0, 10
SetFieldApp "BG_PRIORITY", True, True, 0, 11
SetFieldApp "BG_PROJECT", True, True, 0, 12
SetFieldApp "BG_REPRODUCIBLE", True, False, 0, 13
SetFieldApp "BG_RESPONSIBLE", True, True, 0, 14
SetFieldApp "BG_SEVERITY", True, True, 0, 15
SetFieldApp "BG_STATUS", True, False, 0, 16
SetFieldApp "BG_SUBJECT", True, False, 0, 17
SetFieldApp "BG_SUMMARY", True, True, 0, 18
SetFieldApp "BG_USER_01", True, True, 0, 19
SetFieldApp "BG_USER_02", True, True, 0, 20
SetFieldApp "BG_VTS", True, False, 0, 21
ElseIf User.IsInGroup("Viewer") Then
SetFieldApp "BG_ACTUAL_FIX_TIME", True, False, 0, 0
SetFieldApp "BG_BUG_ID", True, False, 0, 1
SetFieldApp "BG_CLOSING_DATE", True, False, 0, 2
SetFieldApp "BG_CLOSING_VERSION", True, False, 0, 3
SetFieldApp "BG_DESCRIPTION", True, False, 0, 4
SetFieldApp "BG_DETECTED_BY", True, True, 0, 5
SetFieldApp "BG_DETECTION_DATE", True, True, 0, 6
SetFieldApp "BG_DETECTION_VERSION", True, False, 0, 7
SetFieldApp "BG_DEV_COMMENTS", True, False, 0, 8
SetFieldApp "BG_ESTIMATED_FIX_TIME", True, False, 0, 9
SetFieldApp "BG_PLANNED_CLOSING_VER", True, False, 0, 10
SetFieldApp "BG_PRIORITY", True, True, 0, 11
SetFieldApp "BG_PROJECT", True, True, 0, 12
SetFieldApp "BG_REPRODUCIBLE", True, False, 0, 13
SetFieldApp "BG_RESPONSIBLE", True, True, 0, 14
SetFieldApp "BG_SEVERITY", True, True, 0, 15
SetFieldApp "BG_STATUS", True, False, 0, 16
SetFieldApp "BG_SUBJECT", True, False, 0, 17
SetFieldApp "BG_SUMMARY", True, True, 0, 18
SetFieldApp "BG_USER_01", True, True, 0, 19
SetFieldApp "BG_USER_02", True, True, 0, 20
SetFieldApp "BG_VTS", True, False, 0, 21
End If
End Sub
Function Defects_ActionCanExecute(ActionName)
On Error Resume Next
Defects_ActionCanExecute = Project_DefaultRes
On Error GoTo 0
End Function
Sub Defects_ExitModule
On Error Resume Next
On Error GoTo 0
End Sub
Sub Defects_Bug_New
On Error Resume Next
WizardFieldCust_Add ' 由向导添加
On Error GoTo 0
End Sub
Sub Defects_Bug_MoveTo
On Error Resume Next
On Error GoTo 0
End Sub
Function Defects_Bug_FieldCanChange(FieldName, NewValue)
On Error Resume Next
'If fieldName = "BG_STATUS" then
'MsgBox "修改状态"& Bug_Fields("BG_STATUS").Value & "->" &Newvalue
'end if
'if fieldName = "BG_SUMMARY" then
'else
'Defects_Bug_FieldCanChange = true
'Msgbox "只有提交BUG的人才能修改摘要" ,48 ,"警告"
'else
'Defects_Bug_FieldCanChange = true
'Msgbox "只有提交BUG的人才能修改BUG描述" ,48 ,"警告"
'Msgbox (PreviousStatus)
'Bug_Fields("BG_SUMMARY").Value = PreviousStatus
'CommentFieldFlag = false
'end if
Defects_Bug_FieldCanChange = Project_DefaultRes
On Error GoTo 0
End Function
Sub Defects_Bug_FieldChange(FieldName)
On Error Resume Next
If FieldName = "BG_DEV_COMMENTS" then
CommentFieldFlag = True
End If
'if(Bug_Fields("BG_DETECTED_BY").Value <> User.UserName) then
'msgbox(PreviousStatus)
'Bug_Fields("BG_SUMMARY").Value = PreviousStatus
'end if
'if(Bug_Fields("BG_DETECTED_BY").Value <> User.UserName) then
'msgbox(PreviousStatus)
'Bug_Fields("BG_DESCRIPTION").Value = PreviousStatus
'end if
On Error GoTo 0
End Sub
Function Defects_Bug_CanDelete
On Error Resume Next
Defects_Bug_CanDelete = False
MsgBox "不能删除BUG",VbInformation,"严重警告"
'Defects_Bug_CanDelete = Project_DefaultRes
On Error GoTo 0
End Function
Function Defects_Bug_CanPost
On Error Resume Next
If (Bug_Fields("BG_STATUS").Value = "已修复"or Bug_Fields("BG_STATUS").Value = "已否决") AND Bug_Fields("BG_DEV_COMMENTS").IsNull then
If CommentFieldFlag = True then
Defects_Bug_CanPost = True
Else
Defects_Bug_CanPost = False
MsgBox "填写注释啊,亲",VbInformation ,"友情提示"
End If
else
Defects_Bug_CanPost = True
End If
'if(Bug_Fields(BG_DESCRIPTION).IsNull) then
'Defects_Bug_CanPost = false
'end if
'Defects_Bug_CanPost = Project_DefaultRes
On Error GoTo 0
End Function
Sub Defects_Bug_AfterPost
On Error Resume Next
CommentFieldFlag = False
On Error GoTo 0
End Sub
Function Defects_Attachment_CanDelete(Attachment)
On Error Resume Next
Defects_Attachment_CanDelete = Project_DefaultRes
On Error GoTo 0
End Function
Sub Defects_EnterModule
On Error Resume Next
CommentFieldFlag = False
On Error GoTo 0
End Sub
Function Defects_GetNewBugPageName(PageName,PageNum)
On Error Resume Next
On Error GoTo 0
End Function
Function Defects_GetDetailsPageName(PageName,PageNum)
On Error Resume Next
On Error GoTo 0
End Function
TAG:
标题搜索
日历
|
|||||||||
日 | 一 | 二 | 三 | 四 | 五 | 六 | |||
1 | 2 | ||||||||
3 | 4 | 5 | 6 | 7 | 8 | 9 | |||
10 | 11 | 12 | 13 | 14 | 15 | 16 | |||
17 | 18 | 19 | 20 | 21 | 22 | 23 | |||
24 | 25 | 26 | 27 | 28 | 29 | 30 | |||
31 |
我的存档
数据统计
- 访问量: 104184
- 日志数: 55
- 建立时间: 2012-06-11
- 更新时间: 2017-09-07