Quality Center的workflow 脚本范例一

最近发现记性不太好了,觉得还是把学过的东西记录下来一下
Quality Center(简称QC) 如果让QC在流程方面控制的更好,
想让QC控制的更好就少不了WORKFLOW的编码,通过工具的控制流程往往比白纸黑字规定强得多。
比如 我制定一个流程是 程序员reject BUG时候一定要添加 COMMENTS。如果工具本身不约束，
往往程序员就会忘记了这个步骤，所以我通过脚本来加强一下WORKFLOW。
以下的代码主要是程序员和项目经理reject BUG的时候一定要添加COMMENTS

FunctionDefects_Bug_CanPost
 On ErrorResumeNext

 If(Bug_Fields("BG_STATUS").IsModifiedand_
         Bug_Fields("BG_STATUS").Value = "reject"and_
            not Bug_Fields("BG_DEV_COMMENTS").IsModified) and_
                        (User.IsInGroup("项目经理")  or _
             User.IsInGroup("程序员"))   then

        Defects_Bug_CanPost =False

       msgbox"请在备注中加上Reject说明"
    end if
  
 On ErrorGoTo 0
End Function