51Testing软件测试论坛

标题: QC 里fixbug时加注释，否则提示，但现在加了注释也会提示，高人指点下 [打印本页]

作者: Graceli 时间: 2012-10-12 12:59
标题: QC 里fixbug时加注释，否则提示，但现在加了注释也会提示，高人指点下
Dim CommentFiledFlag
Function Bug_CanPost
  On Error Resume Next
  If Not Bug_Fields("BG_BUG_ID").IsNull AND Bug_Fields("BG_STATUS").Value = "Fixed" Then
      If CommentFieldFlag = True then
      Defects_Bug_CanPost = True
      Else
      Defects_Bug_CanPost = False
      MsgBox "Please add a comment !"
      End If
   'Else
      'Defects_Bug_CanPost = True
   End If

  'Bug_CanPost = DefaultRes
  On Error GoTo 0
End Function

Sub Bug_AfterPost
  On Error Resume Next
  CommentFieldFlag = False
  On Error GoTo 0
End Sub

Function Bug_CanDelete(Entity)
  On Error Resume Next

  Bug_CanDelete = DefaultRes
  On Error GoTo 0
End Function

Sub Defects_EnterModule
On Error Resume Next
initialises flag
CommentFieldFlag = False
  On Error GoTo 0
End Sub

Sub Bug_New
  On Error Resume Next

  On Error GoTo 0
End Sub

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)