需求:缺陷状态发生不同变化时,系统会的自动处理一些字段值的变化
在脚本编辑器找到Defects_Bug_FieldChange函数,然后填写以下代码:
Sub Defects_Bug_FieldChange(FieldName)
’已打回状态时,自动弹出要求填写注释,并将“分配给”的值置为“检查者”的值
If Bug_Fields("BG_USER_06").IsModified and _
Bug_Fields("BG_USER_06").Value = "3.已打回" then
msgbox "请在注释处标明原因!"
Bug_Fields("BG_RESPONSIBLE").Value = Bug_Fields("BG_DETECTED_BY").Value
’待沟通状态时,自动弹出要求选择下一环节的负责人
ElseIf Bug_Fields("BG_USER_06").IsModified and _
not Bug_Fields("BG_RESPONSIBLE").IsModified and _
Bug_Fields("BG_USER_06").Value = "5.待沟通" then
msgbox "请选择下一环节负责人!"
Bug_Fields("BG_USER_07").IsRequired=true
’已关闭状态时,要求填写关闭版本号,轮次号等,并自动填写关闭日期和计算缺陷处理时间
ElseIf Bug_Fields("BG_USER_06").IsModified and _
Bug_Fields("BG_USER_06").Value = "6.已关闭" then
Bug_Fields("BG_CLOSING_VERSION").IsRequired=true
Bug_Fields("BG_USER_12").IsRequired=true
Bug_Fields("BG_USER_01").IsRequired=true
Bug_Fields("BG_USER_07").IsRequired=true
Bug_Fields("BG_CLOSING_DATE").Value=Date()
Bug_Fields("BG_USER_16").Value= DateDiff("d",Bug_Fields("BG_DETECTION_DATE").Value,Date())
End if
End Sub
以上只是列举其中一些例子和用法, 不详细列举所有用法,希望大家能够举一反三。