51Testing软件测试论坛

标题: 在改变BUG的状态为Fixed的时候，如何要求强制添加注释信息 [打印本页]

作者: joshfang 时间: 2008-4-24 15:44
标题: 在改变BUG的状态为Fixed的时候，如何要求强制添加注释信息
注意：
1. 代码是在自定义->set up workflow中定义的，
2. 请找到相关的function进行修改。需要具备一定vb代码基础。
3. 不光是Fixed状态，大家可以灵活运用，根据自己的需要
4. 我本人已经试过没有问题.
最后，代码是一行一行整理的，大家要珍惜啊

' variable global to defect module
dim CommentFieldFlag

Function Defects_Bug_CanPost
On Error Resume Next
' checks for Status of "Fixed" and comments flag = true else allows the user post defect
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 "

lease add a comment (using the Add Comments button) with information about the fix.",VbInformation  ,"No Comment Warning"
      End If
   Else
      Defects_Bug_CanPost = True
   End If
'comment out or delete this next line if there by default
'Defects_Bug_CanPost = Project_DefaultRes
On Error GoTo 0
End Function

Sub Defects_Bug_AfterPost
On Error Resume Next
  ' resets the flag after each defect is posted
CommentFieldFlag = False
On Error GoTo 0
End Sub

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

Sub Defects_Bug_FieldChange(FieldName)
On Error Resume Next
' sets flag for comments when comments updated
If FieldName = "BG_DEV_COMMENTS" then
      CommentFieldFlag = True
End If
  On Error GoTo 0
End Sub

[ 本帖最后由 joshfang 于 2008-4-25 13:20 编辑 ]

作者: kakamissyou 时间: 2008-4-25 20:55
标题: 好，高手！
好，高手！

呵呵，路径挺全的！

偶不会VB。不过看懂了。谢谢楼主！

[ 本帖最后由 kakamissyou 于 2008-5-5 15:24 编辑 ]

作者: snyygyso2005 时间: 2009-3-31 12:01
Bug_Fields("BG_BUG_ID").IsNull

为什么要判断ID为不为空呢？

作者: lovealina 时间: 2009-5-6 13:48
刚好昨天在公司其他人讨论这个问题呢，今天路过，看到了~~呵呵

楼主辛苦了，谢谢，学习啦~~~

作者: zte_boy 时间: 2009-5-6 14:10

作者: peterz 时间: 2009-5-6 16:51
很好，很全面

作者: Graceli 时间: 2012-10-12 16:34
QC11没有Defects_EnterModule，另外按楼主的编完后会输入了comment还提示要输入comment，楼主能解答一下吗

作者: Graceli 时间: 2012-10-12 16:42
If Not Bug_Fields("BG_BUG_ID").IsNull AND
(Bug_Fields("BG_STATUS").Value = "Fixed" or
Bug_Fields("BG_STATUS").Value = "Rejected" or
Bug_Fields("BG_STATUS").Value = "Reopen" or
Bug_Fields("BG_STATUS").Value = "Suspend") Then
加了几个状态不行吗

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