51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 5144|回复: 8
打印 上一主题 下一主题

[原创] 在改变BUG的状态为Fixed的时候,如何要求强制添加注释信息

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2008-4-24 15:44:17 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
注意:
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 编辑 ]
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2008-4-25 20:55:20 | 只看该作者

好,高手!

好,高手!

呵呵,路径挺全的!

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

[ 本帖最后由 kakamissyou 于 2008-5-5 15:24 编辑 ]
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2009-3-31 12:01:06 | 只看该作者
Bug_Fields("BG_BUG_ID").IsNull

为什么要判断ID为不为空呢?
回复 支持 反对

使用道具 举报

  • TA的每日心情
    开心
    2015-2-26 08:31
  • 签到天数: 2 天

    连续签到: 2 天

    [LV.1]测试小兵

    4#
    发表于 2009-5-6 13:48:20 | 只看该作者
    刚好昨天在公司其他人讨论这个问题呢,今天路过,看到了~~呵呵
    楼主辛苦了,谢谢,学习啦~~~
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    5#
    发表于 2009-5-6 14:10:38 | 只看该作者
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    开心
    2017-7-4 15:34
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    6#
    发表于 2009-5-6 16:51:51 | 只看该作者
    很好,很全面
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    7#
    发表于 2012-10-12 16:34:01 | 只看该作者
    QC11没有Defects_EnterModule,另外按楼主的编完后会输入了comment还提示要输入comment,楼主能解答一下吗
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    8#
    发表于 2012-10-12 16:34:01 | 只看该作者
    QC11没有Defects_EnterModule,另外按楼主的编完后会输入了comment还提示要输入comment,楼主能解答一下吗
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    9#
    发表于 2012-10-12 16:42:32 | 只看该作者
    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
    加了几个状态不行吗
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-8 18:31 , Processed in 0.067922 second(s), 27 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表