QC工作流中的部分脚本修改

上一篇 / 下一篇 2012-06-18 09:18:58 / 个人分类：杂谈

　（1）新建缺陷时候的默认值

m o`2A M*^D%F0　　需求说明：打开添加缺陷的页面的时候（特别是使用了自定义字段的时候）我们最希望的就是给这些不是非常重要的，但是又不希望没有内容的字段有些默认值。请先看代码。

Sub Defects_Bug_New
On Error Resume Next
Bug_Fields("BG_DETECTION_VERSION").Value = "Ehome 2.0"
On Error GoTo 0
End Sub

!aV6C]mmy,T0　　这段代码，你只要复制到工作流脚本中去，哪么你在添加缺陷的时候，版本这个字段里面就会自动有一个内容Ehome 2.0。这段代码中的Defects_Bug_New代表新建缺陷的时候执行的脚本，Bug_Fields("BG_DETECTION_VERSION")具体缺陷字段。这是最简单的工作流脚本。

\U't.A(et `0　　（2）记录修改人和修改时间

　　需求说明：开发修改了一个缺陷的状态为“修改完成“的时候，记录下修改他的人，和修改时间。方便我们管理。同样，请先看代码：

Sub Defects_Bug_FieldChange(FieldName)
    On Error Resume Next
        if FieldName = "BG_STATUS" Then
            if Bug_Fields("BG_STATUS").Value = "P1-修改完成待验证" then
                Bug_Fields("BG_RESPONSIBLE").Value = User.UserName
                Bug_Fields("BG_USER_02").Value = now()
            end if
        end if
    On Error GoTo 0
End Sub

t,nzJ[neay ^&M0　　这段代码内容就多了几行，里面的Defects_Bug_FieldChange(FieldName)代表的是缺陷字段发生改变的时候执行的语句。 BG_STATUS代表缺陷状态，BG_RESPONSIBLE代表负责人（Syestem Fields表里的），BG_USER_02代表用户自定义字段（User Fields表里的）。User.UserName代表当前操作的用户名，now()代表当前时间。

?D:R(} q$p0　　（3）暂不修改缺陷时必须说理由

　　需求说明：有时候开发很懒，不喜欢写理由，哪么对我们测试来说，没有任何说明就返回我们。使我们不好处理问题。哪么我们希望当程序员如果修改缺陷状态为”暂不修改”或”遗留”的时候，让开发人员必须输入理由。51Testing软件测试网KRi7k-YU

,EJ@|j Q2}^0Sub Defects_Bug_FieldChange(FieldName)
S,oZ#}5Cu8Isy*A:M0 On Error Resume Next

qw-z(jRD!Jk*X0        dim i
)vb JvE$B5`0        i=""
l ?LG"I0        msg1 ="遗留或暂不修改此缺陷需要输入理由！"
        title1 ="输入理由"

Id5U3o(MU9J%bv;ag0         If FieldName = "BG_STATUS" Then
;V3YD(sa,],l7Ii:p0 if (Bug_Fields("BG_STATUS").Value = "待遗留" or Bug_Fields("BG_STATUS").Value = "暂不修改") and Bug_Fields("BG_DEV_COMMENTS").Value = "" then51Testing软件测试网LHyS\:\T
                 do
?N:?&v&R%e5D0                   i= InputBox(msg1,title1)51Testing软件测试网NZ;]!S+F OT/r
                   if i="" then51Testing软件测试网*g;?6w]0]
                      msgbox"必须输入理由！"
:WiX`tv2h.m*u0                   else exit do
                   end if
Y%z S},L \'{4A-]0                 loop
                 Bug_Fields("BG_DEV_COMMENTS").Value = i
c3`^y@)e0              end if
I)gx6}+y-G_0w N3t0          end if
A)Ai_ YJ.FD|0        On Error GoTo 0
c3Vv{/ly,i0    End Sub