1.可以在你的BUG模块中新建一个自定义的字段,这样就可以设订
工作流了
2.进入Set up workflow 之后,用scrīpt Editor来添加一个按扭(中间要选择你要在哪个模块下添加按扭,你应该是在你的BUG模块下)
3.按扭设好后选中它然后在Action name 中给他取名字(最好是取你一点这个按扭就会触发这个事件的名字)然后选个IMAGE,appiz一下
4.接着到scrīpt Editor里编工作流
我以前做的是把BUG和它所对应的需求联系在一起,因此对要对需求做验证,当时在需求模块的脚本中改了一下,代码如下:
Function Defects_ActionCanExecute(ActionName)
On Error Resume Next dim td
dim ReqF
dim ReqL
'判断按钮是不是自定义得按钮...
if ActionName = "Link_Bug_Req" then
'弹出窗口，接受输入的需求名
RequirementName = InputBox("Enter the Requirement Name:", "Associate Defect to Requirement")
'如果是数字或者空则抱错
if (IsNumeric(RequirementName)) and Len(RequirementName) > 0 then
MsgBox "That is not a valid Requirement Name!"
exit function
'如果按的是确定按钮，我们首先校验数据
elseif Len(RequirementName) > 0 then
'创建 TDConnection对象.
set td = TDConnection
'创建ReqFactory对象.
set ReqF = td.ReqFactory
'创建ReqFactory的List对象.通过
SQL校验需求名是否存在
set ReqL = ReqF.NewList("select * from REQ where RQ_REQ_NAME='" & RequirementName & "'")
'如果放回的需求总数为零，则表示需求不存在
if ReqL.Count = 0 then
MsgBox "That Requirement Name does not exist!"
exit function
'如果不是则把需求名放到自定义得字段中去
else
Bug_Fields("BG_USER_02").Value = RequirementName
end if
'清除对象
set ReqL = nothing
set ReqF = nothing
set td = nothing
end if
end if
'=====================================================================================
Defects_ActionCanExecute = Project_DefaultRes
On Error GoTo 0
End Function
可以根据实际改动一下
