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:

 

评分:0

我来说两句

Open Toolbar