51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 5267|回复: 11
打印 上一主题 下一主题

[求助] QC中缺陷状态改变的工作流设置

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2008-6-17 12:12:55 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
Function Defects_Bug_CanPost

    On Error Resume Next



   If (Bug_Fields("BG_STATUS").IsModified and _
         Bug_Fields("BG_STATUS").Value = "待改" and _
                        (User.IsInGroup("项目经理")  or _
             User.IsInGroup( "开发人员")))    then

             Bug_Fields("BG_PRIORITY").IsRequired=Req


    Else

        Defects_Bug_CanPost = True

    End If



    On Error GoTo 0

    If (Bug_Fields("BG_STATUS").IsModified and _
         Bug_Fields("BG_STATUS").Value = "非错" and _
            not Bug_Fields("BG_DEV_COMMENTS").IsModified)  and _
                        (User.IsInGroup("项目经理")  or _
             User.IsInGroup( "开发人员"))    then



        Defects_Bug_CanPost = False

        msgbox "请在注释中加上非错说明"
         Else

        Defects_Bug_CanPost = True

        End If



    On Error GoTo 0

End Function

[ 本帖最后由 shhuangfy 于 2008-6-17 15:06 编辑 ]
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
 楼主| 发表于 2008-6-17 12:16:11 | 只看该作者
想要达到的效果为:
1:当开发人员,项目经理把缺陷的状态改为:非错时,一定要填写备注;;
2:当开发人员,项目经理把缺陷的状态改为:待改时,一定要选择优先级;;

目前系统的效果为:项目经理把缺陷改为‘非错’是要写备注与优先级,改为‘待改’时,要选择优先级,
以上的代码有问题,不知如何修改
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2008-6-17 13:53:02 | 只看该作者
Function Defects_Bug_CanPost

    On Error Resume Next



   If (Bug_Fields("BG_STATUS").IsModified and _
         Bug_Fields("BG_STATUS").Value = "待改" and _
                        (User.IsInGroup("项目经理")  or _
             User.IsInGroup( "开发人员")))    then

             Bug_Fields("BG_PRIORITY").IsRequired=Req

   

    elseIf

   

    (Bug_Fields("BG_STATUS").IsModified and _
         Bug_Fields("BG_STATUS").Value = "非错" and _
            not Bug_Fields("BG_DEV_COMMENTS").IsModified)  and _
                        (User.IsInGroup("项目经理")  or _
             User.IsInGroup( "开发人员"))    then

        Defects_Bug_CanPost = False

        msgbox "请在注释中加上非错说明"
         

        Else

        Defects_Bug_CanPost = True

        End If



    On Error GoTo 0

End Function

[ 本帖最后由 shhuangfy 于 2008-6-17 15:06 编辑 ]
回复 支持 反对

使用道具 举报

该用户从未签到

4#
 楼主| 发表于 2008-6-17 13:53:19 | 只看该作者
这样也不行
回复 支持 反对

使用道具 举报

该用户从未签到

5#
 楼主| 发表于 2008-6-17 13:53:39 | 只看该作者
Function Defects_Bug_CanPost

    On Error Resume Next



   If (Bug_Fields("BG_STATUS").IsModified and _
      (User.IsInGroup("项目经理")  or _
             User.IsInGroup( "开发人员")))    then
             select case Bug_Fields("BG_STATUS").value
             case "非错"
             Defects_Bug_CanPost = False

        msgbox "请在注释中加上非错说明"
    Else

        Defects_Bug_CanPost = True
            
             case "待改"

             Bug_Fields("BG_PRIORITY").IsRequired=Req


    Else

        Defects_Bug_CanPost = True
  end select
    End If



    On Error GoTo 0

[ 本帖最后由 shhuangfy 于 2008-6-17 15:07 编辑 ]
回复 支持 反对

使用道具 举报

该用户从未签到

6#
 楼主| 发表于 2008-6-17 13:53:48 | 只看该作者
这样也是不行的
回复 支持 反对

使用道具 举报

该用户从未签到

7#
发表于 2008-6-19 14:12:19 | 只看该作者
QC脚本高手哇
只会添加初始列表值
哈哈
回复 支持 反对

使用道具 举报

  • TA的每日心情
    开心
    2018-2-24 20:40
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    8#
    发表于 2008-6-23 09:25:15 | 只看该作者

    回复 2# 的帖子

    这样试试:
    在Defects_Bug_FieldCanChange(FieldName, NewValue)中
    if FieldName = "BG_STATUS" then  //针对BUG状态的处理
    if  User.IsInGroup("项目经理")  or User.IsInGroup( "开发人员" then //
    if NewValue="非错" then
    msgbox"请在注释中加上非错说明"
    Defects_Bug_FieldCanChange=False
    exit Function
    end if
    end if
    end if
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    9#
     楼主| 发表于 2008-6-27 11:16:18 | 只看该作者
    呵呵,有阵子没来这儿了
    那个问题我已经解决了
    现在是另外一个问题
    我现在要求把问题改成遗留或是非错时,一定要指定审核人,然后同时提示他们一定要发邮件

    现在如果我以Msbbox的方式提示的话,不管它有无发送邮件总会有提示
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    10#
     楼主| 发表于 2008-6-27 11:16:36 | 只看该作者
    可是我即使发了邮件它还报这个提示
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    11#
     楼主| 发表于 2008-6-27 11:17:41 | 只看该作者
    Function Defects_Bug_CanPost

        On Error Resume Next

        ' If (Bug_Fields("BG_STATUS").IsModified and _
           '(Bug_Fields("BG_STATUS").Value = "非错"or _
              '  Bug_Fields("BG_STATUS").Value = "遗留" ) and _
                        '   (User.IsInGroup("测试人员")  or _
               ' User.IsInGroup( "开发人员")) )   then
           ' Defects_Bug_CanPost = False

           ' msgbox "状态修改后请发邮件给相应的审核人!"


           ' else

            'Defects_Bug_CanPost = true

         '   End If
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    12#
     楼主| 发表于 2008-6-27 11:19:47 | 只看该作者
    所以现在想到的解决方法
    1:不与弹出框的方式显示提示信息

    2:以弹出框的方式,点击确认后,弹出发送邮件的功能模块

    具体还不知道如何实现呢
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

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

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

    GMT+8, 2024-11-11 09:07 , Processed in 0.074375 second(s), 27 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

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